Results 1 to 4 of 4

Thread: Annoying error

  1. #1
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Annoying error

    im getting this error: Line 308: [Error] (15225:1): Identifier expected in script

    i cant find whats wrong:

    I think the problem has something related to:
    SCAR Code:
    end;
            end;
          end;
        end;
      end;
    end;

    procedure AltarStuff;// here is the line?
    var
      x,y : Integer;


    here is the proc:

    SCAR Code:
    Procedure WalkToAltar;
    var
      x,y : Integer;
    begin
      if not loggedin then exit;
      Walked := False;
      MakeCompass('N');
      wait(1000+random(500))
      if WalkPath(0) then
      begin
        Writeln('Walking with path 0');
        FFlag(0);
        AntiBan;
        Randoms;
      end else
      begin
        if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
        begin
          Writeln('Walking with RadialWalk');
          FFlag(0);
          AntiBan;
          Randoms;
        end else
        begin
          Writeln('We are lost');
          Randoms;
          Logout;
          NextPlayer(False);
          Walked := False;
          Exit;
        end;
        begin
        if WalkPath(1) then
        begin
          Writeln('Walking with path 1');
          FFlag(0);
          AntiBan;
          Randoms;
        end else
        begin
          if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
          begin
            Writeln('Walking with RadailWalk');
            FFlag(0);
            AntiBan;
            Randoms;
          end else
          begin
            Writeln('We are lost');
            Logout;
            NextPlayer(False);
            Walked := False;
            Exit;
          end;
          if WalkPath(2) then
          begin
            Writeln('Walking with path 2');
            FFlag(0);
            AntiBan;
            Randoms;
          end else
          begin
            if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
            begin
              Writeln('Walking with RadialWalk');
              FFlag(0);
              AntiBan;
              Randoms;
            end else
            begin
              Writeln('We are lost');
              Logout;
              NextPlayer(False);
              Walked := False;
              Exit;
            end;
            LastDDTM;
            if WalkPath(3) then
            begin
              Writeln('Walking with path 3');
              FFlag(0);
              AntiBan;
              Randoms;
            end else
            begin
              if RadialWalk(FindDirtRoadColor,0,100,65,1,1) then
              begin
                Writeln('Walking with RadialWalk');
                FFlag(0);
                AntiBan;
                Randoms;
              end else
              begin
                Writeln('We are lost');
                Logout;
                NextPlayer(False);
                Walked := False;
                Exit;
              end;
              if DTMRotated(AltarDTM,x,y,MMX1,MMY1,MMX2,MMY2) then
              begin
                Mouse(x,y,3,3,True);
                FFlag(1);
                Writeln('We are at the temple');
                Walked := True;
                FreeDTM(AltarDTM);
              end else
              begin
                Writeln('Could not find altar DTM!');
                Logout;
                NextPLayer(False);
                Walked := False;
                FreeDTM(AltarDTM);
                Exit;
              end;
            end;
          end;
        end;
      end;
    end;

    procedure AltarStuff;// here is the line?
    var
      x,y : Integer;
    begin
    blabla...


  2. #2
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    You forgot an end;

    Use proper indenting.

    SCAR Code:
    Procedure WalkToAltar;
    var
      x,y : Integer;
    begin
      if not loggedin then exit;
      Walked := False;
      MakeCompass('N');
      wait(1000+random(500))
      if WalkPath(0) then
      begin
        Writeln('Walking with path 0');
        FFlag(0);
        AntiBan;
        Randoms;
      end else
      begin
        if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
        begin
          Writeln('Walking with RadialWalk');
          FFlag(0);
          AntiBan;
          Randoms;
        end else
        begin
          Writeln('We are lost');
          Randoms;
          Logout;
          NextPlayer(False);
          Walked := False;
          Exit;
        end;
        begin
          if WalkPath(1) then
          begin
            Writeln('Walking with path 1');
            FFlag(0);
            AntiBan;
            Randoms;
          end else
          begin
            if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
            begin
              Writeln('Walking with RadailWalk');
              FFlag(0);
              AntiBan;
              Randoms;
            end else
            begin
              Writeln('We are lost');
              Logout;
              NextPlayer(False);
              Walked := False;
              Exit;
            end;
            if WalkPath(2) then
            begin
              Writeln('Walking with path 2');
              FFlag(0);
              AntiBan;
              Randoms;
            end else
            begin
              if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
              begin
                Writeln('Walking with RadialWalk');
                FFlag(0);
                AntiBan;
                Randoms;
              end else
              begin
                Writeln('We are lost');
                Logout;
                NextPlayer(False);
                Walked := False;
                Exit;
              end;
              LastDDTM;
              if WalkPath(3) then
              begin
                Writeln('Walking with path 3');
                FFlag(0);
                AntiBan;
                Randoms;
              end else
              begin
                if RadialWalk(FindDirtRoadColor,0,100,65,1,1) then
                begin
                  Writeln('Walking with RadialWalk');
                  FFlag(0);
                  AntiBan;
                  Randoms;
                end else
                begin
                  Writeln('We are lost');
                  Logout;
                  NextPlayer(False);
                  Walked := False;
                  Exit;
                end;
                if DTMRotated(AltarDTM,x,y,MMX1,MMY1,MMX2,MMY2) then
                begin
                  Mouse(x,y,3,3,True);
                  FFlag(1);
                  Writeln('We are at the temple');
                  Walked := True;
                  FreeDTM(AltarDTM);
                end else
                begin
                  Writeln('Could not find altar DTM!');
                  Logout;
                  NextPLayer(False);
                  Walked := False;
                  FreeDTM(AltarDTM);
                  Exit;
                end;
              end;
            end;
          end;
        end;
      end;
    end;

    procedure AltarStuff;// here is the line?
    var
      x,y : Integer;
    begin
    blabla...

    This *should* compile.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  3. #3
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    No idea where exactly, but it looks like you forgot an end. I'll check into it a bit more, but not sure if I'll find anything.
    Edit: >< Wizzup? beat me and fixed the indents
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  4. #4
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Wizzup? View Post
    You forgot an end;

    Use proper indenting.

    SCAR Code:
    Procedure WalkToAltar;
    var
      x,y : Integer;
    begin
      if not loggedin then exit;
      Walked := False;
      MakeCompass('N');
      wait(1000+random(500))
      if WalkPath(0) then
      begin
        Writeln('Walking with path 0');
        FFlag(0);
        AntiBan;
        Randoms;
      end else
      begin
        if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
        begin
          Writeln('Walking with RadialWalk');
          FFlag(0);
          AntiBan;
          Randoms;
        end else
        begin
          Writeln('We are lost');
          Randoms;
          Logout;
          NextPlayer(False);
          Walked := False;
          Exit;
        end;
        begin
          if WalkPath(1) then
          begin
            Writeln('Walking with path 1');
            FFlag(0);
            AntiBan;
            Randoms;
          end else
          begin
            if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
            begin
              Writeln('Walking with RadailWalk');
              FFlag(0);
              AntiBan;
              Randoms;
            end else
            begin
              Writeln('We are lost');
              Logout;
              NextPlayer(False);
              Walked := False;
              Exit;
            end;
            if WalkPath(2) then
            begin
              Writeln('Walking with path 2');
              FFlag(0);
              AntiBan;
              Randoms;
            end else
            begin
              if RadialWalk(FindVarrockRoadColor,0,100,65,1,1) then
              begin
                Writeln('Walking with RadialWalk');
                FFlag(0);
                AntiBan;
                Randoms;
              end else
              begin
                Writeln('We are lost');
                Logout;
                NextPlayer(False);
                Walked := False;
                Exit;
              end;
              LastDDTM;
              if WalkPath(3) then
              begin
                Writeln('Walking with path 3');
                FFlag(0);
                AntiBan;
                Randoms;
              end else
              begin
                if RadialWalk(FindDirtRoadColor,0,100,65,1,1) then
                begin
                  Writeln('Walking with RadialWalk');
                  FFlag(0);
                  AntiBan;
                  Randoms;
                end else
                begin
                  Writeln('We are lost');
                  Logout;
                  NextPlayer(False);
                  Walked := False;
                  Exit;
                end;
                if DTMRotated(AltarDTM,x,y,MMX1,MMY1,MMX2,MMY2) then
                begin
                  Mouse(x,y,3,3,True);
                  FFlag(1);
                  Writeln('We are at the temple');
                  Walked := True;
                  FreeDTM(AltarDTM);
                end else
                begin
                  Writeln('Could not find altar DTM!');
                  Logout;
                  NextPLayer(False);
                  Walked := False;
                  FreeDTM(AltarDTM);
                  Exit;
                end;
              end;
            end;
          end;
        end;
      end;
    end;

    procedure AltarStuff;// here is the line?
    var
      x,y : Integer;
    begin
    blabla...

    This *should* compile.
    oh thanks wizzy i didnt see that begin, now it compiles.

    Repped


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. annoying error..
    By faster789 in forum OSR Help
    Replies: 10
    Last Post: 04-01-2008, 04:18 AM
  2. sum annoying error plz help..
    By faster789 in forum OSR Help
    Replies: 6
    Last Post: 03-29-2008, 04:11 PM
  3. Annoying error
    By Rora in forum OSR Help
    Replies: 1
    Last Post: 12-08-2007, 08:08 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
  •