Forums mIRC Help server_query

alias csquery {
sockclose csquery
sockudp -k csquery $1 $2 $+($str($chr(255),4),TSource,$chr(32),Engine,$chr(32),Query,$chr(0))
}

on *:udpread:csquery:{
sockread &temp
breplace &temp 0 255
var %bytes = $bvar(&temp,1,$bvar(&temp,0))
echo -a Return with just bytes (0 replaced with 255):
echo -a $chr(160)
echo -a %bytes
echo -a $chr(160)
var %mark = $calc($findtok(%bytes,255,9,32) + 1)
var %currentplayers = $gettok(%bytes,%mark,32)
if (%currentplayers == 255) var %currentplayers = 0
inc %mark
var %maxplayers = $gettok(%bytes,%mark,32)
inc %mark
var %version = $gettok(%bytes,%mark,32)
inc %mark
var %dedicatedlisten = $chr($gettok(%bytes,%mark,32))
if (%dedicatedlisten == d) var %dedicatedlisten = Dedicated
else var %dedicatedlisten = Listen
inc %mark
var %os = $asc($gettok(%bytes,%mark,32))
if (%os == w) var %os = Windows
else var %os = Linux
var %return = $bvar(&temp,1,$bvar(&temp,0)).text
inc %mark
if ($gettok(%bytes,%mark,32) == 1) var %pw = Yes
else var %pw = No
var %vac = $gettok(%bytes,$calc($numtok(%bytes,32) - 1),32)
if (%vac == 1) %vac = Enabled
else %vac = Disabled
var %bots = $gettok(%bytes,$numtok(%bytes,32),32)
if (%bots == 255) var %bots = 0
; distinguishes source servers
if ($left($gettok(%return,1,255),1) == I) {
var %hostname = $right($gettok(%return,1,255),-2)
var %map = $gettok(%return,2,255)
var %gametype = $gettok(%return,3,255)
var %gametypestr = $gettok(%return,4,255)
}
; not a source server
if ($left($gettok(%return,1,255),1) == m) {
var %hostname = $gettok(%return,2,255)
var %map = $gettok(%return,3,255)
var %gametype = $gettok(%return,4,255)
var %gametypestr = $gettok(%return,5,255)
}
var %players = $+(%currentplayers,/,%maxplayers)
echo -a Return with 0 bytes replaced with $chr(255) with bytes changed to text:
echo -a $chr(160)
echo -a %return
echo -a $chr(160)
echo -a Parsed:
echo -a $chr(160)
;timer[server_name] 1 2 msg %channel Server Name: %hostname
;timer[game_type] 1 2 msg %channel Game Type (directory): %gametype
;timer[friendly_type] 1 2 msg %channel Friendly Game Type String: %gametypestr
;timer[Network_Version] 1 2 msg %channel Network Version: %version
;timer[Dedicated_Listen] 1 2 msg %channel Dedicated or Listen: %dedicatedlisten
;timer[Operation_system] 1 2 msg %channel Operating System: %os
;timer[map] 1 2 msg %channel Map: %map
;timer[players] 1 2 msg %channel Players: %players
;timer[password] 1 2 msg %channel Password: %pw
;timer[valve] 1 2 msg %channel Valve Anti-Cheat: %vac
;timer[bot] 1 2 msg %channel Bots Playing: %bots
timer[Server] 1 2 msg %channel 14,1[11,1«0,1 Server Name:11,1 %hostname 11,1»14,1]14,1[11,1«0,1 IP :11,1 %server 11,1»14,1]14,1[11,1«0,1 Map:11,1 %map 11,1»14,1]14,1[11,1«0,1 Players:11,1 %players 11,1»14,1]14,1[11,1«0,1 VAC:11,1 %vac 11,1»14,1]
sockclose csquery
}