Page 1 of 3 123 LastLast
Results 1 to 25 of 53

Thread: Ogre Destroyer

  1. #1
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Ogre Destroyer

    [IMG] Uploaded with ImageShack.us[/IMG]

    Script:

    This is a Ogre killing bot for the Combat Training Area. This script can use any ranged equipment and is perfect for 1 defense pures who dont want to spend the money on food. I still have much to add. Pleas post reports and any bugs it has.

    http://www.youtube.com/watch?v=98jxEMrI6Fk





    [IMG] Uploaded with ImageShack.us[/IMG]

    All the Reports are from my pure with 83 range and a 27000 AT time.

    Report
    Code:
    ======================================================
    ======================================================
    Thank you for using My Ogre Killer ver. 0.1
    Made By: baja_blast1
    Range XP gained: 16002
    Contitution XP gaiined: 5334
    Run Time: 1 Hours, 22 Seconds
    ======================================================
    ======================================================
    Successfully executed.
    
    ======================================================
    ======================================================
    Thank you for using Ogre Destroyer ver. 0.1
    Made By: baja_blast1
    Range XP gained: 43545
    Contitution XP gained: 14515
    Run Time: 2 Hours, 19 Seconds
    ======================================================
    ======================================================
    Successfully executed.
    
    ======================================================
    ======================================================
    Thank you for using Ogre Destroyer ver. 2.4
    Made By: baja_blast1
    Ogres Attacked: 178
    Range XP gained: 20790
    Range XP/Hr: 0
    Contitution XP gained: 6930
    Contitution XP/Hr: 0
    Run Time: 1 Hours, 37 Seconds
    ======================================================
    ======================================================
    Successfully executed.
    
    ======================================================
    ======================================================
    Thank you for using Ogre Destroyer ver. 2.7
    Made By: baja_blast1
    Ogres Attacked: 138
    Range XP gained: 15018
    Range XP/Hr: 15018
    Contitution XP gained: 5006
    Contitution XP/Hr: 5006
    Run Time: 1 Hours, 43 Seconds
    ======================================================
    ======================================================
    Successfully executed.
    
    ======================================================
    ======================================================
    Thank you for using Ogre Destroyer ver. 2.91
    Made By: baja_blast1
    Ogres Attacked: 126
    Range XP gained: 24048
    Contitution XP gained: 8016
    Run Time: 1 Hours, 14 Seconds
    ======================================================
    ======================================================
    Successfully executed.
    If you don't have the OD.simba version then pleas re-download.(The new version of my script, old version was Ogre Destroyer.simba)

    V.2.0:
    Added an auto updater.

    V.2.4
    Auto Updater fixed.
    Ogres attacked added.
    XP/Hr fixed
    v2.91
    Added paint
    Less Anti band
    V.3.0
    Updated Attack method, dose not work good with cross bows.
    updated paint.
    V3.2
    Current version
    working pixel shift
    Last edited by baja_blast1; 06-09-2012 at 06:48 PM.

  2. #2
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good job! Ill post a proggy later
    Going to run it for a long time after i got my full void

  3. #3
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Have you made it safespot? So that if doesn't run behind the cage when using knifes? (Knifes have a shorter range)

  4. #4
    Join Date
    Dec 2011
    Location
    United States
    Posts
    960
    Mentioned
    21 Post(s)
    Quoted
    504 Post(s)

    Default

    Code:
    Const
      AT = 27000;     // How long do you want to attack the Skeleton for?
    I dont wanna attack skeletons...
    But I would recommend changing that.

  5. #5
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Have you made it safespot? So that if doesn't run behind the cage when using knifes? (Knifes have a shorter range)
    Not yet but do you know if it runs to the same spot everytime? My account just ran outa mems, but i have an idea to fix the safe spot, if someone has an acc i could use or sumtin id gladly make it but leaving for a week on Saturday.



    Code:
    Const
    AT = 27000; // How long do you want to attack the Skeleton for?
    I dont wanna attack skeletons...
    But I would recommend changing that.
    Lol sorry i copied some stuff from my other script. Ill change it
    Last edited by baja_blast1; 02-08-2012 at 02:27 AM.

  6. #6
    Join Date
    Jan 2012
    Location
    Finland
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ive used FastFighter there and it has worked fine. Can you tell me if there are any adventages of using your script there?
    Will you ever add a telegrab support? What I mean is if something good drops, would like for the script to grab it(could check the loot during the fight to not delay anything too much).
    Bot hard or get banned trying.

  7. #7
    Join Date
    Jan 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Where i can get od.simba version. Because today i have downloaded new simba and i have error.

  8. #8
    Join Date
    Feb 2012
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i run the script i am getting this error i have the latest simba installed (simba 984)

    Compiled successfully in 812 ms.
    The version you're using is outdated!
    Downloading new version...
    Successfully downloaded the script! Please close the script and re-open to see the changes, thank you!
    Successfully executed.
    File[C:\Users\*****i\Downloads\OD.simba] has not been freed in the script, freeing it now.


    after saying freeing it now it just doesnt do anything doesnt even open the smart window the script just stops.

  9. #9
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How do i download this script?

  10. #10
    Join Date
    Nov 2011
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very nice averaging quite abit an hour thanks for the script.

  11. #11
    Join Date
    Feb 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I will post a proggy tomorrow since it's (02:45 am) here now, so when I wake up i'll post the proggy, if it runs that long im going to be happy.
    (works perfectly for now, 30 minutes in.)
    Have a nice night.

  12. #12
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool. this thing got me 180k exp in like 6 hours. It successfully shot 6k bronze arrows on my pure.
    Last edited by melinkinchutney; 02-17-2012 at 03:53 PM.

  13. #13
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay So I just had a look through your code and sped it up myself.

    I'm new to coding; but I took the time to learn what you did here. I really like it. Good job man. I'll post a proggy for you later on.

  14. #14
    Join Date
    Nov 2011
    Location
    Hogwarts
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    100% credit to BajaBlast1 for making this great script!! I HOPE THIS HELPS :0
    Just did a little editing
    Simba Code:
    program Ogre_Destroyer;
    //OGRE DESTOYER!!// By BAJABLAST1
    {$DEFINE SRL5}
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i SRL\SRL\Misc\Debug.simba}

    Const
      AT = 4000;
      ScriptVersion = '2.6';
      PT = 6;
      UseAutoChecker = true;

    Var
     I,k, r, h, ch: Integer;




    //=====================================================//
    Procedure DeclarePlayers;
    Begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;

     With Players[0] do
      Begin
        Players[0].Name :='';
        Players[0].Pass :='';
        Players[0].Active :=True;
      End;
    End;
    //=====================================================//





    function Ogre: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.06, 1.64);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 7319502, MSX1, MSY1, MSX2, MSY2, 18);
      if (Length(arP) = 0) then
      begin
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 18.90) and (X <= 69.80) and (Y >= 19.49) and (Y <= 73.61) and (Z >= 12.64) and (Z <= 45.19) then
        begin
          Result := arC[i];
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
    end;

    function XPFinder(skill: variant): integer;
    var
      b: TBox;
      p: TPoint;
      tpa: TPointArray;
    begin
      result := -1;

      if (not gameTab(TAB_STATS)) then
        exit;

      p := skillToCoords(skill);
      if (p.x < 1) then
        exit;

      mmouse(p.x, p.y + 5, 12, 4);
      wait(400 + random(200));

      if (WaitFindColors(tpa, 15133931, MIX1, MIY1, MIX2, MIY2, 0, 3000)) then
      begin
        b := getTPABounds(tpa);
        wait(400 + random(150));
        result := strToIntDef(getNumbers(getTextAt(b.x1 + 15, b.y1 + 15, 0, 1, 4, 4305653, 0, 75, smallChars)), -1);
      end;
    end;

    Procedure TimePlay;
    var
      I: Byte;
      Cont : boolean;
    Begin
        if FindNormalRandoms then
        begin
          WriteLn('===============================');
          WriteLn('In Random');
          WriteLn('Run Time: ' + TimeRunning);
          WriteLn('===============================');
    end;
    end;

    Procedure AntiBand;
    Begin
     WriteLn('AntiBan Started');
      case Random(100) of
        1: Begin WriteLn('Hovering Over Stats') GameTab(tab_Stats) Wait(700+ Random(500)) GameTab(tab_Inv); End;
        2: Begin WriteLn('Random Movement') RandomMovement; End;
      End;
    End;

    Procedure SetCamera;
    Begin
      WriteLn('Camera set to North') MakeCompass('360');
      SetAngle(SRL_ANGLE_HIGH);
      End;

    Procedure Xp;
    Begin
      Mouse(532, 64, 2, 2, True);
    End;

    Procedure Intro;
    Begin
      WriteLn('==BagaBlast1--OgreDestroyer==');
      WriteLn('=========--Welcome--=========');
      WriteLn('=============================');
    End;

    Procedure Attack;
      Var x, y: Integer;
    Begin
      k := k+1;
      x:=MSCX;
      y:=MSCY;
      if FindObjTPAMulti(x, y, [Ogre],5, 1, 10, 15, 30, ['more', 'gre', 'Ogre', '4 more', '2 more']) Then
      begin
          Mouse(x, y, 1, 1, false);
          WriteLn('');
          WaitOption('ttack', 500 + Random(150));
          WriteLn('');
          Wait(AT + Random(1000));
      end;
    end;

    Procedure RunningTime;
    Begin
      ClearDebug;
      ch := XPFinder(3);
      WriteLn('=================================================');
      WriteLn('Run Time: ' + TimeRunning);
      WriteLn('Range XP gained: ' + IntToStr((h-ch)*-(301/100)));
      WriteLn('Range XP/Hr: ' + IntToStr(((h-ch)*-(301/100))/(PT)));
      WriteLn('Contitution XP gained: ' + IntToStr((h-ch)*-1));
      WriteLn('Contitution XP/Hr: ' + IntToStr(((h-ch)*-1)/(PT)));
      WriteLn('=================================================');
    End;

    begin
      Smart_Server:=100
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetUpSRL;
      DeclarePlayers;
      LogInPlayer;
      Intro;
      Wait(6000 + Random(500));
      WriteLn('Starting Script');
      h := XPFInder(3);
      MarkTime(r);
      Xp;
      GameTab(tab_Inv);
      SetCamera;
      k := 0;
      Repeat
        Attack;
        AntiBand;
        TimePlay;
        RunningTime;
      Until(false);
    end.

  15. #15
    Join Date
    Jan 2012
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by Offline View Post
    100% credit to BajaBlast1 for making this great script!! I HOPE THIS HELPS :0
    Just did a little editing
    Simba Code:
    program Ogre_Destroyer;
    //OGRE DESTOYER!!// By BAJABLAST1
    {$DEFINE SRL5}
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i SRL\SRL\Misc\Debug.simba}

    Const
      AT = 4000;
      ScriptVersion = '2.6';
      PT = 6;
      UseAutoChecker = true;

    Var
     I,k, r, h, ch: Integer;




    //=====================================================//
    Procedure DeclarePlayers;
    Begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;

     With Players[0] do
      Begin
        Players[0].Name :='';
        Players[0].Pass :='';
        Players[0].Active :=True;
      End;
    End;
    //=====================================================//





    function Ogre: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.06, 1.64);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 7319502, MSX1, MSY1, MSX2, MSY2, 18);
      if (Length(arP) = 0) then
      begin
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 18.90) and (X <= 69.80) and (Y >= 19.49) and (Y <= 73.61) and (Z >= 12.64) and (Z <= 45.19) then
        begin
          Result := arC[i];
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
    end;

    function XPFinder(skill: variant): integer;
    var
      b: TBox;
      p: TPoint;
      tpa: TPointArray;
    begin
      result := -1;

      if (not gameTab(TAB_STATS)) then
        exit;

      p := skillToCoords(skill);
      if (p.x < 1) then
        exit;

      mmouse(p.x, p.y + 5, 12, 4);
      wait(400 + random(200));

      if (WaitFindColors(tpa, 15133931, MIX1, MIY1, MIX2, MIY2, 0, 3000)) then
      begin
        b := getTPABounds(tpa);
        wait(400 + random(150));
        result := strToIntDef(getNumbers(getTextAt(b.x1 + 15, b.y1 + 15, 0, 1, 4, 4305653, 0, 75, smallChars)), -1);
      end;
    end;

    Procedure TimePlay;
    var
      I: Byte;
      Cont : boolean;
    Begin
        if FindNormalRandoms then
        begin
          WriteLn('===============================');
          WriteLn('In Random');
          WriteLn('Run Time: ' + TimeRunning);
          WriteLn('===============================');
    end;
    end;

    Procedure AntiBand;
    Begin
     WriteLn('AntiBan Started');
      case Random(100) of
        1: Begin WriteLn('Hovering Over Stats') GameTab(tab_Stats) Wait(700+ Random(500)) GameTab(tab_Inv); End;
        2: Begin WriteLn('Random Movement') RandomMovement; End;
      End;
    End;

    Procedure SetCamera;
    Begin
      WriteLn('Camera set to North') MakeCompass('360');
      SetAngle(SRL_ANGLE_HIGH);
      End;

    Procedure Xp;
    Begin
      Mouse(532, 64, 2, 2, True);
    End;

    Procedure Intro;
    Begin
      WriteLn('==BagaBlast1--OgreDestroyer==');
      WriteLn('=========--Welcome--=========');
      WriteLn('=============================');
    End;

    Procedure Attack;
      Var x, y: Integer;
    Begin
      k := k+1;
      x:=MSCX;
      y:=MSCY;
      if FindObjTPAMulti(x, y, [Ogre],5, 1, 10, 15, 30, ['more', 'gre', 'Ogre', '4 more', '2 more']) Then
      begin
          Mouse(x, y, 1, 1, false);
          WriteLn('');
          WaitOption('ttack', 500 + Random(150));
          WriteLn('');
          Wait(AT + Random(1000));
      end;
    end;

    Procedure RunningTime;
    Begin
      ClearDebug;
      ch := XPFinder(3);
      WriteLn('=================================================');
      WriteLn('Run Time: ' + TimeRunning);
      WriteLn('Range XP gained: ' + IntToStr((h-ch)*-(301/100)));
      WriteLn('Range XP/Hr: ' + IntToStr(((h-ch)*-(301/100))/(PT)));
      WriteLn('Contitution XP gained: ' + IntToStr((h-ch)*-1));
      WriteLn('Contitution XP/Hr: ' + IntToStr(((h-ch)*-1)/(PT)));
      WriteLn('=================================================');
    End;

    begin
      Smart_Server:=100
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetUpSRL;
      DeclarePlayers;
      LogInPlayer;
      Intro;
      Wait(6000 + Random(500));
      WriteLn('Starting Script');
      h := XPFInder(3);
      MarkTime(r);
      Xp;
      GameTab(tab_Inv);
      SetCamera;
      k := 0;
      Repeat
        Attack;
        AntiBand;
        TimePlay;
        RunningTime;
      Until(false);
    end.
    Very nice his version didnt work.
    Yours working well But it has to many anti bans.
    It has like 2 Anti bans per ogre

  16. #16
    Join Date
    Nov 2011
    Location
    Hogwarts
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so whats wrong with antibans aha

  17. #17
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    version 3.0 is messing up lol.

    Its doing Ogre Found too many times.

  18. #18
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    specifically the problem lies with,

    IF NOT DIDREDCLICK

    and

    with ATTACKING pixel variance.

    I'm tweaking it now, seems alright but i'll let it run for a bit.

    I like the new attack system GOOD JOB!

  19. #19
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    version 3.0 is messing up lol.

    Its doing Ogre Found too many times.
    What kind of range attack are you using?

    V3.1, fixed attacking method, worked on antiband.
    Last edited by baja_blast1; 02-29-2012 at 12:08 AM.

  20. #20
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I was using throwing knives; but I thought that's what it might have been.

    So I tried using magic shortbow, but it still found ogre too often. Like once every time it attacked

  21. #21
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I was using throwing knives; but I thought that's what it might have been.

    So I tried using magic shortbow, but it still found ogre too often. Like once every time it attacked
    K i think i know the problem, whats your range level? You try the new version?

  22. #22
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah I was doing 3.0

    I'm like 88 ranged.

    I was thinking about how to solve this problem, and I'm goign to take a stab at it after my midterm today.

    so instead of searching for pixel variance
    1) search for a red bar indicating a dead ogre, and when found, attack ogre again.
    or
    2) if the xp bar at the top hasnt received new experience for x seconds, then attack a new ogre. (so it would know that you are currently not gaining exp because you are currently not shooting arrows)

  23. #23
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah I was doing 3.0

    I'm like 88 ranged.

    I was thinking about how to solve this problem, and I'm goign to take a stab at it after my midterm today.

    so instead of searching for pixel variance
    1) search for a red bar indicating a dead ogre, and when found, attack ogre again.
    or
    2) if the xp bar at the top hasnt received new experience for x seconds, then attack a new ogre. (so it would know that you are currently not gaining exp because you are currently not shooting arrows)
    Ya i was messing around with a dtm that would look for the full red hp bar but if another person is there it will switch to next ogre when they kill theres. But best of luck to you.

  24. #24
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    EDIT:

    3.1 running smoothly. The pixel shift is working great.

    The xpbar total function would probably just attack an ogre every time the play hits zero anyways - just thought it through.

    Great job tweaking it. I think another issue may have been with the FPS settings on my smart. So heads up to everyone else, make sure your FPS is decently high so that pixel shift can read properly
    Last edited by ifrootloops; 03-01-2012 at 03:56 PM.

  25. #25
    Join Date
    Feb 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You'd think this would be one of the easier bots to make Flawless.

    1. Attacks
    2. Make sure it stays in the right area
    3. Anti-Ban

Page 1 of 3 123 LastLast

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
  •