Results 1 to 4 of 4

Thread: Identifier expected in script. :(

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Identifier expected in script. :(

    I keep getting the same error when i try to compile my script. what do i need to fix?

    Line 95: [Error] (16085:1): Identifier expected in script


    SCAR Code:
    program WillowCutter;
    {.include SRL/SRL.scar}

    const
    Loads = 7;//amount of loads to do before switching players
    Version = '.1';
    RunDirection = ('E');

    var
    Counter1 : integer;
    C1, C2, C3 : integer;
    x,y : integer;

    procedure Declareplayers;
    begin
      HowManyPlayers := 6;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := True;

      Players[5].Name := '';
      Players[5].Pass := '';
      Players[5].Nick := '';
      Players[5].Active := True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    Procedure Setup;
    begin
      ActivateClient;
      ChatsOff;
      HighestAngle;
      MakeCompass('N');
    end;

    procedure ToSpot;
     begin
        MakeCompass('N');
        RadialWalk(FindRockColor,190,150,60,3,3);
        FindSymbol(x,y,'fish');
        Mouse(x,y,3,3,true);
        FFlag (0);
    end;
    procedure ToBank;
     begin
        MakeCompass('N');
        RadialWalk(FindRockColor,0,90,50,3,3);
       If FindSymbol(x,y,'bank')Then
       begin
         Mouse(x,y,3,3,true);
         Flag;
       end;
    end;

    Procedure Bank;
    begin
      MakeCompass('E');
      OpenBankQuiet('db');
      Flag;
      wait(500 + random(500));
      FixBank;
      if(Findobj(x, y,'ogs',2183514,9))then
      begin
        Deposit(2, 28, 2);
        CloseBank;
        MakeCompass ('N');
        C1 := C1 + 1;
    end;

    procedure ChopChop; //This is the line
    begin
      repeat
      If Not Loggedin Then Break;
      If Findobj(x,y,'hop',15780016,9)then
      begin
        Mouse(x,y,3,3,True);
        FFlag ( 0 );
      end;
      Until(invfull);
    end;

    begin
    SetupSRL;
    ToSpot;
    ChopChop;
    ToBank;
    Bank;
    end.

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

    Default

    You forgot an end. I reccomend you learn standards.

    Code:
    program WillowCutter;
    {.include SRL/SRL.scar}
    
    const
    Loads = 7;//amount of loads to do before switching players
    Version = '.1';
    RunDirection = ('E');
    
    var
    Counter1 : integer;
    C1, C2, C3 : integer;
    x,y : integer;
    
    procedure Declareplayers;
    begin
    HowManyPlayers := 6;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    
      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := True;
    
      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := True;
    
      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := True;
    
      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := True;
    
      Players[5].Name := '';
      Players[5].Pass := '';
      Players[5].Nick := '';
      Players[5].Active := True;
    
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
    
    Procedure Setup;
    begin
    ActivateClient;
      ChatsOff;
      HighestAngle;
      MakeCompass('N');
    end;
    
    procedure ToSpot;
     begin
    MakeCompass('N');
        RadialWalk(FindRockColor,190,150,60,3,3);
        FindSymbol(x,y,'fish');
        Mouse(x,y,3,3,true);
        FFlag (0);
    end;
    procedure ToBank;
     begin
    MakeCompass('N');
        RadialWalk(FindRockColor,0,90,50,3,3);
       If FindSymbol(x,y,'bank')Then
    begin
    Mouse(x,y,3,3,true);
         Flag;
       end;
    end;
    
    Procedure Bank;
    begin
    MakeCompass('E');
      OpenBankQuiet('db');
      Flag;
      wait(500 + random(500));
      FixBank;
      if(Findobj(x, y,'ogs',2183514,9))then
    begin
    Deposit(2, 28, 2);
        CloseBank;
        MakeCompass ('N');
        C1 := C1 + 1;
    end;
    end;
    
    procedure ChopChop; //This is the line
    begin
    repeat
    If Not Loggedin Then Break;
      If Findobj(x,y,'hop',15780016,9)then
    begin
    Mouse(x,y,3,3,True);
        FFlag ( 0 );
      end;
    Until(invfull);
    end;
    
    begin
    SetupSRL;
    ToSpot;
    ChopChop;
    ToBank;
    Bank;
    end.


    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
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you very much. It has standards it just messed them up when i put it up here.

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

    Default

    Oh, okay. IDK how it would do that :S, but whatever, and you're welcome.


    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!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Identifier expected in script...But Why?
    By Macrosoft in forum OSR Help
    Replies: 10
    Last Post: 01-27-2012, 06:33 AM
  2. Bah!! Identifier Expected in Script.
    By siroober in forum OSR Help
    Replies: 3
    Last Post: 05-03-2008, 11:46 PM
  3. Identifier expected in script
    By StrikerX in forum OSR Help
    Replies: 2
    Last Post: 04-11-2008, 12:21 PM
  4. Identifier expected in script
    By Becks in forum OSR Help
    Replies: 6
    Last Post: 04-11-2008, 06:41 AM
  5. Identifier expected in script?
    By steth1010 in forum OSR Help
    Replies: 6
    Last Post: 05-06-2007, 09:03 PM

Posting Permissions

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