SRL Archive - First Scripts

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;

Credits to: Emarian whos template i did use a bit.


Feel free to use/edit/help with eating/ xp counter.

There is only half of the script?
It's better to use Simba tags to post script :)

Nah its work like a charm. gained few levels with it.
and simba tags.. somehow i dont know how to use properly :D ( sorry)

spelled strength wrong case random case 1 in antiban

From: Poppee
Nah its work like a charm. gained few levels with it.
and simba tags.. somehow i dont know how to use properly :D ( sorry)

You put (OpenBracket) blah blah blah script (CloseBracket)
Like this

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; 

Exception in Script: File "SRL-OSR/SRL.Simba" not found at line 3, column 5

From: theorange
Exception in Script: File "SRL-OSR/SRL.Simba" not found at line 3, column 5

This script is from half 2013, it probably wont work anymore.

e:
but the error is from a missing srl-osr include.

From: masterBB
This script is from half 2013, it probably wont work anymore.

e:
but the error is from a missing srl-osr include.

Ah I see, thanks for the heads up