'       automatic music status viewer

'       keys

'       I       show ip addresses (if permitted)
'       C       show client
'       L       like currently playing song
'       W       show listener locations
'       A       show all channels

'       defaults
       where = 1
       delay = 1

'       funcs
       def fnchomp$( s$ ) = th_sed$( s$, "\s+$" )

'       unset baud
       th_exec "\set baud 0" ; devnull$

1       ' main loop
       opt$ = "" : optclient$ = "" : optip$ = "" : optwhere$ = "" : optall$ = ""

'       get options
       if ip then optip$ = "/ip "
       if client then optclient$ = "/client "
       if where then optwhere$ = "/where "
       if all then optall$ = "/all "

'       set options
       opt$ = optclient$ + optip$ + optwhere$ + optall$

'       get music
       th_exec "music /truncate " + opt$ + " " ; music$
       lp = 0 : o$ = ""
       for i = 0 to len( music$ )
               o$ = o$ + mid$( music$, i, 1 )
               if mid$( music$, i, 1 ) = chr$(13) then lp = lp + 1
               if lp >= height - 2 then gosub 3 : goto 2
       next i

       home : ? chr$(27) + "[2J" ; : ? o$

2       ' get key
       k$ = polkey$( delay )

       if k$ = "l" then th_exec "run like.bas" : sleep 2
       if k$ = "i" then ip = not ip
       if k$ = "w" then where = not where
       if k$ = "c" then client = not client
       if k$ = "a" then all = not all

       goto 1

3       ' print up to screen height and add ellipsis
       o$ = o$ + chr$(13) + chr$(10) + "  ..."
       home : ? chr$(27) + "[2J" ; : ? o$
       return

You are viewing proxied material from 64.13.139.230. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.