home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / killpath < prev    next >
Encoding:
Text File  |  1994-07-30  |  951 b   |  33 lines
  1. # No Kill Path Script II
  2.  
  3. # converted to 2.2.1 by phone
  4. # CONVERTED for ircII2.2
  5. # Version for servers 2.7.1* by Nap@irc <pioch@poly.polytechnique.fr>
  6. # Original script from YeggMan
  7. # Simplification by Daemon
  8. # This version works both with old and new 2.7.1e kill formats !
  9.  
  10. @ kpath.kpath = [<empty>]
  11. alias kpath echo ### Last received KILL Path: $kpath.kpath
  12.  
  13. alias kpath.ridx @ function_return = RINDEX(! $0) + 1
  14. alias kpath.is_serv @ function_return  = INDEX(. $MID($kpath.ridx($0) 512 $0))
  15. alias kpath.opkill echo ### KILL for $0 $MID($kpath.ridx($1) 9 $1) $2-
  16. alias kpath.svkill echo ### ServerKill for $0
  17.  
  18. on ^server_notice "% * Notice -- Received KILL*" {
  19.         if ([$9] == [From])
  20.     {
  21.         ^assign kpath.kpath $12-
  22.         if (kpath.is_serv($12) > -1)
  23.         { kpath.svkill $8 }
  24.         { kpath.opkill $8 $10 $13- }
  25.     }
  26.     {
  27.         ^assign kpath.kpath $10-
  28.         if (kpath.is_serv($10) > -1)
  29.         { kpath.svkill $8 }
  30.         { kpath.opkill $8 $10 $11- }
  31.     }
  32. }
  33.