egghelp/eggheads community

Game.tcl may need a quick fix

2015-11-15T09:42:20-04:00

I came up with this, but seems it isn't working still:

[14:47:26] !ip 87.98.237.191:27015
[14:47:27] <^lycosbot^> Did not found anything for 87.98.237.191:27015

Mind I have neither EggDrop nor TCL, so it was a shot in the dark.

I changed the form data to not only query CS:S servers, but all servers.

Code:

set formdata [http::formatQuery search $arg]

This should create an URL like this:

http://www.game-monitor.com/search.php? ... .191:27015

I changed the RegEx to match the current website layout.

Layout:

Code:

HLDS.pl DMC #1

0 /14 (4)dmc_helixRegEx:

Code:

regexp -- {(.+?) /} $data -> playersif {![regexp -nocase {(.+?)

} $data -> title]} { putmsg $chan "Did not found anything for $arg"; return }regsub -all {<.*?>| } $title {} titleregexp -- {(.*?)} $data -> map

Edited script:

Code:

# Script to get some extra information about the IP-Adress of your Counter-Strike Source server# Script made by Mookie@Efnet Contact me for more information# Suggestions are always welcome, post them on the forum on egghelp.org# Settings# Bind key? Default: !ipset game(trigger) "!ip"# Get-url timeout. Recommed to keep this as defaultset game(timeout) "60000"########################################################### Don't edit below unless you know what you're doing. ###########################################################bind pub - $::game(trigger) lookupproc lookup {nick uhost hand chan arg} {global game# Check if $arg existsif {![regexp -- {^(.+?):(.+?)$} $arg]} { putmsg $chan "Right format is: $::game(trigger) IP"; return }# Set formdataset formdata [http::formatQuery search $arg]# Going to urlcatch {set tok [http::geturl http://game-monitor.com/search.php?$formdata -timeout $::game(timeout)]} errorif {[string match -nocase "*couldn't open socket*" $error]} {putlog "Error trying connect to url."return}# Went to url, setting dataset data [http::data $tok]# Cleaninghttp::cleanup $tok# Regex timeregexp -- {(.+?) /} $data -> playersif {![regexp -nocase {(.+?)

} $data -> title]} { putmsg $chan "Did not found anything for $arg"; return }regsub -all {<.*?>| } $title {} titleregexp -- {(.*?)} $data -> map# Shout the resultputmsg $chan "Title: $title Map: $map Players$players"}

I noticed that there should be a "www." in front of the domain, perhaps that's why it won't work. The response is a redirect if the "www." is omitted.

Statistics: Posted by pizzahut — Sun Nov 15, 2015 9:42 am

Game.tcl may need a quick fix

2015-11-14T20:50:57-04:00

Alright I got alltools.tcl fixed thanks, only problem is that game-monitor.com query not giving me any results nor the bot will relay that IP query. I want to know how to resolve it or maybe use IP Gameserver query on gametracker.com

Statistics: Posted by RoboCop — Sat Nov 14, 2015 8:50 pm

Game.tcl may need a quick fix

2015-11-14T20:08:16-04:00

putmsg is included in alltools.tcl

alltools.tcl is included with all versions of Eggdrop.

Make sure this line is included near the bottom of your conf file...

Code:

source scripts/alltools.tcl

Statistics: Posted by SpiKe^^ — Sat Nov 14, 2015 8:08 pm

Game.tcl may need a quick fix

2015-11-14T15:56:48-04:00

Hello I've been trying game.tcl for search GameServer IPs but it appears to give me a error saying "Tcl error [lookup]: invalid command name "putmsg" Is this command for older Eggdrop Versions below 1.6.21? Cos it doesn't seem to work well on that. Here is the TCL code script:

Code:

# Script to get some extra information about the IP-Adress of your Counter-Strike Source server# Script made by Mookie@Efnet Contact me for more information# Suggestions are always welcome, post them on the forum on egghelp.org# Settings# Bind key? Default: !ipset game(trigger) "!ip"# Get-url timeout. Recommed to keep this as defaultset game(timeout) "60000"########################################################### Don't edit below unless you know what you're doing. ###########################################################bind pub - $::game(trigger) lookupproc lookup {nick uhost hand chan arg} {global game# Check if $arg existsif {![regexp -- {^(.+?):(.+?)$} $arg]} { putmsg $chan "Right format is: $::game(trigger) IP"; return }# Set formdataset formdata [http::formatQuery search $arg type server game cstrike2]# Going to urlcatch {set tok [http::geturl http://game-monitor.com/search.php?$formdata -timeout $::game(timeout)]} errorif {[string match -nocase "*couldn't open socket*" $error]} {putlog "Error trying connect to url."return}# Went to url, setting dataset data [http::data $tok]# Cleaninghttp::cleanup $tok# Regex timeregexp -- {Total Players/Max(.+?)$} $data -> playersif {![regexp -nocase {(.+?)

} $data -> url title]} { putmsg $chan "Did not found anything for $arg"; return }regsub -all {<.*?>| } $title {} titleregexp -- {(.*?)} $data -> map# Shout the resultputmsg $chan "Title: $title Map: $map Players$players"}

Another thing, game-monitor.com is not as popular as gametracker.com. Say if I wanted to convert game-monitor.com URL for gametracker.com what will the code have to be for it to work. Can you help please? I suck on TCL.

Statistics: Posted by RoboCop — Sat Nov 14, 2015 3:56 pm