Results 1 to 3 of 3

Thread: Script wont compile. again. :(

  1. #1
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Script wont compile. again. :(

    SCAR Code:
    program CutNSell;
    {.include srl/srl.scar}
    {.include srl/srl/skill/woodcutting.scar}

    //////////////////////////////////////////
    // By Jahuro//////////////////////////////
    // Cuts and sells logs in lumbridge.//////
    // V2.4///////////////////////////////////
    // Thanks to JAD and Hobbit///////////////
    //////////////////////////////////////////

    //////////////////////////////////////////////
    /////////////////{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 :='';           //
      Players[0].Pass :='';          //
      Players[0].Nick :='';               //
      Players[0].Active:=True;                  //
    end;                                        //
    //////////////////////////////////////////////
    //////////////////////////////////////////////
    var LogDTM,OakLogs,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;

    end;

    end;
    /////////////////////////////////////////
    /////////////////////////////////////////
    procedure Sell;
    var x,y :integer;
    begin
      if(FindObj(x, y, 'hop K', ShopKeep, 5))then

    MMouse(x,y,0,0);
          wait(50+random(50));
              Begin
              Mouse(x,y,0,0,False);
              wait(100+random(50));
              ChooseOption(x,y,'rade');
              Wait(300+random(150));

    If FindDTM(LogDTM, X, Y, 555, 205, 740, 464;

    begin
                  Mouse(x,y,0,0,False);
                  Wait(100+random(5));
                  ChooseOption(x,y,'ell 10');
                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.
    ///////////////////////////////////////

    JAD, i promise there wont be 17 errors like last time
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

  2. #2
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 162 change to
    SCAR Code:
    If FindDTM(LogDTM, X, Y, 555, 205, 740, 464)then
    only one problem in there.

  3. #3
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks.
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. First script, won't compile
    By igotgrapes in forum OSR Help
    Replies: 18
    Last Post: 04-12-2008, 07:29 PM
  2. Small error wont compile-please help
    By Adamb_135 in forum OSR Help
    Replies: 2
    Last Post: 04-18-2007, 01:48 PM
  3. Replies: 7
    Last Post: 04-01-2007, 02:47 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
  •