Does this script have the ability to run through OS buddy or the runescape web client?
If all pork-chops were perfect, we wouldn't have hot-dogs.
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!
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.
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!
Last edited by Tector; 12-14-2015 at 05:30 PM.
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?
This dont flick prayer or dont drink absort potions ? It still drinks overload :/
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
I went ahead and spruced up the antiban, feel free to use it if anyone wants to.
procedure antiban();
end;Code: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;
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:
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.
EDIT 3: I'm working on grabbing the power up ID's maybe we can create a 'grab powerup' procedure.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 := 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 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.
Code:procedure logout; begin if ply.GetSkillLevel(SKILL_HP) > 60 then begin WriteLn ('logging out'); logoutplayer(); end; end;
If all pork-chops were perfect, we wouldn't have hot-dogs.
Keep getting Plugin(AND_TPA32) has not been found. Any suggestions? thanks
Mad gains with my main
Hardcore deadman mode seasonal player!
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
this is somewhere down the bottomCode:if getCurrentHealth() >= 51 then begin
try
where the checkprayer function isCode:if (timer1.ElapsedTime() - lastpraytime) > (RandomRange(25000,35000)) then
** 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.
Last edited by AFools; 04-25-2016 at 04:42 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?
It worked for a while, but since SRL updated I've run into this problem:
Code:Error: Duplicate declaration "SmartShowConsole" at line 7 Compiling failed.
I'd just like to thank you for this script. It's awesome and has helped a lot for both learning and xp.
How is this script so far? Does it still work?
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:
I don't see another declaraction of it in the Simba code. I can comment it out and then run into:Code:Error: Duplicate declaration "SmartShowConsole" at line 7
Code:Error: Forwarded declaration "TREFLECTIONSMART" not resolved at line 3
I've used this, it works flawlessly i've been babysitting it.
There are currently 1 users browsing this thread. (0 members and 1 guests)