Results 1 to 14 of 14

Thread: My Script is finding errors in the includes!

  1. #1
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Script is finding errors in the includes!

    this exsact same script was working fine yesterday and now when i try and run it it comes up with errors in the includes!

    Code:
    Line 205: [Error] (205:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.15\includes\SRL\SRL\Core\Math.scar
    is the error message and its happaning in non other than the math.scar include even when my script doesent use it
    Code:
    begin
      Angle1 := FixD(Angle1);
      Angle2 := FixD(Angle2);
      MinAngle := Angle1;
      if Angle1 > Angle2 then MinAngle := Angle2
        MaxAngle := Angle1;
      if Angle1 < Angle2 then MaxAngle := Angle2
        MinRadius := Radius1;
      if Radius1 > Radius2 then MinRadius := Radius2
        MaxRadius := Radius1;
      if Radius1 < Radius2 then MaxRadius := Radius2
        OTemp.x := x;
      OTemp.y := y;
    is the part of the math that it is accuring in


    Code:
    //Notes:
    //you must have all the clay and buckets(empty or full) to start with
    //buckets and clay must be in the first 4 rows of your bank
    //no bankpin (or already entered)
    //you need as meny buckets as clay (there 7gp from GE dont be cheap)
    //please have your man standing next to the counter in varrock east
    //bank and press run. (this defantly insent un stoppable i dont
    //segest any more than 10 lodes (140 clay) to be left alone as it
    //dont like randoms.)
    
    program New;
    {.include SRL/SRL.scar}
    
    var
      Fullbucket, Emptybucket, Counter, Clay: integer;//DTMs
      SoftClay, Road, Fountain, Fountain2, road2, bank: integer;//I like DTMs =P
      X, Y, XX, YY, lodesdone: integer;
    
    const
    LodesToDo     = 10; //number of lodes to do (14 clay to a lode)
    countercolor  = 1589583; // the color of the counter your working at
    fountaincolor = 8739397; // the color of the water in the fountian
    
    
    procedure DeclarePlayers;//not nessasery only used for findnormalrandoms;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name        := 'aplayer123';
      Players[0].Pass        := '1234';
      Players[0].Nick        := 'p123';
      Players[0].Active      := True;
    
    end;
    
    procedure checkrandoms;
    begin
       FindNormalRandoms;
       FindNonInventoryRandoms;
    end;
    
    
    procedure setup;
    begin
      setupsrl;
      ActivateClient;
      declareplayers;
      wait(1000);
      makecompass('N');
      lodesdone := 0
      Fullbucket  := DTMFromString('78DA63DCC9C0C090CF8002B243B519F881342' +
           '310FF0702C67D404622031A60442281F46620914440CD26205146' +
           '40CD2E20514940CD212051805F0D00EA360BF1');
      Emptybucket := DTMFromString('78DA637CC6C0C090CF8002DAB3CD194480342' +
           '310FF0702C6B740463AAA1A57633E30CD08E533DE0112690C6880' +
           '1155CD3D205146400DC83D9504D480DC538C5F0D00F8CD0DCE');
      Counter := DTMFromString('78DA633CCEC0C07094010558EA0B826946289' +
           'FF10CA61A3B6361543587089B03008DC80621');
      Clay  := DTMFromString('78DA639CC2C4C010CCC8800C26947B33B0026' +
           '990E87F20609C0954E38DAA06220B2381F40CA09A30026A2610A1' +
           'A60FA82610BF1A00050809EF');
      SoftClay := DTMFromString('78DA639CCAC4C010C0C8800CE25C381852803' +
           '448F43F10302E00AAF142550391859140BA17A8C687809A6EA09A' +
           '70026AA603D5441350331FA8260CBF1A004D3D0A9F');
      road := DTMFromString('78DA630C6662603064400179D9A90CFC409A1' +
           '188FF0301630C508D29AA9A101F6D30CD08E5334600D5581250E3' +
           '8FA9A6202D0C450D009B320A4A');
      fountain := DTMFromString('78DA632C646260B06040016611EF198C80342' +
           '310FF0702C612A01A4354358C8C8C101AC6CF02AA3123A02617A8' +
           'C696809A72A01A6BFC6A00B66A0916');
      fountain2 := DTMFromString('78DA635CC8C0C0D0C680025CA35A19E480342' +
           '310FF0702C6E5986ABC9326816946289F710190684255E319DF8B' +
           'AA660E9068475563ED5B88AA06E49E4E54350E21B5286A00B5510' +
           'F8A');
      road2 := DTMFromString('78DA635CC7C4C090CB80024202B419F881342' +
           '310FF0702C6B54035A5A86A9E3FFF04A619A17CC6A5403599A86A' +
           'C2837551D52C01AA29C66F0E00ED9B0FA4');
      bank := DTMFromString('78DA63AC64626068614001FFFE0933C801694' +
           '620FE0F048CB5986AFEFC6102D38C503E631590DF89AA262F3B15' +
           '450D0030E90C6F');
           checkrandoms;
    end;
    
    procedure scriptterminate;
    begin
    freedtm(Fullbucket);
    freedtm(Emptybucket);
    freedtm(Counter);
    freedtm(Clay);
    freedtm(SoftClay);
    freedtm(road);
    freedtm(fountain);
    freedtm(fountain2);
    freedtm(road2);
    freedtm(bank);
    end;
    
    function isbankopen: boolean;
    begin
      if(getcolor(242, 35) = 4106994)then result := True
      else result := False
    end;
    
    
    procedure openbankv;
    var
      i : integer;
    
    begin
      if(not(loggedin))then
      begin
      writeln('Wasent loged in, so the script was ended.');
      terminatescript;
      end else
      begin
        if(isbankopen = false)then
        begin
        findbank('veb');
            {repeat
            makecompass('N');
            sendarrowsilentwait(0, 2000);
            if (findcolor(x,y, countercolor,180, 154, 458, 304))then
            begin
            writeln('opened bank');
            mouse(x, y+10, 3, 3, false);
            wait(500+random(500));
            mouse(x, y+54, 3, 3, true);
            wait(3000+random(1000));
              if(isbankopen = true) then i := 3
            end else
            begin
            i := i+1
            wait(random(500));
            makecompass('N');
            end;
          until(i = 3)
        }end;
      end;
    end;
    
    procedure closebank2;
    begin
      if(isbankopen = true) then
      begin
      mouse(488, 35, 3, 4, true);
      checkrandoms;
      end;
    end;
    
    procedure bankclay;
    begin
      if(not(loggedin))then
      begin;
      terminatescript;
      end;
      if(isbankopen = false)then
      begin
      openbankv;
      end;
      if(finddtm(SoftClay, x, y, MIX1, MIY1, MIX2, MIY2) = true)then
      begin
      mouse(x, y, 3, 3, false);
      mouse(x, y+93, 3, 0, true);
      writeln('banking soft clay')
      end;
      if(finddtm(Emptybucket, x, y, MIX1, MIY1, MIX2, MIY2) = true)then
      begin
      mouse(x, y, 3, 3, false);
      mouse(x, y+100, 3, 0, true);
      writeln('banking empty buckets');
      end;
      checkrandoms;
    end;
    
    procedure withdrawclay;
    begin
      if(not(loggedin))then
      begin;
      terminatescript;
      end;
      if(isbankopen = false)then
      begin
      openbankv;
      end;
      if(finddtm(clay, x, y, MSX1, MSY1, MSX2, MSY2) = true)then//withdraws clay
      begin
      mouse(x, y, 3, 3, false);
      mouse(x, y+53, 3, 0, true);
      mouse(x, y, 1, 1, true);
      mouse(x, y, 1, 1, true);
      mouse(x, y, 1, 1, true);
      mouse(x, y, 1, 1, true);
      end;
      if(finddtm(Fullbucket, x, y, MSX1, MSY1, MSX2, MSY2) = true)then
      begin
      mouse(x, y, 3, 3, false);
      mouse(x, y+100, 3, 0, true);
      end;
      checkrandoms;
    end;
    
    procedure MakeSoftClay;
    begin
      if(not(loggedin))then
      begin;
      terminatescript;
      end;
      if(finddtm(Fullbucket, x, y, MIX1, MIY1, MIX2, MIY2))then
      begin
      mouse(x, y, 3, 3, true);
        if(finddtm(Clay, x, y, MIX1, MIY1, MIX2, MIY2))then
        begin
        mouse(x, y, 3, 3, true);
        wait(1000+random(500));
        mouse(255, 415, 5, 5, false);
        mouse(255, 476, 3, 0, true);
        wait(18000+random(2000));
        writeln('made a lode');
        lodesdone := lodesdone + 1
        end else
        begin
        writeln('couldent find clay logging out');
        logout;
        terminatescript;
        end;
      end else
      begin
      writeln('couldent find buckets logging out');
      logout;
      terminatescript;
      end;
    end;
    
    procedure WalkToFountain;
    begin
    Makecompass('S');
    MakeCompass('N');
      if(finddtm(road, x, y, 524, 0, 712, 166) = true)then
      begin
      mouse(x, y, 0, 0, true);
      wait(5000+random(1000));
        if(finddtm(fountain, x, y, 524, 0, 712, 166) = true)then
        begin
        mouse(x, y, 0, 0, true);
        wait(5000+random(1000));
        end else
        begin
        writeln('couldent find fountain, guessing insted.');
        mouse(588, 53, 4, 4, true);
        wait(5000+random(1000));
        end;
      end else
      begin
      writeln('couldent find road guessing');
      radialwalk(3498342, 270, 360, 50, 0, -3);
      wait(3000+random(1000));
      mouse(633, 63, 2, 2, true);
      wait(5000+random(2000));
      end;
    end;
    
    procedure FillFromFountain;
    begin
      if(findcolor(x, y, fountaincolor, MSX1, MSY1, MSX2, MSY2) = false)then
      begin
        if(finddtm(fountain, x, y, 524, 0, 712, 166) = true)then
        begin
        mouse(x, y, 0, 0, true);
        wait(5000+random(1000));
        end else
        begin
        writeln('couldent find the fountain logging out');
        terminatescript;
        end;
      end;
      if(findcolor(x, y, fountaincolor, MSX1, MSY1, MSX2, MSY2) = true)then
      begin
        if(finddtm(emptyBucket, xx, yy, MIX1, MIY1, MIX2, MIY2) = true)then
        begin
        wait(3000);
        mouse(xx, yy, 3, 3, true);
        mouse(x, y, 3, 3, true);
        wait(17000+random(2000));
        end else
        begin
        writeln('no buckets going back to bank');
        end;
      end;
    end;
    
    procedure WalkToBank;
    begin
      if(finddtm(road2, x, y, 524, 0, 712, 166) = true)then
      begin
      mouse(x, y, 0, 0, true);
      wait(7000+random(1000));
        {if(finddtm(bank, x, y, 524, 0, 712, 166) = true)then
        begin
        mouse(x, y-5, 0, 0, true);
        wait(5000+random(1000));
        end else
        begin
        writeln('couldent find bank, guessing insted.');
        mouse(632, 111, 0, 0, true);
        wait(5000+random(1000));
        end;}
      end else
      begin
      writeln('couldent find road guessing');
      mouse(685, 120, 0, 0, true);
      wait(7000+random(1000));
      end;
    end;
    
    procedure FillBuckets;
    begin
      if(isbankopen = false) then
        begin
        openbankv;
        end;
          while(finddtm(emptybucket, x, y, MSX1, MSY1, MSX2, MSY2) = true)Do
            begin
            mouse(x, y, 3, 3, false);
            mouse(x, y+100, 3, 0, true);
            closebank2;
            WalkToFountain;
            FillFromFountain;
            WalkToBank;
            openbankv;
            wait(1000+random(2000));
              if(finddtm(FullBucket, x, y, MIX1, MIY1, MIX2, MIY2) = true)then
              begin
              mouse(x, y, 3, 3, false);
              mouse(x, y+100, 3, 0, true);
              end else
              begin
              writeln('couldent bank bukets ammusing theres 1 in secound slot');
              mouse(623, 231, 3, 3, false);
              mouse(623, 331, 3, 0, true);
              end;
            wait(2000+random(2000));
            end;
    writeln('No more empty buckets! started making soft clay!');
    end;
    
    begin
    setup;
    FillBuckets;
      repeat
        if(isbankopen = false) then
        begin
        openbankv;
        end;
        bankclay;
        withdrawclay;
        closebank2;
        MakeSoftClay;
      until(LodesDone = LodesToDo);
    end.
    is my actual script (a nice soft clay maker that actuly works quite well )

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  3. #3
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    update your srl to rev #20

    ~shut
    thats the first thing i tryed and it dident work i also tryed fixing the 'error' with the includes (even though they souldent have been errors) but there was just far 2 meny of um im going to try reinstalling scar

  4. #4
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tryed reinstalling but its done exsactuly the same thing

  5. #5
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  6. #6
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    through the usual methord file > Downlode SRL
    i have version 420 witch i know i downloded about 4 days ago witch leads me to belive its nothing 2 do with the includes witch is y this has got me realy stumped

  7. #7
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    That is because you must download from the SVN.

    Read Runescapian's tut on this.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  8. #8
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    even:
    program New;
    {.include SRL/SRL.scar}
    begin
    setupsrl;
    writeln('hi');
    end.

    doesent work =\

  9. #9
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Read a tut in the "How To Auto" section of Tutorial Island...

  10. #10
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by bazzbarrett View Post
    even:
    program New;
    {.include SRL/SRL.scar}
    begin
    setupsrl;
    writeln('hi');
    end.

    doesent work =\
    Try this .
    ~Eerik~

  11. #11
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Read my tut called 'Your Full Guide on Preparing to Auto', in my sig. Read the 'Where Do I download SRL?' part.

  12. #12
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    as 1 door closes another 1 opens =\ downloded from svn and got this error
    Line 46: [Error] (229:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
    im sure ive seen a thread about this somewere and ive read both thoses guides

  13. #13
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by bazzbarrett View Post
    as 1 door closes another 1 opens =\ downloded from svn and got this error
    Line 46: [Error] (229:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
    im sure ive seen a thread about this somewere and ive read both thoses guides
    Did you even set up your players ?
    ~Eerik~

  14. #14
    Join Date
    May 2008
    Location
    Here :p
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yay thx guys i clicked alot of random buttons somehow installed snv autoupdater thing but its worked and i think ive got it all set up.. thx alot guys.. but now i feal like a right noob for not knowing in teh first place XD

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 8
    Last Post: 04-09-2007, 12:21 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
  •