|
Mecnun Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 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 25 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 25 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.
}
}