Simba Code:
program Falcon;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$I P07Include.Simba}
{$I SRL/srl/misc/SmartGraphics.simba}
const
SRLStats_Username = '';
SRLStats_Password = '';
Version = '1.0';
StartPlayer= 0;
NumbOfPlayers= 0;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
for i := 0 to 0 do
Players[i].BoxRewards := ['ook', 'amp', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
Integers[1] := 4;
Integers[2] := 4;
end;
end;
Procedure Antiban;
Begin
Case Random(6) Of
0:
Begin
HoverSkill('Hunting', False);
GameTab(Tab_Inv);
End;
1:
Begin
PickUpMouse;
SleepAndMoveMouse(3000 + Random(500));
PickUpMouse;
End;
2: ExamineInv;
3:
Begin
RandomAngle(SRL_ANGLE_HIGH);
SetAngle(SRL_ANGLE_HIGH);
End;
4:
Begin
GameTab(Tab_Stats);
Wait(3000 + Random(500));
GameTab(Tab_Inv);
End;
5:
Begin
HoverSkill('random', False);
GameTab(Tab_Inv);
End;
End;
End;
Function SpottedKebbit:Boolean;
var
X, Y, PlusOne, SpottedCounter: Integer;
begin
FindNormalRandoms;
PlusOne:= InvCount +2;
If FindObjCustom(X, Y, ['Spotted', 'kebbit', 'D k'], [2111308, 1583159, 2309202, 1979206], 1) Then
begin
Writeln('Found the spotted Kebbit');
Case Random(2) Of
0: Mouse( X, Y, 5, 5, mouse_left);
1: Begin
Mouse( X, Y, 5, 5, mouse_right);
WaitOption('Catch', 800);
End;
End;
Repeat
FindNormalRandoms;
MarkTime(SpottedCounter);
Antiban;
Wait(100);
If InvCount=Plusone Then
Writeln('Caught One');
Until (InvCount=Plusone) Or (TimeFromMark(SpottedCounter) > 5000)
End;
end;
Procedure Dropkebbitfur;
var
X, Y, furDTM, I:Integer;
SlotBox:TBox;
furPattern:TIntegerArray;
Begin
furDTM := DTMFromString('mbQAAAHicY2VgYMhlYmBIAeIKIK6GsnUZGRgsgdgKiNWAWB6IHfSlgaoZ0TAmQFcBVwUAQlgDtQ==');
// furPattern:=[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;
SlotBox:=InvBox (furPattern[I]);
If FindDTM(furDTM,x,y,SlotBox.X1,SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
// MouseItem(furPattern[I],False);
mouse(x, y, 3, 3, mouse_right);
WaitOption('Dro',500);
end;
// end;
freeDTM(furDTM);
end;
begin
SetupSRL;
SetupP07Include;
DeclarePlayers;
ActivateClient;
Wait(2000);
Repeat;
Antiban;
SpottedKebbit;
If InvFull Then
Dropkebbitfur;
Until(false);
end.