COD4 Server Query

Please Register to submit score.

Average Score	3.0
Scores Submitted	1
Date Added	May 06, 2008
Last Updated	May 06, 2008
Tags	cod4 query server

Introduction

Note: This is my version of COD4 Server Query by Imrac - removed features i didn't need and edited the code so it is faster, includes much more information and is much much cleaner. Also, i added the support that domains/subdomains can be resolved too (the resolver script ain't by me, don't really know the author).
P.S. This is a good example how to get from 243 lines to 62 ;)

Syntax: !COD4 Server:Port or !COD4 Server.com
- It's unnecessary to set port if it is the default COD4 port. (28960)
- You can use either server:port or server port.

Sidenotes: I really do not take much credit of this, i can remove it any time if original author isn't with it, but i also know that some part of people would like this version better ;)

Any bugs, suggestions.. you know where to post them!

Grab the Code

on *:TEXT:*:*:{
  if ($1 != !cod4) halt
  if ($2) {
    var %server = $2, %port = $iif($3,$3,28960)
    if ($chr(58) isin $2) { var %server = $gettok($2,1,58) | var %port = $gettok($2,2,58) }
    if (*.*.*.* !iswm %server) var %server = $resolve(%server)
    cod_intquery %server %port $nick $iif($chan,1,0)
    halt
  }
  $iif($chan,notice,msg) $nick Syntax: !COD4 [cod4.server.lv] Example: !COD4 cod4.GamerX.lv
}
alias -l cod_error $iif(%cod_chan,notice,msg) %cod_nick Error: Sorry, but the server information can't be resolved...
alias -l repmap return $replace($1-, mp_backlot, Backlot, mp_bloc, Bloc, mp_bog, Bog, mp_cargoship, Wet Work, mp_citystreets, District, mp_convoy, Ambush, mp_countdown, Countdown, mp_crash, Crash, mp_crash_Snow, Crash, mp_crossfire, Crossfire, mp_farm, Downpour, mp_overgrown, Overgrown, mp_pipeline, Pipeline, mp_shipment, Shipment, mp_showdown, Showdown, mp_strike, Strike, mp_vacant, Vacant)
alias -l repgam return $replace($1-,dm, Free For All, war, Team Deathmatch, sab, Sabotage, sd, Search & Destroy, koth, Headquarters)
alias -l sv_tok return $gettok($1, $calc($findtok($1, $2, 1, 92) + 1), 92)
alias -l reco return $iif($1 = true,$replace($2-,^1, 4,^2, 3,^3, 8,^4, 12,^5, 11,^6, 13,^7, 0,^0, 1),$remove($2-, ^1, ^2, ^3, ^4, ^5, ^6, ^7, ^0))
alias -l cod_intquery {
  if ($sock(cod_getstatus)) sockclose cod_getstatus
  set %cod_ip $1 | set %cod_port $2 | set %cod_nick $3 | $iif($4 = 1,set %cod_chan 1)
  .timercoderror 1 3 cod_error
  sockudp -k cod_getstatus %cod_ip %cod_port $chr(255) $+ $chr(255) $+ $chr(255) $+ $chr(255) $+ getstatus
}
on *:UDPREAD:cod_getstatus:{
  if ($sockerr > 0) halt
  var %temp, %line
  :again
  sockread %temp
  if ($sockbr == 0) {
    .timercoderror off
    sockclose cod_getstatus
    $iif(%cod_chan,notice,msg) %cod_nick General - Server: %host_name IP: %cod_ip $+ : $+ %cod_port Map: %map Gametype: %gametype Players: $calc(%line - 2) $+ / $+ %player_max
    $iif(%cod_chan,notice,msg) %cod_nick Contact - Admin: %admin Email: %email IRC: $gettok($remove(%irc,irc://),1,47) - $+($chr(35),$gettok($remove(%irc,irc://),2-,47)) Website: %website
    $iif(%cod_chan,notice,msg) %cod_nick Other - Location: %location Punkbuster: $iif(%punkbuster = 1,Enabled,Disabled) Max ping: %maxping Max rate: %maxrate Enemies in compass: $iif(%compass = 1,Enabled,Disabled)
    unset %cod_* | halt
  }
  inc %line
  if (%temp = $null) halt
  if (%line = 1) goto again
  if (%line = 2) {
    var %host_name = $reco(false, $sv_tok(%temp, sv_hostname)), %version = $sv_tok(%temp, shortversion), %player_max = $sv_tok(%temp, sv_maxclients), %map = $repmap($sv_tok(%temp, mapname))
    var %gametype = $repgam($sv_tok(%temp, g_gametype)), %admin = $sv_tok(%temp, _admin), %email = $sv_tok(%temp, _email), %irc = $sv_tok(%temp, _Irc), %location = $sv_tok(%temp, _Location)
    var %website = $sv_tok(%temp, _Website), %punkbuster = $iif($sv_tok(%temp, sv_punkbuster),$v1,0), %maxping = $iif($sv_tok(%temp, sv_maxPing),$v1,0), %maxrate = $iif($sv_tok(%temp, sv_maxRate),$v1,0), %compass = $iif($sv_tok(%temp, g_compassShowEnemies),$v1,0)
  }
  goto again
}

on *:DNS:set -u5 %resolved $iif($raddress,$v1,0)
alias -l resolve { 
  unset %resolved | dns $1
  :repeat
  pause ms 1
  if (%resolved == $null) { goto repeat }
  return %resolved
}
alias -l pause {
  var %wsh = $+(wsh,$ticks,$r(1111,9999)), %cmd
  if ($1 == s) %cmd = ping.exe -n $int($calc($2 + 1)) 127.0.0.1
  else %cmd = pathping.exe -n -w 1 -q 1 -h 1 -p $iif($2 > 40,$calc($2 - 40),$2) 127.0.0.1
  .comopen %wsh wscript.shell
  if ($comerr) return
  else .comclose %wsh $com(%wsh,run,1,bstr*,% $+ comspec% /c %cmd >nul,uint,0,bool,true)
}

Comments

(11) RSS

Go to Bottom

Noutrious

Comments: 316

Posted on May 6, 2008 3:40 pm

Huh, no comments - no scores, i guess hawkee is going daamn inactive :|

^Neptune

Comments: 129

Posted on May 6, 2008 4:20 pm

Maybe people just don't play this game :O

napa182

Comments: 650

Posted on May 6, 2008 4:30 pm

maybe people dont care =P

Comments: 560

Posted on May 6, 2008 5:11 pm

LAWL doesnt help the web site is laggin ass an PHP errors out every few houts not to mention log ppl out so they have to log back in an shít and no i dont play thing game an you should have just posted it as a comment to irmac.`-.-´

Eugenio

Comments: 275

Posted on May 6, 2008 6:06 pm

lol wtfudge is EL on about........silly yank

Imrac

Comments: 5

Posted on May 6, 2008 10:42 pm

Wow... Looks good. Glad to see I can inspire people! Working on a new version of mine, well, completely re-written. I am also trying to include some way to query the master server and get player data and such. Might be awhile though, great work 9/10.

Noutrious

Comments: 316

Posted on May 7, 2008 12:17 am

Imrac, sure, i think people would be happy about that ;)
Anyways, for the others, i don't play COD4 myself, but this snippet still is in mIRC language, so there still can be suggestions about coding doh!

Eugenio

Comments: 275

Posted on May 7, 2008 4:35 pm

COD4 is absolute shoot, offline mode is boring and online is just repetitive.
Get decent games like FIFA 08 and warhawk.

Noutrious

Comments: 316

Posted on May 8, 2008 2:52 pm

Yeah, i don't.. i even don't games much! Anyway, that was reason for putting 1.0 score in it?
Damn the rating is awful here!

Eugenio

Comments: 275

Posted on May 8, 2008 3:03 pm

I didnt rate it, I was just saying COD4 is crap
aint even tested the script.

Noutrious

Comments: 316

Posted on May 9, 2008 6:46 am

Okaaay.. could anyone delete this snippet?

Please Register or Login to start posting comments.

COD4 Server Query

Introduction

Grab the Code

Comments

Noutrious

My Snippet Tags

Contact

Friends (11)

		Latvia
Last seen: May 11, 2008 Profile Friends (11) Snippets (1) Images (1) Comments Received (11) Comments Submitted (316) Forum Posts (374)