1 |
;;; erbc.el --- Erbot user-interface commands. |
;;; erbc.el --- Erbot user-interface commands. |
2 |
;; Time-stamp: <2005-01-23 23:16:57 deego> |
;; Time-stamp: <2005-01-23 23:19:33 deego> |
3 |
;; Copyright (C) 2002 D. Goel |
;; Copyright (C) 2002 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbc.el |
;; Filename: erbc.el |
1275 |
|
|
1276 |
|
|
1277 |
|
|
1278 |
(defun fsi-eval-maybe (str &optional fs-victim) |
(defun fsi-eval-or-say (str &optional fs-victim) |
1279 |
(unless fs-victim (setq fs-victim fs-nick)) |
(unless fs-victim (setq fs-victim fs-nick)) |
1280 |
(let ((aa (when (stringp str) |
(let ((aa (when (stringp str) |
1281 |
(ignore-errors (read str))))) |
(ignore-errors (read str))))) |
1297 |
;; Check for flame.el support |
;; Check for flame.el support |
1298 |
(cond |
(cond |
1299 |
((and (consp flames) (> (length flames) 0)) |
((and (consp flames) (> (length flames) 0)) |
1300 |
(fsi-eval-maybe (fs-random-choose flames) fs-flame-target)) |
(fsi-eval-or-say (fs-random-choose flames) fs-flame-target)) |
1301 |
(t (fs-flame-mild fs-flame-target))))) |
(t (fs-flame-mild fs-flame-target))))) |
1302 |
|
|
1303 |
|
|