1 |
;;; erbot.el --- Another robot for ERC. |
;;; erbot.el --- Another robot for ERC. |
2 |
;; Time-stamp: <2005-01-05 11:15:08 deego> |
;; Time-stamp: <2005-01-08 12:52:18 deego> |
3 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
4 |
;; Filename: erbot.el |
;; Filename: erbot.el |
5 |
;; Package: erbot |
;; Package: erbot |
468 |
the new erc-backend functions." |
the new erc-backend functions." |
469 |
(set-buffer (process-buffer proc)) |
(set-buffer (process-buffer proc)) |
470 |
(let* ( |
(let* ( |
471 |
(erbnoc-buffer (erc-server-buffer)) |
(erbn-buffer (erc-server-buffer)) |
472 |
(sspec (cond (erbot-on-new-erc-p |
(sspec (cond (erbot-on-new-erc-p |
473 |
(erc-response.sender parsed)) |
(erc-response.sender parsed)) |
474 |
(t (aref parsed 1)))) |
(t (aref parsed 1)))) |
478 |
;; independent and do not affect each other.. when it is |
;; independent and do not affect each other.. when it is |
479 |
;; parsing too many messages once.. |
;; parsing too many messages once.. |
480 |
(fs-nick nick) |
(fs-nick nick) |
481 |
(erbnoc-nick nick) |
(erbn-nick nick) |
482 |
(cmdargs (and erbot-on-new-erc-p |
(cmdargs (and erbot-on-new-erc-p |
483 |
(erc-response.command-args parsed))) |
(erc-response.command-args parsed))) |
484 |
(tgta (cond (cmdargs |
(tgta (cond (cmdargs |
487 |
(tgt (if (equalp tgta (or (erc-current-nick) erbot-nick)) |
(tgt (if (equalp tgta (or (erc-current-nick) erbot-nick)) |
488 |
nick |
nick |
489 |
tgta)) |
tgta)) |
490 |
(erbnoc-tgt tgt) |
(erbn-tgt tgt) |
491 |
(fs-tgt tgt) |
(fs-tgt tgt) |
492 |
(msg (cond (cmdargs |
(msg (cond (cmdargs |
493 |
(nth 1 cmdargs)) |
(nth 1 cmdargs)) |
503 |
|
|
504 |
(setq erbot-end-user-nick-latest erbot-end-user-nick) |
(setq erbot-end-user-nick-latest erbot-end-user-nick) |
505 |
;;(setq fs-tgt tgt) |
;;(setq fs-tgt tgt) |
506 |
;;(setq erbnoc-tgt tgt) |
;;(setq erbn-tgt tgt) |
507 |
|
|
508 |
;;(setq fs-nick nick) |
;;(setq fs-nick nick) |
509 |
;;(setq erbnoc-nick nick) |
;;(setq erbn-nick nick) |
510 |
|
|
511 |
(let ((msgg |
(let ((msgg |
512 |
(erbeng-main msg proc nick tgt nil userinfo))) |
(erbeng-main msg proc nick tgt nil userinfo))) |
520 |
nil) |
nil) |
521 |
(t (erbot-reply |
(t (erbot-reply |
522 |
msgg |
msgg |
523 |
proc erbnoc-nick erbnoc-tgt msg nil |
proc erbn-nick erbn-tgt msg nil |
524 |
))) |
))) |
525 |
|
|
526 |
)) |
)) |