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) {
    sockudp -k cod_server $gettok($1,1,58) $gettok($1,2,58) $str($chr(255),4) $+ getstatus
  }
  else { echo -a ip worng! }
}
alias cget { if ($regex($1-,/\\ $+ $prop $+ \\([^\\]+?)\\/)) { return $regml(1) } }
on *:udpread:cod_server: {
  var %cod_sock
  sockread %cod_sock
  set %mapa $cget(%cod_sock).mapname
}