04 Mayıs 2019, 19:57
|
#1 |
| !zarat eglence mirc ekleyin Kod: Kodu kopyalamak için üzerine çift tıklayın! 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 Zarınız ->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(zarat,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))) } } Kendinize gore degistirebilirsiniz. İyi Gunler Kod: Kodu kopyalamak için üzerine çift tıklayın! 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 Zarınız ->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(zarat,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))) } } Kendinize gore degistirebilirsiniz. İyi Gunler |
| |
IRCForumu.Net - Reklam Alanı |
|