====== Server Manager ======

  * Autor: [[:PsyCore]]
  * Version: 1.02

===== Quellcode =====

<code mirc servman.mrc>
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
}
</code>