Results 1 to 4 of 4

Thread: Hard Problem

  1. #1
    Join Date
    Nov 2006
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Hard Problem

    When ever i run i get:

    Failed when compiling
    Line 60: [Error] (14406:11): 'THEN' expected in script C:\Program Files\SCAR 3.05\Scripts\Power chopper.scar

    the script is

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    var
    Tele,Tree4,Tree5,Tree6,Tree7,TreeColor: integer;

    procedure DeclareBMPS;
    begin
      Tele := BitmapFromString(21, 21, 'z78DACD96510E83201044AF54' +
           '60557E6994FB1FA9A9FA413399CD20B5A9241B83C29B5D94C156B' +
           '39427B3929E679C6DB578C6A6FFF1BE821F3FC6C20C6DB49D6B2D' +
           '5DE0E62DAF3561A41A908E4FA147217628410AD1C6B8610A31563' +
           'F520D983BE851B84B594ACD18250D983B541BB98CE82B410DEC0B' +
           'C4AC59BE694A366F18FD3AB00AF472EBDEDA5147CF350D4AB58F9' +
           '95B16D28F7BA681AD824F6FB90A1D3550BA903BA363BB837E63E5' +
           'FFE0ABBBA661E48F3B9D05F69C1FED369D5EF6B59D96798DE06E4' +
           '32EC3DC0D9DCE759C5E8765ABAC9C40864E176C4E5F89500D7AB2' +
           '1A61296FEAA726617D5F65A640EE');

       Tree4 := BitmapFromString(3, 2, '3F6A29487DFF487DFF3F6A293F' +
           '6A29487D2F');

       Tree5 := BitmapFromString(2, 7, '2B59162B59FF2B59FF2B59FF22' +
           '46FF2B59162246102246105322034A2E154A2E154A2E154A2E154' +
           'A2E15');

       Tree6 := BitmapFromString(2, 4, '224610FF5916FF46102B591622' +
           '4610224610224610224610');

       Tree7 := BitmapFromString(2, 3, '2B59162B59FF2B59FF2B59162B' +
           '59162B5916');
    end;

    Procedure Setup;
    begin
      SetupSRL;
      DeclareBMPS;
      ActivateClient;
      ClearDebug;
      MakeCompass('N');
      SetRun(true);
    end;

    Procedure GetToLumb;
    begin
     Gametab(7);
     if(FindBitmap(Tele, x, y))then
        begin
          MMouse(x, y, 1, 1);
          Mouse(x, y, 1, 1, True);
          Wait(17000+random(2000));
        end;
        FreeBitmap(Tele);
    end;

    procedure GetToTree;
    begin
      if
      TreeColor := AutoColorThis(Tree4,75,MMX1,MMY1,MMX2,MMY2)or
      TreeColor := AutoColorThis(Tree5,75,MMX1,MMY1,MMX2,MMY2)or
      TreeColor := AutoColorThis(Tree6,75,MMX1,MMY1,MMX2,MMY2)or
      TreeColor := AutoColorThis(Tree7,75,MMX1,MMY1,MMX2,MMY2)then
      RadialWalk(TreeColor,160,212,65,0,0);
      Flag;
      FreeBitmap(Tree4);
      FreeBitmap(Tree5);
      FreeBitmap(Tree6);
      FreeBitmap(Tree7);
    end;

    begin
    Setup;
    GetToLumb;
    GetToTree;
    end.

  2. #2
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Change the assignments to a regular equal sign.

    := ---> =

  3. #3
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure GetToTree;
    begin
      if
      (TreeColor := AutoColorThis(Tree4,75,MMX1,MMY1,MMX2,MMY2)or//add one ( at the beginning
      TreeColor := AutoColorThis(Tree5,75,MMX1,MMY1,MMX2,MMY2)or
      TreeColor := AutoColorThis(Tree6,75,MMX1,MMY1,MMX2,MMY2)or
      TreeColor := AutoColorThis(Tree7,75,MMX1,MMY1,MMX2,MMY2))then//add a ) to even out
      RadialWalk(TreeColor,160,212,65,0,0);
      Flag;
      FreeBitmap(Tree4);
      FreeBitmap(Tree5);
      FreeBitmap(Tree6);
      FreeBitmap(Tree7);
    end;

  4. #4
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Mmm, sounds very hard.
    I wish I could have a problem that hard.

    Haha, sorry, I saw that opportunity and had to take it.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need help Hard :(
    By ZaSz in forum General
    Replies: 3
    Last Post: 02-18-2008, 07:07 AM
  2. The big picture is hard to see
    By lefamaster in forum News and General
    Replies: 5
    Last Post: 12-19-2006, 11:53 PM
  3. Really Hard Puzzle
    By Leomage in forum News and General
    Replies: 22
    Last Post: 03-11-2006, 11:58 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
  •