SCAR Code:
[COLOR=#0000ff][/COLOR]program ProjectS;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//-->Loads<--\\
Loads = 10; //How many loads per player before switching
//--->SRL ID<---\\
YourSRLId = '5840';
YourSRLPassword ='234324';
//--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
YourPin = '';
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := 'm';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
{----------------------------Do Not Edit Below This----------------------------}
var x, y, LoadsNum, LoadsNum2: integer;
//-----------------------------AntiRandoms/AntiBan----------------------------\\
Procedure AntiRandoms;
begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Woodcutting');
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
6: DoEmote(400 +Random(90));
end;
end;
//---------------------------------ChopTree-----------------------------------\\
procedure ChopTree;
var CuttingTime: integer;
Tries: integer;
begin
MarkTime(CuttingTime);
MakeCompass('S');
repeat
if FindObjCustom(x, y, ['Map', 'le'], [2571369, 2510441, 2175574], 7) then
begin
Mouse(x,y,0,0,false);
if(IsUpText('Chop'))then
Wait(5000 + (random(150)));
ChooseOption('hop')
AntiBan;
if (not (FindObjCustom(x, y, ['Map', 'le'], [2571369, 2510441, 2175574], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln ('Maple Logs not found. Switching Players..');
Logout;
NextPlayer(False);
Exit;
end;
end;
until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
end;
//----------------------Walking from maples to Bank--------------------------\\
procedure WalkToBank;
begin
if (not(LoggedIn)) then
Exit;
SymbolAccuracy:= 0.2;
MakeCompass('N');
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Got to bank');
end;
end;
//--------------------------------Banking-------------------------------------\\
procedure Banking;
begin
if (InvFull) then
begin
MakeCompass('W')
Wait (300 + random(160));
OpenBankQuiet('Cy');
if (PinScreen) then
InPin(YourPin);
if(FindColorSpiral(x, y, 2175574, 635, 72, 734, 464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
begin
LoadsNum := LoadsNum + 1;
LoadsNum2 := LoadsNum2 + 1;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
end;
end;
CloseBank;
Wait(150 + random (278));
MakeCompass('S');
end;
end;
//Willows to Bank\\
procedure WalkToMaple;
begin
if (FindSymbol(x, y, 'tree')) then
begin
Mouse(x, y, 26, 150, true);
FFlag(0);
Writeln('Got to Maples');
end;
end;
//SetupScript\\
procedure SetupScript;
begin
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
SetupSRL;
ScriptID:= '687';
DeclarePlayers;
end;
//THE MAIN LOOPAGE!\\
begin
SetupScript;
repeat
WalkToMaple;
ChopTree;
AntiBan;
WalkToBank;
Banking;
if (LoadsNum2=Loads) then
begin
NextPlayer(True);
LoadsNum2 := 0;
MakeCompass('S')
Writeln('Players Switched successfully')
end;
until (false)
end.