Very nice form! I really like how easy it is to choose between members and free items.
Here's a quick edit to the DoiT procedure to add multiple pages :D
[PHP]Procedure DoiT;
var
i, pages: integer;
new: String;
Begin
If RadioButton1.Checked Then Opt := 'no' Else
If RadioButton2.Checked Then Opt := 'yes' Else
Opt := '';
ProgressBar1.Position := 10 + Random(10);
Site := GetPage('
http://itemdb-rs.runescape.com/results.ws?query='+Edit1.Text+'&Price='+Price+'&members='+Opt);
pages := ceil(strtoint(GetNumbers(Between('<div id="search_results_text">', 'items matched', Site)))/20);
if(pages > 1) then
begin
New := Between('<tbody>', '</tbody>', Site);
for i:= 2 to pages do
begin
New := New + Between('<tbody>', '</tbody>', GetPage('
http://itemdb-rs.runescape.com/results.ws?page='+inttostr(i)+'&query='+Edit1.Text+'&Price='+Price+'&members='+Opt));
end;
Site := '<th>Relevance</th>'+New+'</tbody>';
end;
ProgressBar1.Position := 50 + Random(40);
Wait(200);
ProgressBar1.Position := 100;
ProgressBar1.Position := 0;
End;[/PHP]