/[erbot]/erbot/erbc.el
ViewVC logotype

Diff of /erbot/erbc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.74 by deego, Fri Jan 7 01:56:28 2005 UTC revision 1.75 by pkazmier, Sat Jan 8 00:03:04 2005 UTC
# Line 1187  Else, of course, do the usual thing: viz Line 1187  Else, of course, do the usual thing: viz
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"))

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26