Counter Strike Info Server

alias SnT-Server {
set %SnT-Server.ip $$1
set %SnT-Server.chan $2
if ($numtok($$1,58) == 1) { tokenize 32 %SnT-Server.ip $+ :27015 %SnT-Server.chan }
set %SnT-Server.ping $ticks
sockudp -k hlchanserver1 $gettok($$1,1,58) $gettok($$1,2,58) ÿÿÿÿTSource Engine Query
.timertimeout 1 5 timeout
}
on *:udpread:hlchanserver1:{
sockread &temp
var %i = $calc($bfind(&temp,2,0) + 2)
var %SnT-Server.name = $bvar(&temp,%i,100).text
inc %i $len(%SnT-Server.name)
inc %i
var %SnT-Server.map = $bvar(&temp,%i,100).text
inc %i $len(%SnT-Server.map)
inc %i
var %j = $bvar(&temp,%i,100).text
inc %i $len(%j)
inc %i
var %SnT-Server.mod = $bvar(&temp,%i,100).text
inc %i $len(%SnT-Server.mod)
inc %i
var %SnT-Server.numplayers = $bvar(&temp,%i,1)
inc %i
var %SnT-Server.maxplayers = $bvar(&temp,%i,1)
inc %i 4
var %SnT-Server.password = $bvar(&temp,%i,1)
inc %i
var %SnT-Server.vac = $bvar(&temp,%i,1)
var %SnT-Server.ping = $calc($ticks - %SnT-Server.ping)
.timertimeout off
sockclose hlchanserver1
.timer 1 1 mode %SnT-Server.chan -c+m
.timer 1 2 msg %SnT-Server.chan 0,4IP:1,0 %SnT-Server.ip 7¤ 1,8Map:0,1 %SnT-Server.map
.timer 1 3 msg %SnT-Server.chan 0,4Jugadores:1,0 %SnT-Server.numplayers $+ / $+ %SnT-Server.maxplayers 7¤ 1,8Pass:0,1 $iif(%SnT-Server.password == 1,Si,No)
.timer 1 4 msg %SnT-Server.chan 0,4Ping:1,0 %SnT-Server.ping 7¤ 1,8VAC:0,1 $iif(%SnT-Server.vac == 1,Si,No)
.timer 1 5 msg %SnT-Server.chan 0,4StatuS:1,0 Servidor 3UP
.timer 1 6 mode %SnT-Server.chan +c-m
.timerlol 1 7 unset %SnT-Server.*
}
alias timeout {
.timer 1 1 msg %SnT-Server.chan [IP] %SnT-Server.ip - [StatuS] Servidor oFF
sockclose hlchanserver
unset %SnT-Server.*
}
;------------------------------------------------------------------------------------
on *:TEXT:*:#: {
if ($1 == !ip) {
if ($nick isop $chan) { /timermapitas 1 2 SnT-Server $2 $chan }
if ($nick !isop $chan) { msg $chan Tu No Eres Operador Del BoT }
}
}