PHP Code:
Program WillowChopper;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include srl/srl/skill/woodcutting.scar}
const
SmartWorld = 152;//World to load.
Members = False;//Members?
SignedClient = True;//Used signed client?
HighDetail = False;//Use high detail?
willowcolor1= 4683362;
willowcolor2= 2444868;
logcolor1= 1325891;
logcolor2= 1391941;
var
x, y, i, logsdropped, PlayerStart, abt: integer;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters of your username, no caps or first letter
Players[0].Active := true; //Active or not
end;
procedure cuttwillow;
begin
if(FindObjCustom(x, y, ['hop', 'dow'], [willowcolor1, willowcolor2], 7))then
begin
case (Random(2)) of
0: begin
Mouse(x, y, 4, 4,false);
wait(300+random(200)); //- it can take some time for rs to show the option menu
ChooseOption('hop');
wait(5000+random(800));
end;
1: begin
Mouse(x, y, 4, 4, True);
wait(5000+random(800));
end;
end;
end;
end;
Procedure AntiRandoms;
var
i : Integer;
Begin
if (not(loggedin)) then exit;
for i := 0 to 3 do
FindNormalRandoms;
FindNonInventoryRandoms;
wait(1)
end;
procedure proggy;
begin
addtoreport('********m4r1us willow power chopper********');
addtoreport('*******************************************');
addtoreport('Time Ran: '+timerunning+'');
addtoreport('Logs Chopped: ' + IntToStr(LogsDropped) + '');
addtoreport('*******************************************');
addtoreport('*****THANKS FOR USING MY FIRST SCRIPT******');
end;
Procedure Droplogs;
begin
if (invfull) then
for i := 2 to 28 do
dropItem(i);
end;
procedure antiban;
var
noban: Integer;
Begin
If Not (LoggedIn) Then Exit;
noban := Random(25);
Case noban Of
0, 9, 17, 23: PickUpMouse;
1, 13, 16: RandomRclick;
2, 10, 18, 22, 24: randomMovement;
//4, 12, 19: Almostlogout;
5, 11, 8: ChooseOption('cancel');
6, 15, 21: MMouse(Random(MSX2), Random(MSY2), 0, 0);
7, 14, 3: HoverSkill('woodcutting', false);
end;
abt:=0;
end;
begin
Smart_Server := SmartWorld;
Smart_Members := Members;
Smart_Signed := SignedClient;
Smart_SuperDetail := HighDetail;
SetupSRL;
declareplayers;
cleardebug;
activateclient;
if(not(loggedin))then
Loginplayer;
wait(2500+random(800));
makecompass('n');
setangle(true);
MarkTime(PlayerStart);
repeat
repeat
cuttwillow;
AntiRandoms;
antiban;
until(InvFull)
Droplogs;
proggy;
until (False)
end.