What do you think about the script? does it work?

Code:
on *:TEXT:!trojanscan*:#:{
  alias trojan 
  .unset %virus
  msg $chan  4Starting the scan on $2
  var %i = 1
  while (%i <= $nick($1,0) ) {
    if ($right($nick($1, %i),1) isnum 0-9) { 
      if ($left($right($nick($1, %i),2),1) isnum 0-9 ) {
        if ($me !isop $chan) {
          if (%virus) { .inc %virus }
          if (!%virus) { .set %virus 1 }
          msg $chan  4Trojan found on $1 ( $+ $nick($1, %i) $+ )
        }
        if ($me isop $chan) {
          if (!%tro) { .set %tro 1 }
          if (%tro) { .inc %tro }
          .ban -u60 $chan $nick($1, %i) 1 
          .kick # $nick($1, %i) 4Possible trojan client - nr. %tro 
          if (%virus) { .inc %virus }
          if (!%virus) { .set %virus 1 }
          msg $chan 4Trojan found on $1 ( $+ $nick($1, %i) $+ )
        }
      } 
    }
    inc %i
  }

  if (!%virus) { .set %virus 0 }
  msg $chan 4Found ( $+ %virus $+ )
  msg $chan 4End of scan
}

Last edited by Lenooox; 09/11/11 07:39 PM.
(\__/)
(='.'=)
(")_(")
Bunny Hopp

QuakeNet@ #Lenoox <> visit http://www.insaneboard.comeze.com