Results 1 to 3 of 3

Thread: Unknown identifier 'TaskCows'

  1. #1
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default Unknown identifier 'TaskCows'

    Hello
    Im attempting to make a simple slayer script

    But it throw this error: Unknown identifier 'TaskCows'

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

    Script:

    Simba Code:
    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.
    I was away for a long time, but i'm back!

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    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.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Thanks
    I was away for a long time, but i'm back!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •