Results 1 to 5 of 5

Thread: anti ban help please

  1. #1
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default anti ban help please

    hey it says Line 60 error : 'then' expected in script....

    heres the script
    Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    
    //////////////////////////////////////
    //         Instructions             //
    // 1.Start anywhere by trees.       //
    // 2.Set the color of the tree.     //
    // 3.Equip the axe of your choice.  //
    // 4.Set the new RS window.         //
    // 5.Hit Run!     I Hope you enjoy  //
    //////////////////////////////////////
    
       ///////  //////      //           ////      ////
         //     //         // //        //  //    //  //
         //     ////      //   //      //    //  //    //
         //     //       /////////    //      ////      //
         //     //////  //       //  //        //        //
    
    ///////////////////Setup/////////////
    
    const
    Normal=798760; //change if it doesnt find the tree
    
    ///////////////Don't Touch Below This//////////////////////
    
    procedure FindTree;
    var
     i:Integer;
    begin
    if(FindObj(x,y,'hop',Normal,10))then
     begin
     Mouse(x,y,5,5,True)
      repeat
      Wait(2000)
      i:=i+1
      until(InChat('logs'))or(I>=5);
     end;
    i:=0
    end;
    
    procedure Drop;
    begin
    DropAll;
    end;
    
    ///////////////Anti-Randoms//////////////////
    
    procedure Randoms;
    begin
    Findnormalrandoms;
    end;
    
    //////////////Anti-Ban///////////////////
    
    procedure DontBanMe(mins: Integer);
    var
     DBanMe: Integer;
    begin
     if (TimeFromMark(PickUpMouseMark)) /1000) / 60 >=mins then
      DBanMe := Random(12);
     case DBanMe of
      0: RandomRClickEvery(2 + Random(10));
      1: HoverSkill('random', False);
      2:RotateEvery(20 + Random(10));
      3.LeaveScreenEvery(5 + Random(5));
      4:HoverEvery(15 + Random(5), 'random');
      5:PickUpMouse;
      6:BoredEvery(9 + Random(24));
      7:DragItem(1, 1 + Random(18));
      8:GameTab(1 + Random(12));
      9:DoEmote(1 + Random(20));
      10: PolyGlotTalk;
     end;
    end;
    
    ///////////////////Main Loop////////////////////
    begin
    SetupSRL;
     repeat
      repeat
      FindTree;
      until(invfull);
     DropAll;
     until(false)
    end.

  2. #2
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try

    if (TimeFromMark(PickUpMouseMark) /1000 / 60) >=mins then

  3. #3
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
     
    program PowerChopper;
    {.include SRL/SRL.scar}
    
    //////////////////////////////////////
    //         Instructions             //
    // 1.Start anywhere by trees.       //
    // 2.Set the color of the tree.     //
    // 3.Equip the axe of your choice.  //
    // 4.Set the new RS window.         //
    // 5.Hit Run!     I Hope you enjoy  //
    //////////////////////////////////////
    
       ///////  //////      //           ////      ////
         //     //         // //        //  //    //  //
         //     ////      //   //      //    //  //    //
         //     //       /////////    //      ////      //
         //     //////  //       //  //        //        //
    
    ///////////////////Setup/////////////
    
    const
    Normal=798760; //change if it doesnt find the tree
    
    ///////////////Don't Touch Below This//////////////////////
    
    procedure FindTree;
    var
     i:Integer;
    begin
    if(FindObj(x,y,'hop',Normal,10))then
     begin
     Mouse(x,y,5,5,True)
      repeat
      Wait(2000)
      i:=i+1
      until(InChat('logs'))or(I>=5);
     end;
    i:=0
    end;
    
    procedure Drop;
    begin
    DropAll;
    end;
    
    ///////////////Anti-Randoms//////////////////
    
    procedure Randoms;
    begin
    Findnormalrandoms;
    end;
    
    //////////////Anti-Ban///////////////////
    
    procedure DontBanMe(mins: Integer);
    var
     DBanMe: Integer;
    begin
     if (TimeFromMark(PickUpMouseMark) /60000 >=mins) then
      DBanMe := Random(12);
     case DBanMe of
      0: RandomRClickEvery(2 + Random(10));
      1: HoverSkill('random', False);
      2:RotateEvery(20 + Random(10));
      3.LeaveScreenEvery(5 + Random(5));
      4:HoverEvery(15 + Random(5), 'random');
      5:PickUpMouse;
      6:BoredEvery(9 + Random(24));
      7:DragItem(1, 1 + Random(18));
      8:GameTab(1 + Random(12));
      9:DoEmote(1 + Random(20));
      10: PolyGlotTalk;
     end;
    end;
    
    ///////////////////Main Loop////////////////////
    begin
    SetupSRL;
     repeat
      repeat
      FindTree;
      until(invfull);
     DropAll;
     until(false)
    end.
    try that, i dont have SCAR on this computer, so i dont even know if it compiles, but i think it will work.

  4. #4
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    include

    {.include SRL/SRL/Extended/xAntiban.scar}

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. special type of anti ban and anti randoms
    By Magiic in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 07-27-2008, 12:50 PM
  2. I need a script with JUST Anti-Bans and Anti-Randoms.
    By Dipped_in_Pwn_Sauce in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-18-2007, 02:38 PM
  3. Anti-X question! (anti-ban, anti-randoms)
    By jvwarrior in forum OSR Help
    Replies: 9
    Last Post: 10-31-2007, 03:09 AM
  4. Karajama auto nat runner with anti bans/ anti randoms
    By mike_2922 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-16-2007, 02:40 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
  •