Sos Oyunu v1

[Toprak]

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

[Only Registered Users Can See Links] ([Only Registered Users Can See Links])

[Only Registered Users Can See Links] ([Only Registered Users Can See Links])



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
}