Code:
program WillowChopBurn;
{$define srl5}
{$loadlib sps}
//{$define smart}
{$i srl/srl.simba}
{$i sps/sps.simba}
const
BreakEvery = 120; //how many mins to break after
BreakFor = 5; //how many mins to break for
Version = '1.0';
NumOfPlayers = 1; //how many players are you using
StartPlayer = 0; //Player to start autoing with (0 means first char)
Procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(1); //how many players?
CurrentPlayer := StartPlayer;
for i := 0 to 1-1 do //put whatever you put in NumberOfPlayers into x-1
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'cal', 'une', 'oins'];
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := True;
end;
end;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;
Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 1500+Random(500)) Then
begin
Result:=True;
GetMousePos(x, y);
If RClick Then
begin
Mouse(x, y, 0, 0, False);
Result:= WaitOption(Option, 2000);
If Result Then FFlag(0);
end Else
begin
Mouse(x, y, 0, 0, True);
Wait(100+Random(50));
FFlag(0);
end;
end;
end;
Procedure Antiban;
begin
Case Random(250) Of
0: begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) end;
1: begin StatsGuise('AntiBan') SleepAndMoveMouse(6000 + Random(1500)); end;
2: begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); end;
3: begin StatsGuise('AntiBan') RandomAngle(1); end;
4: begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); end;
5: begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); end;
6: begin Wait(500 + Random(500)) end;
end;
end;
Procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
end;
Function ChopDown:Boolean;
var
seX, seY, PlusOne, TreeCounter: Integer;
begin
PlusOne:= InvCount +1;
If FindObjCustom(seX, seY, ['Chop', 'down', 'p do'], [2371119, 2239276, 3293250, 2766391], 10) Then
begin
StatsGuise('Yay, just spotted a tree!');
GetMousePos(sex, sey);
case Random(2) Of
0: Mouse(seX, seY, 5, 5, True);
1: begin
Mouse(seX, seY, 5, 5, False);
WaitOption('Chop', 500);
end;
end;
repeat
MarkTime(TreeCounter);
Antiban;
Wait(100);
If InvCount=Plusone Then
Writeln('We got one');
until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 7000)
end;
end;
begin
SetupSRL;
DeclarePlayers;
repeat
ChopDown;
Wait(3000);
until(false);
end.