From: N1ke!
Use misc/buysell.scar with GetAmount from Amount.scar
and you got your finding ;)
var
SMLB: TPoint;
begin
SetUpSRL;
Wait(1000 + Random(1000));
WriteLn(BoolToStr(ShopScreen));
SMLB := ShopItemCoords(2);
WriteLn(IntToStr(SMLB.X) + ', ' + IntToStr(SMLB.Y));
WriteLn(IntToStr(GetAmount(SMLB.X, SMLB.Y)));
ShopItemCoords works, but GetAmount returns 0 or 1 for 0, and infinite, and it also returns only the furthest right digit of 2 or more digited numbers.
Anyone want to help me fix GetAmount or come up with another way?
Haven't tested reflection yet, doing that now.
Edit: ShopItemCoords only works for the first two rows:
{.Include SRL\SRL.SCAR}
{.Include SRL\SRL\Misc\BuySell.SCAR}
var
I: Byte;
P: TPoint;
begin
SetUpSRL;
for I := 1 to 50 do
begin
P := ShopItemCoords(I);
MMouse(P.X, P.Y, 2, 2);
Wait(1000 + Random(500));
end;
end.
Edit: Actually ShopItemCoords works fine.
GetAmount is skipping the first digit though.