Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
I have this script updated and working flawlessly after the social slayer update if anybody want's it.
Will upload with ashaman's permission
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
I just updated the mouseboxes and backwards compatability, For some reason it had a little error where it doesn't actually send the butler, I'm not sure why.
This isn't too much of a problem with the demon butler as you get enough planks to wait 2 more attempts to then ask for more planks, but with the normal butler it causes the script to close every 10 minutes.
Just the updated code.Code:Program AshamanLarder; {$DEFINE SMART} {$I SRL/SRL.Simba} {$IFDEF SIMBAMAJOR980} {$I SRL/SRL/Misc/PaintSmart.Simba} {$ELSE} {$I SRL/SRL/Misc/SmartGraphics.Simba} {$ENDIF} {$I SRL/SRL/Misc/Debug.Simba} { AshamanLarder v6.0 -Make sure you have a full load of Oak Planks on you -Make sure you have already told the Butler to get 20 Oak Planks or if using demon butler, 26 } /////////////////////////////////////////////////////////////////////// // // // Begin of user setup // // Fill in the fields below // // // /////////////////////////////////////////////////////////////////////// Const SRLStats_Username = ''; // ***Leave blank if you don't have a stats account*** SRLStats_Password = ''; Direction = 'S'; // ***Set this to whatever direction your larder is facing so that your butler will be on your right, and you are up against the wall (like the picture)*** DemonButler = true; // ***Set to true if you are using the demon butler (False if you are using regular butler)*** Procedure DeclarePlayers; Begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; // ***Username*** Players[0].Pass := ''; // ***Password*** Players[0].Active := True; End; /////////////////////////////////////////////////////////////////////////////////////////// // // // End of user setup // // Don't touch below this line unless you know what you're doing!! // // // /////////////////////////////////////////////////////////////////////////////////////////// Var LarderCount,XP,StartTime,Timeout,StartingExperience,LardersPH,XPH:Integer; Count,Start,Counts,Color,Tolerance: Integer; Hue,Sat: Extended; FirstMouse: Boolean; Const LarderX1=251; LarderY1=141; LarderX2=277; LarderY2=159; ButlerX1=284 ; ButlerY1=210; ButlerX2=305; ButlerY2=231; ScriptVersion = '6.0'; Debug = False; {******************************************************************************* All of these mouse movements are credited to bENland100 and flight *******************************************************************************} //By Bandland100, modified to shift mouse speeds after every step Procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended); Var veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,step: extended; lastX,lastY,MSP,W: integer; sqrt2,sqrt3,sqrt5: extended; Begin MSP := MouseSpeed; sqrt2:= sqrt(2); sqrt3:= sqrt(3); sqrt5:= sqrt(5); While hypot(xs - xe, ys - ye) > 1 Do Begin dist:= hypot(xs - xe, ys - ye); wind:= minE(wind, dist); If dist >= targetArea Then Begin windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5; windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5; End Else Begin windX:= windX / sqrt2; windY:= windY / sqrt2; If (maxStep < 3) Then Begin maxStep:= random(3) + 3.0; End Else Begin maxStep:= maxStep / sqrt5; End; End; veloX:= veloX + windX; veloY:= veloY + windY; veloX:= veloX + gravity * (xe - xs) / dist; veloY:= veloY + gravity * (ye - ys) / dist; if hypot(veloX, veloY) > maxStep then Begin randomDist:= maxStep / 2.0 + random(round(maxStep) div 2); veloMag:= sqrt(veloX * veloX + veloY * veloY); veloX:= (veloX / veloMag) * randomDist; veloY:= (veloY / veloMag) * randomDist; End; lastX:= Round(xs); lastY:= Round(ys); xs:= xs + veloX; ys:= ys + veloY; Case Random(50) Of 1..25: W := (MSP + (Random((MSP/4)))); 26..50: W := (MSP - (RandomRange((MSP/2), MSP-1))); End; If (W < 1) Then W := 1; If (lastX <> Round(xs)) Or (lastY <> Round(ys)) Then MoveMouse(Round(xs), Round(ys)); step:= hypot(xs - lastX, ys - lastY); //W := round((maxWait - minWait) * (step / maxStep) + minWait); wait(W); lastdist:= dist; end; If (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) Then MoveMouse(Round(xe), Round(ye)); MouseSpeed := MSP; End; Procedure HumanMMouse(eX, eY, ranX, ranY: Integer); Var randSpeed: extended; X,Y,X2,Y2,j,Dist,MP: integer; Begin j := MouseSpeed; GetMousePos(X, Y); Dist := Distance(X, Y, eX, eY); MP := Round(Dist/150); If MP < 0 Then MP := 1; randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0; X2 := RandomRange(eX-(j*MP), eX+(j*MP)); Y2 := RandomRange(eY-(j*MP), eY+(j*MP)); SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed); GetMousePos(X, Y); MMouse(eX, eY, ranX, ranY); MouseSpeed := j; End; Function FailSafe: Boolean; Var CTS,T:Integer; TPA: TPointArray; ATPA: T2DPointArray; Begin Result:=False; If Debug Then Writeln('ENTERING FAILSAFE FUNCTION'); Mouse(249,177,4,4,True); Wait(RandomRange(300,400)); MarkTime(T); Repeat Wait(100); If TimeFromMark(T)>5000 Then Exit; Until (Not(Ismoving)); CTS:= GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(Hue,Sat); FindColorsSpiralTolerance(MSCX,MSCY,TPA,Color,ButlerX1,ButlerY1,ButlerX2,ButlerY2,Tolerance); ColorToleranceSpeed(CTS); SetColorSpeed2Modifiers(0.2, 0.2); ATPA := TPAtoATPAEx(TPA,20,20); If Debug Then DebugATPA(ATPA,''); If (Length(ATPA) = 0) Then Begin If Debug Then Writeln('No Butler found.'); Exit; End Else Begin If Debug Then Writeln('Butler found.'); Result:=True; End; End; Procedure TypeFast(Text: String); Var I: Integer; Begin For I:=1 to Length(Text) Do {$IFDEF SIMBAMAJOR980} SendKeys(Text[I], 10 + Random(2)); {$ELSE} SendKeys(Text[I], 10 + Random(2), 10 + Random(2)); {$ENDIF} End; Function FindButler: Boolean; Var X,Y,H,H2,I,CTS,T: Integer; TPA: TPointArray; ATPA: T2DPointArray; Label Jump; Begin Result := False; If Not LoggedIn Then Exit; FindNormalRandoms; If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then Begin If Debug Then Writeln('Closing options menu'); MMouse(50,50,100,100); End; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(Hue,Sat); FindColorsSpiralTolerance(MSCX,MSCY,TPA,Color,ButlerX1,ButlerY1,ButlerX2,ButlerY2,Tolerance); ColorToleranceSpeed(CTS); SetColorSpeed2Modifiers(0.2,0.2); ATPA := TPAtoATPAEx(TPA,20,20); If Debug Then DebugATPABounds(ATPA); If (Length(ATPA) = 0) Then Begin If Debug Then Writeln('No butler found.'); Exit; End; H := High(ATPA); If H < 4 Then H2 := H Else H2 := 4; For I:= 0 To H2 Do Begin MiddleTPAEx(ATPA[I],X,Y); Jump: If Not (IsUpTextMultiCustom(['utle','tler','Butl'])) Then HumanMMouse(X,Y,4,4); If (WaitUpTextMulti(['utle','tler','Butl'],300)) Then Begin If Debug Then Writeln('Found Butler, Clicking.'); ClickMouse2(False); If WaitOptionMulti(['etch','from','bank'],RandomRange(700,900)) Then Begin If Debug Then Writeln('Found fetch option.'); If DidYellowClick Then Begin FailSafe; FirstMouse:=True; Exit; End; MarkTime(T); Repeat If CountColor(37083,141,374,378,470)=0 Then Break; If TimeFromMark(T)>4000 Then Begin If Debug Then Writeln('Orange highlight color for paying butler didnt go away'); Exit; End; Until Not LoggedIn; MarkTime(T); Repeat Wait(Random(200)); If TimeFromMark(T) > 8000 Then Begin If Debug Then Writeln('Didnt find butler chat option timeout'); Break; End; Until ((FindNPCChatText('coins',Nothing)) Or (FindNPCChatText('nother', Nothing))); If FindNPCChatText('coins',Nothing) Then Begin If Debug Then Writeln('Paying butler'); ClickContinue(True,True); TypeFast('1'); MarkTime(T); Repeat If CountColor(37083,148,431,378,443)>0 Then Break; If TimeFromMark(T)>4000 Then Begin If Debug Then Writeln('Didnt find orange highlight color for paying butler'); Exit; End; Until Not LoggedIn; If Debug Then Writeln('Re-clicking butler'); GoTo Jump; End; If (FindNPCChatText('nother', Nothing)) Then Begin If Debug Then Writeln('Sending for more planks.'); TypeFast('1'); MarkTime(T); Repeat If CountColor(37083,148,431,378,443)>0 Then Break; If TimeFromMark(T)>4000 Then Begin If Debug Then Writeln('Didnt find orange highlight color for paying butler'); Exit; End; Until Not LoggedIn; Count:= 0; Result:= True; Exit; End; End; End; End; End; Function FindEmpty:Boolean; Var H,H2,I,CTS,T,X,Y,POSX,POSY: Integer; TPA: TPointArray; ATPA: T2DPointArray; Begin Result:=False; If Not LoggedIn Then Exit; If TimeFromMark(Timeout) > 40000 Then Begin Writeln('Something messed up, shutting down'); TerminateScript; End; CTS:= GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.25,0.18); FindColorsSpiralTolerance(MSCX,MSCY,TPA,10791346,LarderX1,LarderY1,LarderX2,LarderY2,12); ColorToleranceSpeed(CTS); SetColorSpeed2Modifiers(0.2,0.2); ATPA := TPAtoATPAEx(TPA,20,20); If Debug Then DebugATPABounds(ATPA); If (Length(ATPA) = 0) Then Begin If Debug Then Writeln('No empty larder spot found.'); Exit; End; H:= High(ATPA); If H < 2 Then H2:= H Else H2:= 2; For I:= 0 To H2 Do Begin GetMousePos(POSX,POSY); MiddleTPAEx(ATPA[I],X,Y); If Not PointInBox(Point(X,Y),IntToBox(POSX-10,POSY-10,POSX+10,POSY+10)) Then Begin If Debug Then Writeln('Moving Mouse'); HumanMMouse(X,Y,5,5); End Else If Debug Then Writeln('Mouse already in position'); If (WaitUpTextMulti(['Wal','alk'],300)) Then Begin If Debug Then Writeln('Found empty spot, clicking.'); ClickMouse2(False); If InvCount < 8 Then Begin Marktime(T); Writeln('Low on inventory, waiting for Butler.'); Repeat Wait(100); Until ((InvCount > 8) or (TimeFromMark(T) > 8000)); End; If InvCount < 8 Then Begin If Debug Then Writeln('Inventory low, sending for butler.'); If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then Begin If Debug Then Writeln('Closing options menu'); MMouse(50,50,100,100); End; FindButler; If Debug Then Writeln('Re-clickinglarder.'); HumanMMouse(X,Y,5,5); ClickMouse2(False); Marktime(T); Repeat Wait(100); Until ((InvCount > 8) or (TimeFromMark(T) > 30000)); End; If InvCount < 8 Then Begin Writeln('Out of supplies. Goodbye!'); Logout; Terminatescript; End; If WaitOptionMulti(['uild','Buil'],RandomRange(700,900)) Then Begin If Debug Then Writeln('Clicking build option'); If DidYellowClick Then Begin FailSafe; FirstMouse:=True; Exit; End; Result:= True; FirstMouse:=False; Exit; End; End; End; End; Procedure ProgressReport; Begin If Not Debug Then ClearDebug; XP := (GetXPBarTotal - StartingExperience); XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0))); LardersPH := Round((LarderCount * (3600.0 / (GetTimeRunning / 1000.0)))); Writeln('=========AshamanLarders=========='); Writeln('==========Version: '+ScriptVersion+'==========') Writeln('Time Running: ' + TimeRunning); Writeln('Larders Made: ' + IntToStr(LarderCount)); Writeln('Experience Earned: ' + IntToStr(XP)); Writeln('Experience/Hour: ' + IntToStr(XPH)); Writeln('Larders/H: ' + IntToStr(LardersPH)); Writeln('=================================='); Stats_IncVariable('Oak Larders (Constructed)', 1); Stats_Commit; MarkTime(Timeout); End; Function FindBuild:Boolean; Begin Result := False; If Not LoggedIn Then Exit; If Debug Then Writeln('Moving mouse to build icon'); MouseBox(192,177,244,219,Mouse_Move); If WaitUpTextMulti(['uild','Bui','Bu','Oak','rder','lard'],RandomRange(3000,3200)) Then Begin If Debug Then Writeln('Build icon is up, clicking'); ClickMouse2(True); If FlagPresent Then Begin FailSafe; FirstMouse:=True; FindEmpty; End Else Begin Start := Start + 1; Count := Count + 1; LarderCount := LarderCount + 1; If (Count < Counts) And (Start<>1) Then MouseBox(LarderX1,LarderY1,LarderX2,LarderY2,Mouse_Move) Else MouseBox(288,148,302,165,Mouse_Move); Result:=True; End; End; End; Function FindLarder: Boolean; Var X,Y,H,H2,I,CTS,T,POSX,POSY: Integer; TPA: TPointArray; ATPA: T2DPointArray; QuickClick: Boolean; Begin Result:= False; QuickClick:=False; If Not LoggedIn Then Exit; If Start = 1 Then Begin If Debug Then Writeln('Sending butler 1st time'); MarkTime(T); Repeat Wait(100); If TimeFromMark(T) > 10000 Then Begin If Debug Then Writeln('Took too long to find butler'); Break; End; Until FindButler; End; If Count >= Counts Then Begin If Debug Then Writeln('Count too high, sending for butler'); MarkTime(T); Repeat Wait(100); If TimeFromMark(T) > 10000 Then Begin If Debug Then Writeln('Took too long to find butler'); Break; End; Until FindButler; End; CTS:= GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.06,0.37); FindColorsSpiralTolerance(MSCX,MSCY,TPA,4616332,LarderX1,LarderY1,LarderX2,LarderY2,17); ColorToleranceSpeed(CTS); SetColorSpeed2Modifiers(0.2,0.2); ATPA:= TPAtoATPAEx(TPA,20,20); If Debug Then DebugATPABounds(ATPA); If (Length(ATPA) = 0) Then Begin If Debug Then Writeln('No larder found'); Exit; End; H := High(ATPA); If H < 2 Then H2 := H Else H2 := 2; For I := 0 To H Do Begin GetMousePos(POSX,POSY); MiddleTPAEx(ATPA[I],X,Y); If Not PointInBox(Point(X,Y),IntToBox(POSX-10,POSY-10,POSX+10,POSY+10)) Then HumanMMouse(X,Y,5,5); If (WaitUpTextMulti(['earc','Sear','arch','arder'],400)) Then Begin If Debug Then Writeln('Found larder, clicking'); ClickMouse2(False); If DemonButler Then Begin If (InvCount < 8) Or (Start = 2) Then Begin Marktime(T); If Debug Then Writeln('Low on inventory, waiting for Butler.'); If WaitOptionMultiEx(['emove'],'all',Move,RandomRange(700,900)) Then QuickClick:=True; Repeat Wait(100); Until ((InvFull) or (TimeFromMark(T) > 8000)); End; If InvCount < 8 Then Begin If Debug Then Writeln('Inventory low, sending for butler.'); If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then Begin If Debug Then Writeln('Closing options menu'); MMouse(50,50,100,100); End; QuickClick:=False; FindButler; If Debug Then Writeln('Re-clickinglarder.'); HumanMMouse(X,Y,5,5); ClickMouse2(False); Marktime(T); Repeat Wait(100); Until ((InvCount > 8) or (TimeFromMark(T) > 30000)); End; If InvCount < 8 Then Begin Writeln('Out of supplies. Goodbye!'); Logout; Terminatescript; End; End; If (QuickClick) And (OptionsExist(['earch','Cancel'],False)) Then ClickMouse2(True) Else If Not WaitOption('emove',RandomRange(700,900)) Then Exit; If Debug Then Writeln('Clicked option to remove'); If DidYellowClick Then Begin FailSafe; FirstMouse:=True; Exit; End; MarkTime(T); Repeat Wait(Random(200)); If TimeFromMark(T) > 4000 Then Begin If Debug Then Writeln('Yes option didnt pop up.'); Exit; End; Until (FindNPCChatText('Yes',Nothing)); TypeFast('1'); MarkTime(T); Repeat If CountColor(37083,141,374,378,470)>0 Then Break; If TimeFromMark(T)>4000 Then Begin If Debug Then Writeln('Didnt find orange highlight color for saying yes'); Exit; End; Until Not LoggedIn; If Count < Counts Then MouseBox(LarderX1,LarderY1,LarderX2,LarderY2,Mouse_Move); Result := True; Exit; End; End; End; Procedure MainLoop; Begin If Debug Then Writeln('ENTERING WAITING FINDEMPTY FUNCTION'); If WaitFunc(@FindEmpty,10,7000) Then Begin If Debug Then Writeln('ENTERING WAITING FINDBUILD FUNCTION'); If WaitFunc(@FindBuild,10,7000) Then Begin If Debug Then Writeln('ENTERING WAITING FINDLARDER FUNCTION'); If WaitFunc(@FindLarder,10,7000) Then ProgressReport; End Else FindLarder; End Else If FindBuild Then Begin If Debug Then Writeln('ENTERING WAITING FINDLARDER FUNCTION'); If WaitFunc(@FindLarder,10,7000) Then ProgressReport; End Else FindLarder; End; Procedure Setup; Begin {$IFDEF SMART} {$IFDEF SIMBAMAJOR980} [COLOR="Red"] Smart_Server := 72; Smart_Members := True; Smart_Signed := True; Smart_SuperDetail := False; {$ELSE} SRL_SixHourFix := True; Smart_FixSpeed := True; {$ENDIF} {$ENDIF} SetupSRL; If (SRLStats_Username = '') Then SetupSRLStats(947, 'Anonymous', 'anon1337') Else SetupSRLStats(947, SRLStats_Username, SRLStats_Password); SmartSetRefresh(75); ClearDebug; DeclarePlayers; If (Not LoggedIn) Then Writeln('Please log in and setup the position as needed'); Repeat Wait(RandomRange(500,1500)); Until (LoggedIn); If InvCount < 28 Then Repeat Writeln('Please get a full inventory of planks'); Wait(RandomRange(3000,4000)); Until (InvCount = 28); MakeCompass(Direction); SetAngle(SRL_ANGLE_HIGH); ToggleXPBar(True); StartingExperience := GetXPBarTotal; StartTime:=GetSystemTime; MarkTime(Timeout); FirstMouse:=True; If DemonButler Then Begin Counts := 3; Color := 1580857; Tolerance := 12; Hue := 0.30; Sat := 1.21; Writeln('You are using the Demon Butler'); End Else Begin Counts := 2; Color := 989512; Tolerance := 10; Hue := 0.24; Sat := 1.29; Writeln('You are using the Normal Butler'); End; End; Begin Setup; Repeat Mainloop; Until (AllPlayersInactive); End.
Thanks ashaman, for a great script!
Last edited by Okea; 07-22-2012 at 11:18 AM.
delete last post please @SRL @mod @ashaman08 account info in script have already messaged person n reset password but i believe it 2 late checked account still lots of items but nothing of real value and he was wearing 200m glasses... plus post was 4 days ago =/ sorry to report
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
"... is not a valid win32 application." What does this mean?
Anyone have a temp fix for this script yet?
The version of Okea aint working for me, it runs, but it wont click on the action to build the larder. Someone got a fix for it?
I'll be checking out any issues tomorrow, just got back!
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
FINALLY a script that actually gives the xp/h it promises, im used to being told 100k xp/h and getting about 30-35.
Thank you very much sir, i take my hat off to you for this flawless 250k xp/h
"You are using the Normal Butler
Something messed up, shutting down
Successfully executed."
Im getting this after about 5 mins of running, any one else had this issue?
Do you have the top xp bar set to construction? I may have put that failsafe in there if it doesn't detect you have gained any xp after a certain amount of time to shut down, so if you don't have it set to construction that may be the reason. I'll check over the code in a little.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Update
V6.1 - added a few more colors for regular butler, a few other tweaks and updated instructions
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Does this or your oak door script, support use of sacred clay hammers? Like if you have them in your invo can it equip them once one is used up? If not, you could include that in a future update. It would be kind of annoying to stop it, equip a new hammer, and restart again. >.<
EDIT: Invalid statement..
Last edited by Austin; 09-02-2012 at 11:42 AM.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Hey Ashaman,
I am trying to find a Construction script that trains using Teak planks, rather than Oak/Mahogany but it's proving rather difficult.
Do you think it would be hard to modify this to make something like Teak wardrobes in the costume room? I know I would need to change some counters since it uses a different amount of planks, and function for searching for a larder would need to be changed to look for a wardrobe instead, but would it take much effort to do?
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Right now Teak is cheaper atleast, and Teak prank plices are falling (allbeit slowly) while Oak plank prices are rising. It isn't much of a difference but using Teak should save me 10m or so. If I hadn't already bought half of the planks I would of just gave up and used Oaks I guess.
I have another two skills to finish before I get to construction so I guess I will try and see if I can get this to work with Teak, I'll let you know how it goes.
EDIT:
On second thought I think I will try and get rid of the Teak and get Oak instead, I should of used oak to begin with
Last edited by Valeyard; 09-03-2012 at 12:51 AM.
Just tried this script, so far it's running how it's supposed to which is great. Referring to my earlier post on this page about sacred clay hammers, you can only have 4 at a time in your inventory for the script to work. If there are any more, it doesn't work properly (it clicks to build the larder when there isn't enough planks in your invo to make one, then gets stuck on the build interface). If there is any way you could add support for more hammers in your inventory at once (8 would be fine, 12 would be optimum) that would be great. I afk my scripts a lot and usually let them run for 3-4 hours without checking them, so having enough hammers in your invo for 3 hours or so would be great for me
. Any helpful suggestions or reply would be appreciated.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Each hammer lasts for exactly 25,375xp (bonus xp). So really after you get 50,750xp, a hammer disappears. So it takes around 20-30mins for all 4 to disappear. What I said earlier about 12 hammers lasting for about 3 hours was wrong, because I misread the article and thought that each hammer lasts for 50k bonus xp lol.
Thanks man, getting there
=========AshamanLarders==========
==========Version: 6.1==========
Time Running: 5 Hours, 28 Minutes and 9 Seconds
Larders Made: 2670
Experience Earned: 1281120
Experience/Hour: 234241
Larders/H: 488
==================================
There are currently 1 users browsing this thread. (0 members and 1 guests)