mIRC Üzerinden !zar Oyunu Remotesi

[ModelX]

[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

[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

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.

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

Yapımıcısı; Mecnun​

 

[Linux]

Paylaşım için teşekkürler.