Scanning Clone with kick options
;--------------------------------------------------RIMAUCREWZ && EYIEZINC SCRIPTING DEVELOPMENT--------------------------------------------------;
;Addon Name:Clones Scanner/Kicker Manual
;Created By: Lestat
;Tester By: MasTer-PriNce
;Description: Scanning Clone with kick options
;
;----------------------------------------------------------------------------------------------------------------------------------------;
;How To Use: Load This Addon's In Your Remote/Script Editor Then Right Click At Status,Channel
;And It Will Appear The Menu "Scanner"
;If Any Error Found Please Inform Us At webmaster.webchat.org 6667 "#rimau,#eyiezinc,#myx"
;-----------------------------------------------------------------------------------------------------------------------------------------;
menu channel {
Scanner
.Clone Scanner:cscan
.-
.$iif($me !isop $chan,$style(2)) Clone Kick:cskick
}
alias cscan {
echo $chan 14:15:0: $+(4[8,$chan,4]) 7Clone Scanner4....
.timerlinef 1 1 echo $chan 11,11:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
var %t = 1
while ($nick(#,%t)) {
if ($ialchan($address($nick(#,%t),4),#,0) > 1) {
var %ips = 1
while ($ialchan($address($nick(#,%t),4),#,%ips)) {
set $+(%,ipclone,.,$address($nick(#,%t),4)) $addtok($($+(%,ipclone,.,$address($nick(#,%t),4)),2),$ialchan($address($nick(#,%t),4),#,%ips).nick,32)
inc %ips
}
.timerip $+ $address($nick(#,%t),4) 1 1 echo $chan 14:15:0: $+(4[8,$ialchan($address($nick(#,%t),4),#,0),4]) 7total clones with ip $+(4[8,$address($nick(#,%t),4),4])
.timer $+ $address($nick(#,%t) ,4) 1 1 echo $chan 14:15:0: 4[8Nick4]9:14 $($+(%,ipclone,.,$address($nick(#,%t),4)),2)
.timerlinel $+ $address($nick(#,%t),4) 1 1 echo $chan 11,11:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
.timerendscan 1 2 echo $chan 14:15:0: $+(4[8,$chan,4]) 7End Of Scanner
}
inc %t
}
}
alias cskick { var %t = 1 | while ($nick(#,%t)) { if ($ialchan($address($nick(#,%t),4),#,0) > 1) { .timercskick $+ $address($nick(#,%t),4) -m 1 700 kick $chan $address($nick(#,%t),4) Clones } | inc %t } }
;EOC
This may be better menu item.
$iif($nick(#,$me,~&@%),Clone Kick):cskick
This would be shorter for all those colons.
echo # 11,11 $str(:,82)
Type 4 ==> $address($nick(#,%t),4) <== is a tad harse.
The type 4 mask will give unexpected results at times.
It is possible that all users from the same isp would
appear the same. A common isp practice is to report the
host mask such as: @xyz-255-255-255-255.ispdomain.net
The ip address would be between the @ and the first dot.
When mIRC wildcards the mask using type 4 it makes a
very simple decision about the part after the @. If at
least one dot devides up a series of all numbers it will
star () the last group of numbers after the last dot.
However if any letters are in the part after the @ then
it must have two dots before it puts a star in place of
the part after the @ and before the first dot. What this
means is that $mask(Nick!user@53.217.34.117,4) would
return !@53.217.34. which could be somewhat usefull.
But, with $mask(Nick!user@usa-53-217-34-117.ispname.net,4)
mIRC would return !@*.ispname.net thus matching every
user from that isp. For clone detection and basic popup
bans and bot bans it may be best to use type 2 mask.