egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2008-03-16T06:47:14-04:00 https://forum.eggheads.org/app.php/feed/topic/15497 2008-03-16T06:47:14-04:00 2008-03-16T06:47:14-04:00 https://forum.eggheads.org/viewtopic.php?p=81806#p81806 <![CDATA[game-monitor.com Player Search]]>

Statistics: Posted by ICE — Sun Mar 16, 2008 6:47 am

]]> 2008-03-14T04:37:32-04:00 2008-03-14T04:37:32-04:00 https://forum.eggheads.org/viewtopic.php?p=81732#p81732 <![CDATA[game-monitor.com Player Search]]>

Code: 

set formdata [::http::formatQuery search $arg type server]
to look like this

Code: 

set formdata [::http::formatQuery search $arg type player]
and remove this line completely or comment it out with #

Code: 

   if {![regexp -- {^(.+?):(.+?)$} $arg]} { putmsg $chan "Right format is: $::game(trigger) IP"; return }
that big ol long inline regexp and the foreach giving the output need to be adjusted as well.. this is just some help to get you going in the right direction.

Statistics: Posted by speechles — Fri Mar 14, 2008 4:37 am

]]> 2008-03-09T01:24:07-04:00 2008-03-09T01:24:07-04:00 https://forum.eggheads.org/viewtopic.php?p=81549#p81549 <![CDATA[game-monitor.com Player Search]]>
Love the site it helped me a huge amount!

I have found a script that searches servers on game-monitor.com. I was wondering if someone could help me modify it to do a player search, as I'n not so good with this side of things.

For example "!player Bob" and it returns the server and names for all those players with the name bob.

The script is below :)

Code: 

# Settings# Bind key? Default: !ipset game(trigger) "!player"# 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]# Going to url::http::config -useragent "Mozilla/4.0"if {[catch {set tok [::http::geturl http://www.game-monitor.com/search.php?$formdata -timeout $::game(timeout)]} error]} {putlog "Error trying connect to url: $error"return 1}if {[::http::ncode $tok] != 200} {putlog "Error connecting to url: [::http::code $tok]"::http::cleanup $tokreturn 1}# Went to url, setting dataset data [::http::data $tok]# Cleaning::http::cleanup $tok# Regex timeforeach "- title players map gamename" [regexp -all -inline -expanded -- {<tr\sclass="search_result.+?# find the part where the info is/GameServer/.+?/GameServer/.+?>(.+?)<.+?# server name<tr\sclass="search_result.+?# jump to the next partcolor=.+?(\d+?/\d+?)[^0-9].+?# players<a\shref="/MapSearch/.+?>(.+?)<.+?# map nametitle="(.+?)"# game name} $data] {lappend matches [list $title $players $map $gamename]}# Shout the resultif {![info exists matches]} {putmsg $chan "Did not find anything for $arg"return 1} else {foreach match [lrange $matches 0 2] {foreach  "title players map gamename" $match {putmsg $chan "\002Title\002: [join $title] \002Map\002: [join $map] \002Players\002: [join $players]"}}if {[llength $matches] > 3} {putmsg $chan "Found [expr "[llength $matches] - 3"] more match(es) but I'm not gonna show them to you :P"}}}

Statistics: Posted by ICE — Sun Mar 09, 2008 1:24 am

]]>