PDA

View Full Version : [Minigame] SimpleNMZ (Lape - Reflection - AL)



cabbiethefirst
06-13-2015, 01:24 PM
Hey guys, I have seen a simple script like this requested a number of times in various parts of these forums.
It's a simple script used at NMZ that will:

Drink absorbtion potions
Drinks overloads
Toggles quick pray every 40-59 seconds (Set your quick pray to rapid heal)
Simple antiban (mouses off screen)



Instructions:
Make sure to install Reflection and Aerolib, search around the forums for the links if you don't have them.

Setup your inventory. I would recommend the following: Cash Stack, Rock Cake, Rest is Absorptions and Overloads
Setup your quick pray (Set your quick pray to rapid heal, turn off everything else)
Make sure auto-retaliate is on
Join a game manually. You can use guthans boosters or you can do hard demons/MTD
Rock cake your health down to 51
Toggle rapid heal on and off real quick to make sure your health doesn't regenerate
Drink Absorptions to 1000
Toggle rapid heal on and off real quick to make sure your health doesn't regenerate
Enable SMART

And you're off to your 6 hour training fest!

You can use this with Dharok's or whatever other armor you want. I usually get around ~80k Strength xp/hr. Use it with a blowpipe, whip, whatever you want.
For normal Guthans boosters I usually take an inventory of 68 overloads and the rest absorption pots.
Thanks to Hoodz, I stole his drink potion function in his NMZ script.
Have fun!

**
Fixed a silly mistake I made while changing some things before I posted it here.
**

nitroxx0025
06-15-2015, 11:29 PM
Dam hoodz looking sick i will try this soon when i get my dharoks back :D

BigRedJapan
06-16-2015, 03:28 AM
this thing doesnt work

Incurable
06-16-2015, 04:44 AM
this thing doesnt work

You should know better by now to post that it doesn't work without saying why...

BigRedJapan
06-16-2015, 06:16 AM
Nope i do not bro, all srl members do the same im just following their example

Incurable
06-16-2015, 09:46 AM
Nope i do not bro, all srl members do the same im just following their example

In other words you do know better.

cabbiethefirst
06-16-2015, 11:28 AM
Nope i do not bro, all srl members do the same im just following their example
I made a silly syntax mistake while I was changing some stuff to release it on the forums but it should work fine now. If you can tell me what specifically is wrong I can try and fix it.

Fitta
06-16-2015, 11:54 AM
Nope i do not bro, all srl members do the same im just following their example

Hi Rules of Joe,

He has spent his free time making something. Respect yourself, the creator and www.villavu.com enough to not post silly stuff like this. What other members of this site does is not an excuse? "If they were to jump off a cliff, would you follow their example?"



Really nice seeing this type of script in the junior members :) Keep up the perfect work!

jsand
06-16-2015, 01:45 PM
It works fine, ran it for 4hours a couple days ago (I had to remove line 24 to make it run).

Thanks!

cabbiethefirst
06-16-2015, 02:27 PM
It works fine, ran it for 4hours a couple days ago (I had to remove line 24 to make it run).

Thanks!

yeah, it works fine for me, but i put that in it's own procedure and uploaded it as a new file just to make sure it doesn't break for anybody else, thanks.

hectortje3
06-26-2015, 07:58 PM
the script wants to unnecessary drink absorption pots... it just keeps clicking a pot every few minutes.
Could u fix this?

cabbiethefirst
06-28-2015, 05:28 PM
the script wants to unnecessary drink absorption pots... it just keeps clicking a pot every few minutes.
Could u fix this?

I was kind of lazy about finding a way to read the number of absorption pots active so I just made it drink it on a random time interval instead. If anybody knows a way to pull the value of absorption then it would only take a minute to change.

Aufi
06-28-2015, 06:19 PM
I was kind of lazy about finding a way to read the number of absorption pots active so I just made it drink it on a random time interval instead. If anybody knows a way to pull the value of absorption then it would only take a minute to change.

Widgets :)

The widget for the Absorb text is 202, 1 Child: 9

james10000
08-21-2015, 04:48 PM
I cant get this script to run as its giving errors trying to run al + reflection together any help?

krisssssss
09-11-2015, 12:17 PM
Thank you, works just fine, except for the exp counter, if i set it to train range i get a

Error: Found unexpected token "Procedure" at line 24
Compiling failed.

without it, all good.

One suggestion from me is to toggle the prayer faster, like a double click, and maybe twice a minute or even more often.
Another thing, as a antiban, maybe leave the mouse on prayer button once in a while, or by random.

Cheers for the script!

nitroxx0025
09-26-2015, 01:51 PM
this is fucking awsome tried other ones with absorption and dident work that good for me hoodz worked fine but im not that rich for prayer pots good work man

nitroxx0025
10-13-2015, 11:35 AM
after hook upate im getting Error: Access violation
Compiling failed.
already uninstalled an reinstalled everything dident work :(

OneWish
10-13-2015, 04:02 PM
after hook upate im getting Error: Access violation
Compiling failed.
already uninstalled an reinstalled everything dident work :(

I am have the same problem

captainblast
10-13-2015, 07:56 PM
after hook upate im getting Error: Access violation
Compiling failed.
already uninstalled an reinstalled everything dident work :(


I am have the same problem


Hey guys. Access violations are caused by a repeating update procedure in the misc.simba include. Find your simba installation folder where you installed it, and locate misc.simba (or just search for it) then go into I believe line 71 or so and look for this:

{$IFNDEF Aerolib}
{$loadlib prosocks}
{$ENDIF}

Remove those 3 lines and the script should stop throwing access violation codes. NOTE: You may need to put these 3 lines back in for some scripts, so save them just in case. If you try to run a purely reflection based script that doesn't use Aerolib you will need to add them back in. Otherwise it will say an error like "Unknown declaration SSLsocket".

That should fix the access violation.

The new update broke all the NMZ bots so hope that works for you guys.

nitroxx0025
10-14-2015, 01:48 PM
Hey guys. Access violations are caused by a repeating update procedure in the misc.simba include. Find your simba installation folder where you installed it, and locate misc.simba (or just search for it) then go into I believe line 71 or so and look for this:

{$IFNDEF Aerolib}
{$loadlib prosocks}
{$ENDIF}

Remove those 3 lines and the script should stop throwing access violation codes. NOTE: You may need to put these 3 lines back in for some scripts, so save them just in case. If you try to run a purely reflection based script that doesn't use Aerolib you will need to add them back in. Otherwise it will say an error like "Unknown declaration SSLsocket".

That should fix the access violation.

The new update broke all the NMZ bots so hope that works for you guys.

thank you so much i forgot all about that :)

nitroxx0025
10-19-2015, 10:43 PM
well i wanna thank you for this 26827

hakishakataki
10-20-2015, 03:27 PM
well i wanna thank you for this 26827

would you mind sharing the code that you got to work?

nitroxx0025
10-20-2015, 06:38 PM
would you mind sharing the code that you got to work?

well im just using the normal script that the creator posted

nitroxx0025
10-21-2015, 05:07 AM
well maxed out melee using this script :D

to bad its expnsive ranging : /

26829

Blak Fishy
10-21-2015, 06:26 PM
well maxed out melee using this script :D

to bad its expnsive ranging : /

26829

You can make your money back from ranging by buying the herb boxes from nmz with the points you get.

hakishakataki
10-21-2015, 07:25 PM
well im just using the normal script that the creator posted

oh, sweet.

nitroxx0025
10-22-2015, 02:50 AM
You can make your money back from ranging by buying the herb boxes from nmz with the points you get.

well im not quite sure since zulrah scales and (im using mith ) darts are pretty expensive
it is around 100k ish exp/hr
but i dont think you make all of it back

hakishakataki
10-23-2015, 02:39 AM
Does this script have the ability to run through OS buddy or the runescape web client?

Gf Fagex
10-26-2015, 12:59 PM
MATE LOL.. This script is fucking savage. I am getting like 90k exp per hour with dharok and absorbs on demons hard and around 1 million points per trip. I would absolutely love it if there was a bit more antiban though. I will be maxed out soon if this goes the way I want it to.. Thanks so much for this script bro! :)

rune3132
12-04-2015, 06:12 PM
This is a god damn amazing script, but i do believe it have atleast 1 error. I some time end up with 2 hp randomly. I don't know what makes it happen, but i believe that it is because the prayer timer goes up to 59 seconds. A way to make it better would be to have the script prayer flick as soon as the script starts.

Tector
12-12-2015, 11:37 PM
Works realy good for me. I only changed the time to drink the absorb potion a bit, because i am using a demon booster and towards the end, it got a little bit close with the left over dmg absorb. rest works fine!

chambo123
12-14-2015, 03:09 AM
How many of each potion is everyone taking?

The script seems to stop taking overloads if absorption potions have run out even if there are 1000 points left on the absorption.

Is there anyway to make it so it drinks the overloads until my character dies?

deffailed
02-19-2016, 07:54 PM
This dont flick prayer or dont drink absort potions ? It still drinks overload :/

Bulbasaur
02-28-2016, 09:59 PM
If anyone still needs a fix for when/if it stops drinking overloads/fails quickpray in time.

edit line 126:
if (timer1.ElapsedTime() - lastpraytime) > (RandomRange(21000,32000)) then


replace lines 146-156 with this:

begin
if ply.GetSkillLevel(SKILL_HP) > 50 then
begin
drink('Overload ');
end

hakishakataki
03-16-2016, 05:06 AM
If anyone still needs a fix for when/if it stops drinking overloads/fails quickpray in time.

edit line 126:
if (timer1.ElapsedTime() - lastpraytime) > 36000 then


replace lines 146-156 with this:

begin
if ply.GetSkillLevel(SKILL_HP) > 50 then
begin
drink('Overload ');
end

I haven't checked if this works but thanks for posting!

hakishakataki
03-18-2016, 03:21 PM
I went ahead and spruced up the antiban, feel free to use it if anyone wants to.

procedure antiban();

begin
case random(1000) of
//0: Reflect.Compass.Make(Random(360));
1..50:
if (pointInBox(Reflect.Mouse.GetPoint, intToBox(0, 0, 763, 502))) then
MMouseOffClient('rand');
51..100: randomTab(True);
101..150: randomFKeys(True);
151..200: examineInv();
201..250: boredHuman;
251..300: compassMovement(10, 30, true);
301..350: randomMovement();
351..400: randomRClick;
end;
end;

EDIT: after watching this in action it may have been a little overboard. It needs some tweaking.

After working with it I have found that the antiban is ALWAYS going. So for this antiban to work well and not be always doing something I need to find a 'if antiban hasn't been done for x amount of time, do antiban' or something like that. That way we have a good variety of antiban movements but it's not ALWAYS doing the antiban. Bonus points if we can make 'mouse off screen' the default position.

EDIT 2:


MATE LOL.. This script is fucking savage. I am getting like 90k exp per hour with dharok and absorbs on demons hard and around 1 million points per trip. I would absolutely love it if there was a bit more antiban though. I will be maxed out soon if this goes the way I want it to.. Thanks so much for this script bro! :)

Well, I figured out how to do what I described above and...

WE NOW HAVE AWESOME ANTIBAN!

Below is the entire script re-written with the antiban added in.


program dhnmz;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i reflection/Reflection.simba}

var
skill1: Int64;
ply: TReflectLocalPlayer;
mouse1: TReflectionMouse;
compass: TReflectionCompass;
tab1: TReflectionGameTab;
timer1:TReflectTimer;
lastpraytime:Int64;
lastdrinktime:Int64;
lastadvancedantibantime:Int64;
startingxp:Int64;

//--------SETUP----------//
//Set which skill you are training here
//Ranged = 4
//Attack = 0
//Strengh = 2
//Defence = 1
//Magic = 6
procedure setDebugVars;
begin
skill1 := 1;
end;
//--------DONE----------//
procedure drink(pot: String);
var
potion: TReflectInvItem;
strings: TStringArray := ['(1)', '(2)', '(3)', '(4)'];
index: Integer;
invBox: TBox;
mousePoint: TPoint;
begin

if (Reflect.Gametab.Current <> Gametab_Inventory) then
Reflect.Gametab.Open(Gametab_Inventory);
for index := 0 to high(strings) do
begin
if (potion.Find(pot + strings[index])) then
break;
if (index = high(strings)) then
exit;
end;
invBox := potion.GetBox;
mousePoint := middleBox(invBox);
Reflect.Mouse.Move(mousePoint, 5, 7);
sleep(150 + random(50));
case randomRange(0, 7) of
0..5: Reflect.Mouse.Click(MOUSE_LEFT);
6:
begin
Reflect.Mouse.Click(MOUSE_RIGHT);
Reflect.Text.ChooseOption('Drink', 500);
end;
end;
sleep(2500 + random(1000));
end;

function QuickPray(Pray: Boolean): Boolean;
var
CCountPurple, CCountWhite: integer;

begin
Result := False;
CCountPurple := CountColorTolerance(5056052, 550, 95, 565, 108, 45);
CCountWhite := CountColorTolerance(9723486, 550, 95, 565, 108, 22);

if ((CCountPurple < 1) and (CCountWhite < 1)) then
begin
Exit;
end;

if (Pray) then
begin
if (CCountWhite < 1) then
TReflectionMouse.Move(550, 95, 565, 108, mouse_left);
Result := True;
end else
begin
if (CCountWhite > 1) then
TReflectionMouse.Move(550, 95, 565, 108, mouse_left);
Result := True;
end;


end;


procedure antiban();
begin
case random(1000) of
1..50:
if (pointInBox(Reflect.Mouse.GetPoint, intToBox(0, 0, 763, 502))) then
MMouseOffClient('rand');
end;
end;

procedure chancedrinkabsorb;

begin
if (timer1.ElapsedTime() - lastdrinktime) > RandomRange(150000,200000) then
begin
Writeln('drinking absorb');
lastdrinktime := timer1.ElapsedTime();
drink('Absorption ');
end;
end;
procedure togglepray;
begin
Writeln('TOTAL XP DONE: ' + IntToStr(ply.GetSkillExp(skill1) - startingxp) );
Writeln('XP/HR: ' + ToString((ply.GetSkillExp(skill1) - startingxp)/(timer1.ElapsedTime()/(1000*60*60)) ) );
lastpraytime := timer1.ElapsedTime();
QuickPray(True);
Wait(RandomRange(1400,1700));
QuickPray(False);
end;
procedure checkpray;
begin
if (timer1.ElapsedTime() - lastpraytime) > 36000 then
begin
Wait(RandomRange(500,9000));
togglepray;
end;
end;

procedure advancedantiban;
begin
if (timer1.ElapsedTime() - lastadvancedantibantime) > RandomRange(50000,200000) then
begin
WriteLn('Doing advanced antiban');
lastadvancedantibantime := timer1.ElapsedTime();
case random(1000) of
51..100: randomTab(True);
101..150: randomFKeys(True);
151..200: examineInv();
251..300: compassMovement(10, 30, true);
301..350: randomMovement();
351..400: randomRClick;
end;
end;
end;



begin
InitAL;
Reflect.Setup;
LoginPlayer(False);
ply.Create;
timer1.Start;
lastpraytime := 0;
lastdrinktime := 0;
lastadvancedantibantime := 0;
setDebugVars;
startingxp := ply.GetSkillExp(skill1)
repeat
begin
if ply.GetSkillLevel(SKILL_HP) > 50 then
begin
//Writeln('Drinking overload');
drink('Overload ');
end
if ply.GetSkillLevel(SKILL_HP) > 50 then
begin
//Writeln('Drinking overload');
drink('Overload ');
end
else
begin
AntiBan;
Advancedantiban;
chancedrinkabsorb;
checkpray;
end;
end
until(false);
end;

EDIT 3: I'm working on grabbing the power up ID's maybe we can create a 'grab powerup' procedure.

Edit 4: The powerup Id's are..

PowerSurge:= 26264;
Zapper:= 26265;
RecurrentDamage:= 26256;

EDIT 5:

I created a log-out procedure that can be added in as fail safe. I noticed that if you run out of absorbtions before you run out of overloads, the script wont stop. This procedure fixes that. Add it in after 'check pray' in the end loop.


procedure logout;
begin
if ply.GetSkillLevel(SKILL_HP) > 60 then
begin
WriteLn ('logging out');
logoutplayer();
end;
end;

vikke236
04-11-2016, 07:23 PM
Keep getting Plugin(AND_TPA32) has not been found. Any suggestions? thanks

Dan the man
04-12-2016, 04:29 AM
Keep getting Plugin(AND_TPA32) has not been found. Any suggestions? thanks

http://lmgtfy.com/?q=keep+getting+Plugin(AND_TPA32)

deffailed
04-18-2016, 01:25 PM
Mad gains with my main :spot:

NickWord
04-24-2016, 06:40 PM
Anybody have an issue where HP gens to 2 because an issue pray flicking?

AFools
04-25-2016, 04:39 AM
Anybody have an issue where HP gens to 2 because an issue pray flicking?

i once heavily modified this script; i cannot find it atm.. But you will need to lower the time between prayer flicks.

(from memory - sometime it will absorb or overload when it should be flicking; therefore another second or two goes by before it flicks)

also from memory sometime you will level above 51 health it wont overload -

try



if getCurrentHealth() >= 51 then begin

this is somewhere down the bottom


try




if (timer1.ElapsedTime() - lastpraytime) > (RandomRange(25000,35000)) then

where the checkprayer function is


** I just had a thought... if you add the "checkpray;" function at the beginning of the absorb/overload function - this will automatically make the script check prayer before doing anything else.

vikke236
04-25-2016, 06:57 AM
Never had that problem, however since im pretty low I lvl up my hp quite often. Whenever you get to a new hp lvl you gain 1 hp ingame.. Maybe that´s what happens for you aswell?

NickWord
04-30-2016, 12:47 AM
Never had that problem, however since im pretty low I lvl up my hp quite often. Whenever you get to a new hp lvl you gain 1 hp ingame.. Maybe that´s what happens for you aswell?

I am actually pretty sure thats what was happening and I was unaware, thank you very much.

Death Iz Pro
05-14-2016, 03:14 AM
It worked for a while, but since SRL updated I've run into this problem:



Error: Duplicate declaration "SmartShowConsole" at line 7
Compiling failed.

Okea
05-14-2016, 02:19 PM
I'd just like to thank you for this script. It's awesome and has helped a lot for both learning and xp.

Darkest
05-15-2016, 08:12 AM
How is this script so far? Does it still work?

Death Iz Pro
05-15-2016, 06:17 PM
How is this script so far? Does it still work?

It was fine, now I run into errors when trying to run since the SRL update.

AFools
05-15-2016, 06:39 PM
Interesting. SRL update? i am guessing that means the reflection update??

Some of the hooks may have been missed; otherwise there was a rather large update in the most recent include - Kyle may have overlooked something... try be more specific.

Death Iz Pro
05-15-2016, 06:53 PM
Interesting. SRL update? i am guessing that means the reflection update??

Some of the hooks may have been missed; otherwise there was a rather large update in the most recent include - Kyle may have overlooked something... try be more specific.

Sorry yeah meant reflection not SRL, but occurred after updating SRL.

Here's the problem I run into:

Error: Duplicate declaration "SmartShowConsole" at line 7

I don't see another declaraction of it in the Simba code. I can comment it out and then run into:


Error: Forwarded declaration "TREFLECTIONSMART" not resolved at line 3

the henhead
01-16-2017, 04:42 PM
I've used this, it works flawlessly i've been babysitting it.

sizzayin
01-20-2017, 08:28 PM
This is great. It does not log out after dying in NMZ and it just stands there doing nothing... I added a logout feature after dying so if anyone needs it just let me know

bustr12
01-25-2017, 05:44 AM
How can I change the code so its not doing the toggle prayer thing and all I want is for it to drink overloads and when the 5 minutes expire it chooses randomly from 5-30 seconds to drink the next, drink absorptions to 900+ after going below a random number and logging out when I reach 70 prayer ( I will use prayer right before starting so when I die it means it will renew my prayer back to 70 soit should be time to log out.)

sizzayin
01-27-2017, 08:16 PM
How can I change the code so its not doing the toggle prayer thing and all I want is for it to drink overloads and when the 5 minutes expire it chooses randomly from 5-30 seconds to drink the next, drink absorptions to 900+ after going below a random number and logging out when I reach 70 prayer ( I will use prayer right before starting so when I die it means it will renew my prayer back to 70 soit should be time to log out.)

For the prayer, just comment out the checkpray; in the main function (located at the very bottom of the script:


begin
AntiBan;
chancedrinkabsorb;
//checkpray;
end;


As for overloads, the script already has that feature and the absorption pots is timer based which has been working fine for me. Adjust the time between drinking absorbs if necessary.

For logging out based on prayer level, insert this in to the main function:



if ply.GetSkillLevel(SKILL_PRAYER) = 70 then
begin
Writeln('Logging out');
logoutPlayer;
terminateScript;
end

uvlees
02-19-2017, 05:59 PM
For the ones who still use this script,

I used the edit Hakishatakaki made and changed some things:

-Log out future
-More antiban (Checks strength and hitpoints xp)
If you wish to change the strength xp check search for "SKILL_STRENGTH" and change it to your preferred skill
- Tells you which antiban its using. I found this useful for myself because not all antiban's were working.


program dhnmz;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i reflection/Reflection.simba}

var
skill1: Int64;
ply: TReflectLocalPlayer;
mouse1: TReflectionMouse;
compass: TReflectionCompass;
tab1: TReflectionGameTab;
timer1:TReflectTimer;
lastpraytime:Int64;
lastdrinktime:Int64;
lastadvancedantibantime:Int64;
startingxp:Int64;

//--------SETUP----------//
//Set which skill you are training here
//Ranged = 4
//Attack = 0
//Strengh = 2
//Defence = 1
//Magic = 6
procedure setDebugVars;
begin
skill1 := ;
end;
//--------DONE----------//
procedure drink(pot: String);
var
potion: TReflectInvItem;
strings: TStringArray := ['(1)', '(2)', '(3)', '(4)'];
index: Integer;
invBox: TBox;
mousePoint: TPoint;
begin

if (Reflect.Gametab.Current <> Gametab_Inventory) then
Reflect.Gametab.Open(Gametab_Inventory);
for index := 0 to high(strings) do
begin
if (potion.Find(pot + strings[index])) then
break;
if (index = high(strings)) then
exit;
end;
invBox := potion.GetBox;
mousePoint := middleBox(invBox);
Reflect.Mouse.Move(mousePoint, 5, 7);
sleep(150 + random(50));
case randomRange(0, 7) of
0..5: Reflect.Mouse.Click(MOUSE_LEFT);
6:
begin
Reflect.Mouse.Click(MOUSE_RIGHT);
Reflect.Text.ChooseOption('Drink', 500);
end;
end;
sleep(2500 + random(1000));
end;

function QuickPray(Pray: Boolean): Boolean;
var
CCountPurple, CCountWhite: integer;

begin
Result := False;
CCountPurple := CountColorTolerance(5056052, 550, 95, 565, 108, 45);
CCountWhite := CountColorTolerance(9723486, 550, 95, 565, 108, 22);

if ((CCountPurple < 1) and (CCountWhite < 1)) then
begin
Exit;
end;

if (Pray) then
begin
if (CCountWhite < 1) then
TReflectionMouse.Move(550, 95, 565, 108, mouse_left);
Result := True;
end else
begin
if (CCountWhite > 1) then
TReflectionMouse.Move(550, 95, 565, 108, mouse_left);
Result := True;
end;


end;


procedure antiban();
begin
case random(1000) of
1..50:
if (pointInBox(Reflect.Mouse.GetPoint, intToBox(0, 0, 763, 502))) then
MMouseOffClient('rand');
end;
end;

procedure chancedrinkabsorb;

begin
if (timer1.ElapsedTime() - lastdrinktime) > RandomRange(150000,200000) then
begin
Writeln('drinking absorb');
lastdrinktime := timer1.ElapsedTime();
drink('Absorption ');
end;
end;
procedure togglepray;
begin
Writeln('TOTAL XP DONE: ' + IntToStr(ply.GetSkillExp(skill1) - startingxp) );
Writeln('XP/HR: ' + ToString((ply.GetSkillExp(skill1) - startingxp)/(timer1.ElapsedTime()/(1000*60*60)) ) );
lastpraytime := timer1.ElapsedTime();
QuickPray(True);
Wait(RandomRange(1400,1700));
QuickPray(False);
end;
procedure checkpray;
begin
if (timer1.ElapsedTime() - lastpraytime) > 36000 then
begin
Wait(RandomRange(500,9000));
togglepray;
end;
end;

procedure advancedantiban;
begin
if (timer1.ElapsedTime() - lastadvancedantibantime) > RandomRange(50000,200000) then
begin
WriteLn('Doing advanced antiban');
lastadvancedantibantime := timer1.ElapsedTime();
case random(14) of
1: begin
WriteLn('Strength check');
hoverSkill(SKILL_STRENGTH, false);
end
2: begin
WriteLn('One tab change');
randomTab(True);
end
3: begin
WriteLn('Examine');
examineInv();
end
4: begin
WriteLn('Compass half');
compassMovement(10, 80, true);
end
5: begin
WriteLn('Compass Full');
compassMovement(10, 150, false);
end
6: begin
WriteLn('Pickup mouse movement');
pickUpMouse();
end
7: begin
WriteLn('HP check');
hoverSkill(SKILL_HITPOINTS, false);
end
8: begin
WriteLn('Right clicking');
randomRClick;
end
end;
end;
end;

procedure logout;
begin
if ply.GetSkillLevel(SKILL_HP) > 53 then
begin
WriteLn ('logging out');
logoutplayer();
end;
end;


begin
InitAL;
Reflect.Setup;
LoginPlayer(False);
ply.Create;
timer1.Start;
lastpraytime := 0;
lastdrinktime := 0;
lastadvancedantibantime := 0;
setDebugVars;
startingxp := ply.GetSkillExp(skill1)
repeat
begin
if ply.GetSkillLevel(SKILL_HP) > 50 then
begin
//Writeln('Drinking overload');
drink('Overload ');
end
if ply.GetSkillLevel(SKILL_HP) > 50 then
begin
//Writeln('Drinking overload');
drink('Overload ');
end
else
begin
AntiBan;
Advancedantiban;
chancedrinkabsorb;
checkpray;
logout;
end;
end
until(false);
end;