dialog sayac {
  title "El sayac"
  size -1 -1 253 164
  option dbu
  edit "", 1, 11 12 112 30, disable read right
  edit "", 2, 131 12 114 147, read multi hsbar vsbar
  text "Sayac", 3, 12 2 25 8
  text "Zaman", 4, 132 3 25 8
  button "<   Aşağı", 5, 28 49 37 12
  button "Yukarı  >", 6, 66 49 37 12
  edit "", 7, 13 122 107 28, disable read multi right
  text "Toplam Aksiyon", 8, 14 109 47 9
}

on *:dialog:sayac:*:*: {
  if $devent == sclick {
    if $did == 5 { 
      var %put = $calc($did(sayac,1) - 1)
      did -r sayac 1 
      did -a sayac 1 %put
      did -i sayac 2 1 ( - ) $time $time(dd) $tarihceviray($time(mmmm)) $tarihcevirgun($time(dddd))
      inc -e %sayactoplaksiyon 1
      did -r sayac 7
      did -a sayac 7 %sayactoplaksiyon
    }
    if $did == 6 { 
      var %put = $calc($did(sayac,1) + 1)
      did -r sayac 1 
      did -a sayac 1 %put
      did -i sayac 2 1 ( + ) $time $time(dd) $tarihceviray($time(mmmm)) $tarihcevirgun($time(dddd))
      inc -e %sayactoplaksiyon 1
      did -r sayac 7
      did -a sayac 7 %sayactoplaksiyon
    }
  }
  if ($devent == close) { unset %sayactoplaksiyon }
}


alias tarihcevirgun {
  return $replace($$1,monday,Pazartesi,Tuesday,Sali,Wednesday,Carsamba,Thursday,Persembe,Saturday,Cumartesi,Friday,Cuma,Sunday,Pazar)
}

alias tarihceviray {
  return $replace($$1,january,Ocak,February,Subat,march,Mart,april,Nisan,august,Agustos,september,Eylul,october,Ekim,november,Kasim,december,Aralik))                
}
menu * {
  El Sayaci:{
    dialog -m sayac sayac |  did -a sayac 1 0