Results 1 to 10 of 10

Thread: trouble finding shortcut?

  1. #1
    Join Date
    Aug 2008
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default trouble finding shortcut?

    im trying to find the crumbling wall shortcut by fally westbank, but the script "keeps saying unknown identifier 'x'"

    Code:
    program New;
    {.include srl/srl.scar}
    
    Procedure DeclarePlayers;
    Begin
      CurrentPlayer := 0;
      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
    
      Players[0].Name        := '####';          // Username
      Players[0].Pass        := '####';          // Password
      Players[0].Nick        :='####';          // Nickname, 3 - 4 letters of username
      Players[0].Active      := True;        // Active?
    end;
    
    
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      Mouse(264, 209,0,0, true);
      if(not(LoggedIn))then
      begin
        LoginPlayer;
      end;
    SetRun(true);
    wait(500)
    MakeCompass('n');
    wait(1000);
    mouse(594, 145, 1, 1, true);
    
    if (FindSymbol(x, y, 'Short cut')) then
    begin
      Mouse(x, y, 5, 5, True);
      Writeln('Found the crumbling wall');
    end else Writeln('Could not find crumbling wall');
    
    
    
    end.

  2. #2
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include srl/srl.scar}

    Vars
    x,y : Integer:
    Procedure DeclarePlayers;
    Begin
      CurrentPlayer := 0;
      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name        := '####';          // Username
      Players[0].Pass        := '####';          // Password
      Players[0].Nick        :='####';          // Nickname, 3 - 4 letters of username
      Players[0].Active      := True;        // Active?
    end;


    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      Mouse(264, 209,0,0, true);
      if(not(LoggedIn))then
      begin
        LoginPlayer;
      end;
    SetRun(true);
    wait(500)
    MakeCompass('n');
    wait(1000);
    mouse(594, 145, 1, 1, true);

    if (FindSymbol(x, y, 'Short cut')) then
    begin
      Mouse(x, y, 5, 5, True);
      Writeln('Found the crumbling wall');
    end else Writeln('Could not find crumbling wall');



    end.

    There , i declared x and y as global variables

  3. #3
    Join Date
    Aug 2008
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i've tried the changes you have shown nows it spitting this out:

    Line 4: [Error] (15462:1): 'BEGIN' expected in script C:\Program Files\SCAR 3.15\Scripts\Vial Buyer.scar

    i have tried putting it between Begin and End, but that just makes it worse.

    if you havent guessed im new to this scripting

  4. #4
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    my bad >_< idk what is wrong with me...

    SCAR Code:
    program New;
    {.include srl/srl.scar}

    Var
    x,y : Integer;

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

      Players[0].Name        := '####';          // Username
      Players[0].Pass        := '####';          // Password
      Players[0].Nick        :='####';          // Nickname, 3 - 4 letters of username
      Players[0].Active      := True;        // Active?
    end;


    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      Mouse(264, 209,0,0, true);
      if(not(LoggedIn))then
      begin
        LoginPlayer;
      end;
    SetRun(true);
    wait(500)
    MakeCompass('n');
    wait(1000);
    mouse(594, 145, 1, 1, true);

    if (FindSymbol(x, y, 'Short cut')) then
    begin
      Mouse(x, y, 5, 5, True);
      Writeln('Found the crumbling wall');
    end else Writeln('Could not find crumbling wall');



    end.

    there >_>

  5. #5
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    Var
      x,y : Integer;

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

      Players[0].Name        := '####';          // Username
      Players[0].Pass        := '####';          // Password
      Players[0].Nick        := '####';          // Nickname, 3 - 4 letters of username
      Players[0].Active      := True;        // Active?
    end;


    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      Mouse(264, 209,0,0, true);
      if(not(LoggedIn))then
      begin
        LoginPlayer;
      end;
      SetRun(true);
      wait(500)
      MakeCompass('n');
      wait(1000);
      mouse(594, 145, 1, 1, true);
      if (FindSymbol(x, y, 'Short cut')) then
      begin
        Mouse(x, y, 5, 5, True);
        Writeln('Found the crumbling wall');
      end else
        Writeln('Could not find crumbling wall');
    end.
    There is the script with standards

  6. #6
    Join Date
    Feb 2008
    Location
    Norway
    Posts
    278
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Another thing:

    SCAR Code:
    if(not(LoggedIn))then
      begin
        LoginPlayer;
      end;

    Im not 100% sure, but I think it may be just:

    SCAR Code:
    if(not(LoggedIn))then LoginPlayer;

    Then it will look like this:

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    Var
      x,y : Integer;
     
    Procedure DeclarePlayers;
    Begin
      CurrentPlayer := 0;
      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
     
      Players[0].Name        := '####';          // Username
      Players[0].Pass        := '####';          // Password
      Players[0].Nick        := '####';          // Nickname, 3 - 4 letters of username
      Players[0].Active      := True;        // Active?
    end;
     
     
    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      Mouse(264, 209,0,0, true);
      if(not(LoggedIn))then LoginPlayer;
      SetRun(true);
      wait(500)
      MakeCompass('n');
      wait(1000);
      mouse(594, 145, 1, 1, true);
      if (FindSymbol(x, y, 'Short cut')) then
      begin
        Mouse(x, y, 5, 5, True);
        Writeln('Found the crumbling wall');
      end else
        Writeln('Could not find crumbling wall');
    end.

    Correct me if I'm wrong
    99 woodcutting

  7. #7
    Join Date
    May 2008
    Posts
    266
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ^^
    It's the same thing, just less writing.

  8. #8
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah that works for logging in


  9. #9
    Join Date
    Aug 2008
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the help guys so far its getting along quite well, other that it can't detect the shortcut symbol which won't make the script impossible but it will make it a lot more long winded if i can't solve it.

  10. #10
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Instead of using if not LoggedIn then LoginPlayer;, just use LoginPlayer;. I think it has the other stuff implemented already.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 3
    Last Post: 09-23-2008, 03:37 AM
  2. Having a little trouble....
    By ak473251 in forum OSR Help
    Replies: 2
    Last Post: 11-24-2007, 08:09 PM
  3. trouble
    By RS Rebel in forum OSR Help
    Replies: 6
    Last Post: 07-27-2007, 09:11 AM

Posting Permissions

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