on *:TEXT:.query*:#: {
set %servchan $chan
set %ip $gettok($2,1,58)
set %port $gettok($2,2,58)
sockudp -k query %ip %port ÿÿÿÿinfo
}
on *:UDPREAD:query: {
sockread &temp
breplace &temp 0 160
set %temp $bvar(&temp,1,$bvar(&temp,0)).text
set %server.ip %ip $+ : $+ %port
set %server.name $gettok(%temp,2,160)
set %server.map $gettok(%temp,3,160)
set %server.game $gettok(%temp,5,160)
set %player.temp $right(%temp,3)
set %server.player $iif($asc($left(%player.temp,1)) == $chr(160),0,$asc($left(%player.temp,1))) $+ / $+ $asc($mid(%player.temp,2,1))
msg %servchan %color1 %server.name %color2 %color1 %server.ip %color2 %color1 %server.map %color2 %color1 %server.player %color2
}
