Results 1 to 9 of 9

Thread: problem i always have

  1. #1
    Join Date
    Aug 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default problem i always have

    i don't know why but every time i want to run a script it always has an error and i don't know how to fix it. i just know a really small bit about scar.
    (im not a nooby i know alot about computiong its just scar that i don't spend time with)

    Code:
    program CutNSell;
    {.include srl/srl.scar}
    {.include srl/srl/skill/woodcutting.scar}
    
    
    { By Jahuro
      Cuts and sells logs in lumbridge.
      V2.5
      Thanks to JAD, Hobbit
      and ~alex~ }
    
    
    /////////////////////////////////////////////////
    ////////////////////{SETUP}//////////////////////
    /////////////////////////////////////////////////
    
    const
      Color = 2132088;
      TreeTime = 2000; {Time it takes to cut Oak}
      ShopKeep = 2971004; {Color of shop keeper}
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := 'rock gholem';
      Players[0].Pass := 'eminem';
      Players[0].Nick := 'roc';
      Players[0].Active := True;
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    var LogDTM, crossbmp, WoodLoads, i: Integer;
    
    
    function FindFastRandoms: Boolean;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then
              Result := True;
          11: if FindLamp(LampSkill) then
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
    
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure TheAntiBan;
    begin
      RotateEvery(1 + random(4));
      RandomChatEvery(2 + random(4));
      RandomRClickEvery(3 + random(4));
      LeaveScreenEvery(1 + random(4));
      AntiBan;
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure Report;
    begin
      Writeln('[]-------------------------------------------[]');
      Writeln('[]------------JAHURO WOOD WHACKER------------[]');
      Writeln('Worked For : ' + ScriptTime2(2));
      Writeln('Cut-N-Sold ' + IntToStr(WoodLoads) + ' Loads');
      Writeln('[]-------------------------------------------[]');
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure ClickTree;
    var x, y: integer;
    begin
      repeat
        if (FindObj(x, y, 'Oak', color, 5)) then
          MMouse(x, y, 0, 0);
        wait(100 + random(50));
        Mouse(x, y, 0, 0, true);
        Report;
        FindFastRandoms;
        wait(TreeTime + random(50));
        TheAntiban;
      until (InvFull);
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure Shopwalk;
    var x, y: integer;
    begin
      if (FindSymbol(x, y, 'shop')) then
      begin
        Mouse(x, y, 5, 5, true)
          Flag;
        wait(1000 + random(50));
      end;
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure CloseShop;
    begin
      begin
        crossbmp := BitmapFromString(6, 6, 'z78DA33373033343133A798' +
          '3473327531318690062060082191C571A92159A589A9B90916125' +
          '90D00DAB82C47');
      end;
      begin
        if (FindBitmap(crossbmp, x, y)) then
        begin
          FindBitmap(crossbmp, x, y)
            Mouse(x, y, 6, 6, True)
            Wait(1000);
        end else
        begin
          WriteLn('didnt find cross bmp, blind clicking')
            MMouse(484, 41, 2, 2)
            wait(100)
            if (IsUpText('lose')) then
          begin
            Mouse(484, 41, 2, 2, true)
          end else
          begin
            Writeln('I dont think we are in a shop..')
              Writeln('Not clicking')
          end;
        end;
      end;
      wait(10)
        FreeBitmap(crossbmp);
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure Sell;
    var x, y: integer;
    begin
      if (FindObj(x, y, 'hop K', ShopKeep, 5)) then
        MMouse(x, y, 0, 0);
      begin
        Mouse(x, y, 0, 0, False);
        wait(100 + random(50));
        ChooseOption(x, y, 'rade');
        Wait(3000 + random(150));
        if FindDTM(LogDTM, X, Y, 555, 205, 740, 464) then
        begin
          Mouse(x, y, 0, 0, False);
          Wait(100 + random(5));
          ChooseOption(x, y, 'ell 10');
          CloseShop;
        end;
      end;
      RadialWalk(612139, 297, 585, 48, 1, 1);
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    procedure LoadDTMS;
    begin
      LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
        '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
        '22604E23500D0F0135C94035DCF8D50000507909F5');
    end;
    
    /////////////////////////////////////////////////
    /////////////////////////////////////////////////
    
    begin
      setupsrl;
      LoadDTMS;
      DeclarePlayers;
      LoginPlayer;
      Report;
      SRLRandomsReport;
      TheAntiBan;
      repeat
        ClickTree;
        Report;
        shopwalk;
        Sell;
        Report;
        SRLRandomsReport;
        MakeCompass('N');
      until false;
    end.
    
    /////////////////////////////////////////////////
    /////////////////////////////////
    the first problem i know of about this program is: RotateEvery(1 + random(4));

    "failed when compiling
    line97 error (15217:1) unkown undentifier 'RotateEvery' in script"

    can you help me?

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    pm me for help
    i will fix it ill edit this post soon...

    edit:
    sorry dude if i fix it you got 2 lines of script after i did it i suggest make a new one
    and dont forget to put {.include srl/???antiban.scar place???}
    ~Hermen

  3. #3
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    i think this is for a srl version previous to srl 4, i think you can better try a differnt script
    Infractions, reputation, reflection, the dark side of scripting, they are.

  4. #4
    Join Date
    Aug 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default do you know any.....

    do you know any good auto woodcutting scripts?

    thanks btw

  5. #5
    Join Date
    Mar 2009
    Location
    Stacey's Mom, Has got it goin on.
    Posts
    68
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Uhhhmmm Probably close this
    REMEMBER: Having a flame war is just like the Special Olympics; Even if you win, YOU'RE STILL RETARTED.



  6. #6
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by Bro View Post
    Uhhhmmm Probably close this
    hey dude, Please don't take this post wrong.
    You have just Gravedigged(making a post in a ooollld thread, this thread was made in 2007 like 2 years ago.) and you made a useless post for asking it to close. Just let it be.

    Thanks

  7. #7
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Bro View Post
    Uhhhmmm Probably close this
    Why would you ask for it to be closed if it is peacefully dying itself?

  8. #8
    Join Date
    Sep 2006
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    update

  9. #9
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by darklord1147 View Post
    update
    Good one. See above posts for what gravedigging is...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. problem...
    By Blumblebee in forum OSR Help
    Replies: 4
    Last Post: 12-28-2008, 07:22 AM
  2. help big problem
    By goblanca in forum OSR Help
    Replies: 3
    Last Post: 05-19-2007, 10:41 PM

Tags for this Thread

Posting Permissions

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