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

}