Clones Scanner/Kicker Manual

Platform: mIRC

Published Oct 15, 2009

Updated Oct 15, 2009

568 2

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

[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