Results 1 to 3 of 3

Thread: identifier expected?

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

    Default identifier expected?

    could sum1 plz tell me what i have to add or move around to solve this error:

    line 42 identifier expected in script.
    script is below

    l
    \/



    Program AutoPickup;
    {.include SRL/SRL.scar}

    const
    Color1 =2565932;//
    Color2 =2829101;// >pick colors
    Color3 =2565929;//

    ///////////If Login doesnt work tell me on srl or scar-scripts////////////
    /////////until then delete it if it doesnt work or you dont want it////
    ///////remember to remove declare players from the last loop(line 71)//
    Procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;
    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active := True;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure Signature;
    begin
    ClearDebug;
    Writeln('My First Working Script!!!');
    Writeln('Pickup Whatever item u set it to!');
    Writeln(' Uses Colors and mouse commands');
    Writeln(' By:Lilboy543');
    Wait(2000 + random(550));
    end;

    procedure ClickColors;
    begin
    repeat
    if(FindColor(x,y,Color1,MSX1,MSY1,MSX2,MSY2))or
    (FindColor(x,y,Color2,MSX1,MSY1,MSX2,MSY2))or
    (FindColor(x,y,Color3,MSX1,MSY1,MSX2,MSY2))then
    begin
    Mouse(x,y,2,2,true)
    until(false);
    end;
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    Signature;
    ClickColors;
    end.

    also accepting all advice or constructive criticism.

  2. #2
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You messed up the repeats and untils, here's the problem fixed:

    SCAR Code:
    procedure ClickColors;
    begin
    repeat
    if(FindColor(x,y,Color1,MSX1,MSY1,MSX2,MSY2))or
    (FindColor(x,y,Color2,MSX1,MSY1,MSX2,MSY2))or
    (FindColor(x,y,Color3,MSX1,MSY1,MSX2,MSY2))then
    begin
    Mouse(x,y,2,2,true)
    end;
    until(false);
    end;

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

    Default

    oh ok ty

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Identifier Expected
    By Torrent of Flame in forum OSR Help
    Replies: 9
    Last Post: 02-23-2008, 01:21 PM
  2. Identifier expected
    By badandymitch in forum OSR Help
    Replies: 4
    Last Post: 05-31-2007, 11:57 PM
  3. Identifier Expected
    By PwNZoRNooB in forum OSR Help
    Replies: 5
    Last Post: 05-03-2007, 07: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
  •