Untitled diff
建立於 差異永不過期
function getItemPrice(itemString: string; priceType: integer): integer;
function getItemPrice(itemString: string; priceType: integer): integer;
var
var
wikiaPage, priceString: string;
wikiaPage, priceString: string;
begin
begin
wikiaPage := getPage('http://runescape.wikia.com/wiki/Exchange:' + itemString);
wikiaPage := getPage('http://runescape.wikia.com/wiki/Exchange:' + itemString);
case priceType of
case priceType of
1: priceString := between('GEPrice">', '</span>', wikiaPage);
1: priceString := between('GEPrice">', '</span>', wikiaPage);
2: priceString := between('<b>Low Alchemy:</b> ', '</li>', wikiaPage);
2: priceString := between('<b>Low Alchemy:</b> ', '</li>', wikiaPage);
3: priceString := between('<b>High Alchemy:</b> ', '</li>', wikiaPage);
3: priceString := between('<b>High Alchemy:</b> ', '</li>', wikiaPage);
end;
end;
result := strToIntDef(ExtractFromStr(priceString, numbers), -1);
result := strToIntDef(ExtractFromStr(priceString, numbers), -1);
end;
end;