erbot-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erbot-cvs] Changes to erbot/erbc.el


From: D . Goel
Subject: [Erbot-cvs] Changes to erbot/erbc.el
Date: Mon, 24 Jan 2005 13:51:35 -0500

Index: erbot/erbc.el
diff -u erbot/erbc.el:1.87 erbot/erbc.el:1.88
--- erbot/erbc.el:1.87  Mon Jan 24 04:20:26 2005
+++ erbot/erbc.el       Mon Jan 24 18:51:34 2005
@@ -1,5 +1,5 @@
 ;;; erbc.el --- Erbot user-interface commands.
-;; Time-stamp: <2005-01-23 23:19:33 deego>
+;; Time-stamp: <2005-01-24 08:00:32 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -1276,12 +1276,19 @@
 
 
 (defun fsi-eval-or-say (str &optional fs-victim)
-  (unless fs-victim (setq fs-victim fs-nick))
   (let ((aa (when (stringp str)
              (ignore-errors (read str)))))
     (cond
-     ((consp aa) (fsi-eval aa))
-     (t (format "%s: %s" fs-victim str)))))
+     ((consp aa) 
+      (unless fs-victim (setq fs-victim fs-nick))
+      (fsi-eval aa))
+     (fs-victim
+      (format "%s: %s" fs-victim str))
+     (t
+      (format "%s" str)))))
+
+
+
 
     
 
@@ -1291,18 +1298,25 @@
         (if (first args)
             (format "%s" (first args))
           erbot-end-user-nick))
+       (num (second args))
        (flames (ignore-errors (fs-notes "flames"))))
     (if (string= (format "%s" fs-flame-target) "me")
        (setq fs-flame-target erbot-end-user-nick))
     ;; Check for flame.el support
     (cond
      ((and (consp flames) (> (length flames) 0))
-      (fsi-eval-or-say (fs-random-choose flames) fs-flame-target))
+      (fsi-eval-or-say 
+       (if (numberp num)
+          (nth num flames)
+        (fs-random-choose flames))
+       fs-flame-target))
      (t (fs-flame-mild fs-flame-target)))))
 
 
 
 
+
+
 (defun fs-flame-mild (&rest args)
   "Doesn't really flame right now..
 Optional argument ARGS ."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]