| TİGeR | 13 Kasım 2015 22:34 |
Kod'a düzenleme
Selamlar , elimdeki addonda bazı sorunlar var , mesela #kanal kısmı sadece 8 harflik kanallarda calısıor onu sınırsız yapabilirmiyiz? birde özeke ayrı kanala ayrı nasıl yazdırırız ? Kod:
menu * {
.Siir Diyalogu:/dialog -m siiroku siiroku
}
dialog siiroku {
title "Şiir Okuyucu"
size -1 -1 190 200
option dbu
edit "", 1, 3 3 183 141, multi return autohs autovs hsbar vsbar limit 1000
button "Oku", 2, 5 159 37 12, flat
button "Dur", 3, 48 159 37 12, flat
button "Yeni Şiir", 4, 91 159 37 12, flat
radio "2 saniye", 5, 136 151 50 10
radio "3 saniye", 6, 136 163 50 10
radio "4 saniye", 7, 136 174 50 10
text "Okuma Hızı Seç", 8, 136 144 48 8
button "Kapat", 9, 91 174 37 12, flat ok
edit %skanal , 10, 37 145 35 10, tab 75 limit 0
text "Kanal:", 11, 6 146 25 15
}
alias baslatim { if $dialog(siiroku) { .timersiir 1 2 /play -a /msg %skanal siirler.txt %suresi } }
on *:dialog:siiroku:close:*: {
if $play(0).status == 1 { .play stop }
/write -c siirler.txt | /unset %suresi | .timersiir off
}
on *:dialog:siiroku:init:*: {
/unset %suresi | /write -c siirler.txt
}
on *:dialog:siiroku:sclick:*: {
if $did == 4 { .play stop | did -r $dname 1 | write -c siirler.txt | /did -e $dname 1 }
elseif ($did == 2) { /set %skanal $did(10).text | /did -b $dname 1 | /baslatim | var %ss1 = 1,%ss2 = $cb(0,u) | while %ss1 <= %ss2 { /write siirler.txt $cb(%ss1,u) | inc %ss1 } }
elseif ($did == 3) { .play stop }
elseif ($did(5).state == 1) { /set -e %suresi 2000 }
elseif ($did(6).state == 1) { /set -e %suresi 3000 }
elseif ($did(7).state == 1) { /set -e %suresi 4000 }
}
|
