Results 1 to 5 of 5

Thread: Help please

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

    Default Help please

    SCAR Code:
    program Lumbridge;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}
    {.include SRL\SRL\Skill\RuneCrafting.SCAR}

    var
    Tele:integer;
    TheTreee:integer;
    Dirt:integer;
    Dirt2:integer;
    Dirt3:integer;
    DirtColor, DirtBitmap;

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

      Dirt := BitmapFromString(9, 1, 'z78DA33733635333237C34B9A1B' +
           '9BB91859424888080042F10BBA');

      Dirt2 := BitmapFromString(9, 6, 'z78DA337336353332371B25292' +
           '0019EF2463F');

      Dirt3 := BitmapFromString(11, 5, 'z78DA337336353332371B2529' +
           '20CD8DCD5C8C2C014914478E');

    end;

    Procedure Setup;
    begin
     SetUpSRL;
     ActivateClient;
     ClearDebug;
     PerfectNorth;
     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);
        end;
        FreeBitmap(Tele);
    end;

    Procedure GoDraynor;
    begin
     RadialRoadWalk(FindRoadColor, 70, 40, 70, -1, 0);
     Wait(2000+random(2000));
     Flag;
     RadialRoadWalk(FindRoadColor, 304, 323, 63, -1, 0);
     Wait(2000+random(2000));
     Flag;
     RadialRoadWalk(FindRoadColor, 318, 342, 57, -1, 0);
     Wait(2000+random(2000));
     Flag;
     Mouse(601, 123, 1, 1, True);
     Wait(2000+random(2000));
     Flag;
     if findsymbol(x,y,'Farming Spot')
      then
      begin
       MMouse(x, y, 0, 0);
       Mouse(x,y,0,0,true)
       Flag;
      end;
       begin
        Dirt := AutoColorThis(DirtBitmap,50,MMX1,MMY1,MMX2,MMY2)
        RadialWalk( Dirt , 329, 350, 59, 0, 0);
    end;

    begin
    Setup;
    DeclareBMPS;
    GetToLumb;
    Wait(17000+random(2000));
    GoDraynor;
    end.

    Can someone help?

  2. #2
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    What do you need help with?

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

    Default

    o yea srry umm i get:

    Failed when compiling
    Line 12: [Error] (18229:22): colon (':') expected in script C:\Program Files\SCAR 3.01\Scripts\Operation Lumbridge.scar

  4. #4
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    You didn't tell what kind of Var DirtColor and DirtBitmap are. You just have a colon after them. And I don't even see a need for DirtColor because you don't even have it in the script anywhere else.

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

    Default

    you probably mean
    DirtColor:integer;
    DirtBitmap:integer;

    and why dont you just dont turn
    Tele:integer;
    TheTreee:integer;
    Dirt:integer;
    Dirt2:integer;
    Dirt3:integer;
    DirtColor, DirtBitmap;

    into

    Tele,TheTreee,Dirt,Dirt2,Dirt3,DirtColor,DirtBitma p:integer;

Thread Information

Users Browsing this Thread

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

Posting Permissions

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