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

   1 ;;;
   2 ;;;
   3 ;;; zenirc-ctcp-flood.el --- aggresively boze at people with CTCP
   4
   5 ;;; Copyright (C) 1993, 1994 Ben A. Mesander
   6
   7 ;;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
   8 ;;; Maintainer: ben@gnu.ai.mit.edu
   9 ;;; Keywords: extensions
  10 ;;; Created: 1993/06/03
  11
  12 ;;; This program is free software; you can redistribute it and/or modify
  13 ;;; it under the terms of the GNU General Public License as published by
  14 ;;; the Free Software Foundation; either version 2, or (at your option)
  15 ;;; any later version.
  16 ;;;
  17 ;;; This program is distributed in the hope that it will be useful,
  18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;; GNU General Public License for more details.
  21 ;;;
  22 ;;; You should have received a copy of the GNU General Public License
  23 ;;; along with this program; if not, you can either send email to this
  24 ;;; program's maintainer or write to: The Free Software Foundation,
  25 ;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
  26
  27 ;;; Commentary:
  28
  29 ;;; Code:
  30
  31 (require 'zenirc)
  32
  33 (defun zenirc-ctcp-flood (target number)
  34   (interactive "sTarget: \nnNumber of times: ")
  35   (let ((i 0) (proc (get-buffer-process (current-buffer))))
  36     (while (< i number)
  37       (setq i (1+ i))
  38       (process-send-string
  39        proc (concat "PRIVMSG " target ","target ","target ","target ","target ","target ","target ","target ","target ","target " :\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\n")))))
  40
  41 (provide 'zenirc-ctcp-flood)