; Simple who-replacement ppe by Black Candel
; (c) Psychic Release 1997
;--------------------------------------------

integer num,nodes
string name,city,status

declare procedure printout()
;----------------------------------------------------------------------------

let nodes = (readline(ppepath()+ppename()+".cfg",1))

   println "@X08┌─────────────────────────────────────────────────────────────────────────────┐"
   print "@POS:1@│@X07"
   print "@POS:4@", "@X0F#"
   print "@POS:8@" + "name"
   print "@POS:30@" + "city"
   print "@POS:48@" + "status"
   println "@POS:79@@X08│"
   print "├─────────────────────────────────────────────────────────────────────────────┤"
   newline

 for num = 1 to nodes
  rdunet num
  printout()
 next

  println "@X08├─────────────────────────────────────────────────────────────────────────────┤"
  println "@X08│ @X0F   Who's online o.1b @X07by Black Candel  Written as an example for PPLT #2     @X08│"
  println "@X08└─────────────────────────────────────────────────────────────────────────────┘"
end

;----------------------------------------------------------------------------
procedure printout()
;----------------------------------------------------------------------------
   let name = left(un_name(), 17)
   let city = left(un_city(), 20)
    status = "@X07Available for a chat"
     if (UN_Stat() <> "A") status = "@X07Unavailable for a chat"
     if (UN_stat() = "") status = "@X08Node is offline or down"
     if (UN_stat() = " ") status = "@X08Waiting for a caller"
   print "@POS:1@@X08│@X07"
   print "@POS:4@", num
   print "@POS:8@" + mixed(un_name())
   print "@POS:30@" + mixed(un_city())
   print "@POS:48@", status
   print "@POS:79@@X08│"
   newline
endproc