Kod

on *:text:*:#sohbet: {   if  $regex($1,/zarat$/i) {     var %dice $rand(1,6)     if  !$hget(zarat,nick) {       hadd -m zarat nick $nick       hadd -m zarat  zar %dice        msg # 4 $nick  2-> zar atildi.. baska bir  arkadasta 4!zarat2 yaz atilmasi bekleniliyor.        return     }      if $hget(zarat,nick) {        if $hget(zarat,nick) == $nick { msg # 4  $nick 2zaten siz 4!zarat2 komutunu yazdiniz, sizden baska bir nick bu  komutu kullanmalidir. | return }       msg # 2 Zariniz atildi.        msg # **4 $nick -> 2 Zarınız ->5 %dice        msg # **4  $hget(zarat,nick) ->2 Attigi zar ->5 $hget(zarat,zar)       msg #  $iif(%dice == $hget(zarat,zar),4**2Oyun berabere,2Yuksek atan  ->4 $iif(%dice >= $hget(zarat,zar),$nick,$hget(zarat,nick)))        msg # 4 $nick 2 $iif(%dice == $hget(zarat,zar),2ve 4  $hget(zarat,nick) 2 Berabere geldiler (Puan bolusuldu),$iif(%dice  >= $hget(zarat,zar),kazandin $chr(40) $+ Kazanc puan:  $eglenceoyunpuan  $+ $chr(41) $chr(44) Kaybeden  -> 4  $hget(zarat,nick), kaybettin $chr(44) Kazanan ->4 $hget(zarat,nick)  $chr(40) $+ Kananc puan: $eglenceoyunpuan $+  $+ $chr(41) ))       msg  # -       $iif(%dice == $hget(zarat,zar),.timer 1 0 puanekle $nick $(|)  puanekle $hget(zarat,nick),$iif(%dice >= .timer 1 0 puanekle  $nick,.timer 1 0 puanekle $hget(zarat,nick)))       .hfree -sw zarat       }   } } alias puanekle {   if $istok($masternick,$1,32) { return }    if $read(eglence-puan.txt,w,$+($1,$chr(32),*)) { var %pnp  $token($v1,2,32) | write $+(-dl,$readn) eglence-puan.txt | write  eglence-puan.txt $+($1,$chr(32),$calc(%pnp +  $iif($2,$v1,$eglenceoyunpuan))) } }