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


ircforumu sekershelldamlasu
bizimkiler sihirlisohbet sohbetelit


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 31 Mart 2017, 23:21   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Basit !zar oyunu


Kodu $mircdir yani, mirc ana klasörüne hediye.txt ve dalga.txt metin belgeleri olusturarak alt alta hediyeleri ve dalgaları sıralayın. Tekrardan iyi eğlenceler.

Komutlar ; !basla - !bitir

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { if $regex($1,/^([.!]ba[sŞş]la)/Si) { .timer 1 1 mode $chan +vm $nick .timer 1 4 msg $chan $+($nick,.) Oyunu sadece hayatını kazanmak için oyna. .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin.. } if $regex($1,/^([.!]zar)/Si) { .timer 1 1 $chan Attığın zarı tarif et $+($nick,...) var %dice $rand(1,6) .timer 1 3 msg $chan 2Senin sayın $+(%dice,...) if (%dice == 6) { .timer 1 4 msg $chan Kazandın! Tebrikler $+($nick,!) .timer 1 5 msg $chan 4Hediyen: $+(2,$read(hediye.txt)) .timer 1 6 mode $chan -vm $nick } elseif (%dice != 6) { .timer 1 4 msg $chan Üzgünüm $+($nick,$chr(32)) kazanamadın. Tekrar dene! .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt) } } if $regex($1,/^([.!]bitir)/Si) { .timer 1 1 mode $chan -vm $nick .timer 1 2 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız. } }

Code : Mecnun
Kodu $mircdir yani, mirc ana klasörüne hediye.txt ve dalga.txt metin belgeleri olusturarak alt alta hediyeleri ve dalgaları sıralayın. Tekrardan iyi eğlenceler.

Komutlar ; !basla - !bitir

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { if $regex($1,/^([.!]ba[sŞş]la)/Si) { .timer 1 1 mode $chan +vm $nick .timer 1 4 msg $chan $+($nick,.) Oyunu sadece hayatını kazanmak için oyna. .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin.. } if $regex($1,/^([.!]zar)/Si) { .timer 1 1 $chan Attığın zarı tarif et $+($nick,...) var %dice $rand(1,6) .timer 1 3 msg $chan 2Senin sayın $+(%dice,...) if (%dice == 6) { .timer 1 4 msg $chan Kazandın! Tebrikler $+($nick,!) .timer 1 5 msg $chan 4Hediyen: $+(2,$read(hediye.txt)) .timer 1 6 mode $chan -vm $nick } elseif (%dice != 6) { .timer 1 4 msg $chan Üzgünüm $+($nick,$chr(32)) kazanamadın. Tekrar dene! .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt) } } if $regex($1,/^([.!]bitir)/Si) { .timer 1 1 mode $chan -vm $nick .timer 1 2 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız. } }

Code : Mecnun
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
basit, oyunu, zar, zar oyunu
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