Çevrimdışı

raw 6:*:{
if $2 != $null {
write unl1.txt $chr(3) $+ $gettok($2-,2,44)
write unl2.txt $chr(3) $+ $gettok($2-,3,44)
write unl3.txt $chr(3) $+ $gettok($2-,4,44)
}
}

on *:start:{
write -c unl1.txt
write -c unl2.txt
write -c unl3.txt
unset %unl1
unset %unl2
unset %unl3
}

on *:disconnect:{
write -c unl1.txt
write -c unl2.txt
write -c unl3.txt
unset %unl1
unset %unl2
unset %unl3
}

alias bul1 {
var %unl2a $len($remove($gettok($read(unl1.txt,2),2,3),0,1,2,3,4,5,6,7,8,9))
var %unl5a $len($remove($gettok($read(unl1.txt,5),2,3),0,1,2,3,4,5,6,7,8,9))
var %unl5a2 $len($remove($gettok($read(unl1.txt,5),1,3),0,1,2,3,4,5,6,7,8,9))
var %unl8a $len($remove($gettok($read(unl1.txt,8),2,3),0,1,2,3,4,5,6,7,8,9))
if (%unl2a == 2) { set %unl1 4 }
if (%unl2a == 3) { set %unl1 1 }
if (%unl2a == 8) {
if (%unl8a == 2) { set %unl1 7 }
if (%unl8a == 7) { set %unl1 5 }
}
if (%unl2a == 7) {
if (%unl8a == 7) { set %unl1 3 }
if (%unl8a == 6) { set %unl1 6 }
}
if (%unl2a == 6) {
if (%unl5a == 1) { set %unl1 8 }
if (%unl5a == 7) { set %unl1 9 }
if (%unl8a == 8) && (%unl5a2 == 6) { set %unl1 2 }
if (%unl5a == 2) && (%unl5a2 == 1) { set %unl1 0 }
}
}

alias bul2 {
var %unl2b $len($remove($gettok($read(unl2.txt,2),2,3),0,1,2,3,4,5,6,7,8,9))
var %unl5b $len($remove($gettok($read(unl2.txt,5),2,3),0,1,2,3,4,5,6,7,8,9))
var %unl5b2 $len($remove($gettok($read(unl2.txt,5),1,3),0,1,2,3,4,5,6,7,8,9))
var %unl8b $len($remove($gettok($read(unl2.txt,8),2,3),0,1,2,3,4,5,6,7,8,9))
if (%unl2b == 2) { set %unl2 4 }
if (%unl2b == 3) { set %unl2 1 }
if (%unl2b == 8) {
if (%unl8b == 2) { set %unl2 7 }
if (%unl8b == 7) { set %unl2 5 }
}
if (%unl2b == 7) {
if (%unl8b == 7) { set %unl2 3 }
if (%unl8b == 6) { set %unl2 6 }
}
if (%unl2b == 6) {
if (%unl5b == 1) { set %unl2 8 }
if (%unl5b == 7) { set %unl2 9 }
if (%unl8b == 8) && (%unl5b2 == 6) { set %unl2 2 }
if (%unl5b == 2) && (%unl5b2 == 1) { set %unl2 0 }
}
}

alias bul3 {
var %unl2c $len($remove($gettok($read(unl3.txt,2),2,3),0,1,2,3,4,5,6,7,8,9))
var %unl5c $len($remove($gettok($read(unl3.txt,5),2,3),0,1,2,3,4,5,6,7,8,9))
var %unl5c2 $len($remove($gettok($read(unl3.txt,5),1,3),0,1,2,3,4,5,6,7,8,9))
var %unl8c $len($remove($gettok($read(unl3.txt,8),2,3),0,1,2,3,4,5,6,7,8,9))
if (%unl2c == 2) { set %unl3 4 }
if (%unl2c == 3) { set %unl3 1 }
if (%unl2c == 8) {
if (%unl8c == 2) { set %unl3 7 }
if (%unl8c == 7) { set %unl3 5 }
}
if (%unl2c == 7) {
if (%unl8c == 7) { set %unl3 3 }
if (%unl8c == 6) { set %unl3 6 }
}
if (%unl2c == 6) {
if (%unl5c == 1) { set %unl3 8 }
if (%unl5c == 7) { set %unl3 9 }
if (%unl8c == 8) && (%unl5c2 == 6) { set %unl3 2 }
if (%unl5c == 2) && (%unl5c2 == 1) { set %unl3 0 }
}
}

alias cevap {
bul1
bul2
bul3
if (%unl1 == $null) || (%unl1 == $null) || (%unl1 == $null) {
if %unl1 == $null { bul1 }
if %unl2 == $null { bul2 }
if %unl3 == $null { bul3 }
goto bas
}
$+(.,timer,UnLi,$rand(111,999)) 1 1 /echo -s Girilen Giriş Kodu: $+(%unl1,%unl2,%unl3)
$+(.,timer,UnLi,$rand(111,999)) 1 1 /giris $+(%unl1,%unl2,%unl3) | goto son
:bas
cevap2
:son
}

alias cevap2 {
$+(.,timer,UnLi,$rand(111,999)) 1 1 /echo -s Girilen Giriş Kodu: $+(%unl1,%unl2,%unl3)
$+(.,timer,UnLi,$rand(111,999)) 1 1 /giris $+(%unl1,%unl2,%unl3)
}


on *:snotice:*Yukarıda*Gördüğünüz:*: { cevap }
on *:snotice:* /GIRIS*Kod*: { cevap }
on *:snotice:*/GIRIS*: { cevap }


Code: UnLimitedBOY
Tarih: 09.02.2010

Komut Kullanım: Otomatik çalışır.

Ne işe yarar?
Giriş Kodu kullananan Sunuculara otomatik olarak girmenizi sağlar.

Not:
Giriş Kodu 3 haneli olan sunucular için geçerlidir.