GrandExchange.scar [Small thing]
GEGetMidPrice..
SCAR Code:
{*******************************************************************************
Function GEGetMidPrice(ID: Integer): Integer;
By: N1ke!
Description: Gets the price from [url]www.runescape.com[/url].
ID can be obtained by looking at runescapes grand exchange database link for
the specific item.
*******************************************************************************}
Function GEGetMidPrice(ID: Integer): Integer;
var
Price: String;
I: Integer;
words: array of string;
begin
Price := Between('Market price:</b> ', '<', Getpage('http://itemdb-rs.runescape.com/viewitem.ws?obj=' + IntToStr(ID)));
Words := [#13, #10, ',', ' '];
For I := 0 To high(words) do
Price := Replace(Price, words[I], '');
Result := StrToInt(Price);
end;