Results 1 to 10 of 10

Thread: Results error?

  1. #1
    Join Date
    Mar 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Results error?

    When I try to run quite a lot of scripts i get this error

    0o
    Line x: [Error] (17056:1): Unknown identifier 'Result' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Bank.scar

  2. #2
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    i think that u only need result if its a function
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  3. #3
    Join Date
    Mar 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well would you like to see the script I'm currently getting the error on?
    SCAR Code:
    {---------------------------------------------------------}
    {                                ________                 }
    {                 ____    ____  /  _____/                 }
    {                /    \  / __ \/   \  ___                 }
    {               |   |  \|  ___/\    \_\  \                }
    {               |___|  / \___  >\______  / _              }
    {                    \/      \/        \/ |_|             }
    {---------------------------------------------------------}
    {---------------------------------------------------------}
    {                  LONG BOW FLETCHER                      }
    {---------------------------------------------------------}
    {
    Knife in first inventory slot.
    Logs in first bank slot
    }

    program neGFletcher;
    {.include SRL/SRL.scar}
    var
      LogsDone: Integer;
      StartXP, EndXP, TotalXP: Integer;

    {---------------------------------------------------------}
    {                          SETUP                          }
    {---------------------------------------------------------}
    const
      BankBooth = 7703191; //Bank Booth Colour
      RunAwayDir = 'S'; //Direction to run away
    [COLOR="Lime"]  LogsToDo = 719; //How many logs to do?[/COLOR]


    {---------------------------------------------------------}
    {                     Declare Player                      }
    {---------------------------------------------------------}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

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

    {---------------------------------------------------------}
    {                          Code                           }
    {---------------------------------------------------------}

    function BankScreenFix: Boolean; //Thanks Fawaki
    begin
      Result := IsTextAtEx(184, 34, 'The Bank of', 30, upchars, True, False, 0, 0,
        -1);
    end;

    procedure RunAway;
    begin
      RunAwayDirection(RunAwayDir);
      Wait(12000 + random(2000));
      RunBack;
    end;

    procedure Randoms;
    begin
      FindTalk;
      wait(10)
        FindNormalRandoms;
      if (FindFight) then
        RunAway;
    end;


    procedure Bank;
    var
    bx, by: Integer;
    c: Integer;
    begin
      Randoms;
      repeat
        FindObj(bx, by, 'Bank', BankBooth, 10);
        Wait(100 + Random(200));
      until (IsUpText('Use Bank'));
      if (IsUpText('Use Bank')) then
      begin
        GetMousePos(bx, by);
        Mouse(bx, by, 10, 10, false);
        wait(100);
        if (ClickOption('quickly', 1)) then
        begin
          repeat
            FTWait(2);
            c := c + 1
          until (BankScreenFix) or (c >= 50);
        end
        else
        begin
          Bank;
        end;
        FixBank;
        Deposit(2, 28, 2);
        Withdraw(1, 1, 0);
        repeat
          CloseBank;
          FTWait(2);
        until (BankScreenFix = False);
      end;
    end;

    procedure Report;
    begin
      SRLRandomsReport;
      WriteLn('>--------------------<>--------------------<')
      WriteLn('>    neGs Bow Fletcher - Progress Report    ')
      WriteLn('>                                           ')
      WriteLn('>  Running Time: ' + (TimeRunning) + '')
      WriteLn('>  Logs Cut: ' + IntToStr(LogsDone) + '')
      WriteLn('>  XP Gained: ' + IntToStr(TotalXP) + '')
      WriteLn('>--------------------<>--------------------<')
    end;

    procedure Fletch;
    var Number, t: Integer;
    begin
      begin
        Randoms;
        UseItem(1);
        Wait(100 + Random(800));
        UseItem(2);
        Randoms;
        FTWait(2);
      end;
      begin
        MMouse(244, 407, 10, 10);
        if (IsUpText('ake')) then
        begin
          Mouse(244, 407, 10, 10, false);
          ClickOption('ake X', 3);
          FTWait(5);
          Number := 27 + Random(11);
          TypeSend(IntToStr(number));
          Wait(100 + Random(250));
          TypeSend(Chr(13));
        end else
          Fletch;
      end;
      repeat
        FTWait(2);
        Randoms;
        if (FindNpcChatText('continue')) then //Fix to the level-up Bug
        begin
          begin
            Randoms;
            UseItem(1);
            Wait(100 + Random(800));
            UseItem(28);
            Wait(random(500));
          end;
          begin
            Mouse(244, 407, 10, 10, false);
            FTWait(1);
            ClickOption('Make X', 3);
            Wait(700 + Random(500));
            Number := 27 + Random(11);
            TypeSend(IntToStr(number));
            FTWait(2);
            TypeSend(Chr(13));
          end;
        end;
        Randoms;
      until (GetColor(717, 447) = 65536);
      if (GetColor(717, 447) = 65536) then
      begin
        LogsDone := LogsDone + 27;
        t := t + 1
      end
        if (t > 3 + Random(2)) then
        begin
          EndXP := GetXp('Magic');
          wait(10);
          TotalXP := (EndXP - StartXP);
          wait(10)
            Report;
          t := 0;
        end;
    end;

    procedure PlayerSetup;
    begin
      StartXP := GetXp('Fletching');
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    {---------------------------------------------------------}
    {                        Main Loop                        }
    {---------------------------------------------------------}
    begin
      SetupSRL;
      Newline := Newline;
      ActivateClient;
      DeclarePlayers;
      begin
        if (not (LoggedIn)) then
        begin
          Status('Logging In');
          Loginplayer;
          HighestAngle;
        end;
      end;
      PlayerSetup;
      repeat
        Bank;
        Fletch;
      until (LogsDone >= LogsToDo);
      if (LogsDone >= LogsToDo) then
      begin
        Logout;
        TerminateScript;
      end;
    end.

  4. #4
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    can u put in green the line of error?
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  5. #5
    Join Date
    Mar 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 28 how many logs to do.

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    u dont have result on that line
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  7. #7
    Join Date
    Mar 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i know >.- I have no clue why I'm getting the error

  8. #8
    Join Date
    Mar 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Still Need Help!

  9. #9
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you download latest SRL? Its an SRL problem, not the script.

  10. #10
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Just redownload srl.
    Its not a script problem, its an srl problem because of wrong install.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. results are here
    By Main in forum News and General
    Replies: 8
    Last Post: 02-20-2009, 03:32 AM
  2. SRL SC #2 Results!
    By Starblaster100 in forum General Competitions
    Replies: 62
    Last Post: 10-30-2007, 06:32 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
  •