Simba Code:
Program MonkKiller;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i sps/sps.simba}
{$i SRL\SRL\Misc\Debug.simba}
{$i SRL/SRL/skill/fighting.simba}
Const
SRLStats_Username = '';// Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers = 1; //How many players are you using
StartPlayer = 0; //Player to start auoting with! (0 means first char)
BreakEvery = 120; //How many loads to take a break after.
BreakFor = 10; //How many minutes to break for
Version = '2.0'; //Leave Alone
Var
BreakOften, BreakLength, BreakTimes, FindMonktimer: Integer;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Pin := '' //Pin for Bank
Active := True;
end;
end;
Procedure Setup;
Begin
Smart_Server:=89;
Smart_Members:=False;
Smart_Signed:=True;
Smart_SuperDetail:=False;
SetupSRL;
Declareplayers;
Wait(2500)
LogInPlayer;
Setangle(SRL_ANGLE_HIGH);
End;
procedure Attack;
var
ax, ay, bx, by: integer;
begin
if InFight then
begin
repeat
FindNormalRandoms;
until Not Infight
end;
begin
if FindObjTPA(ax, ay, 7251654, 15, -1, 25, 25, 1, ['onk', 'Monk']) then
begin
if not (IsFightAt(ax, ay) and not InFight) then
begin
Mouse(ax,ay, 5, 5, Mouse_Right);
WaitOptionMulti(['ttack M', 'attack Monk'], 200);
wait(500);
end;
end;
end;
end;
end;
Procedure Healmonk;
var
cx, cy: Integer;
begin
begin
if InFight then
begin
repeat
FindNormalRandoms;
until Not Infight
end;
begin
FindObjTPA(cx, cy, 7251654, 15, -1, 25, 25, 1, ['onk', 'Monk']);
Mouse(cx, cy, 5, 5, Mouse_right);
WaitOptionMulti(['alk', 'Talk'], 200);
Wait(1000);
ClickContinue(True, False);
Wait(850);
Case Random(5) of
0: Mouse(399, 399, 5, 5, Mouse_Left);
1: Mouse(156, 569, 6, 6, Mouse_Left);
2: Mouse(149, 399, 5, 5, Mouse_Left);
3: Mouse(372, 400, 5, 5, Mouse_Left);
4: Mouse(283, 400, 5, 5, Mouse_Left);
end;
Wait(850);
ClickContinue(True, False);
Wait(850);
ClickContinue(True, False);
Wait(850);
end;
end;
end;
procedure WalkToCenter;
var ax, ay: Integer;
begin
FindSymbol(ax, ay, 'water');
Mouse(ax, ay, 5, 5, Mouse_left);
end;
begin;
Setup;
repeat
MarkTime(FindMonktimer);
Attack;
if (HPPercent < 65) then
repeat
Healmonk;
until (HPPercent = 100);
until(false)
end.