SCAR Code:
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
Draynor Willow Crusher & Banker
By Torrent of Flame
Scar 3.14 SRL 4.0 Rev 14
Version 1.0
Chops Willows at Draynor and Banks them
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
Colour Pick Willows at lines 28-30
How Many Loads at line 37
Setup Players at lines 47-55
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
No AntiBan or AntiRandoms!!
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program WillowCrusher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//------------------------Setup----------------------\\
//-->Willow Colours<--\\
WillowColour = 0; //Colour of Willow
WillowColour2 = 0; //Another Willow Colour
WillowColour3 = 0; //A third Willow Colour
//-->Loads<--\\
Loads = 0; //How many loads per player before switching
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 2; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := '3-4 letters of Username';
Players[0].Active := True;
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of Username';
Players[1].Active := True;
end;
{----------------------------Do Not Edit Below This----------------------------}
//Dont Touch These\\
var LoadsNum: integer; DBankColour: integer; MMFishLogo, MMFishLogoColour: integer;
BankLogo, LoadsNum2 , Tries ,x, y: integer;
//Signature\\
procedure signature;
begin
ClearDebug;
wait(250 + random(30));
writeln(' Torrents Willow Crusher&Banker ');
wait(250 + random(30));
writeln(' _____ _ ');
wait(250 + random(30));
writeln('(_ _) ( )_ ');
wait(250 + random(30));
writeln(' | | _ _ __ _ __ __ ___ | ,_)');
wait(250 + random(30));
writeln(' | | / _`\ ( "__)( "__)/"__`\/" _ `\| | ');
wait(250 + random(30));
writeln(' | |( (_) )| | | | ( ___/| ( ) || |_ ');
wait(250 + random(30));
writeln(' (_)`\___/ (_) (_) `\____)(_) (_) \__)');
wait(500 + random(30));
end;
//Torrent Proggy\\
procedure ToFProggy;
begin
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\Please Post Progress Reports & Any problems /\ ');
Writeln('/\ From Wherever you got the script /\ ');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\Worked For: ' + TimeRunning + ' //\\');
Writeln('//\\Did: ' + IntToStr(LoadsNum)+ ' Loads //\\');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\ Thanks for Using my Script :D //\\ ');
Writeln('```````````````````````````````````````````````');
end;
//Walking to Willows from BANK\\
procedure WalkToWillows;
begin
MakeCompass('N');
MMFishLogo := BitmapFromString(15, 15, 'beNqV0kEOQEAMBdDWxh' +
'mcxAUcx21szSnYsnMJVxGJmkbz02Eymr8w9YwMJXLFULKij1IwLSs' +
'mek6lY5j4liLpfDlG2WynpOoPZLbEQymzIB5CcFiacu08j3OKud01' +
'Jq0jSXfGu5KuDmIcxjPiVhpt3k+9fTozGMS//mBmNp6Jyo0TDB7UB' +
'cUdAQU');
MMFishLogoColour :=AutoColorThis(MMFishLogo, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(MMFishLogoColour, 10, 200, 210, 3, 3)
wait(5000 + random(2000));
Flag;
Wait(300 + random(100));
Tries := 0;
repeat
if (Tries = 50) then
begin
Writeln('Couldnt find willows, terminating script');
TerminateScript;
end;
wait(400 + random(200));
Tries := Tries + 1;
until (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
(FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
(FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4));
end;
//Chopping The Willows\\
function ChopTree: Boolean;
begin
repeat
if (not (LoggedIn)) then
Exit;
if (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
(FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
(FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4)) then
begin
MMouse(x, y, 4, 4);
if (IsUpText('illow')) then
begin
Mouse(x, y, 2, 2, true);
repeat
if (InvFull) or (clicktocontinue) then
Exit;
until(not (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
(not (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
(not (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4)));
repeat
if (InvFull) or (PopUp ('ontinue')) then
Exit;
wait(700 + random(230));
end;
end;
until (InvFull);
end;
//Walking to Bank from Willows\\
procedure WalkToBank;
begin
if (InvFull) then
begin
MakeCompass('S');
BankLogo := BitmapFromString(10, 8, 'beNqLjUuNHUkIAF3mWgE')
if(not (FindBitmap(BankLogo, x, y))) then
begin
Mouse(627, 888, 8 , 8, true);
Flag;
end;
DBankColour := AutoColorThis(BankLogo, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(DBankColour, 210, 10, 200, 3, 3);
Flag;
Wait(200 + random(150));
end;
end;
//Banking the Willows\\
function Banking: Boolean;
begin
if (InvFull) then
begin
Willow := DTMFromString('78DA73FCC4C4C0D0C9C8800A1819FE8349068' +
'9FF40C0C8C08C550D8204D2AC40395308A86104AA994940CD87A0' +
'8BE61050F31AA8A68F0845B3F0AB010040990CF0');
Make Compass('N')
Wait (300 + random(160));
OpenBankQuiet('db');
Flag;
wait(500 + random(267));
FixBank;
if (FindDTM(Willow, x, y, 561, 210, 750, 464)) then
begin
Mouse(x, y, 4, 3, false);
ChoseOption(x,y, 'All');
Result := True;
if (Result := True;) then
begin
LoadsNum := LoadsNum + 1;
LoadsNum2 := LoadsNum2 + 1;
end;
end;
CloseBank;
Wait(150 + random (278));
MakeCompass('S');
end;
end;
//----Main Loop----\\
procedure ScriptSetup;
begin
Signature
SetupSRL;
DeclarePlayers;
end;
//\\//\\
begin
SetupScript;
repeat
WalkToWillows;
ChopTree;
WalkToBank;
Banking;
if (LoadsNum2=Loads) then
begin
NextPlayer(Active);
LoadsNum2 := 0;
MakeCompass('S');
Writeln('Players sucessfully Switched')
end;
TofProggy;
until(False);
end.
{Many Thanks to JAD for his Breakdown of scripts, Yohojo for his DTM tut and
to anyone who helped my many errors and problems during this script!}
It still doesn't compile, but i fixed like 5 errors, BTW