IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Basit !zar oyunu (https://www.ircforumlari.net/mirc-parca-kodlar/770614-basit-zar-oyunu.html)

Basit !zar oyunu

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:

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 :D

[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.

Cevap: Basit !zar oyunu

Kod:

on *:TEXT:!*:#: {

    var %x = $1 | goto %x
     :!bilgi

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

Cevap: Basit !zar oyunu

Gelişiyorsun kardeşim .)

Cevap: Basit !zar oyunu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] zamanla abi=)

Cevap: Basit !zar oyunu

Alıntı:

Mecnun Nickli Üyeden Alıntı (Mesaj 1041850125)

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:

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.

}

Bu alanda yeni isimler görmek güzel :) 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:

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.

  }

}

Cevap: Basit !zar oyunu

@YouMyCure eline sağlık, çok daha güzel oldu. Teşekkür ederim :)

Cevap: Basit !zar oyunu

!zarat remotesi vardı fakat çalışan bi tanesini bulamadım elinde olan varsa verebilirse sevinirim , @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık.