home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum10b8.lzh / plum10b8 / noisybot.plm < prev    next >
Text File  |  1997-06-25  |  723b  |  26 lines
  1. package noisybot;
  2.  
  3. $_ = 'noisybot';
  4.  
  5. sub ss_privmsg {
  6.   local($serverno, $prefix, $cmd, $chan, $msg) = @_;
  7.   local($org, $word, $string);
  8.   $org = &'euc($msg);
  9.   foreach $message (&'property($'userno[$serverno], 'noisybot')) {
  10.     ($word, $string) = split(/\s+/, $message, 2);
  11.     $word = &'euc($word);
  12.     next unless index($org, $word) != -1;
  13.     if ($string) {
  14.       &'s_print($serverno, '', 'PRIVMSG', $chan, $string);
  15.       foreach $clientno (&'array($'clientlist)) {
  16.         next unless $'userno[$clientno] == $'userno[$serverno];
  17.         next unless $'avail[$clientno];
  18.         &'c_print($clientno, &'user($clientno), 'PRIVMSG', $chan, $string);
  19.       }
  20.     }
  21.     last;
  22.   }
  23.   return ($prefix, $cmd, $chan, $msg);
  24. }
  25.  
  26.