SRL Archive - OSR Help

Hello
Im attempting to make a simple slayer script

But it throw this error: Unknown identifier 'TaskCows'

At:

if FindNPCChatText('ows', True) then
  begin
   writeln('[Task Handler] > Our new task is: Cows')
   wait(randomrange(400,500));
  TaskCows;
 end;                   

Script:

Program KipjesSlayer;
  {$Define SMART}
  {$Include SRL/SRL/Misc/SMART.simba}
  {$i SRL/SRL.simba}

  var
     arP: TPointArray;
  ararP: T2DPointArray;
  tmpCTS, i, arL: Integer;
  P: TPoint;

x,y:integer;

  //Version 1.05

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

   // FILL IN //////////////////////////////////////

  Players[0].Name := '';     //Username
  Players[0].Pass := '';     //Password
  Players[0].Active := True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  LampSkill := 'Slayer';

  //DONT TOUCH ////////////////////////////////////////
end;



//Low level Tasks:

//Get the Task

Procedure GetTask;
Begin

  GameTab(Tab_Inv);

  if FindNPCChatText('anshee', True) then
 begin
 writeln('[Task Handler] > Our new task is: Banshees.')
  end;

 if FindNPCChatText('at', True) then
 begin
 writeln('[Task Handler] > Our new task is: Banshees.')
  end;

 if FindNPCChatText('Ear', True) then
 begin
 writeln('[Task Handler] > Our new task is: Bears.')
  end;

 if FindNPCChatText('ird', True) then
 begin
 writeln('[Task Handler] > Our new task is: Birds.')
 end;

 if FindNPCChatText('bug', True) then
 begin
 writeln('[Task Handler] > Our new task is: Cave bugs.')
 end;

 if FindNPCChatText('crawler', True) then
 begin
 writeln('[Task Handler] > Our new task is: Cave Crawlers.')
 end;

 if FindNPCChatText('slime', True) then
 begin
 writeln('[Task Handler] > Our new task is: Cave Slimes.')
 end;

 if FindNPCChatText('hand', True) then
 begin
 writeln('[Task Handler] > Our new task is: Crawling hands.')
 end;

 if FindNPCChatText('lizard', True) then
 begin
 writeln('[Task Handler] > Our new task is: Desert lizards.')
 end;

 if FindNPCChatText('og', True) then
 begin
 writeln('[Task Handler] > Our new task is: Dogs.')
 end;

 if FindNPCChatText('arve', True) then
 begin
 writeln('[Task Handler] > Our new task is: Dwarves.')
 end;

 if FindNPCChatText('host', True) then
 begin
 writeln('[Task Handler] > Our new task is: Ghosts.')
 end;

 if FindNPCChatText('oblin', True) then
 begin
 writeln('[Task Handler] > Our new task is: Goblins.')
 end;

 if FindNPCChatText('friend', True) then
 begin
 writeln('[Task Handler] > Our new task is: Ice fiends.')
 end;

 if FindNPCChatText('alphite', True) then
 begin
 writeln('[Task Handler] > Our new task is: Kalphites.')
 end;

 if FindNPCChatText('inotaur', True) then
 begin
 writeln('[Task Handler] > Our new task is: Minotaurs.')
 end;

 if FindNPCChatText('onkey', True) then
 begin
 writeln('[Task Handler] > Our new task is: Moneys.')
 end;

 if FindNPCChatText('corpion', True) then
 begin
 writeln('[Task Handler] > Our new task is: Scorpion.')
 end;

 if FindNPCChatText('keleton', True) then
 begin
 writeln('[Task Handler] > Our new task is: Skeletons.')
 end;

 if FindNPCChatText('pider', True) then
 begin
 writeln('[Task Handler] > Our new task is: Spiders.')
 end;

 if FindNPCChatText('olve', True) then
 begin
 writeln('[Task Handler] > Our new task is: Wolves.')
 end;

 if FindNPCChatText('ombie', True) then
 begin
 writeln('[Task Handler] > Our new task is: Zombies.')
 end;

 if FindNPCChatText('ows', True) then
  begin
   writeln('[Task Handler] > Our new task is: Cows')
   wait(randomrange(400,500));
  TaskCows;
 end;


 end;
procedure AntiBan;
begin
  if not(LoggedIn)then
  Exit;
  case Random(7)of
    0: HoverSkill('Slayer', false);
    1: RandomRClick;
    2: BoredHuman;
    3: PickUpMouse;
    4: RandomMovement;
    5: HoverSkill('Attack', false);
    6: HoverSkill('Defense', false);
    7: HoverSkill('Ranged', false);
    8: HoverSkill('Magic', false);
    9: HoverSkill('Prayer', false);

  end;
end;

procedure TaskCows;

       tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.05, 0.69);


  //Kill cows

    repeat
   if FindColorSpiralTolerance(x,y,6058621, MSX1, MSY1, MSX2, MSY2, 18) then

    begin
      MMouse(X, Y, 3, 3);
        wait(randomrange(200,300));
              if WaitUpTextMulti(['Cow','ow'], 250) then
begin
        Writeln ('[Combat Handler] > Found Cow!')
        Writeln ('[Combat Handler] > Attack: Cow!')
                  ClickMouse2(true);
                wait(randomrange(1500,2000));


  end;
procedure Start;
begin

  wait(randomrange(300,400));
  SetAngle(SRL_ANGLE_HIGH);
  wait(randomrange(300,400));

end;


   procedure MainLoop;
begin
    GetTask;
     repeat

    wait(5000);


       until(false);
      end;

Begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  Writeln ('-----------------------------------')
  Writeln ('--------- Kipjes Slayer -----------')
  Writeln ('-----------------------------------')
  wait(10000);
  GameTab(Tab_Inv);
  wait(400);
  Start;
  wait(100);
  MainLoop;
end.

To execute a procedure or function from somewhere else, the procedure/function must be above that area. So change your ordering so procedure TaskCows is above where it's called.

Thanks :)