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

[Aspect]

NMZ Dharoks Slayer

What does the script do?
This script will eat a rockcake until you are at 51 HP, then drink an overload, then absorbs until max Absorb. It will then Flick your quick prayer to stay at 1 hp. After the overload wears off, it will drink another.

How do I set this up?
Arange your inventory like below: (You may have more potions, but you MUST HAVE the 5 absorbs on the left side)
27772
Set your brightness to MAX
Open your inventory
Set Quickpray to RapidHeal
Target the OSBuddy or RSClient Window
Press Play as soon as you go into your dream!



NOTE If you would like to use the smart client instead, just add "{$DEFINE SMART}" At the top of the script.
I wanted a script I could use to minimize the risk of ban on my main, thats why there is no reflection used or SMART( That's all theory). You will need Aerolib, however

[AFools]

Nice; I was going to re-write my NMZ since the reflection include is missing 'get.HP' hooks at the moment.

Good work! =D

[Dan the man]

Nice release - 100% color ftw! :D

I should really add overload support to mine. I never understood the mechanics when I made my script.

[Aspect]

Thanks for the support guys! It really motivates me to keep grinding these scripts lol.

[Suburbia]

That's awesome. How many accounts have you personally used this script on?

[Aspect]

That's awesome. How many accounts have you personally used this script on?

Only my main.

[Suburbia]

Only my main.
I assume you maxed out? I am currently leveling a handful of accounts to 70/70/70. I'll be sure to try Dan and your script on an individual account and let you know how it goes.

[Aspect]

Actually, not yet lol. I'm usually scripting too much to actually get to use them that much lol.

[Suburbia]

That's pretty funny. How many hours have you used the script for?

[Aspect]

I've used it about 4 hours at a time for a few days.

[Suburbia]

Okay, I guess I'll be the guinea pig. I am almost done getting the requirements for NMZ.

[Suburbia]

Edit: Resolved

[Aspect]

Hey, so I attempted to run the script. I get as far as some absorption potions being detected. But I haven't been able to go past that point because I get killed.
Can I have my inventory detected before I start the dream?

My guess is that means my system resources aren't sufficient.

You're gonna have to give me a little more information. How do you know it detects the absorbs? Does it do anything else at all?

[Suburbia]

Edit: Resolved

[Aspect]

CMD opened, and that was one of the messages I got. I'm trying on a more powerful machine at the moment. If I run into the same issue I'll upload a video.

I had the same issue.
27800

I am uploading an image because it is much faster for me. If you want me to upload a video or you'd like to see my screen on Skype let me know.

So it doesn't click the absorb and you die? Also send me a screenshot of your inventory setup.
You must also have (4) dose overload potions, and have your brightness on max, and run in fixed window mode.

[Suburbia]

Edit: Resolved

[Suburbia]

Edit: Resolved

[Aspect]

If you're using SMART, dont't worry about it. But if not you have to use the target symbol in smart to select OSBuddy. The DTM's for the rock cake and overloads might be outdated.

[Suburbia]

Edit: Resolved

[Aspect]

But you are aware the client still needs to be selected by pressing the target symbol in the top of simba correct?

[Suburbia]

Edit: Resolved

[Suburbia]

Edit: Resolved

[Suburbia]

100% my fault. Sorry for taking up your time. The script started to work. I wasn't familiar with the capture system, and I didn't see it on the two tutorials I read. I'll give it a go now.

[Suburbia]

Okay, well I managed to get the script running. For those that may use it, here are some of my tips/observations just from the start.
1. Do not rely on the bot getting your HP down to 51. When I came in with full health, it would use eat (minus 1) which would result in monsters arriving before it could use an overload potion. This would result in the inability to consume the overload because with the monsters combined hit, it would carry it below 50. My advice would be to come in with some lowered health, but do not bring yourself in at 51 or too close to 51. When I did that the bot would attempt to use guzzle and that would result in the same issue as above. You'll have to play around with it yourself to find a timing that works for you. Just keep in mind that when eating the rock cake, the bot clicks relatively slowly (which is unlike what a human would do in this case).

2. Be prepared to be there for a minimum amount of time. The bot consumed 4 absorption points right at the start for me.

3. I believe the prayer flick is random from a certain interval. I timed a few sessions, and they were not exactly the same so I assume it is a hard-coded time. I did not examine the code though.

4. After the first 5 minute expired, the bot did not consume the overload potion fast enough. This resulted in no longer having 1 HP. This results in lower XP and faster degradation of the absorption.

5. The bot did not use all absorption potions that were available.

I will provide more feedback with time. Thanks for taking the time to create this script Aspect!

[Aspect]

You're obviously still not following the instructions.
I will agree with #4 (https://villavu.com/forum/usertag.php?do=list&action=hash&hash=4) however, as there is a period of time before it consumes another.
I'll upload a video on how it's used.

[Suburbia]

You're obviously still not following the instructions.
I will agree with #4 (https://villavu.com/forum/usertag.php?do=list&action=hash&hash=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 (https://villavu.com/forum/usertag.php?do=list&action=hash&hash=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.

[Gf Fagex]

im having trouble with this script overloading on time :/

[memes123]

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.

[deepthroat123]

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.

[Aspect]

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

[lolzea]

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.

[uvlees]

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.

28017

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.

[klerx]

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.

[Dan the man]

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.

[OSRS_stealth]

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 ?

[OSRS_stealth]

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 ?

[underforu]

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.



{$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/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAA aUMIOQ==');
obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMj CcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAw AAAq6QtA');
item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfg EUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFm VkYOAHYj4g5gBidiBev2s/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;

[Aspect]

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.



{$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/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAA aUMIOQ==');
obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMj CcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAw AAAq6QtA');
item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfg EUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFm VkYOAHYj4g5gBidiBev2s/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!

[OSRS_stealth]

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\Maste r.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.simba"
Variable "AL_OnFindRandomCall" not used at line 191, column 63 in file "C:\Simba\Includes\AeroLib\core\Constants.simba"
Variable "AL_CombatRandoms" not used at line 192, column 32 in file "C:\Simba\Includes\AeroLib\core\Constants.simba"
Variable "AL_runDirection" not used at line 193, column 37 in file "C:\Simba\Includes\AeroLib\core\Constants.simba"
Variable "KMTarget" not used at line 12, column 29 in file "C:\Simba\Includes\AeroLib\core\engine\InputHandler .simba"
Variable "ITarget" not used at line 12, column 29 in file "C:\Simba\Includes\AeroLib\core\engine\InputHandler .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\Maste r.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!

[evasiv]

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

[h4n1virus]

{$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('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMj CcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAw AAAq6QtA');
item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfg EUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAA aUMIOQ==');
item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFm VkYOAHYj4g5gBidiBev2s/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 :)

28441

[enigma958]

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.

[enigma958]

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

[kyle12308]

{$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('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMj CcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAw AAAq6QtA');
item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfg EUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAA aUMIOQ==');
item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFm VkYOAHYj4g5gBidiBev2s/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 :)

28441

Got me 99 attack and strength, thanks all