Results 1 to 5 of 5

Thread: varible expected

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default varible expected

    i know what it means but i cant figure it out all of my begins have an end and all my repeats have untils?


    Procedure MineOres;
    var
    time, x, y, OreColor: integer;
    Begin
    If FindColorTolerance(x, y, OreColor, MSX1, MSY1, MSX2, MSY2, 15) Then
    Begin
    Mouse(x, y, 1, 1, True);
    MarkTime(time);
    Repeat
    Wait(200);
    If (TimeFromMark(time) >= 20*1000) then break;
    Until FindText('you manage');
    Repeat
    MineOres;
    Until(InvFull);
    End;
    End;
    yes its messy not using scar tags so standards wont work

    Until FindText('you manage'); this is ruining it

  2. #2
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Maybe FindText is f'ed up or something?

    Also change to scar tags with standards looks so much better

    SCAR Code:
    procedure MineOres;
    var
      time, x, y, OreColor: integer;
    begin
      if FindColorTolerance(x, y, OreColor, MSX1, MSY1, MSX2, MSY2, 15) then
      begin
        Mouse(x, y, 1, 1, True);
        MarkTime(time);
        repeat
          Wait(200);
          if (TimeFromMark(time) >= 20 * 1000) then
            break;
        until (FindText('you manage'));
        repeat
          MineOres;
        until (InvFull);
      end;
    end;
    begin
      SetupSRL;
      MineOres
    end.

  3. #3
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    FindText needs more parameters than just FindText('text'). ie.
    SCAR Code:
    function FindText(var cx, cy: Integer; txt: String; font, xs, ys, xe, ye: Integer): Boolean;

  4. #4
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks both of u

  5. #5
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Np, may I ask what you are making now?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Colon expected...but where?!
    By Rich in forum OSR Help
    Replies: 3
    Last Post: 05-17-2008, 02:28 PM
  2. Replies: 5
    Last Post: 05-17-2008, 12:48 PM
  3. How do I convert A String into a Varible?
    By gamer 5 in forum OSR Help
    Replies: 3
    Last Post: 02-08-2008, 03:01 AM
  4. var expected :s
    By ShowerThoughts in forum OSR Help
    Replies: 12
    Last Post: 09-25-2007, 07:33 PM
  5. Colon expected...
    By supersayian2224 in forum OSR Help
    Replies: 7
    Last Post: 07-09-2007, 09:37 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
  •