#servo ip
set rhost "0.0.0.0"
#portas
set rport "27015"
#rcon passwordas
set rconpass "meskiukas123"

set challenge [challengercon $rhost $rport]

bind pub -|- .cs sinfo

proc sinfo {nick uhost hand chan args} {
global rhost rport challenge rconpass
set challenge [challengercon $rhost $rport]
set spalva "\0033,1"
set status [rcon $rhost $rport $challenge "$rconpass" status]
#putlog "cia $status"
regsub -all -- {\ +} $status " " status
regsub -all -- {\# } $status "\#" status
foreach line [split $status "\n"] {
if {[regexp -nocase -- {hostname: (.*?)$} $line garb hostname]} { continue }
if {[regexp -nocase -- {tcp/ip : (.*?)$} $line grab ipas]} { continue }
if {[regexp -nocase -- {map : (.*?) at.*$} $line garb map]} { continue }
if {[regexp -nocase -- {players : (.*?) active \((.*?) max\)$} $line garb pl max]} { continue }
}
if {$pl > 19} { set spalva \0034,1 }
if {$pl < 19} { set spalva \0033,1 }
puthelp "privmsg $chan :\0030,1Public Serveris: \0037,1(\0030,1 $hostname - $ipas \0037,1)\0030,1, zemelapis: \0037,1$map\0030,1,  zaidejai:$spalva $pl\0030,1 /\0037,1 $max\0030,1.\003"
}