program GoblinGETDOWN;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/Debug.Simba}
const
goblinCOLOR1 = 5142839;
goblinCOLOR2 = 2720940;
greenLifeBar = 65280;
var
x, y, x1, y1: Integer;
//Declare your username and password
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Active := True;
end;
end;
//More human like movement
Procedure HumanMove;
Begin
case random(200) of
1..160: MMouse(RandomRange(X - 7, X + 7), RandomRange(y - 7, y + 7), 0, 0);
161..190: MMouse(RandomRange(X - 9, X + 9), RandomRange(y - 9, y + 9), 0, 0);
191..200: MMouse(RandomRange(X - 12, X + 12), RandomRange(y - 12, y + 12), 0, 0);
End;
End;
procedure Antiban;
begin
case Random(100) of
1: HoverSkill('strenght', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('attack', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
end;
end;
procedure MiniBreaker;
begin
case Random(160) of
1: Wait(4000 + random(7400));
2: Wait(2550 + random(8550));
3: Wait(6004 + random(6759));
4: Wait(2040 + random(2549));
end;
end;
procedure ClickGoblin;
begin
if (not LoggedIn) then
begin
LogInPlayer;