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))) 
  } 
}