| Emre |
03.Haziran.2022 16:14 |
barbut oyun remotesi
Kod:
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
}
}
|
