alias ipscan {
  if !$window(@ip) { window -ne @IP }
  .ial on | if (- !isin $2) || $3 == $null { halt } 
  if -k isin $2 && $me !isop $1 { halt }
  if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 }
  if -k !isin $2 { echo @IP ••• Reporting $1 ( %ip ) }
  set %i 0 | set %tot 0 
  :loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt }
    if %tot == 0 { .echo @IP ••• Reporting sorry , there`s no one with this adress/ip. | halt }
    .echo @IP ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt
    } | if %ip iswm $address($nick($1,%i),5) { inc %tot
    if -k isin $2 && $me isop $1 {
      if $address($me,3) == $address($nick($1,%i),3) { goto loop }
      if $nick($1,%i) isop $1 { goto loop }
      if $2 == -kb { mode $chan +b %ipchk }
      kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc 
      goto loop
    } | echo @IP ••• Reporting Found ••• $address($nick($1,%i),5)
  } | goto loop
}

menu channel { 
  ® IP TARAMA 
  .Tara IP : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Scan Ip) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk } 
  .Kick : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k  %ipchk } 
  .KickBan : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 /  *aol.al,129,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb  %ipchk }
  .-
  .about:echo -a Ip scan version 1.0 coded by X-FILE . 
}