COD4 SERVER SOCKETS

;;;;By intersys;;;;
alias ipc {
  if ($regex($1-,\b(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6})\b)) { return $true }
  else { return $false }
}

alias cod2 {
  if ($ipc($1) == $true) {
    set %c.players 0
    sockudp -k cod_server $gettok($1,1,58) $gettok($1,2,58) $str($chr(255),4) $+ getstatus

    .timer 1 3 unset %c.*
  }
  else { echo -a ip worng! }
}
alias cget { if ($regex($1-,/\\ $+ $prop $+ \\([^\\]+)\\/)) { return $regml(1) } }
alias cpl2 { if ($regex($1-,/"(.+)"/)) { echo -s $regml(0) } }
on *:udpread:cod_server: {
  sockread -f %cod_sock
  if ($chr(92) isin %cod_sock) {
    if ($cget(%cod_sock).mapname) {
      set %c.map $cget(%cod_sock).mapname
      if ($cget(%cod_sock).sv_hostname) {
        set %c.name $cget(%cod_sock).sv_hostname
        if ($cget(%cod_sock).sv_maxclients) {
          set %c.maxp $cget(%cod_sock).sv_maxclients
        }
      }
    }
  }
  else {
    cod_players %cod_sock
  }
}
alias cod_players {
  if (" isin $1-) {
    inc %c.players
  }
  else {
    msg $active Map: %c.map , Hostname: %c.name , Players: %c.players $+ $chr(47) $+ %c.maxp
  }
}