1187 |
(defun fs-kiss (&optional nick &rest foo) |
(defun fs-kiss (&optional nick &rest foo) |
1188 |
"Nada. |
"Nada. |
1189 |
Optional argument NICK ." |
Optional argument NICK ." |
1190 |
(format "/me kisses %s" nick)) |
(setq nick (format "%s" (or nick "itself"))) |
1191 |
|
(cond |
1192 |
|
((member nick (list erbot-nick "yourself" "self")) |
1193 |
|
(eval |
1194 |
|
(erbutils-random |
1195 |
|
'("I'd rather kiss you" |
1196 |
|
"Kiss myself? Why?")))) |
1197 |
|
(t |
1198 |
|
(eval |
1199 |
|
(erbutils-random |
1200 |
|
'((format "/me kisses %s" nick) |
1201 |
|
(format "/me gives %s a big smooch" nick) |
1202 |
|
(format "/me runs in the other direction, shouting NEVER!!"))))))) |
1203 |
|
|
1204 |
(defun fs-hug (&optional nick) |
(defun fs-hug (&optional nick) |
1205 |
(unless nick (setq nick "itself")) |
(unless nick (setq nick "itself")) |