Aşağıdaki gibi bir dialog daha çok işine yaracağını umuyorum bütün şiirleri bir text dosyasına yüklemeyessin.. her biri icin farklı bir siir txt dosyası oluşturamassın böyle bir dialog ile belirlediğin bir kanala belirlediğin aralıklar ile şiir ini okuta bilirsin kolay gelsin
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}