menu * { 
  .Siir Diyalogu:/dialog -m siiroku siiroku
}
dialog siiroku {
  title "Şiir Okuyucu"
  size -1 -1 190 200
  option dbu
  edit "", 1, 3 3 183 141, multi return autohs autovs hsbar vsbar limit 1000
  button "Oku", 2, 5 159 37 12, flat
  button "Dur", 3, 48 159 37 12, flat
  button "Yeni Şiir", 4, 91 159 37 12, flat
  radio "2 saniye", 5, 136 151 50 10
  radio "3 saniye", 6, 136 163 50 10
  radio "4 saniye", 7, 136 174 50 10
  text "Okuma Hızı Seç", 8, 136 144 48 8
  button "Kapat", 9, 91 174 37 12, flat ok
  edit %skanal , 10, 37 145 35 10, tab 75 limit 0
  text "Kanal:", 11, 6 146 25 15
}
alias baslatim { if $dialog(siiroku) { .timersiir 1 2 /play -a /msg %skanal siirler.txt %suresi } }

on *:dialog:siiroku:close:*: {
  if $play(0).status == 1 { .play stop }
  /write -c siirler.txt | /unset %suresi | .timersiir off
}

on *:dialog:siiroku:init:*: { 
  /unset %suresi | /write -c siirler.txt
}

on *:dialog:siiroku:sclick:*: {
  if $did == 4  { .play stop | did -r $dname 1 | write -c siirler.txt | /did -e $dname 1 }
  elseif ($did == 2) { /set %skanal $did(10).text | /did -b $dname 1 | /baslatim | var %ss1 = 1,%ss2 = $cb(0,u) | while %ss1 <= %ss2 { /write siirler.txt $cb(%ss1,u) |  inc %ss1 } }
  elseif ($did == 3) { .play stop } 
  elseif ($did(5).state == 1) { /set -e %suresi 2000 }
  elseif ($did(6).state == 1) { /set -e %suresi 3000 }
  elseif ($did(7).state == 1) { /set -e %suresi 4000 }
}

 edit %skanal , 10, 37 145 35 10, tab 75 limit 0

 edit %skanal , 10, 37 145 35 10, autohs