menu query,channel,status {
AddOns
;.Winamp Announcer
;..Announce using echo:echo -a 4Winamp Echo ON | .timerae 0 1 annc.echo
;..Announce using msg:echo -a 4Winamp Message ON | .timeram 0 1 annc.msg
;..chan announcer:set %annc.opt $$?="Channel/Nick to announce" | echo -a 4Winamp Message ON | .timerca 0 1 annc.chan
;..-
;..Announce off:annc.off
.Server Manager
..Connect to Server:servman
..Edit Server list:servedit
}
on *:start: { servman }
on *:CTCPREPLY:finger*:/set %test1 $1-
on *:dialog:serv_man:init:0: {
var %serv.init = $lines($scriptdirserver.lst)
var %serv.count = 1
while (%serv.count <= %serv.init) {
did -a serv_man 1 $read($scriptdirserver.lst,%serv.count)
inc %serv.count
}
did -c serv_man 3
}
on *:dialog:serv_man:sclick:2: {
if ($did(serv_man,1).seltext == $null) { echo -a 4ERROR: no server selected | halt }
if ($did(serv_man,3).state != 1) {
server $did(serv_man,1).seltext
;dialog -x serv_man
}
elseif ($did(serv_man,3).state == 1) {
server -m $did(serv_man,1).seltext
;dialog -x serv_man
}
}
dialog serv_man {
title "Server Manager"
size -1 -1 157 64
option dbu
list 1, 4 3 104 55, size vsbar
button "connect", 2, 113 8 37 12
check "new window", 3, 113 40 41 17, flat
button "exit", 4, 113 24 37 12, cancel
}
dialog serv_edit {
title "Server Edit"
size -1 -1 150 134
option dbu
list 1, 4 18 97 110, size vsbar
button "add server", 2, 107 7 37 12
button "del server", 3, 107 22 37 12
button "done", 4, 108 115 37 12, ok
edit "", 5, 4 7 97 10
}
on *:dialog:serv_edit:init:0: {
var %serv.init = $lines($scriptdirserver.lst)
var %serv.count = 1
while (%serv.count <= %serv.init) {
did -a serv_edit 1 $read($scriptdirserver.lst,%serv.count)
inc %serv.count
}
}
on *:dialog:serv_edit:sclick:2: {
if ($did(serv_edit,5).text == $null) { echo -a 4ERROR: no server to add | halt }
write -a $scriptdirserver.lst $did(5).text
did -a serv_edit 1 $read($scriptdirserver.lst,$lines($scriptdirserver.lst))
did -r serv_edit 5
}
on *:dialog:serv_edit:sclick:3: {
if ($did(serv_edit,1).seltext == $null) { echo -a 4ERROR: no server selected | halt }
write -dl $+ $did(1).sel $scriptdirserver.lst
did -d serv_edit 1 $did(1).sel
}
Alias servman { dialog -m serv_man serv_man }
Alias servedit { dialog -m serv_edit serv_edit }
alias annc.echo {
if ($dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, TITLE) != %title) {
set %title $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, TITLE)
set %artist $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, ARTIST)
set %album $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, ALBUM)
set %bitr $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, BITRATE)
set %genre $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, GENRE)
if (%title == $false) { var %title = n/a }
if (%artist == $false) { var %artist = n/a }
if (%album == $false) { var %album = n/a }
if (%bitr == $false) { var %bitr = n/a }
if (%genre == $false) { var %genre = n/a }
.timer1 1 0 echo -a 12Now Playing 0~ 12Song:14 %title 0~ 12Artist:14 %artist 0~ 12Album:14 %album 0~ 12Genre:14 %genre 0~ 12Bitrate:4 @14 $+ %bitr 4kbs/s 0~
}
Else { halt }
}
alias annc.msg {
if ($dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, TITLE) != %title) {
set %title $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, TITLE)
set %artist $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, ARTIST)
set %album $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, ALBUM)
set %bitr $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, BITRATE)
set %genre $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, GENRE)
if (%title == $false) { var %title = n/a }
if (%artist == $false) { var %artist = n/a }
if (%album == $false) { var %album = n/a }
if (%bitr == $false) { var %bitr = n/a }
if (%genre == $false) { var %genre = n/a }
.timer1 1 0 say 12Now Playing 0~ 12Song:14 %title 0~ 12Artist:14 %artist 0~ 12Album:14 %album 0~ 12Genre:14 %genre 0~ 12Bitrate:4 @14 $+ %bitr 4kbs/s 0~
}
Else { halt }
}
alias annc.chan {
if ($dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, TITLE) != %title) {
set %title $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, TITLE)
set %artist $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, ARTIST)
set %album $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, ALBUM)
set %bitr $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, BITRATE)
set %genre $dll($scriptdir $+ wa.dll, WA_Link_Raw_Stats, GENRE)
if (%title == $false) { var %title = n/a }
if (%artist == $false) { var %artist = n/a }
if (%album == $false) { var %album = n/a }
if (%bitr == $false) { var %bitr = n/a }
if (%genre == $false) { var %genre = n/a }
.timer1 1 0 msg %annc.opt 12Now Playing 0~ 12Song:14 %title 0~ 12Artist:14 %artist 0~ 12Album:14 %album 0~ 12Genre:14 %genre 0~ 12Bitrate:4 @14 $+ %bitr 4kbs/s 0~
}
Else { halt }
}
Alias annc.off {
.timerae off
.timeram off
.timerca off
unset %title
unset %album
unset %artist
unset %bitr
unset %genre
unset %annc.opt
echo -a 4Winamp Announcer OFF
}