;############################################################################
; هذي البرمجه هيا اخراج النك عن طريق الايبي
;############################################################################

ON *:LOAD:{ finipinfo }

DIALOG ip {
  title "أخراج النك"
  size -1 -1 265 111
  text "أخراج النك عن طريق الأيبي",1,0 5 260 15,center
  edit "",2,35 30 135 20,autohs
  text "الأيبي:",3,10 30 25 20
  button "موافق",4,200 30 60 20,ok,default
  button "الغاء",5,200 55 60 20,cancel
  edit "",6,35 55 135 20,autohs
  text "الجنل",7,0 55 30 20
  text "Method:", 8, 5 86 100 20
  radio "سريع", 9, 55 83 100 20,push
  radio "بطيء" 10, 160 83 100 20,push
}
ON *:DIALOG:ip:init:*:{
  did -c ip 9 | if ($chan(0) = 0) { goto end } | set %temp.inc 1 | :loop
  if (%temp.inc > $chan(0)) { goto end } | if ($chan(%temp.inc) = $active) { did -a ip 6 $chan(%temp.inc) | goto end }
  else { inc %temp.inc | goto loop } | :end | unset %temp.inc | if ($did(ip,6).text = $null) { did -a ip 6 $chan(1) }
  if (%use.chan != $Null) { did -o ip 6 1 %use.chan | unset %use.chan } | if (%use.ip != $Null) { did -a ip 2 %use.ip | unset %use.ip } 
  if ((%use.ip != $Null) && (%use.chan != $Null)) {  replacetext ip 1 1 LeNeN Script's FinIP | .timerquickstart 1 0 /dialog -k ip }
}
ON *:DIALOG:ip:sclick:4:{ 
  if ($did(ip,2).text = $null) { did -o ip 1 1 Need an IP number!! | .timerrt 1 4 .replacetext ip 1 1 LeNeN Script's FinIP | halt }
  if ($did(ip,6).text = $null) { did -o ip 1 1 Need a channel to search (you must be in it)!! | .timerrt 1 4 .replacetext ip 1 1 LeNeN Script's FinIP | halt }
  if ($me !ison $did(ip,6).text) { did -o ip 1 1 You are not on that channel! | .timerrt 1 4 .replacetext ip 1 1 LeNeN Script's FinIP | halt } | set %ip.max $nick($did(ip,6).text,0) | set %ip.ip $did(ip,2).text | set %ip.i 1 | set %ip.chan $did(ip,6).text | if ($did(ip,9).state = 1) { .timer 1 0 fast.start } | else { .timer 1 0 lets.start }
}

ALIAS FinIP { 
  if ($server = $Null) { psecho -sl You have to be connected to a server and in a channel before using this function. | return } | if ($1 != $Null) { set %use.ip $1 } | else { unset %use.ip }
  if ($2 = $Null) { if $left($active,1) = #) { set %use.chan $active } } | else { set %use.chan $2 } | if ($dialog(ip)) { dialog -v ip } | else { dialog -ma ip ip } | .disable #dnsipforaddy | .disable #whogetaddynick | .disable #dnsnick
}
ALIAS finipinfo {
  linesep -s | psecho -sg Welcome to FinIP! | psecho -sg * FinIP takes an IP number and searches a channel to find a nickname that matches that IP. | psecho -sg This could be useful if you have a IP from an external program of someone in the channel who is nuking you or maybe you know someone with a static IP that may be using a different nickname.
  psecho -sg ...And who knows else what for. | psecho -sg Although not too many people may find this useful, I, as well as others, have. So i've decided to release this stand alone version to the public for use. | psecho -sg I would really apperciate if you would e-mail me at epip@cryogen.com with comments/suggestions/ideas about FinIP. Thank you greatly... | linesep -s | psecho -sg How To Use:
  psecho -sg A) If you know the channel and IP you would like to search for... type /finip [channel] [ip] ... please keep in mind you must be IN the channel to search it. | psecho -sg B) If you would like to use the dialog with the IP, Channel, and Method (Fast or Slow) options before you begin searching, type /finip, or use the Pop-up Menus in the Menubar, Channel, or Nicklist. 
  psecho -sg Otherwise have fun, -Nirve
}
ALIAS -l psecho {
  if (- isin $1) { if ($1 = -s) { /echo $colour(info) -ts *** $2- | goto end } | if ($1 = -sn) { /echo $colour(info) -ts *** $2- | goto end } | if ($1 = -c) { /echo $colour(info) -t $2 *** $3- | goto end } | if ($1 = -sg) { /echo $colour(info) -s *** $2- | goto end } | if ($1 = -l) { /echo $colour(info) -et *** $2- | goto end } | if ($1 = -lc) { /echo $colour(info) -et $2 *** $3- | goto end } | if ($1 = -sl) { /echo $colour(info) -est *** $2- | goto end } }
  if ($left($1,1) = $chr(35)) { /echo $1  $+ $colour(info) $+ $timestamp *** $2- | goto end } | if ($left($1,7) = $active) { /echo -a  $+ $colour(info) $+ $timestamp *** $2- | goto end } | else { /echo -a  $+ $colour(info) $+ $timestamp *** $1- | goto end } | :end
}
ALIAS replacetext { if ($dialog($1)) { did -o $1 $2 $3- } }
ALIAS -l dns { .dns $1- | halt }
ALIAS -l fast.start { open.ipstat | set %ip.RUNNING yes | .enable #dnsipforaddy | .dns %ip.ip }
ALIAS -l whothechanforaddy { set -u30 %justjoined yes | .who %ip.chan | .enable #whogetaddynick }
ALIAS -l lets.start { open.ipstat | set %ip.RUNNING yes | set %ip.i 1 | start.scan }
ALIAS -l start.scan { 
  if (%ip.RUNNING = $Null) { return }
  if (%ip.i > %ip.max) { dec %ip.i | finish.scan no }
  if ($dialog(ipstat)) { did -r ipstat 4 | did -a ipstat 4 %ip.i  $+ $chr(160) }
  .enable #dnsnick | .dns -ps $nick(%ip.chan,%ip.i)
}
ALIAS -l dns { if ($1 = -ps) { .dns $2 | return } | else { dns $1 } }

;:::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::: FAST Method.
;:::::::::::::::::::::::::::::::::::::::
#dnsipforaddy off
ON *:DNs:{
  if ($iaddress = %ip.ip) { 
    if ($raddress != $null) { set %ip.raddy $raddress | /whothechanforaddy }
    if ($raddress = $Null) { if ($dialog(ipstat)) { did -o ipstat 6 1 Error, begining slow method. } | .disable #dnsipforaddy | unset %ip.raddy | .timer 1 0 lets.start }
  } 
}
#dnsipforaddy end

#whogetaddynick off
RAW 352:*: {
  if ($dialog(ipstat)) { did -r ipstat 4 | did -a ipstat 4 %ip.i  $+ $chr(160) }
  set -u1 %temp.raw $1- | if ($gettok(%temp.raw,2,32) != %ip.chan) { goto end }
  if ($gettok(%temp.raw,4,32) = %ip.raddy) { finish.scan yes $gettok(%temp.raw,6,32) | .disable #whogetaddynick } | :end | inc %ip.i | halt
}
RAW 315:*: { finish.scan | .disable #whogetaddynick }
raw 315:*: { halt }
#whogetaddynick end

;:::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::: SLOW Method.
;:::::::::::::::::::::::::::::::::::::::

#dnsnick off
ON *:DNS:{ if ($iaddress = %ip.ip) { finish.scan yes $nick } | else { inc %ip.i | .disable #dnsnick | start.scan } }
#dnsnick end

;:::::::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::: Global Code.
;:::::::::::::::::::::::::::::::::::::::


ALIAS finish.scan {
  unset %ip.RUNNING | .disable #dnsnick | .disable #dnsipforaddy 
  if ($1 = yes) { if ($dialog(ipstat)) { dialog -s ipstat -1 -1 177 172 | did -o ipstat 6 1 صادوه ياويله: | did -a ipstat 7 $2 | if ($me isop %ip.chan) { did -e ipstat 13 } } | else { linesep %ip.chan | psecho -lc %ip.chan $2 is the proud owner of %ip.ip | linesep %ip.chan } }
  else { if ($dialog(ipstat)) { did -o ipstat 6 1 غير موجود. } | else { linesep %ip.chan | psecho -lc  Could not find a nick that matches the IP %ip.ip ...sorry.  | linesep %ip.chan } } | set %temp.ip.chan %ip.chan | unset %ip.*
}
ALIAS open.ipstat { if ($dialog(ipstat)) { dialog -v ipstat } | Else { dialog -m ipstat ipstat } }

DIALOG ipstat {
  title "نتيجـــة البحث"
  size -1 -1 177 96
  text "البحث",1,5 5 140 15
  edit "",2,15 25 40 20,disable
  text "Users in",3,60 27 100 20
  edit "",4,15 50 40 20,disable
  text "مجموع النكات",5,60 52 115 20
  text "مازال يبحث...",6,4 78 135 15
  edit "",7,30 100 140 20,multi
  edit "",8,30 125 140 20,multi
  text "النك",9,3 103 25 20
  text "IP",10,11 128 15 20
  button "القمامه",11,1 1 1 1,cancel,hide
  button "نسخ النك", 12, 5 150 70 20
  button "طرد النك", 13, 80 150 90 20,disable
}
ON *:DIALOG:ipstat:init:*:{ did -a ipstat 2 %ip.max | did -o ipstat 3 1 In %ip.chan | did -a ipstat 4 %ip.i | did -a ipstat 8 %ip.ip }
ON *:DIALOG:ipstat:sclick:13:{ ban %temp.ip.chan $did(ipstat,7).text 3 | kick %temp.ip.chan $did(ipstat,7).text 2B7a4N10e2D7. 4K10î2ç7K 4N10ô 12†14›4 %kicks 14‹12† %ver2 }
ON *:DIALOG:ipstat:sclick:12:{ clipboard $did(ipstat,7).text }

ALIAS -l psecho {
  if (- isin $1) { 
    if ($1 = -s) { /echo $colour(info) -ts $theme(echodes) $+  $+ $colour(info) $2- | goto end } 
    if ($1 = -sn) { /echo $colour(info) -ts $theme(echodes) $+  $+ $colour(info) $2- | goto end }
    if ($1 = -g) { /echo $colour(info) -a $theme(echodes) $+  $+ $colour(info) $2- | goto end }
    if ($1 = -sg) { /echo $colour(info) -s $theme(echodes) $+  $+ $colour(info) $2- | goto end }
    if ($1 = -c) { /echo $colour(info) -t $2 $theme(echodes) $+  $+ $colour(info) $3- | goto end }
    if ($1 = -l) { /echo $colour(info) -et $theme(echodes) $+  $+ $colour(info) $2- | goto end }
    if ($1 = -lc) { /echo $colour(info) -et $2 $theme(echodes) $+  $+ $colour(info) $3- | goto end }
    if ($1 = -sl) { /echo $colour(info) -est $theme(echodes) $+  $+ $colour(info) $2- | goto end }
    if ($1 = -x) { /echo $2 $3- | goto end }
  }
  if ($left($1,1) = $chr(35)) { /echo $1  $+ $colour(info) $+ $timestamp $theme(echodes) $+  $+ $colour(info) $2- | goto end }
  if ($left($1,7) = $active) { /echo -a  $+ $colour(info) $+ $timestamp $theme(echodes) $+  $+ $colour(info) $2- | goto end }
  else { /echo -a  $+ $colour(info) $+ $timestamp $theme(echodes) $+  $+ $colour(info) $1- | goto end }
  :end
}
menu channel { 
  اخراج النك:/dialog -m ip ip
}


alias thank dialog -mo thank thank
dialog thank {
  title "Channel #Scripts In ArabChat"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }