menu * { 
  .Siir Diyalogu:/dialog -m msiir msiir
}

dialog msiir {
  title "Yazı Gönderme Playerı"
  size -1 -1 176 225
  option dbu
  edit "", 2, 95 142 14 10, autohs 
  text "Kaç Saniye Gecikme", 3, 20 144 58 8
  box "Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın.", 5, 1 1 173 127
  button "Oynat", 6, 18 191 34 9
  button "Duraklat", 7, 64 191 34 9
  button "Durdur", 8, 111 191 34 9
  box "Geciktirme", 9, 12 132 152 39
  box "Seçtiğin Şiir'i", 11, 12 178 152 29
  button "Player'ı Kapat", 12, 54 212 67 10,cancel
  edit "", 17, 4 9 167 114, multi return hsbar vsbar
  text "Hangi Kanala", 16, 20 158 44 8
  edit "", 13, 76 158 50 8
  text "Saniye", 10, 115 143 22 8
}

on *:dialog:msiir:init:*: { 
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(255,255,255)
  mdx SetFont $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 +b Turkish 12 600 Tahoma
  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 textbg $rgb(255,255,255)
  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 background $rgb(255,255,255)
  mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 text $rgb(0,0,0) 
  did -a msiir 13 %kgir
  did -a msiir 2 %limited
}
on *:dialog:msiir:sclick:*: {
  if $did == 6 { 
    savebuf -o msiir 17 siir.txt
    set %limited $did(2)
    set %kgir $did(13)
    .timer 1 1 play %kgir $mircdirsiir.txt %limited $+ 000 | set %read read
  }
  if $did == 8 { play stop | unset %read }
}
on *:dialog:msiir:close:*: { 
  write -c siir.txt | unset %kgir | unset %limited
}