Page 2 of 2 FirstFirst 12
Results 26 to 44 of 44

Thread: NMZ Dharoks Slayer -Drinks Overloads + Absorption (Stays at 1 HP with Pray Flicking)

  1. #26
    Join Date
    Jul 2016
    Posts
    156
    Mentioned
    2 Post(s)
    Quoted
    81 Post(s)

    Default

    Quote Originally Posted by Aspect View Post
    You're obviously still not following the instructions.
    I will agree with #4 however, as there is a period of time before it consumes another.
    I'll upload a video on how it's used.
    My understanding was that I just set up my inventory, and walk in NMZ (with fully health/stats) and immediately hit play. When I attempt to do that, I run into the issue I highlighted in #1 . Is that incorrect? When should I start the script?

    Edit:
    Script has been working great for me at the moment. The overload issue I had the first time, hasn't come up again.

  2. #27
    Join Date
    May 2012
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    im having trouble with this script overloading on time :/

  3. #28
    Join Date
    Dec 2016
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Amazing script

    Only problem is that it doesnt work on SMART, the mouse hovers over an absorb potion then shoots to the top left corner of the client. It keeps repeating this.

    If used on another client (e.g. osrs official or osb), it works perfectly.

  4. #29
    Join Date
    Aug 2014
    Location
    UK
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Great script, but a few issues.

    Won't drink an overload right after the 5 minutes is up. It waits until the next pray flick cycle (upto 1 minute un-overloaded) to drink the potion. This wastes absorption potions and also lowers xp rates (if using DH).

    Also it barely drinks absorptions, but you can do that manually if you babysit the bot.

  5. #30
    Join Date
    Aug 2016
    Location
    Kentucky
    Posts
    254
    Mentioned
    3 Post(s)
    Quoted
    96 Post(s)

    Default

    Yeah it was hard to adjust the timers to something everyone could use. I would adjust them to your specific accounts needs.

  6. #31
    Join Date
    Feb 2017
    Location
    Sauce
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Thank you for the upload, don't mind babysitting as it is still allowing me to not have to click every minute, I can focus on my studies.

  7. #32
    Join Date
    Feb 2017
    Location
    The Netherlands
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Hey congratz on the script. After seeing the complaints about the script not clicking on the absortions/overloads, I went ahead and checked the DTM codes.

    dtmfail.png

    Seems like the DTM's are inaccurate. You should be able to fix this by picking more black outlining of the items while making the DTM's.

    I hope you'll be able to fix it this way.

  8. #33
    Join Date
    Aug 2016
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Script still works great. However, I am unable to get the mouse to work with SMART enabled. Smart is defined at the top and launches from the script. I am only able to run the script with my hardware mouse, works on smart client and others but not with SMART enabled.

  9. #34
    Join Date
    Jan 2012
    Location
    Sydney, Australia
    Posts
    877
    Mentioned
    12 Post(s)
    Quoted
    368 Post(s)

    Default

    Quote Originally Posted by klerx View Post
    Script still works great. However, I am unable to get the mouse to work with SMART enabled. Smart is defined at the top and launches from the script. I am only able to run the script with my hardware mouse, works on smart client and others but not with SMART enabled.
    Check to see what version of SMART you are using, and what version of Aerolib you are using. Both have been recently updated.

  10. #35
    Join Date
    Feb 2018
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have recently take the steps to fully update my Simba and Aerolib. I'm running into the same issue as stated above of the bot identifying everything correctly but the left click function wont work. I'm using smart so I assume thats the issue, also when I try the approach of utargeting my OSBuddy client instead, i get the following "Error: You passed wrong values to a finder function: xs > xe (0,-99237833). at line 230
    Execution failed." This error involves my "Text" .dll ?
    Last edited by OSRS_stealth; 02-07-2018 at 04:44 AM.

  11. #36
    Join Date
    Feb 2018
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have recently take the steps to fully update my Simba and Aerolib. I'm running into the same issue as stated above of the bot identifying everything correctly but the left click function wont work. I'm using smart so I assume thats the issue, also when I try the approach of utargeting my OSBuddy client instead, i get the following "Error: You passed wrong values to a finder function: xs > xe (0,-99237833). at line 230
    Execution failed." This error involves my "Text" .dll ?

  12. #37
    Join Date
    Jul 2017
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    got band for 2 days using this script so be careful. I think the reason i got banded was because i was clicking on the same point with prayer and this script takes a lot of the same path over and over. So i would add anti ban. also the script is bad at not stopping once out of NMZ and will continue to preform. This is also another reason i probably got the band. I changed that made some other awesome changes to this script.


    Code:
    {$i AeroLib/AeroLib.Simba}
    
    var
     aFound: Extended;
     item_overload: TItem;
     obj_prayericon : TItem;
     item_Absorb : TItem;
     item_cake : TItem;
     minimap : TBox;
     invbox1 : TBox;
     phealth : Integer;
     absorbtimer : Integer;
    
    procedure flicpray;
    var
      pnt : TPoint;
      x ,y : Integer;
    begin
    if findBlackChatMessage('wake up feeling') then
         begin
         logoutPlayer();
        terminateScript();
        end;
      {writeln('Checking Health');
        if (getCurrentHealth() >= 2)  then
        begin
       if item_cake.findIn(invbox1,pnt) then
      begin
       flicpray;
        Writeln('Found Cake');
        humanMMouse(pnt,2,2);
        wait(500+random(300));
        ClickMouse(x,y,mouse_Right);
        wait(100+random(100));
        chooseOption('Guzzle')
       end;
       end;     }
         writeln('Flic prayer');
        if (getCurrentHealth() <= 2)  then
        begin
          pnt := [557,95];
          humanMMouse(pnt,5,5);
          wait(50+random(20));
          ClickMouse(x,y,mouse_Left);
          wait(400+random(100));
          ClickMouse(x,y,mouse_Left);
         end
    end;
    
    procedure drinkoverload;
    var
      pnt : TPoint;
      x ,y : Integer;
    begin
      writeln('Drinking overload');
        if item_overload.findIn(invbox1,pnt) then
        begin
          humanMMouse(pnt,2,2);
          wait(50+random(20));
          ClickMouse(x,y,mouse_Left);
          wait(100+random(20));
          flicpray;
         end
     end
    
    
    procedure drinkabsorb;
    var
      pnt : TPoint;
      i,x ,y : Integer;
    begin
      writeln('Drinking Absorb');
      for i:=1 to 200 do
      begin
        if item_absorb.findIn(invbox1,pnt) then
        begin
          humanMMouse(pnt,2,2);
          wait(50+random(20));
          ClickMouse(x,y,mouse_Left);
          wait(100+random(20));
          absorbtimer := 0;
         if findBlackChatMessage('any more') then
         exit;
         end;
        if not item_absorb.findIn(invbox1,pnt)  then
        exit;
     end
     end;
    
    
    procedure createItems;
    begin
      item_overload.Name := 'Overload';
      obj_prayericon.Name := 'prayer';
      item_cake.Name := 'Dwarven rock cake';
      item_absorb.Name := 'Absorb';
      item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
      obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMjCcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAwAAAq6QtA');
      item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
      item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
    end;
    
    
    procedure startafk;
    var
    prayflictimer : Integer;
    begin
      repeat
      begin
      if findBlackChatMessage('wake up feeling') then
         begin
         logoutPlayer();
        terminateScript();
        end;
        prayflictimer := 0;
        repeat
        begin
          mouseSpeed := Random(16, 28);
          flicpray;
          wait(45000+random(5000));
          Inc(absorbtimer);
        end
        until (getCurrentHealth() >= 20);
        flicpray;
        drinkoverload;
        if (absorbtimer > 17) then
        begin
          drinkabsorb;
        end
        wait(8000+random(300));
      end
      until (false);
    end;
    {
    procedure antiban();
    var
      rand: Integer;
      what: String
    begin
      if (random(0, 30) = 0) then
      begin
        rand := random(0, 71);
        case rand of
          0..45:
          begin
            if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
              MMouseOffClient('random');
            what := 'mouse off client';
          end;
          46..51:
          begin
            compassMovement(30, 170, false);
            what := 'compass movement';
          end;
          52..57:
          begin
            hoverSkill(SKILL_COOKING, false);
            what := 'hovering skill';
          end;
          58..70:
          begin
            pickUpMouse;
            what := 'pick up mouse';
          end;
        end;
        writeln('last antiban on: ' + mstoTime(getTimeRunning, 3) + '    ' + what);
      end;
    end;     }
    
    procedure setupplayer;
    var
      pnt : TPoint;
      x ,y : Integer;
      counter : Integer;
    begin
        if item_overload.findIn(invbox1,pnt) then
        begin
          Writeln('Found Overload');
          humanMMouse(pnt,2,2);
          wait(500+random(300));
          ClickMouse(x,y,mouse_Left);
          wait(100+random(100));
         end
         wait(500+random(300));
         flicpray;
        repeat
        if item_absorb.findIn(invbox1,pnt) then
        begin
          Writeln('Found Absorb');
          humanMMouse(pnt,2,2);
          wait(500+random(300));
          ClickMouse(x,y,mouse_Left);
          wait(500+random(100));
          Inc(Counter);
         end
         until (counter = 20)
    end
    
    procedure eatcake;
    var
      pnt : TPoint;
      x ,y : Integer;
      counter : Integer;
    begin
      repeat
      if item_cake.findIn(invbox1,pnt) then
      begin
       flicpray;
        Writeln('Found Cake');
        humanMMouse(pnt,2,2);
        wait(500+random(300));
        ClickMouse(x,y,mouse_Right);
        wait(100+random(100));
        chooseOption('Guzzle')
       end
       until (getCurrentHealth() <= 70)
       repeat
        if item_cake.findIn(invbox1,pnt) then
        begin
          humanMMouse(pnt,2,2);
          wait(500+random(300));
          ClickMouse(x,y,mouse_Left);
          wait(900+random(300));
        end
       until (getCurrentHealth() < 52)
    end
    
    
    procedure mainLoop;
    begin
      eatcake;
      setupplayer;
      flicpray;
      //antiban;
      startafk;
      if findBlackChatMessage('wake up feeling') then
         begin
         logoutPlayer();
        terminateScript();
        end;
    end
    
    
    begin
      initAL;
      minimap := ToBox(500, 91, 600, 130);
      invbox1 := ToBox(550, 208, 735, 465);
      createitems;
      mouseSpeed := Random(16, 28);
      mainLoop;
    end;

  13. #38
    Join Date
    Aug 2016
    Location
    Kentucky
    Posts
    254
    Mentioned
    3 Post(s)
    Quoted
    96 Post(s)

    Default

    Quote Originally Posted by underforu View Post
    got band for 2 days using this script so be careful. I think the reason i got banded was because i was clicking on the same point with prayer and this script takes a lot of the same path over and over. So i would add anti ban. also the script is bad at not stopping once out of NMZ and will continue to preform. This is also another reason i probably got the band. I changed that made some other awesome changes to this script.


    Code:
    {$i AeroLib/AeroLib.Simba}
    
    var
     aFound: Extended;
     item_overload: TItem;
     obj_prayericon : TItem;
     item_Absorb : TItem;
     item_cake : TItem;
     minimap : TBox;
     invbox1 : TBox;
     phealth : Integer;
     absorbtimer : Integer;
    
    procedure flicpray;
    var
      pnt : TPoint;
      x ,y : Integer;
    begin
    if findBlackChatMessage('wake up feeling') then
         begin
         logoutPlayer();
        terminateScript();
        end;
      {writeln('Checking Health');
        if (getCurrentHealth() >= 2)  then
        begin
       if item_cake.findIn(invbox1,pnt) then
      begin
       flicpray;
        Writeln('Found Cake');
        humanMMouse(pnt,2,2);
        wait(500+random(300));
        ClickMouse(x,y,mouse_Right);
        wait(100+random(100));
        chooseOption('Guzzle')
       end;
       end;     }
         writeln('Flic prayer');
        if (getCurrentHealth() <= 2)  then
        begin
          pnt := [557,95];
          humanMMouse(pnt,5,5);
          wait(50+random(20));
          ClickMouse(x,y,mouse_Left);
          wait(400+random(100));
          ClickMouse(x,y,mouse_Left);
         end
    end;
    
    procedure drinkoverload;
    var
      pnt : TPoint;
      x ,y : Integer;
    begin
      writeln('Drinking overload');
        if item_overload.findIn(invbox1,pnt) then
        begin
          humanMMouse(pnt,2,2);
          wait(50+random(20));
          ClickMouse(x,y,mouse_Left);
          wait(100+random(20));
          flicpray;
         end
     end
    
    
    procedure drinkabsorb;
    var
      pnt : TPoint;
      i,x ,y : Integer;
    begin
      writeln('Drinking Absorb');
      for i:=1 to 200 do
      begin
        if item_absorb.findIn(invbox1,pnt) then
        begin
          humanMMouse(pnt,2,2);
          wait(50+random(20));
          ClickMouse(x,y,mouse_Left);
          wait(100+random(20));
          absorbtimer := 0;
         if findBlackChatMessage('any more') then
         exit;
         end;
        if not item_absorb.findIn(invbox1,pnt)  then
        exit;
     end
     end;
    
    
    procedure createItems;
    begin
      item_overload.Name := 'Overload';
      obj_prayericon.Name := 'prayer';
      item_cake.Name := 'Dwarven rock cake';
      item_absorb.Name := 'Absorb';
      item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
      obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMjCcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAwAAAq6QtA');
      item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
      item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
    end;
    
    
    procedure startafk;
    var
    prayflictimer : Integer;
    begin
      repeat
      begin
      if findBlackChatMessage('wake up feeling') then
         begin
         logoutPlayer();
        terminateScript();
        end;
        prayflictimer := 0;
        repeat
        begin
          mouseSpeed := Random(16, 28);
          flicpray;
          wait(45000+random(5000));
          Inc(absorbtimer);
        end
        until (getCurrentHealth() >= 20);
        flicpray;
        drinkoverload;
        if (absorbtimer > 17) then
        begin
          drinkabsorb;
        end
        wait(8000+random(300));
      end
      until (false);
    end;
    {
    procedure antiban();
    var
      rand: Integer;
      what: String
    begin
      if (random(0, 30) = 0) then
      begin
        rand := random(0, 71);
        case rand of
          0..45:
          begin
            if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
              MMouseOffClient('random');
            what := 'mouse off client';
          end;
          46..51:
          begin
            compassMovement(30, 170, false);
            what := 'compass movement';
          end;
          52..57:
          begin
            hoverSkill(SKILL_COOKING, false);
            what := 'hovering skill';
          end;
          58..70:
          begin
            pickUpMouse;
            what := 'pick up mouse';
          end;
        end;
        writeln('last antiban on: ' + mstoTime(getTimeRunning, 3) + '    ' + what);
      end;
    end;     }
    
    procedure setupplayer;
    var
      pnt : TPoint;
      x ,y : Integer;
      counter : Integer;
    begin
        if item_overload.findIn(invbox1,pnt) then
        begin
          Writeln('Found Overload');
          humanMMouse(pnt,2,2);
          wait(500+random(300));
          ClickMouse(x,y,mouse_Left);
          wait(100+random(100));
         end
         wait(500+random(300));
         flicpray;
        repeat
        if item_absorb.findIn(invbox1,pnt) then
        begin
          Writeln('Found Absorb');
          humanMMouse(pnt,2,2);
          wait(500+random(300));
          ClickMouse(x,y,mouse_Left);
          wait(500+random(100));
          Inc(Counter);
         end
         until (counter = 20)
    end
    
    procedure eatcake;
    var
      pnt : TPoint;
      x ,y : Integer;
      counter : Integer;
    begin
      repeat
      if item_cake.findIn(invbox1,pnt) then
      begin
       flicpray;
        Writeln('Found Cake');
        humanMMouse(pnt,2,2);
        wait(500+random(300));
        ClickMouse(x,y,mouse_Right);
        wait(100+random(100));
        chooseOption('Guzzle')
       end
       until (getCurrentHealth() <= 70)
       repeat
        if item_cake.findIn(invbox1,pnt) then
        begin
          humanMMouse(pnt,2,2);
          wait(500+random(300));
          ClickMouse(x,y,mouse_Left);
          wait(900+random(300));
        end
       until (getCurrentHealth() < 52)
    end
    
    
    procedure mainLoop;
    begin
      eatcake;
      setupplayer;
      flicpray;
      //antiban;
      startafk;
      if findBlackChatMessage('wake up feeling') then
         begin
         logoutPlayer();
        terminateScript();
        end;
    end
    
    
    begin
      initAL;
      minimap := ToBox(500, 91, 600, 130);
      invbox1 := ToBox(550, 208, 735, 465);
      createitems;
      mouseSpeed := Random(16, 28);
      mainLoop;
    end;
    Cool Stuff, glad to see people improving on my scripts. I honestly don't have a lot of time lately to make the fixes it needs, but I'm sure this will help a lot of people. Keep up the good work!

  14. #39
    Join Date
    Feb 2018
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey Undertofu you're script looks great. How come I cannot get it to work in my simba? Can you help me set it up? Can you .zip your exact simba setup to me so I can run it without the flaws i keep getting. Here is my error:

    Variable "DISABLE_RANDOMS" not used at line 14, column 35 in file "C:\Simba\Includes\AeroLib\misc\randomsolvers\Mast er.simba"
    Variable "aFound" not used at line 5, column 18
    Variable "phealth" not used at line 12, column 19
    Variable "BOX_CB" not used at line 112, column 36 in file "C:\Simba\Includes\AeroLib\core\Constants.simb a"
    Variable "AL_OnFindRandomCall" not used at line 191, column 63 in file "C:\Simba\Includes\AeroLib\core\Constants.simb a"
    Variable "AL_CombatRandoms" not used at line 192, column 32 in file "C:\Simba\Includes\AeroLib\core\Constants.simb a"
    Variable "AL_runDirection" not used at line 193, column 37 in file "C:\Simba\Includes\AeroLib\core\Constants.simb a"
    Variable "KMTarget" not used at line 12, column 29 in file "C:\Simba\Includes\AeroLib\core\engine\InputHandle r.simba"
    Variable "ITarget" not used at line 12, column 29 in file "C:\Simba\Includes\AeroLib\core\engine\InputHandle r.simba"
    Variable "pnt" not used at line 844, column 20 in file "C:\Simba\Includes\AeroLib\core\Chat.simba"
    Variable "Found" not used at line 302, column 17 in file "C:\Simba\Includes\AeroLib\core\gametabs\Inventory .simba"
    Variable "TheSkill" not used at line 114, column 22 in file "C:\Simba\Includes\AeroLib\core\Antiban.simba"
    Parameter "Result" not set at line 206, column 43 in file "C:\Simba\Includes\AeroLib\misc\randomsolvers\Mast er.simba"
    Variable "counter" not used at line 204, column 20
    Compiled successfully in 1997 ms.
    [=================================]
    | < Aero|Library > |
    | ---------------- |
    | Version : 2.1 |
    | Revision : 0 |
    [=================================]
    [AL] Initiating AeroLib...
    [AL] Checking version...
    [AL] Currently up to date.
    [AL] AeroLib auto-update is disabled
    [AL] Loaded 2 MSObjects.
    [AL] Startup complete!

  15. #40
    Join Date
    Aug 2014
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    theres no errors in there, try running the script right when u enter the cave

  16. #41
    Join Date
    Apr 2015
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Simba Code:
    {$i AeroLib/AeroLib.Simba}

    var
      obj_prayericon : TItem;
      item_cake : TItem;
      item_overload : TItem;
      item_absorb : TItem;
      invbox1 : TBox;
      minimap : TBox;

    procedure createItems;
    begin
      obj_prayericon.Name := 'prayer';
      item_cake.Name := 'Dwarven rock cake';
      item_overload.Name := 'Overload';
      item_absorb.Name := 'Absorb';
      obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMjCcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAwAAAq6QtA');
      item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
      item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
      item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
    end;

    procedure eatcake;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      if item_cake.findIn(invbox1,pnt) then
      begin
        Writeln('Guzzling the Cake');
        humanMMouse(pnt,2,2);
        wait(random(300, 500));
        ClickMouse(x,y,mouse_right);
        wait(random(100, 200));
        chooseOption('Guzzle');
      end;
    end;

    procedure flickprayer;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      writeln('Flicking Prayer');
      pnt := [555,95];
      humanMMouse(pnt,10,10);
      wait(random(200, 500));
      ClickMouse(x,y,mouse_left);
      wait(random(200, 500));
      ClickMouse(x,y,mouse_left);
    end;

    procedure drinkoverload;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      if item_overload.findIN(invbox1,pnt) then
      begin
        writeln('Drinking Overload');
        humanMMouse(pnt,2,2);
        wait(random(50, 70));
        ClickMouse(x,y,mouse_Left);
        wait(random(4000,4500));
      end
      else if (getCurrentHealth() >= 2) then
      begin
      repeat
        eatcake();
      until (getCurrentHealth() = 1)
      end;
    end;

    procedure drinkabsorb;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      if item_absorb.findIn(invbox1,pnt) then
      begin
        writeln('Drinking Absorbtion');
        humanMMouse(pnt,2,2);
        wait(random(100, 200));
        ClickMouse(x,y,mouse_left);
        wait(random(300,1900));
      end;
    end;

    procedure antiban;
    var
      rand : Integer;
    begin
      if (random(0, 4) = 0) then
      begin
        rand := random(0, 60);
        case rand of
          0..45:
          begin
            if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
              MMouseOffClient('random');
          end;
          46..51:
          begin
            compassMovement(random(40), random(190), false);
          end;
          52..60:
          begin
            pickUpMouse;
          end;
        end;
      end;
    end;

    procedure afk;
    var
    counter : Integer;
    begin
    repeat
      if (getCurrentHealth() >= 51) then
      begin
        drinkoverload();
        drinkabsorb();
        antiban();
      end
      else if (getCurrentHealth() = 2) then
        begin
            eatcake();
        end
      else if (counter = 19) then
      begin
        flickprayer();
        counter := 0;
        antiban();
      end
      else
      begin
        wait(random(1500, 2900));
        Inc(counter);
        end
    until (getCurrentHealth() >= 90)
    end;

    procedure log;
    begin
      if findBlackChatMessage ('wake up feeling') then
      begin
        logoutplayer();
        terminatescript();
      end;
    end;

    begin
      initAL;
      minimap := ToBox(500, 91, 600, 31);
      invbox1 := ToBox(550, 208, 735, 465);
      mouseSpeed := Random (18, 30);
      createitems;
      afk;
      log;
    end;

    Script I made reading your script. I'll update this post, when I finish it. Too fucking lazy to design my own thread.
    Basically what I suggest you to do using this script is to go in the top left corner, guzzle your cake to 51 HP, take your overload and absortions to 1000 and run the script.
    Been using this script for three days now, works wonderfully.
    Inventory setup for me:
    Rock Cake
    60 Dose of Overload
    48 Dose of Absortion

    PROS:
    Takes Overloads properly
    Rock cake your way down to 1HP if you run out of Overloads.

    NB!:
    The new code hasn't been tested out yet, but it compiled, so I am sure it will work

    proggie.jpg
    Last edited by h4n1virus; 05-10-2018 at 09:10 PM. Reason: Updated code

  17. #42
    Join Date
    May 2018
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    It doesn't seem to work for some reasaon. It eats the rocks just find and drinks the potions but it doesn't prayer flick or anything. "Flicking Pray" is written to the console but it doesn't actually flick pray.

  18. #43
    Join Date
    May 2018
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I used h4n1virus's version and it works great! The one of the first post doesn't though.

  19. #44
    Join Date
    Dec 2016
    Location
    Michigan, USA
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by h4n1virus View Post
    Simba Code:
    {$i AeroLib/AeroLib.Simba}

    var
      obj_prayericon : TItem;
      item_cake : TItem;
      item_overload : TItem;
      item_absorb : TItem;
      invbox1 : TBox;
      minimap : TBox;

    procedure createItems;
    begin
      obj_prayericon.Name := 'prayer';
      item_cake.Name := 'Dwarven rock cake';
      item_overload.Name := 'Overload';
      item_absorb.Name := 'Absorb';
      obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMjCcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAwAAAq6QtA');
      item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
      item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
      item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
    end;

    procedure eatcake;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      if item_cake.findIn(invbox1,pnt) then
      begin
        Writeln('Guzzling the Cake');
        humanMMouse(pnt,2,2);
        wait(random(300, 500));
        ClickMouse(x,y,mouse_right);
        wait(random(100, 200));
        chooseOption('Guzzle');
      end;
    end;

    procedure flickprayer;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      writeln('Flicking Prayer');
      pnt := [555,95];
      humanMMouse(pnt,10,10);
      wait(random(200, 500));
      ClickMouse(x,y,mouse_left);
      wait(random(200, 500));
      ClickMouse(x,y,mouse_left);
    end;

    procedure drinkoverload;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      if item_overload.findIN(invbox1,pnt) then
      begin
        writeln('Drinking Overload');
        humanMMouse(pnt,2,2);
        wait(random(50, 70));
        ClickMouse(x,y,mouse_Left);
        wait(random(4000,4500));
      end
      else if (getCurrentHealth() >= 2) then
      begin
      repeat
        eatcake();
      until (getCurrentHealth() = 1)
      end;
    end;

    procedure drinkabsorb;
    var
      pnt : TPoint;
      x , y : Integer;
    begin
      if item_absorb.findIn(invbox1,pnt) then
      begin
        writeln('Drinking Absorbtion');
        humanMMouse(pnt,2,2);
        wait(random(100, 200));
        ClickMouse(x,y,mouse_left);
        wait(random(300,1900));
      end;
    end;

    procedure antiban;
    var
      rand : Integer;
    begin
      if (random(0, 4) = 0) then
      begin
        rand := random(0, 60);
        case rand of
          0..45:
          begin
            if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
              MMouseOffClient('random');
          end;
          46..51:
          begin
            compassMovement(random(40), random(190), false);
          end;
          52..60:
          begin
            pickUpMouse;
          end;
        end;
      end;
    end;

    procedure afk;
    var
    counter : Integer;
    begin
    repeat
      if (getCurrentHealth() >= 51) then
      begin
        drinkoverload();
        drinkabsorb();
        antiban();
      end
      else if (getCurrentHealth() = 2) then
        begin
            eatcake();
        end
      else if (counter = 19) then
      begin
        flickprayer();
        counter := 0;
        antiban();
      end
      else
      begin
        wait(random(1500, 2900));
        Inc(counter);
        end
    until (getCurrentHealth() >= 90)
    end;

    procedure log;
    begin
      if findBlackChatMessage ('wake up feeling') then
      begin
        logoutplayer();
        terminatescript();
      end;
    end;

    begin
      initAL;
      minimap := ToBox(500, 91, 600, 31);
      invbox1 := ToBox(550, 208, 735, 465);
      mouseSpeed := Random (18, 30);
      createitems;
      afk;
      log;
    end;

    Script I made reading your script. I'll update this post, when I finish it. Too fucking lazy to design my own thread.
    Basically what I suggest you to do using this script is to go in the top left corner, guzzle your cake to 51 HP, take your overload and absortions to 1000 and run the script.
    Been using this script for three days now, works wonderfully.
    Inventory setup for me:
    Rock Cake
    60 Dose of Overload
    48 Dose of Absortion

    PROS:
    Takes Overloads properly
    Rock cake your way down to 1HP if you run out of Overloads.

    NB!:
    The new code hasn't been tested out yet, but it compiled, so I am sure it will work

    proggie.jpg
    Got me 99 attack and strength, thanks all

Page 2 of 2 FirstFirst 12

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
  •