Results 1 to 4 of 4

Thread: Error please someoen help.

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

    Default Error please someoen help.

    this is the script so far, when 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

    Here is the script:

    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
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Here

    SCAR Code:
    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

    You had extra )s

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

    Default

    Thanks now i get the new error above tho.

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    fixed some more, but still getting erros


    SCAR Code:
    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
      Begin
        RadialWalk(TreeColor,160,212,65,0,0);
        Flag;
        FreeBitmap(Tree4);
        FreeBitmap(Tree5);
        FreeBitmap(Tree6);
        FreeBitmap(Tree7);
      End;
    end;

    begin
    Setup;
    GetToLumb;
    GetToTree;
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Line 135: [Error] (14845:1): Syntax error in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 16
    Last Post: 05-23-2008, 01:14 PM
  2. Replies: 5
    Last Post: 02-26-2008, 04:14 PM
  3. Smart error and Some kind of Math.scar error
    By FagetHax0r in forum OSR Help
    Replies: 6
    Last Post: 02-24-2008, 10:43 AM
  4. Error: Cannot Fix Script - Error Overgrowth - Begin Headdesking
    By PhantasmalScripter in forum OSR Help
    Replies: 6
    Last Post: 12-23-2006, 12:50 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •