Results 1 to 4 of 4

Thread: AIO Fighter script issue.

  1. #1
    Join Date
    Mar 2013
    Location
    Canada
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default AIO Fighter script issue.

    I'm trying to configure "http://villavu.com/forum/showthread.php?t=98070" (AIO Fighter Release 0.1) I have taken out the Anti-Leeching to my belief. When I start the script it opens a smart window, but that loads new RS. I am playing Old RS, so I took out the SMART directory at the top and tried directing it to my client using the "Select A Client". I select the window where I am logged in and goblins are wandering around me. I press "Run" and it says "Hello, welcome to SMART AIO Fighter Release 0.1 Please submit all bugs/troubles on the forum for fast fixes!" . Here is the code I have:



    Simba Code:
    [CODE]
    program AIOFighter;
        // I, Shorteh96, would like to thank the following users:
        // RequiredOne: I used part of your AutoFighter script as backbone.
        // Eduard: I used a lot of your Fight Cave script as backbone to convert to SMART.
        // Ogre: Thank you for helping me with my remedial errors in the chatbox every time I asked for help.

        // I, Shorteh96, would like to take very little credit for this script
        // as I have no idea how to code in all honesty but am capable of reading
        // and copying premade code into a new working script. Thank you!

    {$i SRL/SRL.simba}
    {$i P07Include.simba}

    var
    x, y: Integer;
    Combat1, num1, num2, attnum: Integer;

    const

        // REQUIRED CONFIGURATION BY USER:
      FightStyle = 1;                     // 1 = Att, 2 = Str, 3 = Contr, 4 = Def
      MNick = 'oblin';                    // Monster name without the first letter
      MColor = 2195834;                   // Monster Color 1
      MColor2 = 205112;                  // Monster Color 2

        // OPTIONAL CONFIGURATION BY USER
      ABan1 = 'Attack';                   // First skill for the anti-ban to check
      ABan2 = '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 = 'Bones';                    // Loot 2 name including the first letter
      LColor2 = 13882585;                 // Color of Loot 2 to pick up


    procedure P07_DeclarePlayers;
      begin
        P07_PlayerName := 'guthix_tree1';  // Username for 07Scape
        P07_PlayerPass := 'asdqwe123';     // Password for 07Scape
      end;
        // END OF CONFIGURATION

    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('');
    end;

    procedure ProgressReport;
      begin
        Wait(5000);
        cleardebug();
        writeln('-- AIO Fighter Release 0.1 --');
        writeln(' Time Running: '+TimeRunning+'');
      end;

    procedure Random1;
      begin
        attnum := (Random(1000));
      end;

    procedure Attack;
    var x, y: Integer;
      begin
          wait(500 + random(800))
          if P07_FindObjCustom(x,y, ['ttack', MNick], [MColor, MColor2], 5) then
          begin
            if combat1 = (0) then
             begin
               P07_MouseBox(X, Y, X, Y, mouse_left);
               wait(random(500));
             end;
          end;
      end;

    procedure Combat;
       Begin

        Combat1 := 1;

            if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
            begin
              WriteLn('In Combat . . .');
            end
            else Combat1 := 0;
            if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
            if Loot1 = ('') = false then
              if P07_FindObjCustom(x,y, [Loot1], [LColor1], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(800, 1000));
                P07_ChooseOptionMulti([Loot1]);
              end;
            if Loot2 = ('') = false then
              if P07_FindObjCustom(x,y, [Loot2], [LColor2], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(800, 1000));
                P07_ChooseOptionMulti([Loot2]);
              end;
        end;

    Procedure Antiban;
      Begin
        num2 := (5);
        num1 := (random(30));
        sleep(2000)
        if num2 < num1 then
          Case Random(10) Of
            1: P07_HoverSkill(ABan1,RandomRange(2500,3500));
            3: Boredhuman;
            4: Wait(2500 + random(4500));
            5: p07_HoverSkill(ABan2,RandomRange(2500,3500));
            6: PickUpMouse;
            7: RandomMovement;
            8: RandomRClick;
            9: P07_MakeCompassdegree(randomrange(0, 360));
          end;
      end;

    begin
      P07_DeclarePlayers;
      SetupSRL();
      SetupP07Include;
      ClearDebug;
        writeln('Hello, welcome to SMART AIO Fighter Release 0.1');
        writeln('Please submit all bugs/troubles on the forum for fast fixes!');
        writeln('');
      if (not P07_LoggedIn) then
        P07_LogInPlayer;
      SetMeUp;
      repeat
        if (not P07_LoggedIn) then
        begin
          P07_LogInPlayer;
          SetMeUp;
        end;
        if combat1 = 0 then
          Random1;
        Combat;
        if Combat1 = 0 then
          Attack;
        Antiban;
        progressreport;
            wait(2000 + random(100));
      until (false)
    end. [/CODE]

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

    Default

    Quote Originally Posted by Corythebory View Post
    I'm trying to configure "http://villavu.com/forum/showthread.php?t=98070" (AIO Fighter Release 0.1) I have taken out the Anti-Leeching to my belief. When I start the script it opens a smart window, but that loads new RS. I am playing Old RS, so I took out the SMART directory at the top and tried directing it to my client using the "Select A Client". I select the window where I am logged in and goblins are wandering around me. I press "Run" and it says "Hello, welcome to SMART AIO Fighter Release 0.1 Please submit all bugs/troubles on the forum for fast fixes!" . Here is the code I have:



    Simba Code:
    [CODE]
    program AIOFighter;
        // I, Shorteh96, would like to thank the following users:
        // RequiredOne: I used part of your AutoFighter script as backbone.
        // Eduard: I used a lot of your Fight Cave script as backbone to convert to SMART.
        // Ogre: Thank you for helping me with my remedial errors in the chatbox every time I asked for help.

        // I, Shorteh96, would like to take very little credit for this script
        // as I have no idea how to code in all honesty but am capable of reading
        // and copying premade code into a new working script. Thank you!

    {$i SRL/SRL.simba}
    {$i P07Include.simba}

    var
    x, y: Integer;
    Combat1, num1, num2, attnum: Integer;

    const

        // REQUIRED CONFIGURATION BY USER:
      FightStyle = 1;                     // 1 = Att, 2 = Str, 3 = Contr, 4 = Def
      MNick = 'oblin';                    // Monster name without the first letter
      MColor = 2195834;                   // Monster Color 1
      MColor2 = 205112;                  // Monster Color 2

        // OPTIONAL CONFIGURATION BY USER
      ABan1 = 'Attack';                   // First skill for the anti-ban to check
      ABan2 = '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 = 'Bones';                    // Loot 2 name including the first letter
      LColor2 = 13882585;                 // Color of Loot 2 to pick up


    procedure P07_DeclarePlayers;
      begin
        P07_PlayerName := 'guthix_tree1';  // Username for 07Scape
        P07_PlayerPass := 'asdqwe123';     // Password for 07Scape
      end;
        // END OF CONFIGURATION

    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('');
    end;

    procedure ProgressReport;
      begin
        Wait(5000);
        cleardebug();
        writeln('-- AIO Fighter Release 0.1 --');
        writeln(' Time Running: '+TimeRunning+'');
      end;

    procedure Random1;
      begin
        attnum := (Random(1000));
      end;

    procedure Attack;
    var x, y: Integer;
      begin
          wait(500 + random(800))
          if P07_FindObjCustom(x,y, ['ttack', MNick], [MColor, MColor2], 5) then
          begin
            if combat1 = (0) then
             begin
               P07_MouseBox(X, Y, X, Y, mouse_left);
               wait(random(500));
             end;
          end;
      end;

    procedure Combat;
       Begin

        Combat1 := 1;

            if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
            begin
              WriteLn('In Combat . . .');
            end
            else Combat1 := 0;
            if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
            if Loot1 = ('') = false then
              if P07_FindObjCustom(x,y, [Loot1], [LColor1], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(800, 1000));
                P07_ChooseOptionMulti([Loot1]);
              end;
            if Loot2 = ('') = false then
              if P07_FindObjCustom(x,y, [Loot2], [LColor2], 5) then
              begin
                wait (randomrange(100, 200));
                ClickMouse2(mouse_right);
                wait(randomrange(800, 1000));
                P07_ChooseOptionMulti([Loot2]);
              end;
        end;

    Procedure Antiban;
      Begin
        num2 := (5);
        num1 := (random(30));
        sleep(2000)
        if num2 < num1 then
          Case Random(10) Of
            1: P07_HoverSkill(ABan1,RandomRange(2500,3500));
            3: Boredhuman;
            4: Wait(2500 + random(4500));
            5: p07_HoverSkill(ABan2,RandomRange(2500,3500));
            6: PickUpMouse;
            7: RandomMovement;
            8: RandomRClick;
            9: P07_MakeCompassdegree(randomrange(0, 360));
          end;
      end;

    begin
      P07_DeclarePlayers;
      SetupSRL();
      SetupP07Include;
      ClearDebug;
        writeln('Hello, welcome to SMART AIO Fighter Release 0.1');
        writeln('Please submit all bugs/troubles on the forum for fast fixes!');
        writeln('');
      if (not P07_LoggedIn) then
        P07_LogInPlayer;
      SetMeUp;
      repeat
        if (not P07_LoggedIn) then
        begin
          P07_LogInPlayer;
          SetMeUp;
        end;
        if combat1 = 0 then
          Random1;
        Combat;
        if Combat1 = 0 then
          Attack;
        Antiban;
        progressreport;
            wait(2000 + random(100));
      until (false)
    end. [/CODE]
    Take a look here: http://villavu.com/forum/showthread.php?t=97599

  3. #3
    Join Date
    Mar 2013
    Location
    Canada
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Hey Brid, I have solved a lot of my issues. Do you have a moment to spare? I have a couple of questions.

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

    Default

    Quote Originally Posted by Corythebory View Post
    Hey Brid, I have solved a lot of my issues. Do you have a moment to spare? I have a couple of questions.
    Sure, either quote me or pm me next time so I get the notification though

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
  •