Code: Select all
http://www.gamespot.com/pages/search/index.php?qs=${input}
Code: Select all
http://www.gamespot.com/pages/search/adv_search.php?qs=${input}
so 5 == PC, 1029 == X360, 13 = XBOX, very very cryptic ;/<input type="checkbox" name="platform[]" value="5"> <img src="http://img.gamespot.com/gamespot/shared/head2/pc_on.gif"> PC
</td>
<td width="140">
<input type="checkbox" name="platform[]" value="1029"> <img src="http://i.i.com.com/cnet.g2/shared/gs5/t ... box360.gif" align="absbottom"> Xbox 360
</td>
<td width="140">
<input type="checkbox" name="platform[]" value="13"> <img src="http://img.gamespot.com/gamespot/shared ... box_on.gif" align="absbottom"> Xbox
to be continued... hehehe<select name="platform[]" style="font-face: verdana; font-size: 9px">
<option></option>
<option value="15">3DO</option>
<option value="1042">Adventurevision</option>
..snipped because of length..
<option value="23">WonderSwan Color</option>
<option value="1027">Zodiac</option>
Easy to do, look at the earthcal.tcl script I just did, it uses index numbers from the remote website as well. Just make a list with the name:number and then a small search proc to look up the corresponding number for a particular name..speechles wrote: the problem with this, is gamespot uses forms on this search page, and each system isn't simply 'GBA' for gameboy advance, 'XBOX' for xbox.. its some cryptic number..
Code: Select all
# define:
} elseif {[string match "define:*" $input] == 1} {
regexp -- {<li>(.+?)(?=\s*<li>|<br>).*<a href.*(http.+?)">} $html - desc link
regsub -- {<li>(.+?)(?=\s*<li>|<br>)} $html {} html
regsub -all -- {\+} $input {%2B} define_input
regsub -all -- { } $define_input {+} define_input
if {[info exists link] == 1} {
regsub -all " " $link "%20" link
regexp -- {(.+?)\&sig=} $link - link
regexp -- {(.+?)\&usg=} $link - link
append link " ( http://www.google.com/search?hl=${incith::google::language}&q=${define_input} )"
}
Code: Select all
# define:
} elseif {[string match "define:*" $input] == 1} {
regexp -- {<li>(.+?)(?=\s*<li>|<br>).*<a href} $html - desc
regsub -- {<li>(.+?)(?=\s*<li>|<br>)} $html {} html
regsub -all -- {\+} $input {%2B} define_input
regsub -all -- { } $define_input {+} define_input
set link ""