Results 1 to 2 of 2

Thread: Got problem with my script someone help!

  1. #1
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Got problem with my script someone help!

    Hello i get this error in my script and i dont know to fix it...

    Line 38: [Error] (14788:25): Close round expected in script C:\Program Files\SCAR 2.03\Scripts\PieBoner.scar

    Here is the script
    SCAR Code:
    program PieBoner;
    {.include SRL/SRL.scar}
    //Stand near a place with some monsters, that are not high level.
    //Don't have anything with you, maybe just like a scimmy.
    Const
    BoneColor = 14342878;//The color of the bones dont change.
    BonesToBury = 10;//How many bones you want to bury.
    MonsterColor = 0;//The color of the monster.
    Monster = 'eag';//3 letters of the monster's name you want to fight
    NumberOfUsers = 1;//How many players you are using?
    StartPlayer = 0;//What player you start with?
    Var
    BonesDone: Integer;

    Procedure DeclarePlayers;
    begin
       HowManyPlayers:= NumberOfUsers;
       NumberOfPlayers( HowManyPlayers );
       CurrentPlayer := StartPlayer;

       Players[0].Name :='';
       Players[0].Pass :='';
       Players[0].Nick :='';
       Players[0].Loc :='Bank';
       Players[0].Active:=True;
       Players[0].Boolean1  := False;
       Players[0].Boolean2 := False;
       Players[0].String1 := '';
       
          Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
    End;

    Procedure Kill;
    begin
    repeat
    FindColor(x,y,MonsterColor,0,0,450,450);
    MMouse(x,y,1,1);
    Until (IsUpText(Monster);
    if (IsUpText(Monster)then
    Mouse(x,y,2,2,false);
    Wait(1000+random(450));
    ChooseOption('ack');
    end;

    Procedure FindBones;
    begin
    repeat
    FindColor(x,y,BoneColor,0,0,450,450);
    MMouse(x,y,1,1);
    Until (IsUpText('one');
    if (IsUpText('one')then
    Mouse(x,y,1,1,false);
    Wait(1000+random(300));
    ChooseOption(x,y,'one');
    end;

    Procedure Bury;
    begin
    Mouse(583,225,2,2,true);
    Wait(1000+random(400));
    WriteLn('The script has buried a bone!W00t?');
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    If Not LoggedIn Then
    LogIn
    repeat
    Kill;
    FindBones;
    Bury;
    end.

    Can someone fix that for me please?And also could someone help me with: if not logged in then login.Thanks -Pie.

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

    Default

    Until (IsUpText(Monster); should be

    Until (IsUpText(Monster));

    EDIT:
    SCAR Code:
    if not LoggedIn then
    LoginPlayer
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need help, problem with every script!
    By 71runemaker in forum OSR Help
    Replies: 6
    Last Post: 11-03-2007, 07:51 PM
  2. my script has a problem.....
    By corl455 in forum First Scripts
    Replies: 0
    Last Post: 09-14-2007, 10:34 PM
  3. Hi, not a script problem as such...
    By King ? in forum OSR Help
    Replies: 4
    Last Post: 09-03-2007, 02:05 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
  •