Results 1 to 6 of 6

Thread: Help error message =[

  1. #1
    Join Date
    Apr 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help error message =[

    Hi i keep getting this error message ::

    Line 172: [Error] (14573:8): Identifier expected in script C:\Documents and Settings\Spare\My Documents\fletch.scar

    & line 172 says "ActivateClient;"

    Any ideas y it is doing it?

  2. #2
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ActivateClient is a good command. So that's not the prob. We can't help you until you post your whole script. So post your whole script and then I'll fix the error.

  3. #3
    Join Date
    Apr 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ///////////////////////////
    { ________ }
    { ____ ____ / _____/ }
    { / \_/ __ \/ \ ___ }
    {| | \ ___/\ \_\ \ }
    {|___| /\___ >\______ / }
    { \/ \/ \/ }
    { FLETCHER BETA }
    ///////////////////////////
    {
    Knife in first inventory slot.
    Logs in first bank slot
    Only does longbow so far,
    will add shortbows when i get members again.

    Setup Lines 24 - 26
    Setup Players Lines 37+
    }
    program neGFletcher;
    {.include SRL/SRL.scar}

    ////////////////////////////////////////////
    const //
    BankBooth = 7703191;//Bank Booth Colour ///
    RunAwayDir = 'S';
    LogsToDo = 5000;

    var
    LogsDone:Integer;

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

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

    //////////////////////Runaway Procedure
    Procedure RunAway;
    begin
    RunAwayDirection(RunAwayDir);
    Wait(12000+random(2000));
    RunBack;
    end;

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

    ///////////Banking Procedure
    //I got most of this from someones
    //script ages ago then edited it.
    //If this looks similar to yours
    //let me now and Ill credit you

    Procedure Bank;
    var bx,by: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
    Wait(500);
    until(BankScreen);
    end
    else
    begin
    Bank;
    end;
    FixBank;
    Deposit(2,28,2);
    Withdraw(1, 1, 0);
    repeat
    CloseBank;
    Wait(500);
    until(BankScreen = False);
    end;
    end;

    //////////////////////Fleching Procedure
    Procedure Fletch;
    var Number:Integer;
    begin
    begin
    Randoms;
    UseItem(1);
    Wait(100 + Random(800));
    UseItem(2);
    Randoms;
    Wait(random(500));
    end;
    begin
    MMouse(244,407,10,10);
    if (IsUpText('Make')) then
    begin
    Mouse(244,407,10,10,false);
    ClickOption('Make X', 3);
    Wait(700+Random(500));
    Number:=27+Random(11);
    TypeSend(IntToStr(number));
    Wait(100 + Random(250));
    TypeSend(Chr(13));
    end
    else Fletch;
    end;
    repeat
    wait(500);
    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);
    wait(300);
    ClickOption('Make X', 3);
    Wait(700+Random(500));
    Number:=27+Random(11);
    TypeSend(IntToStr(number));
    Wait(100 + Random(250));
    TypeSend(Chr(13));
    end;
    end;
    Randoms;
    until(GetColor(717,447)=65536);
    if (GetColor(717,447)=65536) then
    LogsDone:= LogsDone+27;
    end;

    procedure Report;
    begin
    ClearDebug;
    SRLRandomsReport;
    WriteLn('////////////////////////////////////////////')
    WriteLn(' neGs Fletcher BETA ')
    WriteLn(' ')
    WriteLn(' Running Time: ' + (TimeRunning) + '')
    WriteLn(' Logs Cut: ' + IntToStr (LogsDone) + '')
    WriteLn(' Approx. XP Gained: ' + IntToStr (LogsDone*41) + '')
    WriteLn('//////////////////////////////////////////// ')
    end;

    ////////////////MainSetup
    begin
    SetupSRL;
    Newline:=Newline;
    ActivateClient;
    DeclarePlayers;
    begin
    If (Not(LoggedIn)) then
    begin
    Status('Logging In');
    Loginplayer;
    HighestAngle;
    end;
    end;
    repeat//////////////main loop
    Bank;
    Fletch;
    Report;
    until(LogsDone >= LogsToDo);
    if (LogsDone >= LogsToDo)then
    begin
    Logout;
    TerminateScript;
    end;
    end.


    There it is lol

  4. #4
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is the error:
    SCAR Code:
    Newline:=Newline;
    1st. That doesn't makes any difference because Newline alreaddy is newline. If you did something like this:
    SCAR Code:
    Newline:=SomethingElse;
    then It makes a difference.
    2nd. You forgot to declare what Newline is. Is it a string/integer/boolean/extended?? So in your vars set it like this:
    [scar]
    Newline= String;//You can put here string/integer/boolean/extended.

  5. #5
    Join Date
    Apr 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im a noob on this, so cud u tell me what var is and that and were egzactly to put

    Newline= String;//You can put here string/integer/boolean/extended.

  6. #6
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just take it out completely. I don't think the script uses it.

    It is most likely there because of a "hint" that scar gives which says "variable newline never used in script"

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Always get same Error Message
    By WithoutFear in forum OSR Help
    Replies: 3
    Last Post: 06-30-2008, 02:28 AM
  2. error message?
    By XcanadamanX in forum OSR Help
    Replies: 5
    Last Post: 11-11-2006, 06:54 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
  •