Well here's the AmounBmp
SCAR Code:
function AmountBmp(area: string; itembmp, tol: Integer): Integer;
//counts stacks
var
coords: TPointArray;
i: Integer;
begin
Result := 0;
coords := ItemCoordsBmp(area, itembmp, tol);
for i := 0 to GetArrayLength(coords) - 1 do
Result := Result + GetAmount(coords[i].x, coords[i].y);
end;
and here's GetAmount
SCAR Code:
function GetAmount(itemx, itemy: Integer): Integer;
//uses font cropped to work with "Opponent's Offer"
//font is identical except 2 pixels shorter
//coords are ones from istextinarea
//'K' and 'M' work :)
//non-stackable =1
//blank = 0
var
amountstr: string;
tempx, tempy: Integer;
begin
if (not (tradecharsloaded)) then
begin
tradechars := LoadChars2(AppPath + 'includes\SRL\CharsTrade\');
tradecharsloaded := True;
Wait(2);
end;
amountstr := Trim(GetTextAtEx(itemx, itemy + 4, 0, tradeChars, False, False,
0, 2, 65535, 5, True, tr_AlphaNumericChars));
if (Length(amountstr) > 0) then
begin
if (Pos('K', amountstr) > 0) then
begin
Delete(amountstr, Length(amountstr), Length(amountstr));
Result := StrToInt(amountstr) * 1000;
end else
if (Pos('M', amountstr) > 0) then
begin
Delete(amountstr, Length(amountstr), Length(amountstr));
Result := StrToInt(amountstr) * 1000000;
end else
Result := StrToInt(amountstr);
end else
if (FindColor(tempx, tempy, 65536, itemx, itemy, itemx + 30, itemy + 30))
then
Result := 1;
end;
I just can't understand this yet,
. Help please 
EDIT: Been waiting for 7 days - Heelp!