i aint looked thought your script yet will do that now but
try this
EXPG:Extended;
instead of
EXPG:integer;
compare this procedure with your own
Simba Code:
procedure FindBones;
var
Xi, Yi, X1, Y1, X2, Y2: Integer;
begin
repeat
Writeln('Checking for bones');
if FindObjEx(Xi, Yi, ['ake', 'ke'], BoneColours, 3, 50, 1, 5, 689, 390) then
begin
GetMousePos(Xi, Yi);
Mouse(Xi, Yi, 0, 0, false);
if WaitOptionMulti(['ake Bone', 'ake B'], 200) then
begin
LootCount := LootCount + 1;
writeln('looted bones')
end;
while IsMoving do
begin
Wait(250);
antiban;
end;
until(invfull)
end;
end;
For this to run change your main loop
Simba Code:
begin
Smart_Server := 69;
Smart_Members:= false;
Smart_Signed := false;
Smart_SuperDetail := false;
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
BoneColours:= [12303812, 14408933, 13685209, 13553880, 15000804]
Repeat
Antiban;
AntiRandoms;
FindBones;
antiban;
Bury;
ProggReport;
until ( Not LoggedIn);
end.