SCAR Code:
{=========================================================================]
[ Draynor Willow Smasher ]
[ ]
[ NAME : Draynor Willow Smasher ]
[ WRITER : Rune Killer ]
[ CATEGORY : Woodcutting ]
[ DESCRIPTION : Chops willows in Draynor and banks them ]
[ USAGE : Start in Draynor bank ]
[ AUTOCOLOR : No ]
[ ]
[ More Scripts can be found at ]
[ [url]www.Villu-Reborn.com[/url] ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords ]
[ 4. Start script Logged Out / Logged in ]
[ 5. Have Axe in First inventoryslot or wielded and more in the bank ]
[ 6. Setup lines below ]
[=========================================================================]
[ Credits to : ]
[ WT-Fakawi --> For SRL + FindFastRandoms ]
[=========================================================================}
program Rune_Killers_Draynor_Willow_Smasher;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}
//****************************************************************************\\
// CONSTANTS \\
//****************************************************************************\\
Const
RockColor = 5129539; //Color of the rock on the mini map
WillowColor = 6449256; //Color of the willow
WillowColorB = 2658424; //Diffrent Color of the willow
WillowColorC = 2379840; //Diffrent Color of the willow
WaitTime = 3000; //Time to wait before chopping again (In Miliseconds)
//****************************************************************************\\
// PLAYER SETUP \\
//****************************************************************************\\
Procedure DeclarePlayers;
begin
HowManyPlayers := 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='sern';
Players[0].Active:= True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='sern';
Players[1].Active:= True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='sern';
Players[2].Active:= True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='sern';
Players[3].Active:= True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='sern';
Players[4].Active:= True;
Players[5].Name :='Username';
Players[5].Pass :='Password';
Players[5].Nick :='sern';
Players[5].Active:= True;
end;
//****************************************************************************\\
// LOGIN \\
//****************************************************************************\\
Procedure Login;
begin
if(Not(loggedin))then
LoginPlayer;
end;
//****************************************************************************\\
// FIND FAST RANDOMS By WT-Fawki \\
//****************************************************************************\\
function FindFastRandoms : Boolean;
var i : integer;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
//****************************************************************************\\
// FIND RANDOMS \\
//****************************************************************************\\
Procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
FindTalk;
if(FindEnt(WillowColor))or
(FindEnt(WillowColorB))or
(FindEnt(WillowColorC))then
begin
RunAwayDirection('N');
Flag;
Wait(5000 + random(1500));
RunBack;
end;
end;
//****************************************************************************\\
// FIND THE WILLOWS \\
//****************************************************************************\\
Procedure Find_The_Willows;
var x, y : integer;
begin
If(FindMMColor(x, y, RockColor))then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
Flag;
Wait(200 + random(100));
end;
end;
//****************************************************************************\\
// FIND FISH SYMBOL \\
//****************************************************************************\\
Procedure Find_Fish_Symbol;
var x, y : integer;
begin
if(FindSymbol(x, y, 'fish'))then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
Flag;
Wait(500 + random(150));
end;
end;
//****************************************************************************\\
// CHOP THEM WILLOWS! \\
//****************************************************************************\\
Procedure Chop;
var x, y : integer;
Chopped : integer;
begin
repeat
If(FindColorSpiralTolerance(x, y, WillowColor, 160, 97, 516, 209, 3))or
(FindColorSpiralTolerance(x, y, WillowColorB, 160, 97, 516, 209, 3))or
(FindColorSpiralTolerance(x, y, WillowColorC, 160, 97, 516, 209, 3))then
begin
MMouse(x, y, 1, 1);
If(IsUpText('hop'))then
begin
Mouse(x, y, 1, 1, true);
Wait(WaitTime +Random(500));
FindRandoms;
Chopped:= Chopped + 27;
end;
end;
until(InvFull)
end;
//****************************************************************************\\
// FIND BANK SYMBOL \\
//****************************************************************************\\
Procedure Find_Bank;
var x, y : integer;
begin
if(FindSymbol(x, y, 'bank'))then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
Flag;
Wait(200 + random(100));
end;
end;
//****************************************************************************\\
// BANK THEM WILLOWS! \\
//****************************************************************************\\
Procedure bank_Willows;
begin
OpenBank;
FixBank;
DepositAll;
CloseBank;
Wait(3000 + Random(300));
MakeCompass('N');
end;
//****************************************************************************\\
// PROGRESS REPORT \\
//****************************************************************************\\
Procedure Progress_Report;
begin
Writeln('Thanks For Using:');
Writeln('Rune Killers Willow Chopper And Banker');
Writeln('Worked For:' +ScriptTime2(2));
Writeln('Chopped' +IntToStr(Chopped) +'willows');
end;
//****************************************************************************\\
// MAIN LOOP \\
//****************************************************************************\\
begin
SetUpSRL;
DeclarePlayers;
Login;
DisguiseScar('MSN Messenger');
repeat
FindRandoms;
Find_The_Willows;
Find_Fish_Symbol;
Chop;
Find_Bank;
Bank_Willows;
Progress_Report;
Until(False);
end.