Simba Code:
program HKsPowerWillows;
//{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //Enter Your UserName
Players[0].Pass :=''; //Enter Your PassWord
Players[0].Nick :=''; //3-4 Digits Long
Players[0].Active:=True;
end;
Function CheckAndClick(X,Y:Integer):Boolean;
Begin
MMouse(x, y, 5, 5);
{Wait(100 + Random(50));
If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
If WaitUpTextMulti(['Chop','hop'], 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Woodcutting', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function ChopWillow: Boolean;
Var
x, y, PlusOne, TreeCounter: Integer;
begin
PlusOne:=InvCount +1;
x:=MSCX;
y:=MSCY;
if FindObjTPA(x, y, 2041897, 7, 1, 10, 40, 20, ['Chop']) Then
begin
StatsGuise('Your Private Indian Slave Is Cutting Down A Willow');
GetMousePos(x, y);
Case Random(2) of
0: Mouse(x, y, 4, 4, True);
1: begin
Mouse(x, y, 6, 6, False);
WaitOption('Chop', 650);
end;
end;
Flag;
Repeat
MarkTime(TreeCounter);
Antiban;
Wait(927);
If InvCount=PlusOne Then
writeln('Your Private Indian Slave Got A Willow!');
Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 5000)
end;
end;
Procedure DropLogs;
Var
x, y, LogDTM, I:Integer;
SlotBox:TBox;
LogPattern:TIntegerArray;
begin
LogDTM := DTMFromString('mbQAAAHicY2VgYOAHYikgFmSAAHYg5oKyhYBYAMo2NwSpYELB/xkwASMWDAYAdlkB+A==');
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];
StatsGuise('Your Private Indian Slave Is Droping Your Willows');
For I:=0 To 27 Do
Begin
SlotBox:=InvBox(LogPattern[I]);
If FindDTM(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
MouseItem(LogPattern[I],False);
ChooseOption('Dro');
End;
End;
End;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Repeat
ChopWillow;
Until(False);
end.