elseif $regex($remove($4,:),/([.!]zar)/Si)  {
    if $hget(zar,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
    swbot privmsg $3 :Sallıyoruz zarları.. haydi yavrum kemik! $+($_nick($1),...) 
    swbot 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)
    swbot privmsg $3 2Zarlar durdu! $+(%dice,-,%dice2), $+ $read(zar.txt,w)
    if (%dice == %dice2) {
      swbot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
      swbot privmsg $3 Hediyen: $+$read(hediye.txt)
    }
    elseif (%dice != $dice2) {
      swbot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
    }
  }

swbot privmsg $3 Hediyen: $+$read(hediye.txt)

swbot privmsg $3 Hediyen: $read(hediye.txt)

if $2 == JOIN {
    if $_nick($1) == $_extranick { swextrabot mode $remove($3,:) +h $_extranick }
    if $right($3,-1) == #sohbet { swextrabot privmsg $_nick($1) :Bilmem ne kanalına hoşgeldiniz... $_nick($1) vs..vs..vs..vs.. }
  }