SCAR Code:
{ //-------------------------------------------------------------\\
|| INSTRUCTIONS ||
||-------------------------------------------------------------||
|| BY: Kooldude ||
|| ||
|| 1. Axe in first INV slot... ||
|| 2. Drag Crosshair into RS window. ||
|| 3. Hit play and fill out forms. ||
|| 4. AXE HEAD FINDER WILL WORK, Normally :) ||
||-------------------------------------------------------------||
|| INSTRUCTIONS ||
\\-------------------------------------------------------------//
}
program Powercutter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
Startxp, Totallogs, TotalXP,EndXP :integer;
const
TreeColor= 2785392; //Color of tree
IsAxeWeilded = false; // Change to True If Axe Is Weilded
TreeFindTime = 6000; // Time In Miliseconds Till u click next tree
// 1000 MiliSeconds = 1 Second
////////////Declaring PLayers/////////////
Procedure DeclarePlayers;
Begin
HowManyPlayers := 3;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; //3 Lowercase Letters of your username
Players[0].Integer1 := 35; //Loads For Player
Players[0].Boolean1 := False; //Equip Axe?
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Integer1 := 35;
Players[1].Boolean1 := False;
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Integer1 := 35;
Players[2].Boolean1 := False;
Players[2].Active := True;
End;
///////////////Anti Randomz/////////////// Credits to fourscape :)
Procedure TheAntiRandoms;
Begin
Status('Random Check')
FindNormalRandoms;
wait(10)
FindTalk;
wait(10)
if (FindFight) then
begin
Status('Running From a fight.')
RunAwayDirection('E');
Wait(8500 + random(3500));
RunBack;
end;
Wait(10);
FindTalk;
end;
////////////////Finding Tree/////////////////
Procedure FindTree;
begin;
repeat
if FindColor(x,y,TreeColor,0,0,765,500) then
begin
Wait(TreeFindTime)
MMouse(x,y,2,2)
if(IsUpText('Willow'))then
begin
Mouse(x,y,2,2,true)
Writeln('Clicked Tree!')
end;
TheAntiRandoms;
end else
Writeln('Cant Find Willows')
until (InventoryFull);
end;
////////////////////Dropage//////////////////
Procedure Dropage;
begin
if(IsAxeWeilded = true)then
begin
DropAll;
end;
if(IsAxeWeilded = false)then
begin
Dropto(2,28);
end;
end;
/////////////////Ent//////////////////// <--- Credits goto _Charm Willow raper
Function CharmEnt(ex, ey: Integer): Boolean;
Var
Xe, Ye: Integer;
Begin
Status('FindEnt');
If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
Begin
MMouse(Xe, Ye, 5, 5);
Wait(100+Random(50));
End else
Begin
Exit;
End
If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
Begin
If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
(FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
(FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
Begin
EntsAvoided:= EntsAvoided + 1;
Result:= True;
End else
Result:= False;
Exit;
End
End;
//////////////////Progress Report////////////////////
Procedure ProgressReport;
Begin
SRLRandomsReport;
ClearDebug;
WriteLn('[>-----------------------Rayz Report-----------------------<]')
WriteLn('[>Script Time: ' + (TimeRunning) + '')
WriteLn('[>Logs Chopped: ' + IntToStr (Totallogs) + '')
WriteLn('[>XP Gained: ' + IntToStr (TotalXP) + '')
WriteLn('[>----------------------------------------------------------<]')
end;
/////////////////Progress///////////////////
Procedure Progress;
begin
StartXP := GetXp('Woodcutting')
EndXP := GetXp('Woodcutting')
TotalXP := (EndXP - StartXP) + (TotalXP)
ProgressReport;
end;
//////////////////MainLoop////////////////////// Credits To Fugate
begin
SetupSrl;
DeclarePlayers;
Totallogs:= 0;
If (Not(LoggedIn)) then LoginPlayer;
FindAxeHeadColor;
repeat
If (Not(LoggedIn)) then LoginPlayer;
ProgressReport;
Progress;
FindTree;
Dropage;
loginplayer;
until(false)
end.