on *:start: {
  sockopen mirc $sunucu 
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
alias tarat { sw mirc notice mIRCScripts $+($chr(1),ips) $1 }
alias opers return $remove(ambiarbcasacbraibpatbs ambiarbcasacbraibpatbs ,a,b)
alias sunucu return $remove(aibrac.arbeakboarbnaebt.acboam 6667,a,b)
on *:SOCKOPEN:mirc: {
  sw $sockname nick $+(mIRCScripts,$r(0,999))
  sw $sockname USER 63 " " : $+ $+([,,Proxy,,]) System by Aeg 
}
on *:sockread:mirc: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    sockclose mirc
    sockopen mirc $sunucu
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if ($2 == 001) {
    sw $sockname oper $opers
    sw $sockname join #mircscripts
  }
  if ($2 == notice) && (ips isin $4) {
    if (!$window(@Proxy)) { window -e @Proxy }
    echo 4 $+(@Proxy) [Giris] 1 $5 4Proxy Girisi!
    gzline $5 +0 Proxy!
  }
}
on *:snotice:*Connecting*: {
  var %ip $remove($gettok($10,2,64),$chr(41))
  if (%proxy == on) { who +I $+(*,%ip,*) }
}
raw 352:*: {
  tarat $4
}
menu * {
  Proxy
  .Proxy Ac:$iif(!$sock(mirc),sockopen mirc $sunucu) | set %proxy on | echo 4 -ae Proxy Korumasi Acilmistir.
  .Proxy Kapat:.set %proxy off | echo 4 -ae Proxy Korumasi Kapatilmistir.
}