on *:text:!zar:#: {

  var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)

  if (%rand == %rand2) { goto kazandi }

  else { goto kaybetti }

  :kazandi

  msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2 

  msg # 4 $nick 2hediyeniz ->4 %hediye

  return

  :kaybetti

  msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2 

  msg # 4 $nick 2daha sonra tekrar deneyiniz.

} 

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 -mu1 zar $nick
    if (%rand == %rand2) { goto kazandi }
    else { goto kaybetti }
    :kazandi
    msg # 4 $nick 2Sallıyoruz zarları
    msg # 4 $nick 2Haydi Kemik
    msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2 
    msg # 4 $nick 2hediyeniz ->4 %hediye
    return
    :kaybetti
    msg # 4 $nick 2Sallıyoruz zarları
    msg # 4 $nick 2Haydi Kemik
    msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2 
    msg # 4 $nick 2daha sonra tekrar deneyiniz.
  } 
}

if $regex($remove($4,:),/([.!]zar)/Si)  {
  if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
  swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...) 
  swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
  if !$hget(zar) { hmake zar }
  hinc -mu1 zar $_nick($1)
  var %dice $rand(1,6)
  var %dice2 $rand(1,6)
  swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2) 
  if (%dice == %dice2) {
    swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
    swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
  }
  elseif (%dice != $dice2) {
    swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
  }
}