Cevap: !zarat eglence mirc ekleyin
Kod:
on *:text:*:#sohbet: {
if $regex($1,/zarat$/i) {
var dice $rand(1,6)
if !$hget(zarat,nick) {
hadd -m zarat nick $nick
hadd -m zarat zar dice
msg # 4 $nick 2-> zar atildi.. baska bir arkadasta 4!zarat2 yaz atilmasi bekleniliyor.
return
}
if $hget(zarat,nick) {
if $hget(zarat,nick) == $nick { msg # 4 $nick 2zaten siz 4!zarat2 komutunu yazdiniz, sizden baska bir nick bu komutu kullanmalidir. | return }
msg # 2 Zariniz atildi.
msg # **4 $nick -> 2 Zarnz ->5 %dice
msg # **4 $hget(zarat,nick) ->2 Attigi zar ->5 $hget(zarat,zar)
msg # $iif(%dice == $hget(zarat,zar),4**2Oyun berabere,2Yuksek atan ->4 $iif(%dice >= $hget(zarat,zar),$nick,$hget(z arat,nick)))
msg # 4 $nick 2 $iif(%dice == $hget(zarat,zar),2ve 4 $hget(zarat,nick) 2 Berabere geldiler (Puan bolusuldu),$iif(%dice >= $hget(zarat,zar),kazandin $chr(40) $+ Kazanc puan: $eglenceoyunpuan $+ $chr(41) $chr(44) Kaybeden -> 4 $hget(zarat,nick), kaybettin $chr(44) Kazanan ->4 $hget(zarat,nick) $chr(40) $+ Kananc puan: $eglenceoyunpuan $+ $+ $chr(41) ))
msg # -
$iif(%dice == $hget(zarat,zar),.timer 1 0 puanekle $nick $(|) puanekle $hget(zarat,nick),$iif(%dice >= .timer 1 0 puanekle $nick,.timer 1 0 puanekle $hget(zarat,nick)))
.hfree -sw zarat
}
}
}
alias puanekle {
if $istok($masternick,$1,32) { return }
if $read(eglence-puan.txt,w,$+($1,$chr(32),*)) { var %pnp $token($v1,2,32) | write $+(-dl,$readn) eglence-puan.txt | write eglence-puan.txt $+($1,$chr(32),$calc(%pnp + $iif($2,$v1,$eglenceoyunpuan)) ) }
}
Not= Yanda durmasndan dolayi duzeltilerek kod yeniden konulmustur. |
