Here is one that a member called NexPB made:
Simba Code:
procedure GetPriceGe;
var
url, price, final: String;
begin
Case (Lowercase(Ore)) of
'iron', 'iron ore': oreID := 440;
end;
url := ('http://www.master-bot.org/files/GEPrice.php?id=' + IntToStr(oreID));
price := GetPage(url);
if (orePrice = 0) then
begin
final := Trim(price);
if (final = '') then writeln('FAILED TO GET PRICES! RESTART SCRIPT.');
writeln('Price ore: ' + final);
orePrice := StrToInt(final);
end else
Exit;
end;
I've been given full rights to update his script but have chosen not to, so you can edit that function appropriately.
Just give credit to NexPB