
Originally Posted by
Kasi
your basically saying the interpreter is wrong lol, ps is procedural. the error will be in ss_InvCount. if you loaded a bmp in that func.
Nope it's just:
Simba Code:
{
Written by: Danny RS
}
function ss_ItemExists(SlotToCheck: Integer): Boolean;
Var
xsx,ysy,x,y,R,C:Integer;
begin
SlotToCheck:=SlotToCheck-1;
xsx:=580;
ysy:=230;
C:=(Round(SlotToCheck/4));
R:=(SlotToCheck -(C*4));
If FindColor(x, y, 65536, xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25) Then
begin
Result:=True;
end;
end;
function ss_invcount():Integer;
var
i:Integer;
begin
Result := 0;
for i:=1 to 28 do
if ss_itemexists(i)
then Inc(Result);
end;
Same as the unofficial P07 include