Cod4 Server Query

Please Register to submit score.

Average Score	8.0
Scores Submitted	1
Date Added	Dec 24, 2007
Last Updated	Dec 24, 2007
Tags	bot game query

Introduction

v1.0.0 (Beta)

Features:

Cod4 Support
Abbreviations for servers
Flood Protection**
Validates Server Before Adding to Abbreviations
Not allowed channel(s)

**Minimal at this point.

Commands:

!cod
!cod xxx.xxx.xxx.xxx:xxxxx
!cod add yyyyy xxx.xxx.xxx.xxx:xxxxx
!cod del yyyyy

This is a Bot for CoD4 Server querying. Load the script, if you do not want it to work in certain channel(s), then go to the variables and add channel names with spaces between them( #chan1 #chan2 ...) You can !cod xxx.xxx.xxx.xxx:xxxxxx to display host name, ip, map, game type, and x/x players. You can also !cod add xxxxx xxx.xxx.xxx.xxx:xxxxxx, an abbreviation up to 5 characters long for a short cut to server info to be used !cod xxxxx. You can also delete it by using !cod del xxxxxx (Will work on a way so not everyone can add or remove the abbreviations, possibly a per channel bases). Also has minimal flood protection (will work on it), and no login feature as of now.

Update Log:

(coming soon)

Grab the Code

;**************************************
;**        Load(First Time)          **
;**************************************
on *:Load:{
  set %cod4_nochan
}

;**************************************
;**        Load(Every Time)          **
;**************************************
on *:START:{
  hmake -s cod_arbv 10
  hload -s cod_arbv cod_serverarb.txt
}

;**************************************
;**        Server Query Int          **
;**************************************
alias cod_intquery {
  if (%cod_active == $null) {
    if ($2) { set -u3 %cod_add $2 }
    timercod 1 3 cod_error
    set %cod_active $true
    set %cod_ip $gettok($1, 1, 58)
    set %cod_port $gettok($1, 2, 58)
    set %cod_chan $chan
    sockudp -k cod_getstatus %cod_ip %cod_port $chr(255) $+ $chr(255) $+ $chr(255) $+ $chr(255) $+ getstatus
    return
  }
  else msg $chan [7CoD Bot] 4Error: Query Already in Progress, Please Try Again Later.
}

;**************************************
;**       IP & Port Validator        **
;**************************************
alias valip {
  var %oct = ([01]?d?d|2[0-4]d|25[0-5])
  var %re = $+(^,%oct,.,%oct,.,%oct,.,%oct,:(d{1,5}),$)
  var %ret = $regex($1,%re)
  return $iif($regml(1),$true,$false)
}

;**************************************
;**      CoD Connection Error        **
;**************************************
alias cod_error {
  if (%cod_add != $null) {
    msg %cod_chan [7CoD Bot] 4Error: Connection Timed Out. The Abbreviation could not be saved. (Invalid Server or Server is Down)
    unset %cod_add
  }
  else { msg %cod_chan [7CoD Bot] 4Error: Connection Timed Out. (Invalid Server or Server is Down) }
  unset %cod_active
  unset %cod_ip
  unset %cod_port
  unset %cod_chan
}

;**************************************
;**          Replace Colors          **
;**************************************
alias reco {
  var %temp
  %temp = $2
  if ($1 == true) {
    %temp = $replace(%temp,^1, 4)
    %temp = $replace(%temp,^2, 3)
    %temp = $replace(%temp,^3, 8)
    %temp = $replace(%temp,^4, 12)
    %temp = $replace(%temp,^5, 11)
    %temp = $replace(%temp,^6, 13)
    %temp = $replace(%temp,^7, 0)
    %temp = $replace(%temp,^0, 1)
    return %temp
  }
  elseif ($1 == false) {
    return $remove(%temp, ^1, ^2, ^3, ^4, ^5, ^6, ^7, ^0)
  }
}

;**************************************
;**         Replace Map Name         **
;**************************************
alias repmap {
  var %temp
  %temp = $1
  %temp = $replace(%temp, mp_backlot, Backlot)
  %temp = $replace(%temp, mp_bloc, Bloc)
  %temp = $replace(%temp, mp_bog, Bog)
  %temp = $replace(%temp, mp_cargoship, Wet Work)
  %temp = $replace(%temp, mp_citystreets, District)
  %temp = $replace(%temp, mp_convoy, Ambush)
  %temp = $replace(%temp, mp_countdown, Countdown)
  %temp = $replace(%temp, mp_crash, Crash)
  %temp = $replace(%temp, mp_crash_Snow, Crash)
  %temp = $replace(%temp, mp_crossfire, Crossfire)
  %temp = $replace(%temp, mp_farm, Downpour)
  %temp = $replace(%temp, mp_overgrown, Overgrown)
  %temp = $replace(%temp, mp_pipeline, Pipeline)
  %temp = $replace(%temp, mp_shipment, Shipment)
  %temp = $replace(%temp, mp_showdown, Showdown)
  %temp = $replace(%temp, mp_strike, Strike)
  %temp = $replace(%temp, mp_vacant, Vacant)
  return %temp
}

;**************************************
;**         Replace Game Type        **
;**************************************
alias repgam {
  var %temp
  %temp = $1
  %temp = $replace(%temp, dm, Free For All)
  %temp = $replace(%temp, war, Team Deathmatch)
  %temp = $replace(%temp, sab, Sabotage)
  %temp = $replace(%temp, sd, Search & Destroy)
  %temp = $replace(%temp, koth, headquarters)
  return %temp
}

;**************************************
;**             Tokenize             **
;**************************************
alias sv_tok {
  var %temp
  %temp = $gettok($1, $calc($findtok($1, $2, 1, 92) + 1), 92)
  return %temp
}

;**************************************
;**           Txt Events             **
;**************************************
on *:text:!Cod*:#:{
  ; // Stop if a no go channel
  if ($chan isin %cod4_nochan) { return }

; // Flood Protection //

if (%codflood == $null) { set -u10 %codflood 1 }
  if (%codflood <= 3) { inc %codflood 1 }
  if (%codflood >= 4) { return }

; // Add an Abbreviation to a server //
  if ($2 == add) {
    if (($3 isletter) && ($len($3) <= 5) && ($valip($4))) {
      if ($hget(cod_arbv, $3) != $null) {
        msg $chan [7CoD Bot] 4Error: Abbreviation Already Exists, Please Choose Another.
        return
      }
      cod_intquery $4 $3
      return
    }
    else {
      msg $chan [7CoD Bot] 4Error: Abbreviation Can Only Be up to 5 Characters Long And Only Contain Letters. IP And Port Must Be Valid. (Example: !Cod Add ARBB 12.12.51.21:28960)
      return
    }
  }

; // Delete an Abbreviation
  if ($2 == del) {
    if ($hget(cod_arbv, $3) != $null) {
      hdel -s cod_arbv $3
      hsave -s cod_arbv cod_serverarb.txt
      msg $chan [7CoD Bot] Successfully Deleted " $+ $3 $+ " From the Abbreviation List
      return
    }
    else {
      msg $chan [7CoD Bot] 4Error: Unable to find " $+ $3 $+ " In The Abbreviation List. Please check your spelling.
      return
    }
  }

; // If $2 is an ip //
  if ($valip($2)) {
    cod_intquery $2
    return
  }

; // If $2 is in hash table //
  if ($hget(cod_arbv, $2) != $null) {
    cod_intquery $hget(cod_arbv, $2)
    return
  }
  if (($2 isletter) && ($len($2) <= 5) && ($hget(cod_arbv, $2) == $null))  {
    msg $chan [7CoD Bot] 4Error: Unable to find " $+ $2 $+ " In The Abbreviation List. Please check your spelling.
    return
  }
  else {
    msg $chan [7CoD Bot] 4Error: Please Enter A Known Server Abbreviation (!cod arbb), A Valid IP:Port (!cod 123.123.123.123:28960), Or Use The Add And Del Commands (!cod add arbb 123.123.123.123:28960 or !cod del arbb)
  }
}

;**************************************
;**       Read Server response       **
;**************************************
on *:udpread:cod_getstatus:{

;// Check for Socket Error //
  if ($sockerr > 0) return

;// Set Vars for read and line number //
  var %temp, %line

;// Read Socket //
  :nextread
  sockread %temp

;// Stop after Reading //
  if ($sockbr == 0) {
    if (%cod_add != $null) {
      hadd cod_arbv %cod_add %cod_ip $+ : $+ %cod_port
      hsave -s cod_arbv cod_serverarb.txt
      msg %cod_chan [7CoD Bot] Has Successfully Added " $+ %cod_add $+ " To the Abbreviation List. 2Server Name: " $+ %host_name $+ " 2IP: %cod_ip $+ : $+ %cod_port
      unset %cod_add
    }
    else { msg %cod_chan [7CoD Bot] 2Server Name: " $+ %host_name $+ " 2IP: %cod_ip $+ : $+ %cod_port 2Map: " $+ %map $+ " %gametype 2Players: $calc(%line - 2) $+ / $+ %player_max }
    sockclose cod_getstatus
    unset %cod_active
    unset %cod_ip
    unset %cod_port
    unset %cod_chan
    timercod off
    return
  }

inc %line 1
  if (%temp == $null) { return }

;// Skip the status response //
  if (%line == 1) { goto nextread }

;// Get Server Info //
  if (%line == 2) {
    var %host_name, %version, %map, %player_max, %gametype
    %host_name = $reco(false, $sv_tok(%temp, sv_hostname))
    %version = $sv_tok(%temp, shortversion)
    %player_max = $sv_tok(%temp, sv_maxclients)
    %map = $sv_tok(%temp, mapname)
    %map = $repmap(%map)
    %gametype = $repgam($sv_tok(%temp, g_gametype))
  }
  echo %temp
  goto nextread
}

Comments

(11) RSS

Go to Bottom

Imrac

Comments: 4

mIRC Snippet: Cod4 Server Query
Posted on Dec 24, 2007 3:30 am

Comments? Feature Requests?

Noutrious

Comments: 340

mIRC Snippet: Cod4 Server Query
Posted on Dec 24, 2007 5:00 am

It's nice, i like it :)

Comments: 914

mIRC Snippet: Cod4 Server Query
Posted on Dec 24, 2007 6:18 am

Can't test this myself but by the looks of your screen shot its neat tho.Good work 6/10.And if there are any suggestions where to use this plz feel free.`-.-�

sunburst

Comments: 7

mIRC Snippet: Cod4 Server Query
Posted on Dec 24, 2007 1:28 pm

Looks very well implemented, except you should have hidden your IP. ;)

nem0787

Comments: 2

mIRC Snippet: Cod4 Server Query
Posted on Feb 10, 2008 1:05 am

Hi, I'm new to scripts and bots and irc. Could some1 please explain how exactly I get this to work. What do i do to this code above? where do I put it? etc etc. Any help you could give me would be much appreciated. Thanks

nem0787

Comments: 2

mIRC Snippet: Cod4 Server Query
Posted on Feb 10, 2008 3:24 am

Hi, I think I got it to load, but when I type in !cod then an ip it says this isnt a valid ip even though I know that it is. Also it wont let me add new ips...it gives the error message [CoD Bot] Error: Abbreviation Can Only Be up to 5 Characters Long And Only Contain Letters. IP And Port Must Be Valid.

Even though I know the ip is correct and I have inputted an abbreviation that is less then 5 characters long and only contains letters. Any suggestions on how to fix this?

Also could you please answer my first post just in case I haven't done this right. Thanks

bourneident

Comments: 26

mIRC Snippet: Cod4 Server Query
Posted on Feb 12, 2008 6:28 am

[07:24am] � ~BourneIdent � !cod add arbb xx.xxx.xx.x:28960
[07:24am] � @HelpDesk � [CoD Bot] Error: Abbreviation Can Only Be up to 5 Characters Long And Only Contain Letters. IP And Port Must Be Valid. (Example: !Cod Add ARBB xx.xx.xx.xx:28960)
it don't work can you fix soon please would love to use it as we have 3 cod4 servers

Imrac

Comments: 4

mIRC Snippet: Cod4 Server Query
Posted on Feb 17, 2008 1:24 am

nem0787: Make sure you are using the correct format such as "192.168.1.1:28960" if you are still having issues, please let me know exactly what you typed in order to better understand and replicate the problem.

bourneident: The "X"s are where you enter the Ip numbers, Make sure you are using the correct format such as "192.168.1.1:28960" if you are still having issues, please let me know exactly what you typed in order to better understand and replicate the problem.

Binary11011

Comments: 2

mIRC Snippet: Cod4 Server Query
Posted on Feb 17, 2008 6:10 pm

Imrac - when adding !cod add xxxxx xxx.xxx.xxx.xxx:xxxxx (valid IP and port)

I get the error " [CoD Bot] Error: Abbreviation Can Only Be up to 5 Characters Long And Only Contain Letters. IP And Port Must Be Valid. (Example: !Cod Add ARBB 12.12.51.21:28960)"

I've checked the script and it calls for:

on *:START:{
hmake -s cod_arbv 10
hload -s cod_arbv cod_serverarb.txt

I do not have a cod_serverarb.txt in the mirc directory...I've tried creating one but do not have the correct syntax...ie:

contents of cod_serverarb.txt:

cod_arb=servername (ip:port)

Binary11011

Comments: 2

mIRC Snippet: Cod4 Server Query
Posted on Feb 17, 2008 6:32 pm

I should also not it is not a standard server port - 28965.

klaypigeon

Comments: 1

mIRC Snippet: Cod4 Server Query
Posted on Apr 12, 2008 1:19 pm

I cannot get it loaded right. I'm a nub, but doesnt seem like it should be that tough.
/load -rs cod.ini
Loaded script 'C:Program FilesmIRCcod.ini'
No bot shows up.
Am I doing something wrong? Were there variables I needed to change?

Cod4 Server Query

Introduction

Grab the Code

Comments

Imrac

My Snippet Tags

Contact

Sponsors


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