on *:text:*:#: {
  if $regex($1,/([.!]zar)/Si)  {
    if $hget(zar,$nick) { notice $nick 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
    var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)
    hinc -mu160 zar $nick
    msg # $nick Sallıyoruz zarları
    msg # $nick Haydi Kemik
    if (%rand == %rand2) { goto kazandi }
    else { goto kaybetti }
    :kazandi
    msg # $nick bugun sansli gününüz, Kazandiniz. 2Zarlariniz -> %rand - %rand2 
    msg # $nick hediyeniz -> %hediye
    return
    :kaybetti
    msg #  $nick bugün şansınız yok, Kaybettiniz. Zarlariniz -> %rand - %rand2 
    msg #  $nick daha sonra tekrar deneyiniz.
  } 
}