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}
const
TreeColor= 4024416; //Color of tree
////////////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'); // N, E , S, W, (North, East, South, West)
Wait(8500 + random(3500));
RunBack;
end;
Wait(10);
FindTalk;
end;
////////////////Finding Tree/////////////////
Procedure FindTree;
begin;
if FindColor(x,y,TreeColor,0,0,765,500) then
Wait(10000+random(234))
Mouse(x,y,10,13,true)
end;
begin
repeat
FindTree;
TheAntiRandoms;
until (InventoryFull);
if (InventoryFull) then
DropTo(2,28)
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;
///////////////Axe Head Colors//////////////
Procedure FindAxeHeadColors;
begin
Gametab(4)
FindAxeHeadColor;
end;
//////////////Find AXe HEad/////////////////////////
Procedure FindAxe;
begin
wait(50+random(33)
Findaxe;
end;
/////////////////Progress///////////////////
Procedure Progress;
StartXP := GetXp('Woodcutting')
StartDropping;
EndXP := GetXp('Woodcutting')
TotalLogs := TotalLogs + DroppedLogsCount
TotalXP := (EndXP - StartXP) + (TotalXP)
ProgressReport;
end;
//////////////////Progress Report////////////////////
Procedure ProgressReport;
Begin
SRLRandomsReport;
WriteLn('[>-----------------------Rayz Report-----------------------<]')
WriteLn('[>Script Time: ' + (TimeRunning) + '')
WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) + '')
WriteLn('[>XP Gained: ' + IntToStr (TotalXP) + '')
WriteLn('[>----------------------------------------------------------<]')
end;
//////////////////MainLoop////////////////////// Credits To Fugate
begin
SetupSrl;
DeclarePlayers;
SetRun;
FindAxeHeadcolors;
repeat
ProgressReport;
FindTree;
loginplayer;
FindAxe;
until(false)
end.