cgit.sxemacs.org Git - packages/blob - xemacs-packages/zenirc/src/zenirc-ojnk.el

   1 ;;; zenirc-ojnk.el --- Send ojnks - example of adding commands to zenirc
   2
   3 ;; Copyright (C) 1993, 1994 Ben A. Mesander
   4
   5 ;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
   6 ;; Maintainer: ben@gnu.ai.mit.edu
   7 ;; Keywords: extensions
   8 ;; Created: 1993/06/03
   9
  10 ;; This program is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14 ;;
  15 ;; This program is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19 ;;
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program; if not, you can either send email to this
  22 ;; program's maintainer or write to: The Free Software Foundation,
  23 ;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; Examples of defining your own commands in zenirc.
  28 ;; Modeled after ircII code by dmarcher@autarch.acsu.buffalo.edu
  29
  30 ;; /ojnk victim & /ojnkflood victim
  31
  32 ;; OJNK is the sound a PJGLET makes.
  33
  34 ;;; Code:
  35
  36 (require 'zenirc)
  37
  38 (defvar zenirc-command-ojnk-hook '(zenirc-command-ojnk))
  39 (defvar zenirc-command-ojnkflood-hook '(zenirc-command-ojnkflood))
  40
  41 ;; /ojnk victim
  42 (defun zenirc-command-ojnk (proc cmd)
  43   (process-send-string
  44    proc (concat "PRIVMSG " (cdr cmd)
  45                 " :\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\n")))
  46
  47 ;; /ojnkflood victim
  48 (defun zenirc-command-ojnkflood (proc cmd)
  49   (process-send-string
  50    proc (concat "PRIVMSG " (cdr cmd)
  51                 " :\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\n")))
  52
  53 (provide 'zenirc-ojnk)
  54
  55 ;;; zenirc-ojnk.el ends here