Kod

on *:text:*:#: {
  if $regex($1,/([.!]zar)/Si) {
    if ($nick !isvoice #) && ($nick !ishop #) && ($nick !isop #) { notice $nick $nick bu komutu kullanabilmek için en az voice(+v) konumunda olmalısınız. | return }
    elseif $hget(zar,$nick) { notice $nick Bu komutu tekrar kullanabilmek için $zarsure($hget(zar,$nick).unset) beklemeniz gerek. | return } 
    else { var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediye.txt)
      hinc -mu3600 zar $nick
      if (%rand == %rand2) { goto kazandi }
      else { goto kaybetti }
      :kazandi
      msg # 2Sallıyoruz zarları 4 $nick 2Haydi yavrum kemik
      msg # 4 $nick 2Zarlar Durdu! 4 $+([ %rand ]) - $+([ %rand2 ]) $+($chr(40),$token($read(zar.txt,w,$+(%rand,-,%rand2,:*)),2,58),$chr(41))
      msg # 4 $nick 2hediyeniz ->4 %hediye
      return
      :kaybetti
      msg # 2Sallıyoruz zarları4 $nick 2Haydi yavrum kemik
      msg # 4 $nick 2Zarlar Durdu! 4 $+([ %rand ]) - $+([ %rand2 ]) $+($chr(40),$token($read(zar.txt,w,$+(%rand,-,%rand2,:*)),2,58),$chr(41))
    }
  }
}
alias zarsure var %zar $calc($1 - $calc($int($calc($1 / 3600)) * 3600)) | return $regsubex(parantez,$replace($duration(%zar),mins,$chr(32) $+ dakika,min,$chr(32) $+ dakika,secs,$chr(32) $+ saniye,sec,$chr(32) $+ saniye),/(\d+)/g,$+([,\1,]))