Statistics: Posted by speechles — Mon Oct 26, 2009 8:14 pm

Statistics: Posted by haha456 — Sat Oct 04, 2008 4:46 pm

# Game-Monitor.com GameServer Scrape# v1.0 - egghelp version yay!!# put the url we are going to scrape here variable online_url "http://www.game-monitor.com/sa-mp_GameServer/84.16.234.167:6666/GermanFunServer.html"# put your channels here, seperate with spacesvariable online_chans "#yourchan #thischan #thatchan"# -- script begins, changes aren't needed below here --package require httpbind pub - !online pub:onlineproc pub:online {nick host hand chan text} {   if {[lsearch -exact [split $::online_chans] $chan] == -1} {return}   set token [http::config -useragent "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e"]   catch {set token [http::geturl [set query $::online_url] -timeout 5000]} error   # errors and a redirect   if {![string match -nocase "::http::*" $error]} {     foreach line [split $error "\n"] {       putserv "privmsg $chan : $line"     }     return 0   } elseif {![string equal -nocase [::http::status $http] "ok"]} {     putserv "privmsg $chan :[string totitle [::http::status $http]] \( $query \)"     return 0   }  elseif {[string match *[::http::ncode $token]* "301|302"]} {      upvar #0 $token state      foreach {name value} $state(meta) {         if {[regexp -nocase ^location$ $name]} {            catch {set token [::http::geturl "[set query $value]" -query "" -timeout 5000]} error         }            }      }   set html [http::data $token]   http::cleanup $token   regsub -all {(?:\t|\n|\r|\v)} $html "" html   if {[regexp -- {<div class="sumtitle">(.+?)</td></tr></table>} $html - i]} {      regsub -all {<b>|</b>} $i "\002" i      regsub -all {<td>| |<td colspan="2">} $i " | " i      regsub -all {<.*?>} $i "" i      putserv "privmsg $chan :$i"   }   set onames {}   while {[regexp -nocase {<td class="name">(.*?)</td>} $html - oname]} {      lappend onames $oname      regsub -nocase {<td class="name">} $html "" html   }   if {![llength $onames]  } {      putserv "privmsg $chan :There are no online players, nobody is playing. :("   } else {      for {set x 0} {x < [llength $onames]} {incr x 8} {        putserv "privmsg $chan :Online players: [join [lrange $onames $x [expr {$x + 7}]] ", "]"      }   }   return 0}putlog "GameServer Scrape ready for action."

Setting the variable 'online_url' to:
"http://www.game-monitor.com/sa-mp_GameS ... erver.html"
<speechles> !online
<bot> GermanFunServer | IP: 84.16.234.167:6666 | Players: 0/40 (average: 7.67) | Bots: 0 | Map: San Andreas (310) | Consecutive Failed: 0 / 30 | Game: San Andreas Multiplayer | Last Updated: 43s ago (cached: 0s) | Month Uptime: 89.8753% (3675 / 4089) | Last DB Update: 43s ago (last check: 0s) | Added: days ago
<bot> There are no online players, nobody is playing. :(

Setting the variable 'online_url' to:
"http://www.game-monitor.com/sa-mp_GameS ... SLT__.html"
<speechles> !online
<bot> | RUSSIAN SERVER | [RUS]/[LT] | | IP: 77.220.180.62:7777 | Players: 25/60 (average: 35.84) | Bots: 0 | Map: www.rsrl.ru (1) | Consecutive Failed: 0 / 30 | Game: San Andreas Multiplayer | Last Updated: 49s ago (cached: 25s) | Month Uptime: 93.6201% (3830 / 4091) | Last DB Update: 49s ago (last check: 25s) | Added: days ago
<bot> Online players: K2_KORSAR, Kain, RuSsiAn_Pimp, VAV, Sandra_K, XISHNIK, Gagarin1964, [AZTEC]MC, DJ_Energi, _Dim_, [AstroD]Lexa, ba9n, Kilimangaro, GreeNShark, [DVpro]DSLX5, [PRoFFI]_Cat, [RV]1KlaSS, [Redman], Bi_Gear, KloUngGM, [ALN]SectoR, Hacker, BOSSS, [SR]Splinter, RimasLT

Statistics: Posted by speechles — Mon Jul 28, 2008 12:06 am

Statistics: Posted by Nimos — Sun Jul 27, 2008 7:16 pm

Statistics: Posted by Mogour — Sun Jun 29, 2008 10:14 am

Statistics: Posted by Nimos — Sat May 31, 2008 7:07 am

Statistics: Posted by Nimos — Sat May 31, 2008 5:06 am

Code:

# put the url we are going to scrape herevariable online_url "http://www.game-monitor.com/sa-mp_GameServer/84.16.234.167:6666/GermanFunServer.html"# put your channels here, seperate with spacesvariable online_chans "#yourchan #thischan #thatchan"package require httpbind pub - !online pub:onlineproc pub:online {nick host hand chan text} {  if {[lsearch -exact [split $::online_chans] $chan] == -1} {return}  set token [http::config -useragent "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e"]  catch {set token [http::geturl $::online_url -timeout 5000]} error  if {[string match -nocase "*couldn't open socket*" $error]} {    puthelp "PRIVMSG $chan :Sorry, cannot create a socket to \"$::online_url\"."    return 0  } elseif {[::http::status $token] == "timeout"} {    puthelp "PRIVMSG $chan :Sorry, your request to \"$::online_url\" has timed out."    return 0  }  set html [http::data $token]  http::cleanup $token  regsub -all {(?:\t|\n|\r|\v)} $html "" html  set onames {}  while {[regexp -nocase {<td class="name">(.*?)</td>} $html - oname]} {    lappend onames $oname    regsub -nocase {<td class="name">} $html "" html  }  putserv "privmsg $chan :Online players: [join $onames ", "]"  return 1}

Statistics: Posted by speechles — Sat May 31, 2008 3:21 am

Example:

Someone: !online
Eggie: Online Players:
Eggie: person1, person2, person3

Statistics: Posted by Nimos — Sat May 31, 2008 2:50 am

Well...this is the "Request" Forum, so could you make me the script?

Statistics: Posted by speechles — Sat May 31, 2008 12:43 am

Well...this is the "Request" Forum, so could you make me the script?

Statistics: Posted by Alchera — Fri May 30, 2008 9:32 pm

Statistics: Posted by Nimos — Fri May 30, 2008 5:43 pm

Statistics: Posted by speechles — Fri May 30, 2008 4:45 pm