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
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 StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
procedure Load_Antiban;
begin
case Random(150) of
1: BoredHuman;
2: HoverSkill('random', False);
3: HoverSkill('Magic', False);
4: PickUpMouse;
5: RandomMovement;
6: RandomRClick;
7: ExamineInv;
end;
end;
function MonkColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
R, G, B: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.12, 0.61);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 2768453, MSX1, MSY1, MSX2, MSY2, 8);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToRGB(arC[i], R, G, B);
if (R >= 47) and (R <= 95) and (G >= 42) and (G <= 84) and (B >= 26) and (B <= 54) then
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 2.26) and (X <= 8.37) and (Y >= 2.42) and (Y <= 8.84) and (Z >= 1.37) and (Z <= 4.65) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
procedure Attack;
var
ax, ay, bx, by: integer;
begin
if InFight then
begin
repeat
FindNormalRandoms;
until (not (OthersInFight) or (not LoggedIn) or (not InFight))
end;
begin
if FindObjCustom(ax, ay, ['onk'], [monkcolor], 50) then
begin
StatsGuise ('Found Monk');
GetMousePos(ax, ay);
Mouse(ax,ay,5,5,Mouse_Right);
WaitOptionMulti(['ttack M', 'attack Monk'], 200);
end;
begin
if (HPPercent < RandomRange (45,65)) and LoggedIn then
repeat
if FindObjCustom(bx, by, ['onk'], [monkcolor], 50) then
begin
StatsGuise ('Healing Using Monk');
GetmousePos(bx, by);
Mouse(ax,ay,5,5,false);
waitoptionmulti(['talk', 'Talk-to'], 200);
end;
until(HpPercent = (100))
end;
end;
end;
//end;
begin;
SetupSRL;
repeat
Attack;
until(false)
end.