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
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
Last edited by sizzayin; 01-22-2017 at 04:28 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.)
Last edited by bustr12; 01-25-2017 at 05:57 AM.
For the prayer, just comment out the checkpray; in the main function (located at the very bottom of the script:
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.begin
AntiBan;
chancedrinkabsorb;
//checkpray;
end;
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
Last edited by sizzayin; 01-27-2017 at 08:19 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.
Code: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;
Last edited by uvlees; 02-19-2017 at 06:04 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)