IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu reklam ircforumu reklamdamlasu bizimkiler sihirlisohbet sohbetelit


Like Tree1Beğeni(ler)
  • 1 Post By Sado
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 04 Mayıs 2019, 19:57   #1
Çevrimdışı
 
Üyelik Tarihi: 19 Ocak 2018
Üye No: 2467
Şehir: İstanbul
WebSite:
IRC:
İlgi Alanım: Linux
Mesaj Sayısı: 10
Aldığı Beğeni: 4
Beğendikleri: 3
@Sado
!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
Candy bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 07 Mayıs 2019, 19:30   #2
Çevrimdışı
 
Üyelik Tarihi: 19 Ocak 2018
Üye No: 2467
Şehir: İstanbul
WebSite:
IRC:
İlgi Alanım: Linux
Mesaj Sayısı: 10
Aldığı Beğeni: 4
Beğendikleri: 3
@Sado
Cevap: !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 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.

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
eglence, ekleyin, mirc, zar, zar oyunu, zarat
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık