[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 }