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.