egghelp/eggheads community

Market script

2008-06-17T14:05:20-04:00

Thank you. It works like a charm

i think i made a little head room with the other script but i can't post it i not at home, stupid work

Statistics: Posted by Pizza_Guy — Tue Jun 17, 2008 2:05 pm

Market script

2008-06-17T00:03:39-04:00

Code:

# amount of posts to showvariable herebe_limit 5package require httpsetudef flag herebegamesbind pub - !MarketUU herebe:games1bind pub - !MarketAT herebe:games2bind pub - !MarketPlanet herebe:games3bind pub - !MarketDiscussion herebe:games4bind pub - !Awards herebe:games5proc herebe:games1  {nick uhost handle chan text} {  herebe:games $nick $uhost $handle $chan 90 $text}proc herebe:games2  {nick uhost handle chan text} {  herebe:games $nick $uhost $handle $chan 91 $text}proc herebe:games3  {nick uhost handle chan text} {  herebe:games $nick $uhost $handle $chan 93 $text}proc herebe:games4  {nick uhost handle chan text} {  herebe:games $nick $uhost $handle $chan 94 $text}proc herebe:games5  {nick uhost handle chan text} {  herebe:games $nick $uhost $handle $chan 89 $text}proc herebe:games {nick uhost handle chan tag text} {   if {[lsearch -exact [channel info $chan] +herebegames] == -1} { return }   set query "http://herebegames.com/StarGateWarsNew/viewforum.php?f=$tag"   set ua "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"   set http [::http::config -useragent $ua -useragent "utf-8"]   catch {set http [::http::geturl "$query" -timeout [expr 1000 * 5]]} error   if {[string match -nocase "*couldn't open socket*" $error]} {      putserv "privmsg $chan :Socket Error accessing '$query' .. It must be down.. :("      return 0   }   if { [::http::status $http] == "timeout" } {      putserv "privmsg $chan :Connection has timed out"      return 0   }   set html [::http::data $http]   ::http::cleanup $http   regsub {(^.+?)Topics} $html "" html   set counter 0   while {$counter < $::herebe_limit} {      regexp -nocase {(.+?).+?.*?.*?} $html -> subject url      set url "http://herebegames.com/StarGateWarsNew[string map {& &} $url]"      regsub -nocase {.+?.+?.*?.*?} $html "" html      incr counter 1      putserv "privmsg $chan :\002$subject\002 - $url"   }   return 1}putlog "herebegames loaded."

Use the partyline and .chanset #youchan +herebegames to activate on each desired channel. Below is an example of how this looks for marketuu. Also added examples of how you can add all the forum sections to triggers and have one single procedure scrape them all. Keep in mind the scraping template is designed for just this site, it won't work for others, but will for every forum section of that site.

!marketUU
selling 38 mil UU @ 720 bil per mil - http://herebegames.com/StarGateWarsNew/ ... 7#p1398657
Buying 1mil UU (700 bil / 1mil uu) ~ online - http://herebegames.com/StarGateWarsNew/ ... 8#p1398628
buying 4,5mil uu / 720bil per 1 mil - http://herebegames.com/StarGateWarsNew/ ... 8#p1398308
Selling 1mil UU for 5k Turns - http://herebegames.com/StarGateWarsNew/ ... 6#p1398266
Selling 15m UU 750b/m - http://herebegames.com/StarGateWarsNew/ ... 1#p1393781

Statistics: Posted by speechles — Tue Jun 17, 2008 12:03 am

Market script

2008-06-16T19:44:35-04:00

well there are a two basically what i am looking at is this

someone says

!MarketUU it would give the say top 5 threads from here
http://herebegames.com/StarGateWarsNew/ ... m.php?f=90

i was thinking of the format
thread title | Thread link

!MarketAT - would give the top 5 from
http://herebegames.com/StarGateWarsNew/ ... m.php?f=91

i was thinking of the format
thread title | Thread link

Statistics: Posted by Pizza_Guy — Mon Jun 16, 2008 7:44 pm

Market script

2008-06-15T08:49:26-04:00

Its possible via the http package and a regexp to grab the links from the html code.

If you provide us the link to the page, we might be able to help you.

Statistics: Posted by r0t3n — Sun Jun 15, 2008 8:49 am

Market script

2008-06-14T21:55:23-04:00

thank you for the help
after looking at what you wrote it appears that this is a bit beyond my current understanding
I am going to need to keep reading and learning more before i can get this working

a side note
is there a script that can do some type of fetching of links on a specific page?
so if i would do !sitemarket
it would go out and look at a determined # of the top links and past back the topic of the thread and the link

or is this again something i am going to need to learn more about?

Statistics: Posted by Pizza_Guy — Sat Jun 14, 2008 9:55 pm

Market script

2008-06-14T07:50:19-04:00

it depends on how you structured your file. If its structure in the format: 'nickline info_here' you can search for the nickname.

Example:

Code:

set file [open file.txt r]set read [read -nonewline $file]close $fileset file [open file.txt w]foreach line [split $read \n] {    if {$line == ""} { continue }    if {[string equal -nocase $nick [lindex [split $line] 0]]} {        continue    } else {        puts $file "$line"    }}close $file

Statistics: Posted by r0t3n — Sat Jun 14, 2008 7:50 am

Market script

2008-06-13T23:09:23-04:00

how can i get it to remove the line for a person?

Statistics: Posted by Pizza_Guy — Fri Jun 13, 2008 11:09 pm

Market script

2008-06-13T21:38:52-04:00

when writing to the file, instead of using the 'w' flag use the 'a' flag which will append to the end of the file.

example:

Code:

set file [open file.txt a]

Statistics: Posted by r0t3n — Fri Jun 13, 2008 9:38 pm

Market script

2008-06-13T21:20:54-04:00

I am looking for a script where people can list things to sell and then others can look them up
basic commands are
!sell
!remove
!search

there are only 3 things to sell and they are
Naq
UU
AT

most people use the layout 1k AT 160B Naq

I tried doign this myself but i ran into the issue of when writing to a file it removing all of the information already there

Statistics: Posted by Pizza_Guy — Fri Jun 13, 2008 9:20 pm