************************** find ip dialog **************************

dialog ipfind {
title "Ip To Nick "
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
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
}

menu menubar,status { 
-
Nick Ip To Nick:{ if ($dialog(ipfind) == $null) dialog -m ipfind ipfind }
-