SCAR Code:
/////////////////////////////////////////////////////////////////////
// ________ //
// ____ ____ / _____/ //
// / \ / __ \/ \ ___ //
// | | \| ___/\ \_\ \ //
// |___| / \___ >\______ / //
// \/ \/ \/ //
// V. BETA 1 //
/////////////////////////////////////////////////////////////////////
// This is my frist ever script. //
// Special thanks to the SRL-forums //
// And to everyone that helped me there //
// srl-forums.com //
/////////////////////////////////////////////////////////////////////
program agilrun;
{.include SRL/SRL.scar}
{
Very-Bright
Start just north of the log
(on the agility symboy works :D)
To-Do List
*Auto-Login
*Fix the Level-Up bug
*Anti-Ban
*Make "NumberOfLapsToDo" feature
}
const // Change colours here if you wish, should work as is tho.
LogColor = 9794;
NetColor = 6385808;
BranchColor = 3959683;
RopeColor = 5997215;
TreeColor = 3167850;
Net2Color = 5730440;
PipeColor = 7436416;
var
Laps:integer;
rx, ry:integer;
procedure FindLog; //Log Procedure.
begin
repeat
Status('Searching for Log');
wait(50);
FindObjMultiText(x,y,'ross','ross','ross',LogColor,4);
wait(300+(200));
MMouse(x,y,2,2);
until(IsUpText('ross'));
if(IsUpText('ross'))then
begin
Status('Found Log');
Mouse(x,y,2,2,true);
LowestAngle;
end
begin
repeat
wait(50);
Status('Waiting to cross the log...');
until(InChat('ou make it safely to the other side'));
end;
end;
procedure FindNet; //Find Net.
begin
repeat
FindObjMultiText(x,y,'limb','limb','limb',NetColor,4)
wait(300+(200))
MMouse(x,y,2,2);
until(IsUpText('limb'));
if(IsUpText('limb'))then
Mouse(x,y,2,2,true)
else
FindNet;
begin
repeat
wait(50);
Status('Climbing the netting...')
until(InChat('climb the netting'))
wait(1500+(700))
HighestAngle;
end;
end;
procedure FindBranch; //Find Branch.
begin
repeat
FindObjMultiText(x,y,'limb','limb','limb',BranchColor,4)
wait(300+(200))
MMouse(x,y,2,2);
until(IsUpText('limb'));
if(IsUpText('limb'))then
Mouse(x,y,2,2,true)
else
FindBranch;
begin
repeat
wait(50);
Status('Climbing the Branch...')
until(InChat('the platform above'))
end;
end;
procedure FindRope; //Find Rope.
begin
repeat
FindObjMultiText(x,y,'alan','alan','alan',RopeColor,4)
wait(300+(200))
MMouse(x,y,1,1);
until(IsUpText('alan'));
if(IsUpText('alan'))then
Mouse(x,y,1,1,true)
else
FindRope;
begin
repeat
wait(50);
Status('Crossing Rope')
until(InChat('carefully cross the'))
end;
wait(5000+(1000))
end;
procedure FindTree; //Find Tree.
begin
repeat
FindObjMultiText(x,y,'down','down','down',TreeColor,4)
wait(300+(200))
MMouse(x,y,2,2);
until(IsUpText('down'));
if(IsUpText('down'))then
Mouse(x,y,2,2,true)
else
FindTree;
begin
repeat
wait(50);
Status('Climbing down tree')
until(InChat('ou land on the'))
end;
LowestAngle;
end;
procedure FindNet2; //Find Second Net.
begin
repeat
FindObjMultiText(x,y,'limb','limb','limb',Net2Color,4)
wait(300+(200))
MMouse(x,y,2,2);
until(IsUpText('limb'));
if(IsUpText('limb'))then
Mouse(x,y,2,2,true)
else
FindNet2;
begin
repeat
wait(50);
Status('Climbing Over Netting..')
until(InChat('climb the'))
end;
HighestAngle;
wait(3000+(900))
end;
procedure FindPipe; //Find Pipe.
begin
repeat
FindObjMultiText(x,y,'queeze','queeze','queeze',PipeColor,4)
wait(300+(200))
MMouse(x,y,2,2);
until(IsUpText('queeze'));
if(IsUpText('queeze'))then
Mouse(x,y,2,2,true)
else
FindPipe;
begin
if (InChat('pipe is')) then
begin
Status('Waiting for that fat bastard to get out of our pipe')
wait(5000+(1000))
FindPipe
end
else
begin
wait(10000+(1000))
end;
end;
end;
procedure FindAgility;
begin
GetSymbolColor(rx,ry,'agility');
Mouse(rx,ry,2,2,true);
Laps:= Laps + 1;
if FlagPresent then wait(3000+(1000))
else FindAgility;
end;
//PROGRESS REPORT//
procedure ProgressReport;
begin
ClearDebug;
WriteLn('/////////////////////');
WriteLn('// PROGRESS REPORT //');
WriteLn('// //');
WriteLn('// Laps = ' + IntToStr(Laps) + '');
WriteLn('// Made by neG //');
WriteLn('/////////////////////');
end;
//MAIN LOOP//
begin
Setupsrl;
ActivateClient;
SetRun(true);
repeat
ProgressReport;
FindLog;
FindNet;
FindBranch;
FindRope;
FindTree;
FindNet2;
FindPipe;
FindAgility;
until(false)
end.