Results 1 to 5 of 5

Thread: xAIO Fighter | Re-releasing my old scripts

  1. #1
    Join Date
    Mar 2013
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    127 Post(s)

    Default xAIO Fighter | Re-releasing my old scripts

    This is my old auto fighter. It had a good progress report and a very good antiban.
    Code:
    program BetterAIOFighter;
    {$Define SMART8}
    {$i Srl/Srl.simba}
    {$i P07Include.simba}
    
    var
    x, y: Integer;
    InCombat, num1, num2, OurBones, SkillDTM, BonesBuried, Bonecount, MAttacked: Integer;
    const
    
        // REQUIRED CONFIGURATION BY USER:
       Username = '';                      // Username
       Password = '';                      // Password
    
      BuryBones = 'true';                  // Bury bones?
    
      StatToTrain = 'Strength';            // Which skill are you training?
      FightStyle = 2;                      // 1 = Attack/Accurate, 2 = Strength/Rapid, 3 = Controlled/Long range, 4 = Defence
    
      TakeArrows = 'true';                // Loot arrows?
      TakeBolts = 'true';                 // Loot Bolts?
    
      MNick = 'ow';                        // Monster name without the first letter
      MFullName = 'Cow';                   // Monster's full name
      MColor = 2967635;                    // Monster Color 1
      MColor2 = 7042951;                   // Monster Color 2
      MColor3 = 11975872;                  // Monster Color 3
      MColor4 = 5926535;                   // Monster Color 4
    
      SkillHover1 = 'Strength';           // First skill for the anti-ban to check
      SkillHover2 = 'Hitpoints';          // Second skill for the anti-ban to check
    
      Loot1 = 'Coins';                    // Loot 1 name including the first letter
      LColor1 = 1479346;                  // Color of Loot 1 to pick up
    
      Loot2 = 'Coins';                    // Loot 2 name including the first letter
      LColor2 = 1479346;                  // Color of Loot 2 to pick up
    
      Loot3 = 'Coins';                    // Loot 3 name including the first letter
      LColor3 = 1479346;                  // Color of Loot 3 to pick up
    
      Loot4 = 'Coins';                    // Loot 4 name including the first letter
      LColor4 = 1479346;                  // Color of Loot 4 to pick up
    
        // DON'T CHANGE THIS UNLESS YOU'RE HAVING PROBLEMS //
      BonesColor = 14145500;
    
      ArrowColor = 922990;                 // Color of arrow end(red)
    
      ArrowColor2 = 602966;                //Color of arrow shaft
    
      BoltColor   = 599091;               //Color of bolt
    
     ///////////////////////////////////////////////////////////////////////////////
     //                                                                           //
     //                                                                           //
     //                         END OF CONFIGURATION                              //
     //                                                                           //
     //                                                                           //
     ///////////////////////////////////////////////////////////////////////////////
    
    procedure P07_DeclarePlayers;
      begin
        P07_PlayerName := UserName;
        P07_PlayerPass := Password;
      end;
    procedure P07_SetRun(Run: Boolean);
    var
      x, y: integer;
    begin
      if not P07_TabInventoryTab(12) then
      begin
        writeln('ERROR: Could not P07_TabInventoryTab(12) -> Error in P07 include or random! Exiting');
        Exit;
        end;
      if (FindColor(x, y, 4342852, 627, 416, 658, 444)) then
      begin
        writeln('-> Run = on!');
    
        mouse(x, y, 1, 1, 1);
      end;
      writeln('-> Going to inventory tab');
      P07_TabInventoryTab(4);
    end;
    
    procedure SetMeUp;
      begin
          writeln('-- Configuring player --');
          writeln('-> Checking AutoRetaliate.');
          P07_AutoRetaliate(true);
            writeln('-> Checking CombatStance');
        if(FightStyle = 0) then
          begin
              writeln('ERROR: Please fill in the FightStyle settings!');
            TerminateScript;
          end;
        P07_CombatStance(FightStyle);
          writeln('-> CombatStance = '+Inttostr(FightStyle)+'');
          writeln('-> Making Compass South');
        P07_MakeCompassSouth;
          writeln('-> Making Camera Angle High');
        P07_MakeCameraAngleHigh;
        P07_SetRun(true);
          writeln('-- Configuration completed --');
          writeln('');
        BonesBuried := 0;
        OurBones := DTMFromString('mQwAAAHicY2ZgYJjNxMCwAIgnA/FTIP8FED8G4uWzZwFJRoYNS5YwsAJZMMyIhIEAAG7VCG8=');
        SkillDTM := DTMFromString('mKgEAAHic42NgYPjMyMDwB4hfQvFfIP4OxG+B+DUQPwfij0D8A4h/QfFvIBYD6uWBYjkglodiBSCWAGJ+KOYGYmGouCQQP9hRxbC01h6OQXwGBkaCmBVIomNiAGGTsWNUAAC5GRcX');
    end;
    
    procedure ProgressReport;
      begin
          Wait(5000);
          ClearDebug;
            writeln('-- AIO Fighter Release 0.1 ---------');
            writeln('-Time Running: '+TimeRunning+'!');
            writeln('-Monster to attack: '+MFullName+'.');
            Writeln('-'+MFullName+'s Attacked: ' + intToStr(MAttacked));
          if BuryBones = 'true' then
            begin
              Writeln('-Bones buried: ' + intToStr(BonesBuried));
              Writeln('-Prayer Exp gained:   ' + intToStr(BonesBuried * 4));
              Writeln('-Bones currently in inventory: ' + intToStr(boneCount));
          if BuryBones = 'false' then
            Writeln('- Burying bones is off');
            end;
      end;
    
    procedure Attack;
    var x, y: Integer;
      begin
          wait(500 + random(800))
          if P07_FindObjCustom(x,y, ['ttack', MNick], [MColor, MColor2, MColor3, MColor4], 5) then
          begin
            if InCombat = (0) then
             begin
               P07_MouseBox(X, Y, X, Y, mouse_left);
               wait(random(200));
             end;
          end;
         MAttacked := MAttacked + 1;
        progressreport;
      end;
    
    procedure FreeeDTMs;
    begin
      FreeDTM(OurBones);
      FreeDTM(SkillDTM);
    end;
    
    procedure buryAll;
      begin
        FindDTM(OurBones, X, Y, 559, 214, 726, 463);
          repeat
            Mouse(X, Y, 3, 3, True);
            Sleep(RandomRange(500, 800));
            BonesBuried := BonesBuried + 1;
            ProgressReport;
          until(FindDTM(OurBones, X, Y,559, 214, 726, 463) = false);
      end;
    procedure ResetBoneCount;
    begin
      if BoneCount <> 0 then
      BoneCount := 0;
    end;
    procedure LootItems;
    begin;
        InCombat := 1;
        P07_MakeCameraAngleHigh;
    
            if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
              begin
                WriteLn('In Combat . . .');
              end
            else InCombat := 0;
    
            // Collect Arrows
            if TakeArrows = ('') = true then
              begin
                if P07_FindObjCustom(x,y, ['Arrow'], [ArrowColor, ArrowColor2], 5) then
                  begin
                    wait (randomrange(100, 200));
                    ClickMouse2(mouse_right);
                    wait(randomrange(300, 500));
                    P07_ChooseOptionMulti(['Arrow']);
                  end;
              end;
    
          //Collect Bolts
          if TakeBolts = ('') = true then
              begin
                if P07_FindObjCustom(x,y, ['Bolts'], [BoltColor], 5) then
                  begin
                    wait (randomrange(100, 200));
                    ClickMouse2(mouse_right);
                    wait(randomrange(300, 500));
                    P07_ChooseOptionMulti(['Bolts']);
                  end;
              end;
    
          //Collect Bones
          if BuryBones = 'true' then
            begin
              if P07_FindObjCustom(x,y, ['Bones'], [BonesColor], 5) then
                begin
                  wait (randomrange(100, 200));
                  ClickMouse2(mouse_right);
                  wait(randomrange(300, 700));
                  P07_ChooseOptionMulti(['Bones']);
                  boneCount := boneCount + 1;
                  progressreport;
                end;
            end;
    
          //Collect Loot1
            if Loot1 = ('') = false then
            begin
              if P07_FindObjCustom(x,y, [Loot1], [LColor1], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(400, 900));
                P07_ChooseOptionMulti([Loot1]);
                progressreport;
              end;
              end;
    
         //Collect Loot2
            if Loot2 = ('') = false then
            begin
              if P07_FindObjCustom(x,y, [Loot2], [LColor2], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(400, 900));
                P07_ChooseOptionMulti([Loot2]);
                progressreport;
              end;
              end;
    
          //Collect Loot3
           if Loot3 = ('') = false then
           begin
              if P07_FindObjCustom(x,y, [Loot3], [LColor3], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(400, 900));
                P07_ChooseOptionMulti([Loot3]);
                progressreport;
              end;
              end;
    
         //Collect Loot4
          if Loot4 = ('') = false then
          begin
              if P07_FindObjCustom(x,y, [Loot4], [LColor4], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(400, 900));
                P07_ChooseOptionMulti([Loot4]);
                progressreport;
              end;
            end;
          end;
    
    Procedure Antiban;
      Begin
      Writeln('Starting Anti-ban');
        sleep(RandomRange(1000, 2000));
          Case Random(6) Of
            1: begin P07_HoverSkill(SkillHover1, RandomRange(1500,2500));
              Writeln('Anti-Ban chosen - Hover ' +SkillHover1+'!'); end;
    
            2: begin Writeln('Anti-Ban chosen - Pausing for a breif moment');
              Wait(2500 + random(4500)); end;
    
            3: begin Writeln('Anti-Ban chosen - Hover skill ' +Skillhover2+'!');
              P07_HoverSkill(SkillHover2, RandomRange(1500,2500)); end;
    
            4: begin Writeln('Anti-Ban chosen - Random right click');
              RandomRClick; end;
    
            5: begin Writeln('Anti-Ban chosen - Change compass angle to Low!');
              P07_MakeCompassdegree(randomrange(0, 360)); P07_MakeCameraAngleLow; end;
    
            6: begin Writeln('Anti-Ban chosen - Change compass angle to High!');
              P07_MakeCompassdegree(randomrange(0, 360)); P07_MakeCameraAngleLow; end;
          end;
      end;
    
    
      begin
        P07_DeclarePlayers;
        SetupSRL();
        SetupP07Include;
        ClearDebug;
          writeln('Welcome to the Re-done Upgraded AIO Fighter.');
          writeln('Script by Required-one and Brid mayhem.');
          writeln('Special thanks to Phury for the bone burying base.');
    
      if (not P07_LoggedIn) then
        P07_LogInPlayer;
        SetMeUp;
    
      repeat
    
        if (not P07_LoggedIn) then
        begin
          P07_LogInPlayer;
          SetMeUp;
        end;
        if(P07_InvFull) then
          begin
            wait(2500);
            buryAll;
            ResetBoneCount;
          end;
        if InCombat = 0 then
          Attack;
          Antiban;
          progressreport;
          wait(2000 + random(100));
          LootItems;
      until (false)
      FreeeDTMs;
    end.

  2. #2
    Join Date
    May 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Looks like a good script, testing it now
    Bug i found: When using the antiban it doesn't hover over the skill but it clicks on it so the guide pops up..

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

    Default

    Not many comments on this, I guess I will give it a shot.

  4. #4
    Join Date
    Sep 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Let's try it. It's based on al Monsters right,.?

    And Huuuge Huuuge is offline
    Registered User

    Join Date
    May 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)
    Default
    Looks like a good script, testing it now
    Bug i found: When using the antiban it doesn't hover over the skill but it clicks on it so the guide pops up..

    Ur right

  5. #5
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

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
  •