Ok so i have been trying to make my first scirpt for the ... too many count ive try so many times and given up.
I am new to everything coding but have come up with this and i belive i am using the arrays wrong. I get
Code:
Error: Out Of Range at line 164
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]
File[C:\Simba\Includes\SRL/logs/SRL log 15-02-11 0.txt] has not been freed in the script, freeing it now.
Simba Code:
Function MineRock:Boolean;
Var TheRocks,Part1,Part2,Part3:TRSObjectArray;
I,x,y :Integer;
RockTest:TRSObject;
XPoint :TPoint;
Begin
If Not LoggedIn Then Exit;
Part1 := GetObjectsByID(5770,0,30);
Part2 := GetObjectsByID(5771,0,30);
Part3 := GetObjectsByID(5772,0,30);
SetArrayLength(TheRocks,High(Part1));
For I := 0 To High(Part1) Do
TheRocks[I] := Part1[I];
SetArrayLength(TheRocks,(High(TheRocks)+High(Part2)));
For I := 0 To High(Part2) Do
TheRocks[(I+High(Part1))] := Part2[I];
SetArrayLength(TheRocks,(High(TheRocks)+High(Part3)));
For I := 0 To High(Part3) Do
TheRocks[(I+High(Part1)+High(Part2))] := Part3[I];
SortObjects(TheRocks);
For I := 0 To High(TheRocks) Do
Begin
If CheckRock(TheRocks[I].Tile) Then
If Not TileOnMS(Therocks[I].Tile,0) Then
If TileOnMM(TheRocks[I].Tile) Then
WalkToTile(TheRocks[I].Tile,3,4); //failsafe bit
If TileOnMS(Therocks[I].Tile,0) Then // just to check after walking
Begin
RockTest := GetObjectAt(TheRocks[I].Tile,0);
If (RockTest.ID = 5770) Or (RockTest.ID = 5771) Or (RockTest.ID = 5772) Then
XPoint := TileToPoint(RockTest.Tile);
MMouse(XPoint.x,XPoint.y,3,3);
If R_IsUpText('Mine Rocks') Then
Begin
GetMousePos(x,y);
If (Random(100) = 5) Then
Begin
Mouse(x,y,0,0,False);
R_ChooseOption('Mine Rocks');
Wait(RandomRange(400,1200));
If Not IsIdle Then
Begin
Result := True
writeln('minning rock');
Exit;
End;
End Else Begin
Mouse(X,Y,0,0,True);
Wait(RandomRange(400,1200));
If Not IsIdle Then
Begin
Result := True
writeln('minning rock');
Exit;
End;
End
End;
End;
End;
End;
and the line is
Thanks and sorry for posting so many questions and threads