Simba Code:
// by begginer. thanks for using it. Enjoy it :)
program AttackFlashCrawler;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
var
x: Integer;
const
SRLStats_Username = ''; //Insert your SRL stats username here.
SRLStats_Password = ''; //Insert your SRL stats password here.
BreakEvery = 120; //How many minutes before breaking?
BreakFor = 5; //How many minutes to break for?
Version = '1';
NumbOfPlayers = 1; //How many players are you using?
StartPlayer = 0; //Which player will you start with? (0 means first)
procedure DeclarePlayers;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //Insert player username here.
Players[0].Pass :=''; //Insert player password here.
Players[0].Active := True; //Leave True to use this player.
end;
function FightCrawler:Boolean;
var
x, y: Integer;
begin
if FindObjCustom(x, y, ['att', 'ack', 'Flesh', 'Crawle'], [929072], 5) then
Mouse(x, y, 3, 3, True);
wait(5000+Random(5000)); // Change this if you want for faster attacking. 1000 = 1SECOND
Writeln('We found a Crawler. Attacking it');
end;
procedure AntiBan;
begin
Writeln ('Anti-banning');
x := Random(50) case x of
0:
HoverSkill('Attack', false);
1:
HoverSkill('Strength', false);
2:
HoverSkill('Defence', false);
3:
HoverSkill('hitpoints', false);
12..15:
PickUpMouse;
16..25:
RandomMovement;
26..27:
RandomRClick;
28..32:
BoredHuman;
33:
ExamineInv;
34..50:
RandomRClick;
end;
Wait(RandomRange(800, 1200));
end;
procedure EatIfLow;
var
MMColor: string;
x, y, Lobster: Integer;
begin
Lobster := DTMFromString('mlwAAAHicY2dgYJjPxMCwGIoXAvFMIF4AxEuAuJ8RgicB8XQg7oLiDiDm4+NjKLcRZJjtJ86wJVqaYV2EFMP8AHGGbTHSDFxAc3FhRjwYCgD3pg8b');
begin
GetMMLevels('hp', MMColor);
if (MMColor = 'Red') then
repeat
if FindDTM(Lobster, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
InvMouse(CoordsToItem(x, y), 3);
if WaitUpText('Eat Lobster', 100) then
begin
ClickMouse2(true);
Wait(RandomRange(350, 525));
end;
end else
Break;
GetMMLevels('hp', MMColor)
until((MMColor = 'Green'))
end;
FreeDTM(Lobster);
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
EatIfLow;
repeat
FightCrawler; // this will be for repeating action
EatIfLow; // this will be for repating eating
AntiBan;
until(false);
end.