# $eterna: killpath,v 1.2 2001/08/12 15:57:11 mrg Exp $ # # No Kill Path Script II # converted to 2.2.1 by phone # CONVERTED for ircII2.2 # Version for servers 2.7.1* by Nap@irc # Original script from YeggMan # Simplification by Daemon # This version works both with old and new 2.7.1e kill formats ! @ kpath.kpath = [] alias kpath echo ### Last received KILL Path: $kpath.kpath alias kpath.ridx @ function_return = RINDEX(! $0) + 1 alias kpath.is_serv @ function_return = INDEX(. $MID($kpath.ridx($0) 512 $0)) alias kpath.opkill echo ### KILL for $0 $MID($kpath.ridx($1) 9 $1) $2- alias kpath.svkill echo ### ServerKill for $0 on ^server_notice "% * Notice -- Received KILL*" { if ([$9] == [From]) { ^assign kpath.kpath $12- if (kpath.is_serv($12) > -1) { kpath.svkill $8 } { kpath.opkill $8 $10 $13- } } { ^assign kpath.kpath $10- if (kpath.is_serv($10) > -1) { kpath.svkill $8 } { kpath.opkill $8 $10 $11- } } }