Clones Scanner/Kicker Manual

Platform:  mIRC
Published  Oct 15, 2009
Updated  Oct 15, 2009
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

Comments

Sign in to comment.
[85]   -  Oct 28, 2010
/me like
 Respond  
gooshie   -  Oct 15, 2009
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.
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.