IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver


Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


mIRC Scripting Hazır Kodlar

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.



10Beğeni(ler)
  • 6 Post By Mecnun
  • 1 Post By Mecnun
  • 1 Post By Kerem
  • 1 Post By YouMyCure
  • 1 Post By Mecnun

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Mart 2017, 03:44   #1
Çevrimdışı
Basit !zar oyunu


-- Sponsor Baglantı --


Merhabalar, öncelikle kodu tamamen sıfırdan yazdım diyemem ancak bu saatte çevirisini ve bir kaç eklemele yaptım. Forumda benzer bir kod bulunmadığı/bulamadığım için paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:!*:#: { var %x = $1 | goto %x :!basla .timer 1 1 mode $chan +m .timer 1 2 mode $chan +v $nick .timer 1 4 msg $chan $nick $+ . Oyunu sadece hayatını kazanmak için oyna. .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin.. halt :!zar .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 -v $nick .timer 1 7 mode $chan -m } elseif (%dice != 6) { .timer 1 4 msg $chan Üzgünüm $nick $+ , kazanamadın. Tekrar dene! .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt) halt } :!bitir .timer 1 1 mode $chan -m .timer 1 2 mode $chan -v $nick .timer 1 4 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız. halt :%x msg $chan $1 Bir komut olarak tanınmıyor. }

[02:37:54] <Luke> !basla
[02:37:59] <hea> Hey Luke. Zar'ı hayatını kazanmak için oyna.
[02:37:59] <hea> !zar yazarak zarı sallayabilirsin..


[02:38:34] <Luke> !zar
[02:38:37] <hea> Senin sayın 1...
[02:38:38] <hea> Üzgünüm Luke, kazanamadın. Tekrar dene!
[02:38:39] <hea> Bu şansızlıkla ancak b*k çukuruna düşersin
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.


[02:40:37] <hea> Senin sayın 6...
[02:40:38] <hea> Kazandın! Tebrikler Luke!
[02:40:38] <hea> Hediyen: Issız bir adaya bilet! Hemde Luke ile gideceksin. Elbette bayansan:p


Kodun işlevi bu şekildedir, $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.
Merhabalar, öncelikle kodu tamamen sıfırdan yazdım diyemem ancak bu saatte çevirisini ve bir kaç eklemele yaptım. Forumda benzer bir kod bulunmadığı/bulamadığım için paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:!*:#: { var %x = $1 | goto %x :!basla .timer 1 1 mode $chan +m .timer 1 2 mode $chan +v $nick .timer 1 4 msg $chan $nick $+ . Oyunu sadece hayatını kazanmak için oyna. .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin.. halt :!zar .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 -v $nick .timer 1 7 mode $chan -m } elseif (%dice != 6) { .timer 1 4 msg $chan Üzgünüm $nick $+ , kazanamadın. Tekrar dene! .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt) halt } :!bitir .timer 1 1 mode $chan -m .timer 1 2 mode $chan -v $nick .timer 1 4 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız. halt :%x msg $chan $1 Bir komut olarak tanınmıyor. }

[02:37:54] <Luke> !basla
[02:37:59] <hea> Hey Luke. Zar'ı hayatını kazanmak için oyna.
[02:37:59] <hea> !zar yazarak zarı sallayabilirsin..


[02:38:34] <Luke> !zar
[02:38:37] <hea> Senin sayın 1...
[02:38:38] <hea> Üzgünüm Luke, kazanamadın. Tekrar dene!
[02:38:39] <hea> Bu şansızlıkla ancak b*k çukuruna düşersin
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.


[02:40:37] <hea> Senin sayın 6...
[02:40:38] <hea> Kazandın! Tebrikler Luke!
[02:40:38] <hea> Hediyen: Issız bir adaya bilet! Hemde Luke ile gideceksin. Elbette bayansan:p


Kodun işlevi bu şekildedir, $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.
__________________
Kırk yıllık hatrın kahvesiydi gözleri..
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 24 Mart 2017, 15:28   #2
Çevrimdışı
Cevap: Basit !zar oyunu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:!*:#: { var %x = $1 | goto %x :!bilgi

!bilgi kısmını !basla olarak degistirebilirsiniz arkadaşlar. Olması gereken !basla şeklindedir.

__________________
Kırk yıllık hatrın kahvesiydi gözleri..
  Alıntı ile Cevapla

Alt 25 Mart 2017, 01:50   #3
Çevrimdışı
Cevap: Basit !zar oyunu




Gelişiyorsun kardeşim .)

__________________
Adımın Arkasına Geç ; İsmin Duyulsun...Coded By ™''Kerem'' Dal.Net - 2009~...
Tükürdüğünü yalayan bizden değildir.
  Alıntı ile Cevapla

Alt 25 Mart 2017, 05:06   #4
Çevrimdışı
Cevap: Basit !zar oyunu




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] zamanla abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

__________________
Kırk yıllık hatrın kahvesiydi gözleri..
  Alıntı ile Cevapla

Alt 25 Mart 2017, 17:20   #5
Çevrimiçi
Cevap: Basit !zar oyunu




Mecnun Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Merhabalar, öncelikle kodu tamamen sıfırdan yazdım diyemem ancak bu saatte çevirisini ve bir kaç eklemele yaptım. Forumda benzer bir kod bulunmadığı/bulamadığım için paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:!*:#: { var %x = $1 | goto %x :!basla .timer 1 1 mode $chan +m .timer 1 2 mode $chan +v $nick .timer 1 4 msg $chan $nick $+ . Oyunu sadece hayatını kazanmak için oyna. .timer 1 5 msg $chan !zar yazarak zarı sallayabilirsin.. halt :!zar .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 -v $nick .timer 1 7 mode $chan -m } elseif (%dice != 6) { .timer 1 4 msg $chan Üzgünüm $nick $+ , kazanamadın. Tekrar dene! .timer 1 5 msg $chan Bu şansızlıkla ancak $read(dalga.txt) halt } :!bitir .timer 1 1 mode $chan -m .timer 1 2 mode $chan -v $nick .timer 1 4 msg $chan Teşekkürler, tekrar oynamak için !zar yazınız. halt :%x msg $chan $1 Bir komut olarak tanınmıyor. }

[02:37:54] <Luke> !basla
[02:37:59] <hea> Hey Luke. Zar'ı hayatını kazanmak için oyna.
[02:37:59] <hea> !zar yazarak zarı sallayabilirsin..


[02:38:34] <Luke> !zar
[02:38:37] <hea> Senin sayın 1...
[02:38:38] <hea> Üzgünüm Luke, kazanamadın. Tekrar dene!
[02:38:39] <hea> Bu şansızlıkla ancak b*k çukuruna düşersin
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.


[02:40:37] <hea> Senin sayın 6...
[02:40:38] <hea> Kazandın! Tebrikler Luke!
[02:40:38] <hea> Hediyen: Issız bir adaya bilet! Hemde Luke ile gideceksin. Elbette bayansan:p


Kodun işlevi bu şekildedir, $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.

Bu alanda yeni isimler görmek güzel
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Başarılarının devamını diliyorum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , goto kullanarak yaptırmana güzel goto fonksyonu unutulmuştu bunun yerine altarnatif olarak $ragex kullanarakta yapılabilir.
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. } }


__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
  Alıntı ile Cevapla

Alt 25 Mart 2017, 17:27   #6
Çevrimdışı
Cevap: Basit !zar oyunu




@YouMyCure eline sağlık, çok daha güzel oldu. Teşekkür ederim
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

__________________
Kırk yıllık hatrın kahvesiydi gözleri..
  Alıntı ile Cevapla

Cevapla

Etiketler
!zar remote, mirc zar oyunu, zar

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sığır Hastalıkları - Basit Hazımsızlık (Basit İndigesyon) Hastalığı Lilith Hayvan Hastalıkları 0 17 Eylül 2014 20:06
Kuzu Ailesi Oyunu. Günün flash oyunu alper198 Online Oyunlar 1 16 Mart 2014 22:34
Altın Toplama Oyunu. Günün Flahs Oyunu alper198 Online Oyunlar 0 13 Mart 2014 13:20
Basit bir hırsızlık oyunu değil! Bulut Oyun Dünyasından Son Haberler 0 20 Nisan 2012 15:41