When I run;
Simba Code:
program New;
{$i srl/srl.scar}
{$i sps/sps.simba}
Var
ToOb: TPointArray;
Procedure TeletoBank;
Begin;
End;
Procedure WalkingToOb;
Begin
if (LoggedIn) then
begin
SPS_Setup(RUNESCAPE_SURFACE,['9_7','8_7']);
ToOb := [Point(3700, 3080), Point(3694, 3014),
Point(3652, 2970), Point(3631, 2927),
Point(3623, 2868), Point(3587, 2850)];
SPS_WalkPath(ToOb);
Wait(RandomRange(300, 400));
If Not (SPS_WalkPath(ToOb)) then
Begin
TeleToBank;
WalkingToOb;
End;
End;
End;
begin
SetupSRL;
WalkingToOb;
end.
It clicks once (hooray) but then the window for Flag shows up and line 24 is highlighted. It then stops and never clicks again.
Simba Code:
Exception: Range check error at line 24
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Line 24 is ifFindBitmapToleranceIn
Simba Code:
Function FindFlag(var X, Y: integer): Boolean;
begin
Result := False;
if FindBitmapToleranceIn(bmpFlag, X, Y, MMX1, MMY1, MMX2, MMY2, 60) then
begin
Result := True;
X := X+4;
Y := Y+9;
end;
end;
Is there something I need to change in find flag ? O_o