Remove old and crusty zenirc pkg
[packages] / xemacs-packages / zenirc / src / zenirc-8ball.el
diff --git a/xemacs-packages/zenirc/src/zenirc-8ball.el b/xemacs-packages/zenirc/src/zenirc-8ball.el
deleted file mode 100644 (file)
index 2af5f1a..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-;;; zenirc-8ball.el --- magic 8 ball for ZenIRC
-
-;; Copyright (C) 1996 Mark S Bailen
-;; Copyright (C) 1997 Noah Friedman
-
-;; Bozo:  Mark S Bailen
-;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Keywords: zenirc, extensions, magic, 8ball
-;; Created: 1996-10-4
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Code hacked from Noah's zenirc-yow.el and Eric's zenirc-random-away.el
-;; Rewritten 1997-03-03 by Noah to use zenirc-trigger.el.
-
-;;; Code:
-
-(require 'zenirc)
-(require 'zenirc-trigger)
-
-(defconst zenirc-8ball-prefix "magic 8-ball says ====>")
-
-(defconst zenirc-8ball-responses
-  '("CERTAINLY"
-    "DEFINITELY NOT"
-    "MAYBE"
-    "NO"
-    "REPLY HAZY, TRY AGAIN LATER"
-    "YES"))
-
-(defun zenirc-8ball ()
-  (concat zenirc-8ball-prefix " "
-          (nth (random (length zenirc-8ball-responses))
-               zenirc-8ball-responses)))
-
-(zenirc-trigger-register "8ball" 'zenirc-8ball "\\b8 ball\\b")
-
-(provide 'zenirc-8ball)
-
-;;; zenirc-8ball.el ends here