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 
}