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
}