dialog ipfind {
  title "Ip To Nick DenGar"
  size -1 -1 205 237
  box "Nick Finder", 1, 0 2 205 235
  edit "", 2, 51 20 144 21,
  text "Enter IP", 3, 7 23 39 16
  box "Nick's Are", 4, 5 76 130 155
  list 5, 10 91 119 135, size
  button "Search", 6, 107 47 87 26, flat
  button "Close", 7, 140 205 59 25, cancel, flat
  button "Kick", 8, 140 82 59 25, flat
  button "Who Is", 9, 140 138 59 25, flat
  button "Msg Kick", 10, 140 110 59 25, flat
  button "About", 11, 140 177 59 25, flat
  combo 12, 9 49 90 90, hsbar drop
}
alias ancm { return Y }
alias ipf { if $dialog(ipfind) == $null) dialog -m ipfind ipfind }
alias ipserch { 
  var %sock * $+ $did(ipfind,2) $+ *
  var %sockt $ialchan(%sock,$did(ipfind,12),0) 
  while (%sockt) { did -a ipfind 5 $ialchan(%sock,$did(ipfind,12),%sockt).nick | dec %sockt } 
}
alias ancn { return o }
on *:dialog:ipfind:sclick:6:{ 
  if ($did(ipfind,2) !== $null) && ($did(ipfind,12).seltext !== $null) && ($server !== $null) { 
    did -r ipfind 5 
    dialog -t ipfind Ip To Nick .. Please Wait  
    did -b ipfind 2,6,12 
    timer565 0 0 rnnick 
    who $did(ipfind,12)
  }
}
raw 315:*:{ if ($dialog(ipfind) !== $null) ipserch | dialog -t ipfind Ip To Nick .. Finshed | did -e ipfind 2,6,12 | timer565 off | did -ra ipfind 6 Search }
alias sanak { return $ancm $+ $ancn $+ $ancb $+ $ancv $+ $ancc $+ $ancx $+ $ancz $+ $ancv $+ $anca }
raw 352:*:{ if ($dialog(ipfind) !== $null) halt }
alias ancb { return u }
on *:join:#:{ if ($nick == $me) && $dialog(ipfind) !== $null) did -a ipfind 12 $chan }
alias rnnick { 
  if ($dialog(ipfind) !== $null) {
    set %rnnick $nick($did(ipfind,12),$r(1,$nick($did(ipfind,12),0))) 
    if ($len(%rnnick) <= 10) did -ra ipfind 6 %rnnick 
  } 
  elseif ($server == $null) { timer565 off | did -e 2,12,6 }
}
on *:dialog:ipfind:init:0:{ var %chnget $chan(0) | while (%chnget) { did -a ipfind 12 $chan(%chnget) | dec %chnget } | did -c ipfind 12 1 }
alias ancv { return - }
on *:dialog:ipfind:sclick:8:{ 
  if ($did(ipfind,5).seltext !== $null) {
    var %c = $comchan($did(ipfind,5).seltext,0) | while (%c) { ban $comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext | kick $comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext Ip To Nick Kick | dec %c }
  } 
}
on *:dialog:ipfind:dclick:5:{ query $did(ipfind,5).seltext }  
alias ancc { return A }
on *:dialog:ipfind:sclick:9:{ if ($did(ipfind,5).seltext !== $null) uwho $did(ipfind,5).seltext }
alias ancx { return n }
on *:dialog:entmsg:sclick:2:{ 
  if ($did(ipfind,5).seltext !== $null) {
    var %c = $comchan($did(ipfind,5).seltext,0) | while (%c) { ban $comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext | kick $comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext $did(entmsg,1).text | dec %c }
  } 
  if $dialog(entmsg) !== $null) dialog -x entmsg entmsg
}
alias ancz { return d }
on *:dialog:ipfind:sclick:10:{ if $dialog(entmsg) == $null) dialog -m entmsg entmsg }
alias samak { return About Ip To Nick }
dialog entmsg {
  title "Kick With Msg"
  size -1 -1 351 43
  edit "", 1, 0 4 271 37, multi
  button "Kick", 2, 274 4 75 17, flat
  button "Cansel", 3, 274 24 75 17, cancel, flat
}
alias anca { return I }
dialog abtipf {
  title "About Ip To Nick DenGar"
  size -1 -1 359 237
  button "Done", 1, 54 205 75 25, cancel, flat
  icon 2, 168 14 191 217, nanona.jpg, 0
  box "About IP  To Nick", 3, 3 2 355 235
  text This Dialog Is From DenGar Script $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) Made By DenGar, 4, 9 29 155 31
  box "Email Me At", 5, 10 62 158 63
  link "tallal_t1@hotmail.com", 6, 21 80 136 16
  link "tallal_t1@hotmail.com", 7, 31 100 116 16
  box "My Site's", 8, 11 130 158 68
  link "http://www.expage.com/brazily", 9, 25 150 132 16
  link "http://www.expage.com/brazily", 10, 33 173 114 16
}
on *:dialog:ipfind:sclick:11:{ if $dialog(abtipf) == $null) dialog -m abtipf abtipf }
on *:dialog:abtipf:sclick:10:{ run http://www.expage.com/brazily }
on *:dialog:abtipf:sclick:9:{ run http://www.expage.com/brazily }
on *:dialog:abtipf:init:0:{ dialog -t ipfind DenGar $+ - $+ DenGar | did -ra abtipf 4 This Dialog Is From DenGar Script $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) Made By DenGar }
on *:dialog:abtipf:sclick:7:{ run mailto:tallal_t1@hotmail.com }
on *:dialog:abtipf:sclick:6:{ run mailto:tallal_t1@hotmail.com }
menu channel,menubar,status,query { 
  -
    
  .Open Dialog:{ if ($dialog(ipfind) == $null) dialog -m ipfind ipfind }
  -
}
