alias proxytara $iif($dialog(proxytara),echo -a Dialog zaten açık.,dialog -m proxytara proxytara)
dialog proxytara {
  title "Proxy tarayıcı"
  size -1 -1 140 52
  option dbu
  edit "", 1, 22 13 103 10
  text "IP:", 2, 11 14 11 8
  button "Tara", 4, 47 32 48 12, default
  edit "", 5, 11 61 120 30, read multi autohs
  button "Yeni tarama", 6, 52 94 38 12
}
on *:dialog:proxytara:sclick:*:{ 
  if ($did == 4) { if !$regex($did($dname,1),^([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})$) { echo -a Geçerli bir ip girin. | halt }
    did -ra $dname 4 Taranıyor | did -b proxytara 1,4 | var %a $dialog($dname).h | set %tpprxy $did($dname,1) | sockclose praratx | sockopen ptaratx irc.feelircd.tk 7970
  while %a <= 220 { dialog -s $dname $dialog($dname).x $dialog($dname).y 286 %a | inc %a }  }
  if ($did == 6) { did -ra $dname 4 Tara | did -e proxytara 1,4 | var %a $dialog($dname).h | did -r $dname 5,1
while %a >= 100 { dialog -s $dname $dialog($dname).x $dialog($dname).y 286 %a | dec %a } } }
on *:sockopen:ptaratx:{ sockwrite -tn $sockname IP: %tpprxy }
on *:sockread:ptaratx:{ var %a | sockread %a | tokenize 32 %a 
  if $1 == detected { did -ra proxytara 5 $str(-,25) $+ Sonuç $+ $str(-,25) $crlf Taranan IP: $2 $crlf Durum: PROXY! $crlf Süre: $3 | did -ra proxytara 4 Tarandı }
  if $1 == clear { did -ra proxytara 5 $str(-,25) $+ Sonuç $+ $str(-,25) $crlf Taranan IP: $2 $crlf Durum: Temiz! $crlf Süre: $3 }
if $1 == limit { did -ra proxytara 5 1 saat içerisinde maksimum tarama limitini doldurunuz. $crlf $2- sonra tarama yapabilirsiniz. } }