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 
}