SRL Archive - Help and Support

Procedure PickUp;
var
  Iteems : array of TGroundItem;
  a, b : integer;
begin
  FindGroundItems(Iteems, [806, 807, 808, 809, 810, 403], 3);
  b := GetArrayLength(Iteems);
  For a:= 0 to High(b)do
  begin
    Mouse(Iteems[a].MS.x, Iteems[a].MS.y, 2, 2, False);  <--- Line 147
    If Not ChooseOption('art')Then
    ChooseOption('idible');
  end;
end;

[Runtime Error] : Out Of Range in line 147 in script C:\Program\SCAR 3.15\Scripts\Anti-Crab0,39.scar

Its a pain :D

From: N1ke!

Procedure PickUp;
var
  Iteems : array of TGroundItem;
  a, b : integer;
begin
  FindGroundItems(Iteems, [806, 807, 808, 809, 810, 403], 3);
  b := GetArrayLength(Iteems);
  For a:= 0 to High(b)do
  begin
    Mouse(Iteems[a].MS.x, Iteems[a].MS.y, 2, 2, False);
    If Not ChooseOption('art')Then
    ChooseOption('idible');
  end;
end;

[Runtime Error] : Out Of Range in line 147 in script C:\Program\SCAR 3.15\Scripts\Anti-Crab0,39.scar

Its a pain :D

What's line 147? Also, why do you assign the array length to b then use High? Just do High(Iteems) and go from there.

Line 147 is marked out now…

Look for <— line 147 :)

Can you post the TGroundItem type?

Are you to lazy to go to Reflections, Items.scar ? or you didnt know it was there?

Type
  TGroundItem = Record
    MS, Tile: TPoint;
    ID, StackSize: Integer;
  End;

Do you still receive the error if you run it with my changes?

Works now, Thank you method :)

u cant use chooseoption like that, you would have to right click again, because chooseoption moves the mouse away so the chooseoption box dissapears…

why are you using High(b), b is an integer, just use b - 1 or b or whatever you need