theres alot of improvements to be made.
first:
Simba Code:
procedure GotoAltarIcon;
var
Xe ,Ye: Integer;
begin
if FindSymbol(Xe,Ye,'altar') then
begin
getmousepos(xe, ye); //REMOVE THIS?? you will never click the symbol.
Mouse(Xe,Ye,4 ,4 ,true);
//add some Flag or FFlag(X) to wait for the "runescape flag" to dissapear.
end;
end;
Simba Code:
procedure BuryBones;
var
invItems: TInvenItemArr;
i :Integer;
begin
try
invItems := GetInventoryArray();
for i := 0 to 28 do
begin
Mouse(invItems[i].centerPoint.x, invItems[i].centerPoint.y, 2, 2, true);
end;
except
finally
begin
BonesBurried:=BonesBurried + 28-InvCount;
EXPGained:=BonesBurried/2*9;
LoadsDone:=BonesBurried/28;
Proggy;
end;
end;
end;
here you should only do 0 to 27; because you only have 28 inventory spots. 0..28 = 29 thus you will get the runtime error, after that u can remove the try except finally. Also add a "Wait" after the Mouse click to make it more humanlike.
secondd: you have alot of try except & finally... why? Why not work out the bugs so u dont need them?
thirdly: i HIGHLY recommend that you read a tutorial on scripting standards. Your code is all over the place.
Anways good job on your first script, although there are alot of improvement that could be done.