Simba Code:
program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Const
{---SMART Setup Constants---}
WORLD = 50;// Set a world, if you'd like.
MEMBERS = False;// Change accordingly.
SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
Author = 'Evlin';
Name = 'EvlinsFleshCrawlerKillah';
Version = '1.00';
{---------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'xq str xq1';
Players[0].Pass := ''; // Password
Players[0].Nick := 'str'; // 3-4 lowercase letters from username
Players[0].Active := True; // Set to true if you want to use this player
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
case Random(6) of
0: HoverSkill('Random', False);
1: begin
RandomMovement;
HoverSkill('Random', False);
end;
2: BoredHuman;
3: BoredHuman;
4: ExamineInv;
5: begin
RandomAngle(1);
HoverSkill('Random', False);
ExamineInv;
end;
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
end;
procedure ProgressReport;
begin
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn(Name + ' by' + Author + ' V' + Version);
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
//Procedure BanktoFleshCrawls;
//begin
//SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);
//SPS_GetmyPos;
//pts := [Point(4204, 2685), Point(4195, 2686), Point(4194, 2695),
//Point(4197, 2702), Point(4207, 2703), Point(4218, 2705), Point(4226, 2705),
//Point(4233, 2711), Point(4235, 2721), Point(4234, 2733), Point(4233, 2746),
//Point(4232, 2755), Point(4231, 2765), Point(4231, 2778), Point(4228, 2785),
//Point(4217, 2785), Point(4213, 2791), Point(4200, 2791), Point(4187, 2787),
//Point(4185, 2802), Point(4188, 2810), Point(4189, 2819), Point(4189, 2828),
//Point(4188, 2837), Point(4189, 2845), Point(4192, 2854), Point(4196, 2863),
//Point(4196, 2874), Point(4197, 2884), Point(4199, 2893), Point(4193, 2901),
//Point(4193, 2909), Point(4193, 2917), Point(4194, 2926), Point(4192, 2934),
//Point(4187, 2939), Point(4182, 2945), Point(4176, 2950), Point(4167, 2956),
//Point(4159, 2958)];//Path from the path maker.
//end;
procedure WalkingToFleshCrawlers;
var x, y:integer;
begin
if (FindColor(x, y, 659014, MMX1, MMY1, MMX2, MMY2)) then
ClickNorth(1);
Mouse(x, y, 4, 4, True);
end;
procedure MinigameSymbol;
var x, y:integer;
begin
if (FindSymbol(x, y, 'Minigame')) then
begin
Mouse(x, y, 5, 5, True);
Writeln('Found the minigame symbol');
end else Writeln('Could not find minigame symbol');
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
LoginPlayer; // This logs in your first player.
WalkingToFleshCrawlers;
//MinigameSymbol;
//BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.
