CoD4 Master Server Query

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	May 08, 2008
Last Updated	May 08, 2008
Tags	cod4 game games info master players query server

Introduction

Version: 0.0.1 (BETA)
Latest Update: May 8, 2008

Description:
This snippet queries the CoD4(Call of Duty 4) master server and returns a list of cod4 servers. Then each server is queried and the players of that server are placed into a hash table.

Note: The hash table item names are the player names. Any spaces in the player name was replaced with the character 92 "".

Usage:

/Master - Starts the process (Takes About 10 minutes Total)
/masterstop - Stop the process

Update list:

0.0.1 (BETA) - May 8 2008
- First Upload

Grab the Code

on *:start:{
  if (!$hget(cod.msl)) .hmake cod.msl 100
  .hdel -w cod.msl *

if (!$hget(cod.mql)) .hmake cod.mql 100
  .hdel -w cod.mql *

if (!$hget(cod.mpl)) .hmake cod.mpl 1000
  .hdel -w cod.mpl *
}

alias masterstop {
  .timercod.q off
  hadd cod.mql cod.mq $calc($hget(cod.msl,0).item + 1)
}

alias master {
  window -e @test
  clear @test
  sockudp -k cod.m 63.146.124.21 20810 ÿÿÿÿgetservers 4 empty full
  .timercod.m 1 2 cod.mr
}

alias -l cod.mr {
  sockclose cod.m
  bread temp 0 $file(temp).size &temp
  .remove temp
  .hdel -w cod.msl *
  var %a = 1
  var %svnum = 0
  while ($bfind(&temp,%a,92)) {
    var %b = $bfind(&temp,%a,92)
    var %c = $calc(%b + 1)
    var %d = $bfind(&temp,%c,92)
    var %e = $calc(%d - $calc(%b + 1))
    bset &temp1 1 $iif($bvar(&temp,%c,%e),$v1,0)
    ;echo -b a = %a $+ , b = %b $+ , c = %c $+ , d = %d $+ , e = %e $+ , $bvar(&temp,%c,%e) $+ , $bvar(&temp1,1,$bvar(&temp1,0)) $+ , $bvar(&temp,0)

if (($bvar(&temp1,0) >= 5) && ($bvar(&temp1,0) <= 6)) {
      var %ip = $+($bvar(&temp1,1),.,$bvar(&temp1,2),.,$bvar(&temp1,3),.,$bvar(&temp1,4))
      var %pt = $calc(($bvar(&temp1,5) * 256) + $bvar(&temp1,6))
      %a = $bfind(&temp,$calc($bfind(&temp,%a,92) + 1),92)

inc %svnum

var %sv = $str(0,$calc(5 - $len(%svnum))) $+ %svnum
      aline @test 2Server:3 %sv 2IP:3 %ip $+ : $+ %pt
      hadd cod.msl %ip $+ : $+ %pt $ctime
    }
    %a = %c
    bunset &temp1
  }
  if (!$bfind(&temp,%a,92)) { 
    aline @test 4EOF 
    renwin @test @test Servers Found: %svnum
    hadd cod.mql cod.mq 1
    cod.mq
  }
}

alias -l cod.mq {
  .timercod.q off
  sockclose cod.q

if (!$hget(cod.mql,cod.mq)) hadd cod.mql cod.mq 1
  if ($hget(cod.mql,cod.mq) > $hget(cod.msl,0).item) halt
  ;echo -b $hget(cod.mql,cod.mq)
  var %s = $hget(cod.msl,$hget(cod.mql,cod.mq)).item
  var %i = $gettok(%s,1,58), %p = $gettok(%s,2,58)
  ;echo -b 7Querying Server %i $+ : $+ %p
  sockudp -k cod.q %i %p ÿÿÿÿgetstatus
  hinc cod.mql cod.mq 1
  .timercod.q 1 1 cod.mq

}
alias -l cod.t { return $gettok($1, $calc($findtok($1, $2, 1, 92) + 1), 92) }

on *:udpread:cod.m:{
  if ($sockerr) halt
  while ($sock($sockname).rq) {
    sockread &binvar
    bwrite temp -1 -1 &binvar
  } 
}

on *:udpread:cod.q:{
  if ($sockerr) { cod.mq | return }
  var %l = 0
  while ($sock($sockname).rq) {
    var %temp
    sockread %temp
    inc %l 1
    if (%l == 1) { 
      if (!%temp == ÿÿÿÿstatusResponse) { cod.mq | halt }
      var %ip = $sock($sockname).saddr, %pt = $sock($sockname).sport
      aline @test 7Server:6 $str(0,$calc($len($hget(cod.msl,0).item) - $len($hget(cod.mql,cod.mq)))) $+ $hget(cod.mql,cod.mq)  $+ / $+ $hget(cod.msl,0).item 7IP:6 %ip $+ : $+ %pt
    }
    if (%l == 2) {
      var %gn = $cod.t(%temp,gamename), %sn = $cod.t(%temp,sv_hostname)
    }
    if (%l > 2) {
      %temp = $remove(%temp,^1,^2,^3,^4,^5,^6, ^7,^8,^9,^0)
      var %player = $gettok(%temp,2,34)
      if (!%player) { cod.mq | halt }  
      %player = $replace(%player, $chr(32), $chr(92)) 
      hadd cod.mpl %player $+(%gn,$chr(92),%sn,$chr(92),%ip,$chr(92),%pt,$chr(92),$fulldate,$chr(92),$ctime)
      aline @test 2Player:3 %player 2Info3: $+(%gn,$chr(92),%sn,$chr(92),%ip,$chr(92),%pt,$chr(92),$fulldate,$chr(92),$ctime)
    }
  }
  cod.mq
}

alias -l cod_t { return $gettok($1, $calc($findtok($1, $2, 1, 92) + 1), 92) }

Comments

(0) RSS

Go to Bottom

CoD4 Master Server Query

Introduction

Grab the Code

Comments

Imrac

My Snippet Tags

Contact


Last seen: May 06, 2008 Profile Snippets (4) Images (1) Comments Received (17) Comments Submitted (5) Forum Posts (1)