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 Zarnz ->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(z arat,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)) ) }
}