This is my first attempt at a script and i am having some trouble so i would really apreciate help. It pickpockets just fine right now, the eating part doesnt seem to work please help!
Simba Code:
program BlooopasGaurdThief;
//{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure Antiban;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(30) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
13:
begin
HoverSkill('Thieving', False);
wait(2000+Random(400));
end;
17:
PickUpMouse;
23:
begin
MakeCompass('N');
wait(100+random(133));
end;
end;
end;
procedure Stealing;
var x, y: integer;
begin
repeat
FindNormalRandoms;
Antiban;
if FindObj(x, y, 'uard', 13161169, 20) then
begin
Mouse(x,y,5,5,false);
ChooseOption('ickpocket');
wait(1000+random(500));
WriteLn('Found guard!');
end;
Until(false)
end;
Procedure Eat;
var
x, y: Integer;
Begin
Repeat
FindNormalRandoms;
Antiban;
if (HPPercent<50) then
FindObj(x, y, 'rout', 7830154, 35);
Begin
Mouse(x,y,5,5,false);
ChooseOption('at');
wait(200+random(100));
end;
Until(HPPercent>70)
End;
begin
SetUpSRL;
//ActivateClient;
//DeclarePlayers;
//LoginPlayer;
Stealing;
Eat;
end.
Thank you for ur time!!