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


ircforumu sekershell
bizimkiler sosyalchat


Like Tree1Beğeni(ler)
  • 1 Post By Sessiz
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Mayıs 2016, 22:32   #1
Çevrimdışı
Sos Oyunu v1


Reklam

- Sos Oyunu v1 -

Açıklama:
9 kutucuktan oluşan bir sos oyunu.
- Boş kutucukların üzerine tıklayıp yan yana, çapraz veya yukarıdan aşağıya şeklinde SOS kombinasyonunu yakaladığınızda puan verir.
- Başla/Temizle butonu ile yeni oyuna başlayıp, anlık puanınızı sıfırlarsınız.
- Tüm Puanları Sil butonu ile Toplam Puan listenizi sıfırlarsınız.

Kullanımı:
- mIRC'in herhangi bir aktif ekranında Sağ tık yaparak SoS Oyunu sekmesinden veya /sos komutunu kullanarak başlatabilirsiniz.

Küçük bir bilgilendirme:
Kodu, boş bir remote (ALT + R) sayfasına eklemenizi öneririm.

Not: Bilindiği üzere mIRC Scripting betiğinde kodlar pek çok yol ile yazılabilir. Daha farklı yollar da kullanılabilir. Vakit buldukça fonksiyonel ve görsel olarak geliştirmeyi düşünüyorum. İyi forumlar.

Örnek Görüntü:






Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog sos { title "SoS Oyunu v1" size -1 -1 144 101 option dbu button "Başla/Temizle", 10, 9 78 66 12, flat button "", 1, 9 11 20 19, flat button "", 2, 32 11 20 19, flat button "", 3, 55 11 20 19, flat button "", 4, 9 33 20 19, flat button "", 5, 32 33 20 19, flat button "", 6, 55 33 20 19, flat button "", 7, 9 54 20 19, flat button "", 8, 32 54 20 19, flat button "", 9, 55 54 20 19, flat box "", 11, 5 4 74 91 box "", 12, 82 4 57 91 text "Puan:", 13, 88 10 14 8 text "0", 14, 88 19 49 8 text "Toplam Puan:", 15, 88 29 33 8 text "0", 16, 89 39 48 8 button "Tüm Puanları Sil", 17, 85 78 51 12, flat } alias sos dialog -m sos sos alias -l tümüdolu { if $did(sos,1).text && $did(sos,2).text && $did(sos,3).text && $did(sos,4).text && $did(sos,5).text && $did(sos,6).text && $did(sos,7).text && $did(sos,8).text && $did(sos,9).text { return son } } alias -l dolumu { if $tümüdolu = son { halt } } alias -l sos.olasılık { if $did(sos,$1).text = S && $did(sos,$2).text = O && $did(sos,$3).text = S { hinc -m asospuan $me 5 | hinc -m tsospuan $me 5 | hsave tsospuan tsospuan.hash did -a sos 14 $hget(asospuan,$me) | did -a sos 16 $hget(tsospuan,$me) } } alias -l olasılık2 { if $did(sos,$1).text = S && $did(sos,$2).text = O && $did(sos,$3).text = S { hinc -m asospuan $me 5 | hinc -m tsospuan $me 5 | hsave tsospuan tsospuan.hash did -a sos 14 $hget(asospuan,$me) | did -a sos 16 $hget(tsospuan,$me) } } alias -l boşseç { :rand goto $r(1,9) :1 { if $tümüdolu != son { if !$did(sos,1).text { did -a sos 1 O | .olasılık2 1 2 3 | .olasılık2 1 4 7 | .olasılık2 1 5 9 halt } else { goto rand } } else { halt } } :2 { if $tümüdolu != son { if !$did(sos,2).text { did -a sos 2 O | .olasılık2 1 2 3 | .olasılık2 2 5 8 halt } else { goto rand } } else { halt } } :3 { if $tümüdolu != son { if !$did(sos,3).text { did -a sos 3 O | .olasılık2 1 2 3 | .olasılık2 3 6 9 | .olasılık2 3 5 7 halt } else { goto rand } } else { halt } } :4 { if $tümüdolu != son { if !$did(sos,4).text { did -a sos 4 O | .olasılık2 1 4 7 | .olasılık2 4 5 6 halt } else { goto rand } } else { halt } } :5 { if $tümüdolu != son { if !$did(sos,5).text { did -a sos 5 O | .olasılık2 4 5 6 | .olasılık2 2 5 8 | .olasılık2 1 5 9 | .olasılık2 3 5 7 halt } else { goto rand } } else { halt } } :6 { if $tümüdolu != son { if !$did(sos,6).text { did -a sos 6 O | .olasılık2 4 5 6 | .olasılık2 3 6 9 halt } else { goto rand } } else { halt } } :7 { if $tümüdolu != son { if !$did(sos,7).text { did -a sos 7 O | .olasılık2 1 4 7 | .olasılık2 7 8 9 | .olasılık2 7 5 3 halt } else { goto rand } } else { halt } } :8 { if $tümüdolu != son { if !$did(sos,8).text { did -a sos 8 O | .olasılık2 8 5 2 | .olasılık2 7 8 9 halt } else { goto rand } } else { halt } } :9 { if $tümüdolu != son { if !$did(sos,9).text { did -a sos 9 O | .olasılık2 1 5 9 | .olasılık2 3 6 9 | .olasılık2 7 8 9 halt } else { goto rand } } else { halt } } } alias -l dia1 { if $did = 1 { if !$did(sos,1).text { did -a sos 1 S | .sos.olasılık 1 2 3 | .sos.olasılık 1 4 7 | .sos.olasılık 1 5 9 .dolumu | .boşseç } } elseif $did = 2 { if !$did(sos,2).text { did -a sos 2 S | .sos.olasılık 1 2 3 | .sos.olasılık 2 5 8 .dolumu | .boşseç } } elseif $did = 3 { if !$did(sos,3).text { did -a sos 3 S | .sos.olasılık 1 2 3 | .sos.olasılık 3 6 9 | .sos.olasılık 3 5 7 .dolumu | .boşseç } } elseif $did = 4 { if !$did(sos,4).text { did -a sos 4 S | .sos.olasılık 1 4 7 | .sos.olasılık 4 5 6 .dolumu | .boşseç } } elseif $did = 5 { if !$did(sos,5).text { did -a sos 5 S | .sos.olasılık 4 5 6 | .sos.olasılık 2 5 8 | .sos.olasılık 1 5 9 | .sos.olasılık 3 5 7 .dolumu | .boşseç } } elseif $did = 6 { if !$did(sos,6).text { did -a sos 6 S | .sos.olasılık 4 5 6 | .sos.olasılık 3 6 9 .dolumu | .boşseç } } elseif $did = 7 { if !$did(sos,7).text { did -a sos 7 S | .sos.olasılık 1 4 7 | .sos.olasılık 7 8 9 | .sos.olasılık 7 5 3 .dolumu | .boşseç } } elseif $did = 8 { if !$did(sos,8).text { did -a sos 8 S | .sos.olasılık 8 5 2 | .sos.olasılık 7 8 9 .dolumu | .boşseç } } elseif $did = 9 { if !$did(sos,9).text { did -a sos 9 S | .sos.olasılık 1 5 9 | .sos.olasılık 3 6 9 | .sos.olasılık 7 8 9 .dolumu | .boşseç } } elseif $did = 10 { did -r sos 1-9 | did -a sos 14 0 | $iif($hget(asospuan), hfree asospuan) } elseif $did = 17 { did -ra sos 14,16 0 write -c tsospuan.hash $iif($hget(asospuan), hfree asospuan) | $iif($hget(tsospuan), hfree tsospuan) } } on *:dialog:sos:*:*:{ if ($devent = init) { $iif($isfile(tsospuan.hash) && $lines(tsospuan.hash), did -a sos 16 $hget(tsospuan,$me), did -a sos 16 0) } if ($devent = sclick) { dia1 } if ($devent = close) { $iif($hget(asospuan), hfree asospuan) } } on *:start:{ if $isfile(tsospuan.hash) { hmake tsospuan | hload tsospuan tsospuan.hash } } menu * { .SoS Oyunu:/sos }

- Sos Oyunu v1 -

Açıklama:
9 kutucuktan oluşan bir sos oyunu.
- Boş kutucukların üzerine tıklayıp yan yana, çapraz veya yukarıdan aşağıya şeklinde SOS kombinasyonunu yakaladığınızda puan verir.
- Başla/Temizle butonu ile yeni oyuna başlayıp, anlık puanınızı sıfırlarsınız.
- Tüm Puanları Sil butonu ile Toplam Puan listenizi sıfırlarsınız.

Kullanımı:
- mIRC'in herhangi bir aktif ekranında Sağ tık yaparak SoS Oyunu sekmesinden veya /sos komutunu kullanarak başlatabilirsiniz.

Küçük bir bilgilendirme:
Kodu, boş bir remote (ALT + R) sayfasına eklemenizi öneririm.

Not: Bilindiği üzere mIRC Scripting betiğinde kodlar pek çok yol ile yazılabilir. Daha farklı yollar da kullanılabilir. Vakit buldukça fonksiyonel ve görsel olarak geliştirmeyi düşünüyorum. İyi forumlar.

Örnek Görüntü:






Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog sos { title "SoS Oyunu v1" size -1 -1 144 101 option dbu button "Başla/Temizle", 10, 9 78 66 12, flat button "", 1, 9 11 20 19, flat button "", 2, 32 11 20 19, flat button "", 3, 55 11 20 19, flat button "", 4, 9 33 20 19, flat button "", 5, 32 33 20 19, flat button "", 6, 55 33 20 19, flat button "", 7, 9 54 20 19, flat button "", 8, 32 54 20 19, flat button "", 9, 55 54 20 19, flat box "", 11, 5 4 74 91 box "", 12, 82 4 57 91 text "Puan:", 13, 88 10 14 8 text "0", 14, 88 19 49 8 text "Toplam Puan:", 15, 88 29 33 8 text "0", 16, 89 39 48 8 button "Tüm Puanları Sil", 17, 85 78 51 12, flat } alias sos dialog -m sos sos alias -l tümüdolu { if $did(sos,1).text && $did(sos,2).text && $did(sos,3).text && $did(sos,4).text && $did(sos,5).text && $did(sos,6).text && $did(sos,7).text && $did(sos,8).text && $did(sos,9).text { return son } } alias -l dolumu { if $tümüdolu = son { halt } } alias -l sos.olasılık { if $did(sos,$1).text = S && $did(sos,$2).text = O && $did(sos,$3).text = S { hinc -m asospuan $me 5 | hinc -m tsospuan $me 5 | hsave tsospuan tsospuan.hash did -a sos 14 $hget(asospuan,$me) | did -a sos 16 $hget(tsospuan,$me) } } alias -l olasılık2 { if $did(sos,$1).text = S && $did(sos,$2).text = O && $did(sos,$3).text = S { hinc -m asospuan $me 5 | hinc -m tsospuan $me 5 | hsave tsospuan tsospuan.hash did -a sos 14 $hget(asospuan,$me) | did -a sos 16 $hget(tsospuan,$me) } } alias -l boşseç { :rand goto $r(1,9) :1 { if $tümüdolu != son { if !$did(sos,1).text { did -a sos 1 O | .olasılık2 1 2 3 | .olasılık2 1 4 7 | .olasılık2 1 5 9 halt } else { goto rand } } else { halt } } :2 { if $tümüdolu != son { if !$did(sos,2).text { did -a sos 2 O | .olasılık2 1 2 3 | .olasılık2 2 5 8 halt } else { goto rand } } else { halt } } :3 { if $tümüdolu != son { if !$did(sos,3).text { did -a sos 3 O | .olasılık2 1 2 3 | .olasılık2 3 6 9 | .olasılık2 3 5 7 halt } else { goto rand } } else { halt } } :4 { if $tümüdolu != son { if !$did(sos,4).text { did -a sos 4 O | .olasılık2 1 4 7 | .olasılık2 4 5 6 halt } else { goto rand } } else { halt } } :5 { if $tümüdolu != son { if !$did(sos,5).text { did -a sos 5 O | .olasılık2 4 5 6 | .olasılık2 2 5 8 | .olasılık2 1 5 9 | .olasılık2 3 5 7 halt } else { goto rand } } else { halt } } :6 { if $tümüdolu != son { if !$did(sos,6).text { did -a sos 6 O | .olasılık2 4 5 6 | .olasılık2 3 6 9 halt } else { goto rand } } else { halt } } :7 { if $tümüdolu != son { if !$did(sos,7).text { did -a sos 7 O | .olasılık2 1 4 7 | .olasılık2 7 8 9 | .olasılık2 7 5 3 halt } else { goto rand } } else { halt } } :8 { if $tümüdolu != son { if !$did(sos,8).text { did -a sos 8 O | .olasılık2 8 5 2 | .olasılık2 7 8 9 halt } else { goto rand } } else { halt } } :9 { if $tümüdolu != son { if !$did(sos,9).text { did -a sos 9 O | .olasılık2 1 5 9 | .olasılık2 3 6 9 | .olasılık2 7 8 9 halt } else { goto rand } } else { halt } } } alias -l dia1 { if $did = 1 { if !$did(sos,1).text { did -a sos 1 S | .sos.olasılık 1 2 3 | .sos.olasılık 1 4 7 | .sos.olasılık 1 5 9 .dolumu | .boşseç } } elseif $did = 2 { if !$did(sos,2).text { did -a sos 2 S | .sos.olasılık 1 2 3 | .sos.olasılık 2 5 8 .dolumu | .boşseç } } elseif $did = 3 { if !$did(sos,3).text { did -a sos 3 S | .sos.olasılık 1 2 3 | .sos.olasılık 3 6 9 | .sos.olasılık 3 5 7 .dolumu | .boşseç } } elseif $did = 4 { if !$did(sos,4).text { did -a sos 4 S | .sos.olasılık 1 4 7 | .sos.olasılık 4 5 6 .dolumu | .boşseç } } elseif $did = 5 { if !$did(sos,5).text { did -a sos 5 S | .sos.olasılık 4 5 6 | .sos.olasılık 2 5 8 | .sos.olasılık 1 5 9 | .sos.olasılık 3 5 7 .dolumu | .boşseç } } elseif $did = 6 { if !$did(sos,6).text { did -a sos 6 S | .sos.olasılık 4 5 6 | .sos.olasılık 3 6 9 .dolumu | .boşseç } } elseif $did = 7 { if !$did(sos,7).text { did -a sos 7 S | .sos.olasılık 1 4 7 | .sos.olasılık 7 8 9 | .sos.olasılık 7 5 3 .dolumu | .boşseç } } elseif $did = 8 { if !$did(sos,8).text { did -a sos 8 S | .sos.olasılık 8 5 2 | .sos.olasılık 7 8 9 .dolumu | .boşseç } } elseif $did = 9 { if !$did(sos,9).text { did -a sos 9 S | .sos.olasılık 1 5 9 | .sos.olasılık 3 6 9 | .sos.olasılık 7 8 9 .dolumu | .boşseç } } elseif $did = 10 { did -r sos 1-9 | did -a sos 14 0 | $iif($hget(asospuan), hfree asospuan) } elseif $did = 17 { did -ra sos 14,16 0 write -c tsospuan.hash $iif($hget(asospuan), hfree asospuan) | $iif($hget(tsospuan), hfree tsospuan) } } on *:dialog:sos:*:*:{ if ($devent = init) { $iif($isfile(tsospuan.hash) && $lines(tsospuan.hash), did -a sos 16 $hget(tsospuan,$me), did -a sos 16 0) } if ($devent = sclick) { dia1 } if ($devent = close) { $iif($hget(asospuan), hfree asospuan) } } on *:start:{ if $isfile(tsospuan.hash) { hmake tsospuan | hload tsospuan tsospuan.hash } } menu * { .SoS Oyunu:/sos }

Feragat bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
oyunu, sos
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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