alias ventc {
  sockopen ventc ventrilostatus.net 80
  sockmark ventc $1-
  .timervent 1 3 vent_timeout
}
 
alias vent_timeout {
  var %msg = $gettok($sock(vent).mark,2,32)
  msg %msg Sorry, but the server took to long to respond or is down. Try again later.
  sockclose vent
}
 
alias ventg {
  sockopen ventg ventrilostatus.net 80
  sockmark ventg $1
}
 
on *:SOCKOPEN:vent*:{
  If ($sockerr) { echo error | halt }
  sockwrite -n $sockname GET /xml/ $+ $gettok($sock($sockname).mark,1,32) $+ / HTTP/1.1
  sockwrite -n $sockname Host: ventrilostatus.net
  sockwrite -n $sockname $crlf 
  If ($hget(vent)) hfree vent
}
 
on *:SOCKREAD:ventc:{
  var %x
  sockread %x
  If ($regex(sv,%x,/^<server name="(.*)" phonetic="(.*)" comment="(.*)" auth="(.*)" maxclients="(.*)" uptime="(.*)" platform="(.*)" version="(.*)" channelcount="(.*)" clientcount="(.*)" voicecodec="(.*)" voiceformat="(.*)">/i)) {
    var %svinfo = The3 $regml(sv,1) (03 $+ $+ $gettok($sock($sockname).mark,1,32) $+ ) Ventrilo server is online and has been up for3 $duration($regml(sv,6)) $+ . Users:3 $regml(sv,10) $+ /03 $+ $regml(sv,5)
    var %c = $regex(client,%x,/<client(.*?)/>/ig), %users
    While (%c) {
      noop $regex(info,$regml(client,%c),/admin="(.*)" phan="(.*)" ping="(.*)" sec="(.*)" cid="(.*)" name="(.*)" comm="(.*)"/i)
      %users = %users $iif($regml(info,1),07,) $+ $regml(info,6) $+ 
      dec %c   
    }
    var %msg = $gettok($sock($sockname).mark,2,32)
    msg %msg %svinfo
    msg %msg Current Users: %users
    .timervent off
    sockclose ventc
  }
}
 
on *:TEXT:*:#:{ If ($regex($1-,/^[!^&@.]v(ent(irlo)?)?$/iS)) { ventc %vent # } }
 
 
;<channel pid="-1" prot="0" cid="0" name="Lobby" comm="">
on *:SOCKREAD:ventg:{
  window @test 10 10 300 600
  clear @test
  var %x
  sockread %x
  var %y = $regex(main,%x,/(<.*?>)/gi), %z = 1, %tb = 0
  while (%z <= %y) {
    var %m = $regml(main,%z)
 
    If (%m == </channel>) dec %tb 1
    ElseIf ($regex(c,%m,/<channel pid="(.*)" prot="(.*)" cid="(.*)" name="(.*)" comm="(.*)"(/?)>/)) { 
      aline @test $+($str(  ,%tb),,$replace($iif($regml(c,2),$v1,3),1,08,2,05,3,10),$iif($regml(c,6),+,-),,$regml(c,4))
      if (!$regml(c,6)) { inc %tb 1 }
      ;aline @test CID: $regml(c,3)
    }
    ElseIf ($regex(cl,%m,<client admin="(.*)" phan="(.*)" ping="(.*)" sec="(.*)" cid="(.*)" name="(.*)" comm="(.*)"/>)) {
      aline @test $+($str(  ,$calc(%tb + 1)),05» ,$iif($+($iif($regml(cl,1),A,),$iif($regml(cl,2),P,)),14 $+ $qt($v1) ,),$regml(cl,6))
    }
    inc %z 1
  }
}

Commenting Options