Skip to content

Instantly share code, notes, and snippets.

@mpenet

mpenet/kikoooooo.el

Last active February 26, 2020 16:19
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mpenet/d8e9902f636c1b54ff97f9f250c44ffe to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mpenet/d8e9902f636c1b54ff97f9f250c44ffe to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. mpenet revised this gist Feb 26, 2020. 1 changed file with 1 addition and 2 deletions.
    3 changes: 1 addition & 2 deletions kikoooooo.el
    View file
    Original file line number Diff line number Diff line change
    @@ -5,8 +5,7 @@
    (setq back (+ (random 13) 1)))
    (erc-send-message
    (apply 'concat
    (append (list (format "%s \002\003%s,%sKIKOO"
    (buffer-name)
    (append (list (format "\002\003%s,%sKIKOO"
    front
    back))
    (make-list (+ (random 11) 2) "O")
  2. mpenet revised this gist Feb 26, 2020. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion kikoooooo.el
    View file
    Original file line number Diff line number Diff line change
    @@ -3,7 +3,7 @@
    (back (+ (random 13) 1)))
    (while (= back front)
    (setq back (+ (random 13) 1)))
    (erc-message "PRIVMSG"
    (erc-send-message
    (apply 'concat
    (append (list (format "%s \002\003%s,%sKIKOO"
    (buffer-name)
  3. mpenet created this gist Feb 26, 2020.
    23 changes: 23 additions & 0 deletions kikoooooo.el
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,23 @@
    (defun kikoo-line (nick)
    (let ((front (+ (random 13) 1))
    (back (+ (random 13) 1)))
    (while (= back front)
    (setq back (+ (random 13) 1)))
    (erc-message "PRIVMSG"
    (apply 'concat
    (append (list (format "%s \002\003%s,%sKIKOO"
    (buffer-name)
    front
    back))
    (make-list (+ (random 11) 2) "O")
    (list " " nick " ")
    (make-list (+ (random 11) 2) "!")
    (list " :o")
    (make-list (+ (random 11) 2) ")")))
    t)))

    (defun kikoo ()
    (interactive)
    (let ((nick (completing-read "Enter nick: " (erc-get-channel-nickname-list))))
    (dotimes (i 3)
    (kikoo-line nick))))