/ScriptServ

; IP Scanner
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright © Up The Irons ! inc.


; <----------------------- $Aliases ----------------------->

alias IP_Scan {
  if ($dialog(IP_Scan)) {
    dialog -ve IP_Scan IP_Scan
  }
  else { dialog -mdo IP_Scan IP_Scan }
}


alias IP_Scan.go {
  did -r IP_Scan 7
  if ($did(IP_Scan,5).seltext == $null) { return }
  set %adrs $did(IP_Scan,3).text
  var %i $nick($did(IP_Scan,5).seltext,0)
  while (%i) {
    if (%adrs isin $address($nick($did(IP_Scan,5).seltext,%i),0)) {
      did -a IP_Scan 7 $nick($did(IP_Scan,5).seltext,%i) $address($nick($did(IP_Scan,5).seltext,%i),1)
    }
    dec %i
  }
}

alias -l IP_Scan.about {
  if ($dialog(IP_Scan)) dialog -i IP_Scan
  if ($input(IP Scanner $crlf $crlf by ch1zra $crlf $crlf ch1zra@gmail.com $&
    $crlf http://uptheirons.co.sr/ $crlf #Scripters @ irc.krstarica.com $&
    ,oi,About IP Scanner))  {
    if ($dialog(IP_Scan)) dialog -e IP_Scan
  }
}

; <----------------------- $Dialog ----------------------->

dialog IP_Scan {
  title "mIRC IP Scanner by ch1zra <ch1zra@gmail.com>"
  size -1 -1 250 110
  option dbu
  box "Scanner", 1, 5 5 80 100
  text "Scan for :", 2, 10 15 25 8
  edit "", 3, 35 15 45 10, autohs
  text "Choose channel to scan in :", 4, 10 25 70 8
  list 5, 10 35 70 65, size
  box "Result", 6, 90 5 110 100
  list 7, 95 15 100 85, size autohs autovs
  button "Kick", 8, 210 15 30 10, flat
  button "Kick/Ban", 9, 210 30 30 10, flat
  button "Ban", 10, 210 45 30 10, flat
  box "Actions", 11, 205 5 40 55
  button "Help", 12, 205 65 40 10, flat
  button "About", 13, 205 80 40 10, flat
  button "Close", 14, 205 95 40 10, flat ok
}

; <----------------------- $DEvents ----------------------->

on *:dialog:IP_Scan:init:*: {
  var %i $chan(0)
  while (%i) {
    did -a $dname 5 $chan(%i)
    dec %i
  }
  if ($group(#IP_Scan.type).status == on) {
    did -c $dname 8
    did -b $dname 10
  }
  did -fc $dname 5 $active
}

on *:dialog:IP_Scan:edit:3: {
  did -r $dname 7
  IP_scan.go
}

on *:dialog:IP_Scan:sclick:* {
  if ($did == 5) {
    IP_Scan.Go
  }
  if ($did == 8) {
    if ($did(IP_Scan,5).seltext == $null) { return }
    set %adrs $did(IP_Scan,3).text
    var %i $nick($did(IP_Scan,5).seltext,0)
    if ($me isop $did(IP_Scan,5).seltext) {
      while (%i) {
        if (%adrs isin $address($nick($did(IP_Scan,5).seltext,%i),0)) {
          if ($nick($did(IP_Scan,5).seltext,%i) != $me) {
            kick  $did(IP_Scan,5).seltext $nick($did(IP_Scan,5).seltext,%i) Unwanted IP. * $+ $did(IP_Scan,3).text $+ *
          }
        }
        dec %i
      }
    }
    else echo $did(IP_Scan,5).seltext 4You're not OP in $did(IP_Scan,5).seltext !!!
  }
  if ($did == 9) {
    if ($did(IP_Scan,5).seltext == $null) { return }
    set %adrs $did(IP_Scan,3).text
    var %i $nick($did(IP_Scan,5).seltext,0)
    if ($me isop $did(IP_Scan,5).seltext) {
      while (%i) {
        if (%adrs isin $address($nick($did(IP_Scan,5).seltext,%i),0)) {
          if ($nick($did(IP_Scan,5).seltext,%i) != $me) {
            ban -k $did(IP_Scan,5).seltext $nick($did(IP_Scan,5).seltext,%i) Unwanted IP. * $+ $did(IP_Scan,3).text $+ *
          }
        }
        dec %i
      }
    }
    else echo $did(IP_Scan,5).seltext 4You're not OP in $did(IP_Scan,5).seltext !!!
  }
  if ($did == 10) {
    if ($did(IP_Scan,5).seltext == $null) { return }
    set %adrs $did(IP_Scan,3).text
    var %i $nick($did(IP_Scan,5).seltext,0)
    if ($me isop $did(IP_Scan,5).seltext) {
      while (%i) {
        if (%adrs isin $address($nick($did(IP_Scan,5).seltext,%i),0)) {
          if ($nick($did(IP_Scan,5).seltext,%i) != $me) {
            ban  $did(IP_Scan,5).seltext $nick($did(IP_Scan,5).seltext,%i) Unwanted IP. * $+ $did(IP_Scan,3).text $+ *
          }
        }
        dec %i
      }
    }
    else echo $did(IP_Scan,5).seltext 4You're not OP in $did(IP_Scan,5).seltext !!!
  }
  if ($did == 12) {
    dialog -i $dname $dname
    .run " $+ $scriptdirIP_Scan_Help.txt"
  }
  if ($did == 13) {
    IP_Scan.About
  }
}

; <----------------------- $Menus ----------------------->

menu channel, { 
  IP Scanner :IP_Scan
}

menu menubar {
  IP Scanner
  .Scanner:ip_scan
  .About:IP_Scan.about
  .Unload
  ..Yes:.remove $scriptdirIP_Scan_Help.txt | echo -s Thank you for using IP Scanner | .unload -rs $script
}

; IP Scanner
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright © Up The Irons ! inc.