SCAR Code:
program NCDSBakeStallPowerThieve;
{.include srl/srl.scar}
{
Find instructions and INFO at SRL-FORUMS.COM
}
const
DirectionToRun = 'S' ;
var
x , y : integer;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
Procedure FindStall;
begin
If FindObjCustom(x,y,['aker','Bake','tall','all','Stal'],[9677753,9085358,8690343,9282738,9019309,9940668],5)then
begin
MMouse(x , y , 1 , 1);
Wait (100 + random (100));
If (IsUpTextMultiCustom(['aker','Bake','tall','all'])) then
begin
case random(2)of
0 :
begin
Mouse(x, y, 1, 1, True);
wait(1000+random(300));
end;
1 :
begin
Mouse(x, y, 1, 1, False);
wait(300+random(100));
ChooseOption('teal');
end;
end;
end else
begin
writeln('Could Not Find Stall Please Post Error on the Proper Thread');
end;
end;
end;
Procedure DontDie;
begin
if (HpPercent < 25) then
begin
WriteLn('Running so we dont die');
Status('Flee the scene');
RunAway(DirectionToRun,True,1,9000+random(2000));
Logout;
end;
end;
function NInFight: Boolean;
var
x, y : Integer;
begin
Result := (FindColor(x, y, 65280, 242, 142, 283, 158) or
FindColor(x, y, 255, 242, 142, 283, 158));
end;
procedure NAFOutFight;
var
T: integer;
begin
if Players[CurrentPlayer].Booleans[6] then
T := GetSystemTime - 12000
else
T := GetSystemTime;
while not NInFight and (TimeFromMark(T) < 5000) do wait(100);
if NInFight then
begin
Status('Killing monster...');
repeat
Wait(1000+random(300));
DontDie;
If Players[CurrentPlayer].Booleans[0] then
Break;
until(not NInFight) or (not LoggedIn)
Status('');
end else
Wait(300);
end;
Procedure AntiBan;
begin
case random(12) of
0 : TypeSend(AddMistakes('I hate thieving lol its so boring',20));
2 : SleepAndMoveMouse(400+random(200));
4 : DoEmote(3);
6 : BoredHuman ;
8 : HoverSkill('Thieving', False);
10 : RandomRClick ;
12 : PickUpMouse;
end;
end;
Procedure MainLoop;
begin
repeat
FindNormalRandoms;
FindStall;
FindNormalRandoms;
DontDie;
NInFight;
NAFOutFight;
until (InvFull)
DropAll;
Wait (1000+random(500));
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
FindNormalRandoms;
Retaliate(True);
MakeCompass('N');
SetAngle(True);
repeat
MainLoop;
until false;
end.