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 ••• Raporlanıyor $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 4 @IP ••• IP Adresi ile eşleşen kişi yok. | halt }
    .echo 4 @IP ••• Rapor: ( %tot kişi bulundu )° | 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 4 @IP ••• Bulundu ••• $address($nick($1,%i),5)
  }
  goto loop
}
menu channel { 
  ® IP TARAMA 
  .Tara IP : set %ipchk *!*@ $+ $$input(IP Adresi, Örnek: 213.447.215 /  *ircforumlari.net,IP Tarama,IP Girin) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk } 
  .Kick : set %ipchk *!*@ $+ $$input(IP Adresi, Örnek: 213.447.215 /  *ircforumlari.net,IP Tarama,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k  %ipchk } 
  .KickBan : set %ipchk *!*@ $+ $$input(IP Adresi, Örnek: 213.447.215 /  *ircforumlari.net,IP Tarama,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb  %ipchk }
}