Kod : Kodu kopyalamak için üzerine çift tıklayın!

         on *:start: { if !$hget(kazan) { .hload -m kazan kazan.ymc } }
on *:text:*:#: {
  if $regex($1,/^([.!]barbut)/Si) {
    if $hget(barbut,$nick) { msg # zaten $hget(barbut,$nick) nicki ile barbut oyununuz devam ediyor. | return }
    var %i = 1 | while %i <= $hget(barbut,0).item { 
      if $hget(barbut,%i).data == $nick {
        var %ymc1 $r(1,6) ,%ymc2 $r(1,6) ,%ymcx1 $r(1,6) ,%ymcx2 $r(1,6) ,%ymct1 $calc(%ymc1 + %ymc2) ,%ymct2 $calc(%ymcx1 + %ymcx2)
        msg # Size atılan zar sonucu -> Atan Nick : $hget(barbut,%i).item - Ona Gelen Zar : $+([,%ymc1,-,%ymc2,])
        msg # Size $nick gelen zar -> $+([,%ymcx1,-,%ymcx2,])
        if %ymcx1 = %ymcx2 && %ymc1 = %ymc2 && %ymct1 > %ymct2 {
          hinc -m kazan $hget(barbut,%i).item | hsave kazan kazan.ymc
          msg # [ $+ $nick ve $hget(barbut,%i).item çift attı ve $hget(barbut,%i).item Barbut'u $+($hget(kazan,$hget(barbut,%i).item),.) kez kazandı!] 
        }
        elseif %ymcx1 = %ymcx2 && %ymc1 = %ymc2 && %ymct1 < %ymct2 {
          hinc -m kazan $nick | hsave kazan kazan.ymc
          msg # [ $+ $nick ve $hget(barbut,%i).item çift attı ve $nick Barbut'u $+($hget(kazan,$nick),.) kez kazandı!] 
        }
        elseif %ymc1 = %ymc2 && %ymcx1 != %ymcx2 {
          hinc -m kazan $hget(barbut,%i).item | hsave kazan kazan.ymc
          msg # [ $+ $hget(barbut,%i).item çift attı ve Barbut'u $+($hget(kazan,$hget(barbut,%i).item),.) kez kazandı!] 
        }
        elseif %ymcx1 = %ymcx2 && %ymc1 != %ymc2 {
          hinc -m kazan $nick | hsave kazan kazan.ymc
          msg # [ $+ $nick çift attı ve Barbut'u $+($hget(kazan,$nick),.) kez kazandı!] 
        }
        elseif %ymct1 > %ymct2 { 
          hinc -m kazan $hget(barbut,%i).item | hsave kazan kazan.ymc
          msg # [En yüksek zarı $hget(barbut,%i).item attı ve Barbut'u $+($hget(kazan,$hget(barbut,%i).item),.) kez kazandı!] 
        }
        elseif %ymct1 < %ymct2 { 
          hinc -m kazan $nick | hsave kazan kazan.ymc
          msg # [En yüksek zarı $nick attı ve Barbut'u $+($hget(kazan,$nick),.) kez kazandı!] 
        }
        elseif %ymct1 = %ymct2 {
          msg # [El Pat! $nick attı ve $hget(barbut,%i).item Barbut'u kimse kazanamadı!] 
        }
        .hdel barbut $hget(barbut,%i).item
        return
      }
      inc %i
    }
    msg # Şimdi Barbut zamanı! $2 Nickine zar attınız onun 30 sn. içinde cevap vermesi bekleniyor..
    notice $nick $2 5 dakika içerisinde barbut isteğinizi kabul etmezse oyun düşer. 
    notice $2 $nick'in barbut isteğini 5 dakika içerisinde kabul etmezseniz oyun düşer
    msg # $2 isteği kabul etmek için !barbut yazabilirsiniz.
    .hadd -mu300 barbut $nick $2
  }
}