What's this mean...

[John]

it wont do the procedure WalkingToFleshCrawlers


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.

Help appreciated.

[euphemism]

Looks like you are missing an 'end;' at the end of this procedure:


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');

[ReadySteadyGo]

Use FindColorTolerance over FindColor at line 97.

[Bobzilla69]

if it doesnt find the color it wont click anywhere, also like said above me use FindColorTolerance

[John]

im trying to walk with findcolourtolerance... it's not easy at all.

[ReadySteadyGo]

im trying to walk with findcolourtolerance... it's not easy at all.

That is because there will be multiple cases of that colour. Go to the tutorial section and read some tutorials on walking. You have multiple options, DTM's, SPS, ObjDTM's, TPA's, and Radial Walk.