program PowerChopper;
//{$DEFINE SMART}
{$i SRL\SRL.simba}
Const
Version = '1.0';
SRLStats_UserID = ''; // Your SRL Stats username.
SRLStats_Password = ''; // Your SRL Stats Password.
BreakEvery = ''; // Break after how many minutes?
BreakFor = ''; // Break for how long?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
Begin;
Name :=''; // Username
Pass :=''; // Password
Nick :=''; // 3-4 letters of your username
Active := True;
Integers[1] := 25; // Number of loads
Integers[2] := 5; //Seconds to try mining rock before clicking another.
End;
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 StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
Case Random(250) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill('Woodcut', false); Gametab(28); End;
1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); 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(800)); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False) GameTab(28) End;
End;
End;
Procedure FailSafe(Reason:String);
Begin;
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Function ChopDown:Boolean;
Var
treeX, treeY, PlusOne, TreeCounter: Integer;
Begin
PlusOne:= InvCount +1;
If FindObjCustom(treeX, treeY, ['Chop', 'down', 'p d'], [1252636, 1055002], 10) Then
Begin
StatsGuise('Hooray, we found a tree!');
GetMousePos(treeX, treeY);
Case Random(1) Of
0: Mouse(treeX, treeY, 5, 5, True);
1: Begin
Mouse(treeX, treeY, 5, 5, False);
ChooseOption('Chop');
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;
SetAngle(SRL_ANGLE_LOW);
//Repeat
ChopDown;
//Until(false);
End.