SCAR Code:
program CamalotWcer;
{.include SRL\SRL.scar}
Var
Loads, fx, fy, Chopped : integer;
Const
Bankpin = ''; // If you got bankpin then put it between the ''
LoadsToDo = 20; // How many loads you want to do ?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Procedure ProgressReport;
Begin
Writeln(' _____________________________________');
Writeln('/ Ran for ' + (TimeRunning) + '');
Writeln('>------------------------------------< ');
Writeln('| Did ' + IntToStr(Loads) + ' Loads');
Writeln('>------------------------------------<');
Writeln('| Cutted ' + IntToStr(Chopped) + ' Logs');
Writeln('>------------------------------------<');
end;
Procedure Setup; // 0
Begin
Wait(200+random(100));
Setrun(True);
Wait(200+random(100));
HighestAngle;
Wait(200+random(100));
MakeCompass('N');
end;
Procedure AntiBanish;
var
DBM : Integer;
Begin
DBM := Random(100);
Case DBM of
0: HoverSkill('Woodcutting', False);
1: MouseSpeed := 9 + Random(3);
3: PickUpMouse;
5: GameTab(2);
8: Setrun(False);
9: Setrun(True);
14: Hoverskill('Random', False);
end;
end;
Procedure B4nk; // 1
Var x, y, ax, ay: integer;
Foundbank : Boolean;
time: Integer;
Begin
MarkTime(time);
Foundbank := False;
Repeat
if FindObjCustom(ax, ay, ['ank'], [8751501, 3370376, 803673], 7) then
begin
GetMousepos(x, y);
FindNormalRandoms;
Mouse(x, y, 1, 1, false);
Chooseoption('kly');
Foundbank := True;
writeln('FoundBank');
Wait(1000+random(1000));
Inpin(Bankpin);
end;
Until (FoundBank = True) or (TimeFromMark(time) > 120000);
end;
Procedure Depos1tAll;
Begin
Fixbank;
wait(1000+random(500));
Deposit(1,1,2);
Closebank;
Wait(1000+random(500));
FindNormalRandoms;
end;
Procedure WillowWalking;
begin
RadialWalk( 6908273, 245, 255, 69, 0, 0);
FindNormalRandoms;
Flag;
RadialWalk( 6908273, 265, 255, 59, 0, 0);
FindNormalRandoms;
Flag;
RadialWalk( 402999, 250, 200, 50, 0, 0);
FindNormalRandoms;
GameTab(4);
Flag;
end;
Procedure WaitWhileWc;
begin
GameTab(4);
Repeat
Wait(400);
FindNormalRandoms;
AntiBanish
MMouse(fx, fy, 0, 0);
until(Not isuptext('Wil')) or (InvFull);
end;
Procedure ChoppAtree;
Var cx, cy : integer;
Begin
Repeat
If FindObjCustom(cx, cy, ['Wil', 'illo', 'llow'], [2637371, 2325097, 3098178, 2448722], 7) then
begin
GetMousePos(fx, fy);
FindNormalRandoms;
MMouse(fx, fy, 0, 0);
If IsUpText('Wil') then
Mouse(fx, fy, 0, 0, true);
FindNormalRandoms;
AntiBanish;
WaitWhileWc;
end;
Until(Invfull);
end;
Procedure WillowWalkBack;
Begin
RadialWalk( 6908273, 40, 45, 59, 0, 0);
Flag;
RadialWalk( 9408666, 35, 111, 65, 0, 0);
Flag;
end;
begin
SetupSrl;
Activateclient;
DeclarePlayers;
if (not (LoggedIn)) then
begin
LoginPlayer;
Setup;
B4nk;
Depos1tAll;
end else
Begin
Setup;
B4nk;
Depos1tAll;
end;
Repeat
if (not (LoggedIn)) then
LoginPlayer;
begin
WillowWalking;
ChoppAtree;
WillowWalkBack;
B4nk;
Depos1tAll;
Chopped:= Chopped+28;
Loads:= Loads+1;
ProgressReport;
end else
TerminateScript;
Until(Loads = LoadsToDo);
end.