Kick All Clones - 05/03/03 07:30 AM
Need script like kick all clones if user same ip together, can you help me ?
alias clonekick { if ( $1 ) { var %i = 1 while ( $gettok($ialchan($address($1,2),#,%i),1,33) ) { kick # $ifmatch $2- inc %i } } }
alias clonekick { var %reason = -CloneKick- | ; Kick reason template | ; if #* iswm $1 && $2 ison $1 { | ; /clonekick #Channel CloneNick blah blah var %chan = $1 | ; %chan = #Channel var %nick = $2 | ; %nick = CloneNick %reason = %reason $3- | ; %reason = (-CloneKick- blah blah) } | ; elseif $1 ison $active { | ; /clonekick CloneNick Begone, schizophrenic! var %chan = $active | ; %chan = active window var %nick = $1 | ; %nick = CloneNick %reason = %reason $2- | ; %reason = (-CloneKick- Begone, schizophrenic!) } | ; else return | ; If no matching condition, halt | ; var %wildsite = $address(%nick, 2) | ; *!*@host.domain var %i = 1 | ; Loop index | ; while $ialchan(%wildsite, %chan, %i).nick { | ; While there are more clones kick %chan $ifmatch %reason | ; kick a clone inc %i | ; move on to the next one } }
kick %chan $ifmatch %reason
if ($ifmatch isop %chan) { kick %chan $ifmatch %reason }