TTNeT Auther Script

on *:Snotice:*:{
;;;Bu script sadece bilgi amacýyla yapýlmýþtýr ve public hale getirilmiþtir.
;;;Author: nuker 
;;;Contacts ICQ: 10072 MSN/Mail: nukedx@nukedx.com web: www.nukedx.com
if ($nick == irc.ttnet.net.tr) {
if (Tanýtým kodu için týklayýn isin $1-) {
.set %authcodeget $remove($remove($10,http://irc.ttnet.net.tr/authcodes/),.shtml)
.quote authcode $base($calc($base(%authcodeget,16,10)*2+3132),10,16)
.echo -a Kod icin onay bekleniyor
.haltdef
}
if (Tanýtým kodu yanlýþ isin $1-) {
.echo -a Hmm hesapta ufak bir hata olmuþ ama simdi dogru
.quote authcode $base($calc($base(%authcodeget,16,10)*2+3131),10,16)
}
if (Tanýtým baþarýyla tamamlandý. isin $1-) { .echo -a Kod baþarýyla girildi. | .unset %authcodeget | .haltdef }
}
}