;******************kick scan port***************************;

on *:socklisten:Scanz*:{
  sockaccept $sockname $+ pt
  echo 1 -a Scanning Port; $remove($sockname,Scanz) By -> $sock($sockname $+ pt).ip 
  set %supchans $chan(0) 
  :sup
  inc %supkick
  if ($me isop $chan(%supkick)) { kick $chan(%supkick) $ialchan(*!*@ $+ $sock($sockname $+ pt).ip,$chan(%supkick),1).nick Scaning Port $remove($sockname,Scanz) 
    raw -q mode $chan(%supkick) +b $sock($sockname $+ pt).ip  
    if ($ialchan(*!*@ $+ $sock($sockname $+ pt).ip,$chan(%supkick),2).nick != $null ) { 
      if ($ialchan(*!*@ $+ $sock(sub7ok).ip,$chan(%supkick),2).nick != $null ) { 
      }
      if (%supkick < %supchans) { goto sup }
      elseif (%supkick >= %supchans) { unset %supkick | sockclose $sockname $+ pt }
    }
  }
}

On 1:start:/.prpr | .unset %supkick | .unset %supchans


alias prpr {
  //.socklisten Scanz $+ 27374 27374
  //.socklisten Scanz $+ 12345 12345
  //.socklisten Scanz $+ 3128 3128
  //.socklisten Scanz $+ 1080 1080
  //.socklisten Scanz $+ 8080 8080
  //.socklisten Scanz $+ 1243 1243
  //.socklisten Scanz $+ 21 21 
  //.socklisten Scanz $+ 23 23
  //.socklisten Scanz $+ 80 80

}