dialog xpaste {
  title "Mesaj Gönderme"
  size -1 -1 250 173
  option dbu
  edit "", 1, 0 0 250 159,multi return vsbar hsbar
  button "Kapat", 2, 213 160 37 12, cancel
  button "kaydet", 3, 175 160 37 12
  button "Aktif pencereye yazıyı gönder", 4, 88 160 75 12
  text "Gönderim süresi:", 5, 1 162 41 8
  edit "", 6, 43 161 17 10, limit 4
  text "mili saniye", 7, 62 162 25 8
}

alias xpaste { if !$dialog(xpaste) { dialog -m xpaste xpaste } }
on *:dialog:xpaste:*:*: {
  if $devent == init {
    did -ra $dname 6 %::xpaste:ms
    loadbuf -o $dname 1 xpaste.send
  }
  if $devent == sclick {
    if $did == 3 { write -c xpaste.send | var %i 1 | while %i < $did(1).lines { write xpaste.send $did(1,%i) | inc %i 1 } }
    if $did == 4 {
      var %i = 1, %str = $null | while %i <= $len($did(6)) { if $asc($mid($did(6),%i,1)) >= 48 && $asc($mid($did(6),%i,1)) <= 57 { %str = %str $+ $mid($did(6),%i,1) } | inc %i 1 } | did -ra $dname 6 %str 
      if $did(6) < 1000 || $did(6) == $null { did -ra $dname 6 1000 }
      echo 4 -a [xpaste] : mesaj yazmanızı durdurmak için /play stop komutunu giriniz
      write -c xpaste.send | var %i 1 | while %i < $did(1).lines { write xpaste.send $did(1,%i) | inc %i 1 } 
      .play $active xpaste.send $did(6)
      set %::xpaste:ms $did(6)
    }
    if $did == 2 {
      var %i = 1, %str = $null | while %i <= $len($did(6)) { if $asc($mid($did(6),%i,1)) >= 48 && $asc($mid($did(6),%i,1)) <= 57 { %str = %str $+ $mid($did(6),%i,1) } | inc %i 1 } | did -ra $dname 6 %str 
      if $did(6) < 1000 || $did(6) == $null { did -ra $dname 6 1000 } | set %::xpaste:ms $did(6)
    }
  }
}