PDA

View Full Version : [Crafting] Mehrunes Harper



Mehrunes
04-23-2016, 06:27 AM
Hello everyone, I am Mehrunes.

I am new to the script writing scene, I have been using simba for a while and writing my own little scripts as I go, learning how it all works.

I have decided to upload a script to get some feedback and let people share in my work as I have used a few scripts myself.

This script is fairly basic, you start at the northmost harp in the ithell district, and it will play the harp for approximately the duration you have input into line 119 of the script. I have added an antiban to it based on antibans in other scripts I have used, with my own little addition (It may be something commonly done however I have not come across it), and all values involved in the script are randomised in some way.

I have just gotten 95 crafting (from 76) with the script and have been getting approximately 50k crafting xp/hr (60k with the voice of seren), 650 harmonic dust/hr (780 with voice of seren) and approximately 9k construction xp/hr from tuning the harp. With the current price difference between crystal seeds and one handed crystal weapons (trading easily at 100k-150k difference) this script makes approximately 200k/hr as it only takes 375 dust to turn a crystal seed into a weapon.

I added Clarity's fix to smart not loading after nxt update so that the script loads a smart client, thanks for making a fix and I hope it was alright for me to include it.

I look forward to some feedback and hope you enjoy my first script.

rowan138
05-08-2016, 02:45 PM
I would just like to say well done for your first script and thanks. I tried this for a few hours seems to work well :)

Mehrunes
05-12-2016, 02:31 AM
Thanks, once I have time I am planning on working out how to add in log-in functionality to it and perhaps a break system, however I just hit 98 and am unsure if I will continue working on this one (since it works fine) once I hit 99.

whitevalen
05-25-2016, 02:40 PM
Can't wait to try out the script, almost done with agility

V4X1S
05-27-2016, 04:09 PM
thx, will try.

jethro
06-09-2016, 10:20 AM
tried...

I get this error

| Mehrunes Harper |
| Running For: 48 Seconds |
| Exp Earned: 0 Exp/Hour: 0 |
| Dust Gained: 0 Dust/Hour: 0 |
-- ERROR: TRSChatBox.getXP(): Failed to find text to read
-- Succesfully freed SMART[3056]
-- Freeing gametabs bitmaps...
Successfully executed.


fixed the chatbox thing by moving the xp bar but still I don't get xp and script stops after a minute or so even though I put 120 as time

Garden of Sinners
06-18-2016, 11:06 AM
| Mehrunes Harper |
| Running For: 14 Hours, 5 Minutes and 9 Seconds |
| Exp Earned: 968,016 Exp/Hour: 68,722 |
| Dust Gained: 9,486 Dust/Hour: 673 |

| Mehrunes Harper |
| Running For: 11 Hours, 32 Minutes and 42 Seconds |
| Exp Earned: 780,592 Exp/Hour: 67,612 |
| Dust Gained: 8,249 Dust/Hour: 715 |

| Mehrunes Harper |
| Running For: 7 Hours, 20 Minutes and 42 Seconds |
| Exp Earned: 508,722 Exp/Hour: 69,260 |
| Dust Gained: 5,107 Dust/Hour: 695 |

| Mehrunes Harper |
| Running For: 5 Hours, 14 Minutes and 50 Seconds |
| Exp Earned: 359,824 Exp/Hour: 68,573 |
| Dust Gained: 3,727 Dust/Hour: 710 |

| Mehrunes Harper |
| Running For: 10 Hours, 40 Minutes and 34 Seconds |
| Exp Earned: 693,934 Exp/Hour: 64,998 |
| Dust Gained: 7,401 Dust/Hour: 693 |

| Mehrunes Harper |
| Running For: 2 Hours, 48 Minutes and 52 Seconds |
| Exp Earned: 587,626 Exp/Hour: 208,772 |
| Dust Gained: 0 Dust/Hour: 0 |

| Mehrunes Harper |
| Running For: 7 Hours, 47 Minutes and 21 Seconds |
| Exp Earned: 916,516 Exp/Hour: 117,665 |
| Dust Gained: 0 Dust/Hour: 0 |

| Mehrunes Harper |
| Running For: 9 Hours, 41 Minutes and 25 Seconds |
| Exp Earned: 1,038,158 Exp/Hour: 107,134 |
| Dust Gained: 0 Dust/Hour: 0 |

| Mehrunes Harper |
| Running For: 6 Hours, 22 Minutes and 37 Seconds |
| Exp Earned: 439,397 Exp/Hour: 68,902 |
| Dust Gained: 0 Dust/Hour: 0 |

rowan138
06-24-2016, 10:03 AM
Used this to get 10k dust for some crystal stuff and it works great a brilliant script.
Here is a small proggy of mine, I set the bot time to 200 minutes so thats the longest one I have.
| Mehrunes Harper |
| Running For: 3 Hours, 17 Minutes and 59 Seconds |
| Exp Earned: 234,176 Exp/Hour: 70,965 |
| Dust Gained: 2,363 Dust/Hour: 716 |

Garden of Sinners
07-04-2016, 03:13 AM
Missing a 10 hour log but ah well.

| Mehrunes Harper |
| Running For: 1 Hour, 46 Minutes and 39 Seconds |
| Exp Earned: 513,756 Exp/Hour: 288,991 |
| Dust Gained: 1,235 Dust/Hour: 695 |

| Mehrunes Harper |
| Running For: 2 Hours, 8 Minutes and 32 Seconds |
| Exp Earned: 536,656 Exp/Hour: 250,503 |
| Dust Gained: 1,485 Dust/Hour: 693 |

| Mehrunes Harper |
| Running For: 2 Hours, 56 Minutes and 7 Seconds |
| Exp Earned: 588,496 Exp/Hour: 200,480 |
| Dust Gained: 2,053 Dust/Hour: 699 |


| Mehrunes Harper |
| Running For: 3 Hours, 30 Minutes and 17 Seconds |
| Exp Earned: 599,876 Exp/Hour: 171,154 |
| Dust Gained: -10,160 Dust/Hour: -2,899 |

| Mehrunes Harper |
| Running For: 5 Hours, 40 Minutes and 48 Seconds |
| Exp Earned: 397,786 Exp/Hour: 70,031 |
| Dust Gained: 4,258 Dust/Hour: 750 |

| Mehrunes Harper |
| Running For: 12 Hours, 50 Minutes and 37 Seconds |
| Exp Earned: 895,971 Exp/Hour: 69,759 |
| Dust Gained: 9,478 Dust/Hour: 738 |

jethro
07-05-2016, 06:36 PM
strange for me this script works only for 1 minute and stops

dread4
07-06-2016, 11:26 AM
Hope you don't mind done a fair bit off editing on your script, it worked great but for me I just made it more life like and ran it for 29 hours straight with the ability to relog every 6 hours so it can carry on added a breaking option with minibreaks so it lets the harp go to 100% for a few minutes to make it seem more life like for afking.

jethro
07-06-2016, 03:52 PM
Hope you don't mind done a fair bit off editing on your script, it worked great but for me I just made it more life like and ran it for 29 hours straight with the ability to relog every 6 hours so it can carry on added a breaking option with minibreaks so it lets the harp go to 100% for a few minutes to make it seem more life like for afking.

can I try yours please ?

wingerfinger
07-09-2016, 10:03 PM
-- ERROR: TRSChatBox.getXP(): Failed to find text to read
nvm im guessing thats just the exp

edit: when i start the script it doesn't click on the harp but slightly over it (on my player) and when it does work it only works for around a minute then terminates

jethro
07-10-2016, 01:28 AM
-- ERROR: TRSChatBox.getXP(): Failed to find text to read
nvm im guessing thats just the exp

edit: when i start the script it doesn't click on the harp but slightly over it(on my player) and when it does work, it only works for around a minute then terminates

thought I was the only one having this problem that script stops after a minute :) hope it gets fixed

thunderhawk
07-13-2016, 07:02 PM
Looks like a lot of programs wont work correctly without a fix to the XP bar, now hat the xp xar is not movable over the chatbox anymore

Garden of Sinners
07-17-2016, 10:39 PM
thought I was the only one having this problem that script stops after a minute :) hope it gets fixed


-- ERROR: TRSChatBox.getXP(): Failed to find text to read
nvm im guessing thats just the exp

edit: when i start the script it doesn't click on the harp but slightly over it (on my player) and when it does work it only works for around a minute then terminates

You guys could always just comment out the progress report and let it run. That's a temporary fix that I used to go from 93-99 you won't get a log from it but at least it'll work.

jethro
07-18-2016, 03:36 AM
You guys could always just comment out the progress report and let it run. That's a temporary fix that I used to go from 93-99 you won't get a log from it but at least it'll work.

how to do this ?

Garden of Sinners
07-21-2016, 10:43 PM
program MehrunesHarper;
{$DEFINE SMART}
{$i srl-6/srl.simba}
Var
StartExp, NowExp, HourExp, ProgCount, Dust, HourDust, StartDust, Repeats, PlayTime, CamSpin, CheckExp, Mistakes: Integer;

//Start standing at the northmost harp, fill in line 119, hit run.

function tIntegerArray.contains(funcID: int32): boolean;
var
funcIndex: int32;
begin
for funcIndex to high(self) do
if self[funcIndex] = funcID then
begin
result := true;
break;
end;
exit(result);
end;

function smartGetParameters(out params: tStringArray): boolean; override;
var
funcAttempts, funcIndex, funcRandom, funcResultIndex: int32;
funcExcludeList: tIntegerArray = [13, 47, 55, 75, 90, 93, 94, 95, 101, 102, 107, 109, 110, 111, 112, 113, 118, 121, 122, 125, 126, 127, 128, 129, 130, 131, 132, 133];
funcPage: string;
funcPageExplode: tStringArray;
begin
for 0 to 10 do
begin
while true do
if not funcExcludeList.contains(funcRandom := random(1, 150)) then
break;
funcPage := getPage('http://world' + toStr(funcRandom) + '.runescape.com/jav_config_beta.ws');
if pos('404 - Page not found', funcPage) = 0 then
begin
setLength(params, length(funcPageExplode := explode(#10, funcPage)));
for funcIndex to high(funcPageExplode) do
if execRegExpr('^(codebase|param)=(.+)', funcPageExplode[funcIndex]) then
begin
params[funcResultIndex] := replaceRegExpr('^(codebase|param)=(.+)', funcPageExplode[funcIndex], '$2', true);
funcResultIndex += 1;
end;
break;
end;
end;
setLength(params, funcResultIndex);
exit(true);
end;

procedure playHarp();
var
HarpBox: TBox;
begin
HarpBox:= IntToBox(277,213,297,229);
MouseBox(HarpBox, Mouse_Left);
end;
procedure antiban();
begin
case (random(180) + 1) of
0..5:
pickUpMouse();
6..28:
sleepAndMoveMouse(randomRange(1000,3000));
29..51:
smallRandomMouse();
52..97:
mouseOffClient(OFF_CLIENT_RANDOM);
96..110:
begin
MainScreen.SetAngle(MS_ANGLE_LOW);
Wait(randomRange(100,7500));
MainScreen.SetAngle(MS_ANGLE_HIGH);
end;
111..115:
begin
hoverSkill(SKILL_CRAFTING);
sleepAndMoveMouse(random(460, 1230));
TabBackpack.Open;
end;
126..160:
Wait(randomRange(3000,13000));
161..181:
begin
repeat
CamSpin:= random(20);
MiniMap.SetAngle(randomRange(1, 359));
Wait(randomRange(50,7450));
until CamSpin > 15;
minimap.clickCompass;
Wait(randomRange(500,1500));
MainScreen.SetAngle(MS_ANGLE_HIGH);
end;
end;
end;
{*procedure proggy;
begin
ClearDebug;
NowExp := (ChatBox.GetXPBar - StartExp);
HourExp := Round(NowExp * (3600.0 / (GetTimeRunning / 1000.0)));
Dust := (getItemAmount(tabBackpack.getSlotBox(1)) - StartDust);
HourDust := Round(Dust * (3600.0 / (GetTimeRunning / 1000.0)));
writeln(PadR('|', 22) + PadR('Mehrunes Harper', 38) + '|');
writeln(PadR('| Running For: ' + TimeRunning, 60) + '|');
writeln(PadR('| Exp Earned: ' + GroupDigits(NowExp, ','), 40) + padR('Exp/Hour: ' + GroupDigits(HourExp, ','), 20) + '|');
writeln(PadR('| Dust Gained: ' + GroupDigits(Dust, ','), 40) + padR('Dust/Hour: ' + GroupDigits(HourDust, ','), 20) + '|');
end; *}
procedure SetUp();
begin
setupSRL;
smartPlugins := ['OpenGL32.dll','d3d9.dll'];
minimap.clickCompass;
MainScreen.SetAngle(MS_ANGLE_HIGH);
StartExp := ChatBox.GetXPBar;
StartDust := getItemAmount(tabBackpack.getSlotBox(1))
end;
begin
SetUp();
PlayTime := 6000; //In mins, will randomise
repeat
playHarp();
Repeats:= (Repeats + 1);
//proggy();
case (random(10) + 1) of
1..5:
begin
antiban();
Wait(randomRange(9867,44577));
end;
6..8:
begin
Wait(randomRange(19867,34577));
antiban();
end;
9..11:
begin
Wait(randomRange(2806,10805));
antiban();
Wait(randomRange(3305,10306));
end;
end;
CheckExp:= (ChatBox.GetXPBar - StartExp);
if CheckExp = NowExp
then Mistakes:= Mistakes + 1;
if CheckExp > NowExp
then Mistakes:= 0;
if Mistakes = 3
then TerminateScript;
until Repeats > ((PlayTime * 2) + random(15));
end.



how to do this ?