program PowerChopper;
{$DEFINE SMART}
{$i srl/srl.simba}
Const
BreakEvery =120; // How Many Minutes To Break After
BreakFor =5; // How Many Minutes To Break For
VersionNumber ='1.0'; // Current Version
StartPlayer =0; // Player To Start Chopping With
procedure DeclarePlayers;
begin
HowManyPlayers:= 1; // Number Of Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name:=''; // Runescape Username
Players[0].Pass:=''; // Runescape Password
Players[0].Nick:=''; // Players Nickname 3-4 Letters Of Characters Username
Players[0].active:=True;
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('WoodCutting', False) GameTab(28) End; //AntiBan measure hovers over woodcutting skill
1: Begin StatsGuise('AntiBan')SleepAndMoveMouse(7000+Random(550)); End; //AntiBan measure moves the mouse around randomly for 7 seconds
2: Begin StatsGuise('AntiBan')GameTab (Tab_Inv) ExamineInv; GameTab(28) End; //AntiBan measure examines a random item in invent
3: Begin StatsGuise('AntiBan')RandomAngle(1); End; //AntiBan measure changes camara angle
4: Begin StatsGuise('AntiBan')GameTab (Tab_Stats); Wait(3000+Random(550)); GameTab(28); End; //AntiBan measure shows stats tab
5: Begin StatsGuise('AntiBan')GameTab (Tab_Stats) HoverSkill('Random', False) GameTab(28) End; //AntiBan measure hovers over a random skill in stats tab
End;
End;
Procedure FailSafe(Reason:String);
Begin
Logout;
Stats_Commit;
TerminateScript;
End;
function ChopTree: Boolean;
var
x, y, PlusOne, TreeCounter: Integer;
Begin
FindNormalRandoms;
PlusOne:= InvCount +1
x:= MSCX;
y:= MSCY;
If FindObjTPA(x, y, 2634301, 5, 1, 15, 60, 600, ['Cho']) Then;
StatsGuise ('Hooray, We Found a Tree!!!');
GetMousePos(x,y);
Case Random(2)Of
0:Mouse(x, y, 5, 5, True);
1:Begin
Mouse(x, y, 5, 5, False);
WaitOption('Chop', 500);
ChooseOption('Chop');
End;
End;
Flag;
MarkTime(TreeCounter);
Repeat
FindNormalRandoms;
StatsGuise('AntiBan And Waiting');
AntiBan;
Wait(500);
If InvCount = PlusOne Then
WriteLn('Who Shit In My Bag');
Until (InvCount = PlusOne) or (TimeFromMark(TreeCounter) > 5000)
End;
Procedure DropLogs;
var
x, y, LogDTM, I:Integer;
SlotBox:TBox;
LogPattern:TIntegerArray;
Begin
LogDTM := DTMFromString('mfgEAAHicrcdBCoJQAEXRX9NmbcVVFGRRUBGlUhswzIFEQVCWu/YMnDX9F86DNw0hbFmz50jGiYIzF3IO7NiwYsGMOUseVFwpqWm48+TFmw8tX350w78N0mRixxHEaRTJfz1PGw+/');
LogPattern := [1, 5, 9, 13, 17, 21, 25, 2, 6, 10, 14, 18, 22, 26, 3, 7, 11, 15, 19, 23, 27, 4, 8, 12, 16, 20, 24, 28];
For I:=0 To 27 Do
Begin
FindNormalRandoms;
StatsGuise('Taking A Dump:' + IntToStr(I));
SlotBox := InvBox(LogPattern[I]);
If FindDTM(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
End;
Begin
MouseItem(LogPattern[I], false);
ChooseOption('Dro');
End;
End;
Begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
SetAngle(1);
Repeat;
ChopTree;
Until(false);
End.