View Full Version : PoH Firemaker | Butler | No Randoms | Flawless
pkwa9lawy
05-02-2012, 12:03 AM
just tested this script works like a charm gona use for 99 fm soon :D i think rs did something with butler tho might keep looking at it and will post if its something i did that made butler go away or its rs ..
ShadowsTM
05-02-2012, 04:18 PM
Can also comment on the butler issue, Worked fine for 20 minutes, Butler vanished.. Weird huh.
honeyhoney
05-02-2012, 04:24 PM
The butler doesn't vanish.
There's a relatively rare mishap that occurs in the script when it attempts to Uncert your logs.
It only waits 750-950ms after clicking "Uncert" and if there's lag, it can press 2 (from 26) which selects the Bank option instead. It still believes that you've requested the butler to Uncert your logs so it proceeds to run back to the South-East corner.
Unfortunately, the butler hasn't gone to Uncert your logs, you just exited out of a conversation with him and he is no longer following you.
Edit: on the bright side, I just got a 4 hour 30 minutes run and I only had to fix the issue once.
digitalninja
05-02-2012, 11:06 PM
Hi Folks,
Just started running this script and its amazing. I noticed only one issue so far (30 minutes in). After getting the bulter to uncert my character tried to run back to his starting point but doesnt make back before the butler gives the logs back. The character than starts burning logs from when the butler gave the inventory. This means that over time the character will slowly start heading more west with each new inventory?
Did anyone else get this? Not sure if its normal or not ...
Thanks!!
Digital Ninja
Google
05-02-2012, 11:20 PM
============S1NFiremaker===========
Time Running: 5 Hours, 49 Minutes and 34 Seconds
XP Earned: 730215
XP Per Hour: -80286
Logs Burned: 5512
Burned Per Hour: 956
===================================
===================================
Gave this a go 130k xp hour not bad.
honeyhoney
05-03-2012, 12:38 AM
Hi Folks,
Just started running this script and its amazing. I noticed only one issue so far (30 minutes in). After getting the bulter to uncert my character tried to run back to his starting point but doesnt make back before the butler gives the logs back. The character than starts burning logs from when the butler gave the inventory. This means that over time the character will slowly start heading more west with each new inventory?
Did anyone else get this? Not sure if its normal or not ...
Thanks!!
Digital Ninja
Yep, that happens. You also tend to go further and further north as time goes by.
I find that it's generally pretty safe to go for about 1 or 2 hours without me having to interfere and move them back to the start position.
If you're prepared to check up on it every now and then, it's fine. However, if you're looking for a script you can run while you go on holiday for 2 weeks, this isn't quite it. :P
thomas1116
05-03-2012, 09:34 AM
does this works flawless for more than 1-2 houers`? and does it support magic logs ? , i got a big house , does it work with that ?
Edit: works flawless have runned it for over 3 houers now!... ill post a proggie when it STOPS :D thanks alot :)
Edit: Here's a proggy
=============v1.7==================
============S1NFiremaker===========
Time Running: 5 Hours, 45 Minutes and 44 Seconds
XP Earned: 1735002
XP Per Hour: 94062
Logs Burned: 5831
Burned Per Hour: 1012
===================================
===================================
Successfully executed. Burned Magic logs ! :D
Here i burned maple logs! =============v1.7==================
============S1NFiremaker===========
Time Running: 5 Hours, 59 Minutes and 41 Seconds
XP Earned: 742755
XP Per Hour: -75118
Logs Burned: 5670
Burned Per Hour: 945
===================================
===================================
Successfully executed.
Works like a charm! :D going for 99 this week - weeeeee!
NightSlayerZ
05-04-2012, 01:03 PM
can someone tell me how much money do i need to pay the butler per hour ?
honeyhoney
05-05-2012, 02:10 AM
can someone tell me how much money do i need to pay the butler per hour ?
You must pay the Demon Butler 10,000 gp (or 7,500 after completing the quest, Love Story) every 10 tasks.
In this case the 10 tasks will be Uncerting logs.
Assuming 1000~ logs are burned every hour that's 39~ trips/task the butler must take every hour (1000/26 is 38.46, rounded up to 39 because we can't have .4 of a trip/task). 39 tasks... 39,000 gp (1,000 gp per task).
Expect to pay your butler 40,000 gp /hour. Very reasonable for immunity to randoms!
Providing you keep a bit of cash in your money pouch you won't have any problems.
Enslaved
05-05-2012, 08:16 AM
not working- butler running off when it asks you if u wanna take the logs or take them to sawmill when you are in the middle of running
Can't fix it atm, will do it soon I guess....
Bulls
05-05-2012, 06:50 PM
flawless script tyvm :)
Andres
05-05-2012, 07:00 PM
Another script that is working better because of the performance update ;)
I know guys, I love you all too <3
Ashaman88
05-05-2012, 10:27 PM
I know guys, I love you all too <3
Sin, I had started to use this right before runespan came out and had made some edits to it so the drifting west thing wouldn't happen. I can shoot you a copy of it or post it if ya like? Love the script though :)
Neznam
05-05-2012, 10:34 PM
This looks amazing.
Will give it a try after Im done with herbalore.
Great work Sin, as always.
Sure Asha, post the script here, I'll update OP with it and credits.
Ashaman88
05-05-2012, 11:31 PM
Sure Asha, post the script here, I'll update OP with it and credits.
Looking at it I think I was messing with some other things as well. IDK if it works 100%, but I know the relocate function is where it fixes the drifting thing, and that works.
Here is the whole thing, might want people to make sure the rest of it works too before posting the whole thing, or just take that function.
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
var
StartTime,XPBurn,Burned:Integer;
//Cases
UseProggys,NextLight:Boolean;
TypeOfLogs:String;
procedure DeclarePlayers;
begin
UseProggys := False; //Yes or No * True or False
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
end;
Procedure HumanMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
ClickMouse2(True);
end;
function FindButler(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.39, 1.37);
if not(FindColorsTolerance(arP, 2174030, 196,79,349,222, 9)) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 1.53) and (X <= 7.94) and (Y >= 1.28) and (Y <= 6.22) and (Z >= 0.91) and (Z <= 3.49) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
HumanMMouse(p.x,p.y,5,5);
Wait(100 + Random(100));
if (IsUpText('emon')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Exit;
end;
GetMousePos(fx, fy);
end;
function FireColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.13, 0.49);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 1738208, MSX1, MSY1, MSX2, MSY2, 17);
if (Length(arP) = 0) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 13.94) and (X <= 58.29) and (Y >= 10.60) and (Y <= 58.15) and (Z >= 2.00) and (Z <= 18.07) then
begin
Result := arC[i];
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
function WaitNPCChatText(Text:String; Time:Integer):Boolean;
var
t:Integer;
begin
MarkTime(t);
repeat
wait(10);
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(FindNPCChatText(Text,Nothing));
Result := True;
end;
procedure StoreUptext;
begin
if ExistsItem(1) then
begin
Mouseitem(1,3);
if IsUpText('ew') then
TypeOfLogs := 'Yew';
if IsUptext('agic') then
TypeofLogs := 'Magic';
if IsUpText('aple') then
TypeOfLogs := 'Maple';
if IsUpText('Oak') then
TypeOfLogs := 'Oak';
if IsUpText('llow') then
TypeOfLogs := 'Willow';
end;
if TypeOfLogs = '' then
writeLn('Failed uptext checking');
writeLn('We are burning: ' + TypeOfLogs);
end;
function WaitInvCountInc(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 > Inv1);
Result := True;
end;
procedure Randoms;
begin
if FindNormalRandoms then
if not LoggedIn then
TerminateScript;
end;
function WaitInvCountDec(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 < Inv1);
Result := True;
end;
procedure Proggy;
var
//progress variables
XP,XPH,Sec,BPH:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600 * XP) / (SeC);
BPH := (3600 * Burned) / (SeC);
writeLn('=============v1.7==================');
writeLn('============S1NFiremaker===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP Per Hour: ' + IntToStr(XPH));
writeLn('Logs Burned: ' + IntToStr(Burned));
writeLn('Burned Per Hour: ' + IntToStr(BPH));
writelN('===================================');
writeLn('===================================');
end;
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
repeat
wait(10);
Second := GetXPBarTotal;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Second > First);
Result := True;
end;
function IsFireUnder:Boolean;
var
x,y:Integer;
begin
Result := FindColorSpiralTolerance(x,y,FireColor,242,172,263 ,181,3);
end;
function GetLogs(Amount:Integer; DoWait:Boolean):Boolean;
var
x,y,t:Integer;
begin
Result := False;
if ExistsItem(1) then
MouseItem(1,1);
if FindButler(x,y) then
begin
ClickMouse2(True);
If WaitNPCChatText('coins',1250) Then
Begin
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(1,1);
if FindButler(x,y) then
ClickMouse2(True);
end;
if WaitNPCChatText('cert',4000) then
begin
TypeSendEx('1',False);
//wait(RandomRange(1500,1700));
If WaitFindColor(X,Y,0,266,397,281,407,1,5000) Then
//if FindColorSpiralTolerance(x,y,9877449,MCX1,MCY1,MCX 2,MCY2,38) then
begin
TypeSend('26');
if DoWait then
if WaitInvCountInc(10000) then
Result := True;
end;
end;
end;
end;
function Light(Slot:Integer):Boolean;
begin
If Not NextLight Then
Begin
If Not OptionsExist(['a','g','h'],Nothing) Then
Begin
// Writeln('nooptionfound');
MouseItem(Slot,0);
End;
if WaitOptionMulti(['ight','Lig'],750) then
Begin
// Writeln('foundoptionfound');
Result := True;
End;
Inc(Burned);
End Else
Begin
// Writeln('clicking next spot');
MouseItem(Slot+1,0);
NextLight:=False;
End;
end;
function Relocate:Boolean;
var
x,y,ti:Integer;
begin
MakeCompass(0);
case random(2) of
0:
begin
HumanMouse(688,75,4,4);
FFlag(1);
Wait(RandomRange(650,750));
HumanMouse(671,90,5,5);
Wait(RandomRange(1000,1750));
Repeat
Wait(100);
Until Not IsMoving;
If FlagPresent Then
Begin
HumanMouse(671,90,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
end;
1:
begin
HumanMouse(671,110,5,5);
FFlag(1);
Wait(RandomRange(650,750));
HumanMouse(688,100,4,4);
Wait(RandomRange(1000,1750));
Repeat
Wait(100);
Until Not IsMoving;
If FlagPresent Then
Begin
HumanMouse(688,100,4,4);
FFlag(1);
Wait(RandomRange(650,750));
End;
end;
end;
MarkTime(TI);
Repeat
Wait(100);
If TimeFromMark(TI)>6000 Then
Break;
Until InvCount>4;
if InvCount = 1 then
Begin
repeat
wait(10);
until(FindButler(x,y));
GetLogs(26,True);
Exit;
End;
Randoms;
end;
procedure BurnLogs;
var
i,x,y:Integer;
begin
for i := 2 to 28 do
begin
if FindColorSpiralTolerance(x,y,11059400,173,234,201, 253,0) Then
Begin
HumanMouse(627,79,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
if FindColorSpiralTolerance(x,y,11059400,173,101,201, 120,0) Then
Begin
HumanMouse(628,91,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
if ExistsItem(i) then
begin
if FIndBlackChatMessage('here') then
begin
case Random(2) of
0:
begin
HumanMouse(627,79,5,5);
FFlag(1);
Wait(RandomRange(650,750));
end;
1:
begin
HumanMouse(628,91,5,5);
FFlag(1);
Wait(RandomRange(650,750));
end;
end;
ExamineInv;
Wait(RandomRange(650,750));
Exit;
end;
Light(i);
Proggy;
NextLight:=True;
Light(i);
WaitXPIncrease(RandomRange(3000,3200));
if (InvCount = 1) And (Not OptionsExist(['a','g','h'],Nothing)) then
begin
GetLogs(26,False);
Relocate;
Randoms;
Exit;
end;
Randoms;
end else
If OptionsExist(['a','g','h'],Nothing) Then
Begin
NextLight:=False;
Light(i);
WaitXPIncrease(RandomRange(3000,3200));
if (InvCount = 1) And (Not OptionsExist(['a','g','h'],Nothing)) then
begin
GetLogs(26,False);
Relocate;
end;
Randoms;
End;
end;
Randoms;
end;
procedure ScriptStart;
var
StartInv,NTW:Integer;
begin
//start with 13 logs + noted, total of 14 items
//StartInv is equal to 14, ntw = 28 - startinv, 14
//Above is just me spouting out the equation, dont bother with it
StartInv := InvCount;
NTW := 28 - StartInv;
if StartInv < 2 then
GetLogs(NTW,True);
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(18,20);
writeLn('Changes in 1.7: ');
writeln('Will no longer light the whole row');
writeLn('Wont be a retard anymore. Hopefully.');
NextLight:=False;
Wait(1500);
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
StoreUptext;
ScriptStart;
repeat
BurnLogs;
until not loggedin;
end.
Bulls
05-06-2012, 05:34 AM
ashaman's version gets me 1100 logs/h, instead of 1000 logs/h. nice fix ashaman!
Decision
05-06-2012, 06:41 AM
Too bad I've already gotten 99 fm ;)
Otherwise I would have used this for sure!
Muwai
05-06-2012, 10:19 AM
this script is flawless! this is one of my proggies!
===================================
============S1NFiremaker===========
Time Running: 3 Hours, 21 Minutes and 51 Seconds
XP Earned: 400424
XP/h: 119016
===================================
===================================
Bulls
05-06-2012, 12:05 PM
Proggy:
=============v1.7==================
============S1NFiremaker===========
Time Running: 3 Hours, 40 Minutes and 6 Seconds
XP Earned: 527985
XP Per Hour: 143941
Logs Burned: 3995
Burned Per Hour: 1089
===================================
===================================
Used maple logs. I will edit if i will get to 6h proggy
thomas1116
05-06-2012, 07:23 PM
wish this could run more than 6 h :S but im 96 fm now so its good, sometimes it just stands there, when the bulter come back with logs and it dosnt exit the text ... then it waits and waits untill disconnect ... and the but shuts down , an wont logg in again :S got that issues some few times but its flawless anyways :P can't wait for 99 ! :P
I can't believe this script has come so far.
This was written (the original version, v1) in 20 minutes because RiDs wasn't working.
xxshabsxx
05-07-2012, 01:06 AM
Hmm...
How come others are getting in excess of 1k logs and hour, and I'm getting only around 750 (max) logs an hour?
I'm not very good at scripting, so from what I've read I'm not sure how to fix it.
Anyone care to chime in and possible help me?
Cheers.
Ashaman88
05-07-2012, 02:28 AM
Decided to take a break from runespan and mess around with it a little more. Great script again! So far with current tweeks:
============S1NFiremaker===========
Time Running: 29 Minutes and 16 Seconds
XP Earned: 78627
XP Per Hour: 161286
Logs Burned: 576
Burned Per Hour: 1181
===================================
===================================
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
var
StartTime,XPBurn,Burned:Integer;
//Cases
UseProggys,NextLight:Boolean;
TypeOfLogs:String;
procedure DeclarePlayers;
begin
UseProggys := False; //Yes or No * True or False
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
end;
Procedure HumanMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
ClickMouse2(True);
end;
function FindButler(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.39, 1.37);
if not(FindColorsTolerance(arP, 2174030, 196,79,349,222, 9)) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 1.53) and (X <= 7.94) and (Y >= 1.28) and (Y <= 6.22) and (Z >= 0.91) and (Z <= 3.49) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
HumanMMouse(p.x,p.y,5,5);
Wait(100 + Random(100));
if (IsUpText('emon')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Exit;
end;
GetMousePos(fx, fy);
end;
function FireColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.13, 0.49);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 1738208, MSX1, MSY1, MSX2, MSY2, 17);
if (Length(arP) = 0) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 13.94) and (X <= 58.29) and (Y >= 10.60) and (Y <= 58.15) and (Z >= 2.00) and (Z <= 18.07) then
begin
Result := arC[i];
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
function WaitNPCChatText(Text:String; Time:Integer):Boolean;
var
t:Integer;
begin
MarkTime(t);
repeat
wait(10);
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(FindNPCChatText(Text,Nothing));
Result := True;
end;
procedure StoreUptext;
begin
if ExistsItem(1) then
begin
Mouseitem(1,3);
if IsUpText('ew') then
TypeOfLogs := 'Yew';
if IsUptext('agic') then
TypeofLogs := 'Magic';
if IsUpText('aple') then
TypeOfLogs := 'Maple';
if IsUpText('Oak') then
TypeOfLogs := 'Oak';
if IsUpText('llow') then
TypeOfLogs := 'Willow';
end;
if TypeOfLogs = '' then
writeLn('Failed uptext checking');
writeLn('We are burning: ' + TypeOfLogs);
end;
function WaitInvCountInc(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 > Inv1);
Result := True;
end;
procedure Randoms;
begin
if FindNormalRandoms then
if not LoggedIn then
TerminateScript;
end;
function WaitInvCountDec(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 < Inv1);
Result := True;
end;
procedure Proggy;
var
//progress variables
XP,XPH,Sec,BPH:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600 * XP) / (SeC);
BPH := (3600 * Burned) / (SeC);
writeLn('=============v1.7==================');
writeLn('============S1NFiremaker===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP Per Hour: ' + IntToStr(XPH));
writeLn('Logs Burned: ' + IntToStr(Burned));
writeLn('Burned Per Hour: ' + IntToStr(BPH));
writelN('===================================');
writeLn('===================================');
end;
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
repeat
wait(10);
Second := GetXPBarTotal;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Second > First);
Result := True;
end;
function IsFireUnder:Boolean;
var
x,y:Integer;
begin
Result := FindColorSpiralTolerance(x,y,FireColor,242,172,263 ,181,3);
end;
function GetLogs(Amount:Integer; DoWait:Boolean):Boolean;
var
x,y,t:Integer;
begin
Result := False;
if ExistsItem(1) then
MouseItem(1,1);
if FindButler(x,y) then
begin
ClickMouse2(True);
If WaitNPCChatText('coins',1250) Then
Begin
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(1,1);
if FindButler(x,y) then
ClickMouse2(True);
end;
if WaitNPCChatText('cert',4000) then
begin
TypeSendEx('1',False);
//wait(RandomRange(1500,1700));
If WaitFindColor(X,Y,0,266,397,281,407,1,5000) Then
//if FindColorSpiralTolerance(x,y,9877449,MCX1,MCY1,MCX 2,MCY2,38) then
begin
TypeSend('26');
if DoWait then
if WaitInvCountInc(10000) then
Result := True;
end;
end;
end;
end;
function Light(Slot:Integer):Boolean;
begin
If Not NextLight Then
Begin
If Not OptionsExist(['a','g','h'],Nothing) Then
Begin
// Writeln('nooptionfound');
MouseItem(Slot,0);
End;
if WaitOptionMulti(['ight','Lig'],750) then
Begin
// Writeln('foundoptionfound');
Result := True;
End;
Inc(Burned);
End Else
Begin
// Writeln('clicking next spot');
MouseItem(Slot+1,0);
NextLight:=False;
End;
end;
function Relocate:Boolean;
var
x,y,ti:Integer;
begin
MakeCompass(0);
case random(2) of
0:
begin
HumanMouse(688,75,4,4);
FFlag(1);
Wait(RandomRange(650,750));
HumanMouse(671,80,2,2);
Wait(RandomRange(1000,1750));
Repeat
Wait(100);
Until Not IsMoving;
If FlagPresent Then
Begin
HumanMouse(671,80,2,2);
FFlag(1);
Wait(RandomRange(650,750));
End;
end;
1:
begin
HumanMouse(688,95,5,5);
FFlag(1);
Wait(RandomRange(650,750));
HumanMouse(688,80,2,2);
Wait(RandomRange(1000,1750));
Repeat
Wait(100);
Until Not IsMoving;
If FlagPresent Then
Begin
HumanMouse(688,80,2,2);
FFlag(1);
Wait(RandomRange(650,750));
End;
end;
end;
MarkTime(TI);
Repeat
Wait(100);
If TimeFromMark(TI)>6000 Then
Break;
Until InvCount>4;
if InvCount = 1 then
Begin
repeat
wait(10);
until(FindButler(x,y));
GetLogs(26,True);
Exit;
End;
Randoms;
end;
procedure BurnLogs;
var
i,x,y:Integer;
begin
for i := 2 to 28 do
begin
if FindColorSpiralTolerance(x,y,11059400,173,234,201, 253,0) Then
Begin
HumanMouse(627,79,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
if FindColorSpiralTolerance(x,y,11059400,173,101,201, 120,0) Then
Begin
HumanMouse(628,91,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
if ExistsItem(i) then
begin
if FIndBlackChatMessage('here') then
begin
case Random(2) of
0:
begin
HumanMouse(627,79,5,5);
FFlag(1);
Wait(RandomRange(650,750));
end;
1:
begin
HumanMouse(628,91,5,5);
FFlag(1);
Wait(RandomRange(650,750));
end;
end;
ExamineInv;
Wait(RandomRange(650,750));
Exit;
end;
Light(i);
Proggy;
NextLight:=True;
Light(i);
WaitXPIncrease(RandomRange(3000,3200));
if (InvCount = 1) And (Not OptionsExist(['a','g','h'],Nothing)) then
begin
GetLogs(26,False);
Relocate;
Randoms;
Exit;
end;
Randoms;
end else
If OptionsExist(['a','g','h'],Nothing) Then
Begin
NextLight:=False;
Light(i);
WaitXPIncrease(RandomRange(3000,3200));
if (InvCount = 1) And (Not OptionsExist(['a','g','h'],Nothing)) then
begin
GetLogs(26,False);
Relocate;
end;
Randoms;
End;
end;
Randoms;
end;
procedure ScriptStart;
var
StartInv,NTW:Integer;
begin
//start with 13 logs + noted, total of 14 items
//StartInv is equal to 14, ntw = 28 - startinv, 14
//Above is just me spouting out the equation, dont bother with it
StartInv := InvCount;
NTW := 28 - StartInv;
if StartInv < 2 then
GetLogs(NTW,True);
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(18,20);
writeLn('Changes in 1.7: ');
writeln('Will no longer light the whole row');
writeLn('Wont be a retard anymore. Hopefully.');
NextLight:=False;
Wait(1500);
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
StoreUptext;
ScriptStart;
repeat
BurnLogs;
until not loggedin;
end.
xxshabsxx
05-07-2012, 03:16 AM
Decided to take a break from runespan and mess around with it a little more. Great script again! So far with current tweeks:
============S1NFiremaker===========
Time Running: 29 Minutes and 16 Seconds
XP Earned: 78627
XP Per Hour: 161286
Logs Burned: 576
Burned Per Hour: 1181
===================================
===================================
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
var
StartTime,XPBurn,Burned:Integer;
//Cases
UseProggys,NextLight:Boolean;
TypeOfLogs:String;
procedure DeclarePlayers;
begin
UseProggys := False; //Yes or No * True or False
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
end;
Procedure HumanMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
ClickMouse2(True);
end;
function FindButler(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.39, 1.37);
if not(FindColorsTolerance(arP, 2174030, 196,79,349,222, 9)) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 1.53) and (X <= 7.94) and (Y >= 1.28) and (Y <= 6.22) and (Z >= 0.91) and (Z <= 3.49) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
HumanMMouse(p.x,p.y,5,5);
Wait(100 + Random(100));
if (IsUpText('emon')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Exit;
end;
GetMousePos(fx, fy);
end;
function FireColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.13, 0.49);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 1738208, MSX1, MSY1, MSX2, MSY2, 17);
if (Length(arP) = 0) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 13.94) and (X <= 58.29) and (Y >= 10.60) and (Y <= 58.15) and (Z >= 2.00) and (Z <= 18.07) then
begin
Result := arC[i];
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
function WaitNPCChatText(Text:String; Time:Integer):Boolean;
var
t:Integer;
begin
MarkTime(t);
repeat
wait(10);
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(FindNPCChatText(Text,Nothing));
Result := True;
end;
procedure StoreUptext;
begin
if ExistsItem(1) then
begin
Mouseitem(1,3);
if IsUpText('ew') then
TypeOfLogs := 'Yew';
if IsUptext('agic') then
TypeofLogs := 'Magic';
if IsUpText('aple') then
TypeOfLogs := 'Maple';
if IsUpText('Oak') then
TypeOfLogs := 'Oak';
if IsUpText('llow') then
TypeOfLogs := 'Willow';
end;
if TypeOfLogs = '' then
writeLn('Failed uptext checking');
writeLn('We are burning: ' + TypeOfLogs);
end;
function WaitInvCountInc(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 > Inv1);
Result := True;
end;
procedure Randoms;
begin
if FindNormalRandoms then
if not LoggedIn then
TerminateScript;
end;
function WaitInvCountDec(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 < Inv1);
Result := True;
end;
procedure Proggy;
var
//progress variables
XP,XPH,Sec,BPH:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600 * XP) / (SeC);
BPH := (3600 * Burned) / (SeC);
writeLn('=============v1.7==================');
writeLn('============S1NFiremaker===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP Per Hour: ' + IntToStr(XPH));
writeLn('Logs Burned: ' + IntToStr(Burned));
writeLn('Burned Per Hour: ' + IntToStr(BPH));
writelN('===================================');
writeLn('===================================');
end;
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
repeat
wait(10);
Second := GetXPBarTotal;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Second > First);
Result := True;
end;
function IsFireUnder:Boolean;
var
x,y:Integer;
begin
Result := FindColorSpiralTolerance(x,y,FireColor,242,172,263 ,181,3);
end;
function GetLogs(Amount:Integer; DoWait:Boolean):Boolean;
var
x,y,t:Integer;
begin
Result := False;
if ExistsItem(1) then
MouseItem(1,1);
if FindButler(x,y) then
begin
ClickMouse2(True);
If WaitNPCChatText('coins',1250) Then
Begin
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(1,1);
if FindButler(x,y) then
ClickMouse2(True);
end;
if WaitNPCChatText('cert',4000) then
begin
TypeSendEx('1',False);
//wait(RandomRange(1500,1700));
If WaitFindColor(X,Y,0,266,397,281,407,1,5000) Then
//if FindColorSpiralTolerance(x,y,9877449,MCX1,MCY1,MCX 2,MCY2,38) then
begin
TypeSend('26');
if DoWait then
if WaitInvCountInc(10000) then
Result := True;
end;
end;
end;
end;
function Light(Slot:Integer):Boolean;
begin
If Not NextLight Then
Begin
If Not OptionsExist(['a','g','h'],Nothing) Then
Begin
// Writeln('nooptionfound');
MouseItem(Slot,0);
End;
if WaitOptionMulti(['ight','Lig'],750) then
Begin
// Writeln('foundoptionfound');
Result := True;
End;
Inc(Burned);
End Else
Begin
// Writeln('clicking next spot');
MouseItem(Slot+1,0);
NextLight:=False;
End;
end;
function Relocate:Boolean;
var
x,y,ti:Integer;
begin
MakeCompass(0);
case random(2) of
0:
begin
HumanMouse(688,75,4,4);
FFlag(1);
Wait(RandomRange(650,750));
HumanMouse(671,80,2,2);
Wait(RandomRange(1000,1750));
Repeat
Wait(100);
Until Not IsMoving;
If FlagPresent Then
Begin
HumanMouse(671,80,2,2);
FFlag(1);
Wait(RandomRange(650,750));
End;
end;
1:
begin
HumanMouse(688,95,5,5);
FFlag(1);
Wait(RandomRange(650,750));
HumanMouse(688,80,2,2);
Wait(RandomRange(1000,1750));
Repeat
Wait(100);
Until Not IsMoving;
If FlagPresent Then
Begin
HumanMouse(688,80,2,2);
FFlag(1);
Wait(RandomRange(650,750));
End;
end;
end;
MarkTime(TI);
Repeat
Wait(100);
If TimeFromMark(TI)>6000 Then
Break;
Until InvCount>4;
if InvCount = 1 then
Begin
repeat
wait(10);
until(FindButler(x,y));
GetLogs(26,True);
Exit;
End;
Randoms;
end;
procedure BurnLogs;
var
i,x,y:Integer;
begin
for i := 2 to 28 do
begin
if FindColorSpiralTolerance(x,y,11059400,173,234,201, 253,0) Then
Begin
HumanMouse(627,79,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
if FindColorSpiralTolerance(x,y,11059400,173,101,201, 120,0) Then
Begin
HumanMouse(628,91,5,5);
FFlag(1);
Wait(RandomRange(650,750));
End;
if ExistsItem(i) then
begin
if FIndBlackChatMessage('here') then
begin
case Random(2) of
0:
begin
HumanMouse(627,79,5,5);
FFlag(1);
Wait(RandomRange(650,750));
end;
1:
begin
HumanMouse(628,91,5,5);
FFlag(1);
Wait(RandomRange(650,750));
end;
end;
ExamineInv;
Wait(RandomRange(650,750));
Exit;
end;
Light(i);
Proggy;
NextLight:=True;
Light(i);
WaitXPIncrease(RandomRange(3000,3200));
if (InvCount = 1) And (Not OptionsExist(['a','g','h'],Nothing)) then
begin
GetLogs(26,False);
Relocate;
Randoms;
Exit;
end;
Randoms;
end else
If OptionsExist(['a','g','h'],Nothing) Then
Begin
NextLight:=False;
Light(i);
WaitXPIncrease(RandomRange(3000,3200));
if (InvCount = 1) And (Not OptionsExist(['a','g','h'],Nothing)) then
begin
GetLogs(26,False);
Relocate;
end;
Randoms;
End;
end;
Randoms;
end;
procedure ScriptStart;
var
StartInv,NTW:Integer;
begin
//start with 13 logs + noted, total of 14 items
//StartInv is equal to 14, ntw = 28 - startinv, 14
//Above is just me spouting out the equation, dont bother with it
StartInv := InvCount;
NTW := 28 - StartInv;
if StartInv < 2 then
GetLogs(NTW,True);
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(18,20);
writeLn('Changes in 1.7: ');
writeln('Will no longer light the whole row');
writeLn('Wont be a retard anymore. Hopefully.');
NextLight:=False;
Wait(1500);
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
StoreUptext;
ScriptStart;
repeat
BurnLogs;
until not loggedin;
end.
Hey asha, is there any reason as to why when the script is running, it takes short breaks after lighting a log (instead of it being fluid) and so it has to do the tinderbox action again to get it started?
Because others are getting in excess of 1k an hour, and I'm getting around 740 (even with the new script that you just posted).
Ashaman88
05-07-2012, 03:22 AM
Hey asha, is there any reason as to why when the script is running, it takes short breaks after lighting a log (instead of it being fluid) and so it has to do the tinderbox action again to get it started?
Because others are getting in excess of 1k an hour, and I'm getting around 740 (even with the new script that you just posted).
Do you have the top xp bar set to firemaking or total? If not then thats probably why. Also having it set to 'lots' won't work either. The top bar must be firemaking or total.
xxshabsxx
05-07-2012, 03:31 AM
Do you have the top xp bar set to firemaking or total? If not then thats probably why. Also having it set to 'lots' won't work either. The top bar must be firemaking or total.
Oh god thank you so much!
I had no idea that that would have effected it.
A new problem has arisen though, it seems to not walk back to the correct spot (only in the version you just posted), it slowly makes it way furhter and further away from the south-east corner until it cant go anymore.
Ashaman88
05-07-2012, 03:37 AM
Oh god thank you so much!
I had no idea that that would have effected it.
A new problem has arisen though, it seems to not walk back to the correct spot (only in the version you just posted), it slowly makes it way furhter and further away from the south-east corner until it cant go anymore.
Did you try his orig? When you say further away from se do you mean to the west?
Here is it running so far w/ maples:
=============v1.7==================
============S1NFiremaker===========
Time Running: 1 Hours, 28 Minutes and 49 Seconds
XP Earned: 239323
XP Per Hour: 161735
Logs Burned: 1754
Burned Per Hour: 1185
===================================
===================================
xxshabsxx
05-07-2012, 03:40 AM
Did you try his orig? When you say further away from se do you mean to the west?
Here is it running so far w/ maples:
=============v1.7==================
============S1NFiremaker===========
Time Running: 1 Hours, 28 Minutes and 49 Seconds
XP Earned: 239323
XP Per Hour: 161735
Logs Burned: 1754
Burned Per Hour: 1185
===================================
===================================
Yes I used his orig, and that works fine. By moving more away from the SE, I mean that it origin position (where it lights its first log) moves further to the west ever inventory.
Ashaman88
05-07-2012, 03:42 AM
Yes I used his orig, and that works fine. By moving more away from the SE, I mean that it origin position (where it lights its first log) moves further to the west ever inventory.
hmm that does seem strange considering the x values are the same. Well if it's working for you then stick with the orig.
xxshabsxx
05-07-2012, 03:50 AM
hmm that does seem strange considering the x values are the same. Well if it's working for you then stick with the orig.
Yeah I'm just going to stick with the original for the moment.
Once again, thanks very much for all your help!
Bossman00
05-07-2012, 01:44 PM
Brilliant script!
============S1NFiremaker===========
Time Running: 2 Hours, 28 Minutes and 21 Seconds
XP Earned: 516780
XP Per Hour: 209034
Logs Burned: 2604
Burned Per Hour: 1053
===================================
===================================
Yeah I'm just going to stick with the original for the moment.
Once again, thanks very much for all your help!
He's awesome yes.
And im so sorry! I completely forgot that you need an XP Bar at the top since I base my timing off the XP Rise ;)
It ensures for the most efficient imo.
Brilliant script!
============S1NFiremaker===========
Time Running: 2 Hours, 28 Minutes and 21 Seconds
XP Earned: 516780
XP Per Hour: 209034
Logs Burned: 2604
Burned Per Hour: 1053
===================================
===================================
Thank you! Yew Logs?
Bossman00
05-07-2012, 01:49 PM
Thank you! Yew Logs?
Yup!
Thanks again:spot:
You're welcome.
I'll be firemaking on my alternate account to 99, so this script isn't anywhere near done yet!
anvi89
05-07-2012, 01:51 PM
thanks for the script i got 40-99 with it in like 5 days doing maples. :)
thanks for the script i got 40-99 with it in like 5 days doing maples. :)
Yeah, tbh, maples are the best xp/gp here.
I did Magics since it was the fastest xp haha. I'll probably do Yews on my pure.
anvi89
05-07-2012, 01:55 PM
Yeah, tbh, maples are the best xp/gp here.
I did Magics since it was the fastest xp haha. I'll probably do Yews on my pure.
it was just such fast xp i had to go with maples ha
it was just such fast xp i had to go with maples ha
Im not quite sure, but are Maples the third highest logs able to be burned?
Or are they arctic pines?
Bossman00
05-07-2012, 02:01 PM
Can anyone tell me what the slider on the right hand side is for?
sorry for the newbish question lol
Can anyone tell me what the slider on the right hand side is for?
sorry for the newbish question lol
It's the FPS slider.
The higher you move it, the more memory it takes up, but the more smoother the graphics look.
anvi89
05-07-2012, 02:03 PM
Im not quite sure, but are Maples the third highest logs able to be burned?
Or are they arctic pines?
ya maples have 10 xp more
Bossman00
05-07-2012, 02:05 PM
It's the FPS slider.
The higher you move it, the more memory it takes up, but the more smoother the graphics look.
Oh, I see.
Thanks mate
Oh, I see.
Thanks mate
No problem, i'm here all day ;)
Bossman00
05-07-2012, 08:30 PM
No problem, i'm here all day ;)
Here's another cool lil proggy
=============v1.7==================
============S1NFiremaker===========
Time Running: 3 Hours, 28 Minutes and 18 Seconds
XP Earned: 790560
XP Per Hour: -115943
Logs Burned: 3934
Burned Per Hour: 1133
===================================
===================================
I have no idea why the xp/hr is negative..
Ashaman88
05-08-2012, 11:52 AM
w/ a few more tweeks:
=============v1.7==================
============S1NFiremaker===========
Time Running: 6 Hours, 42 Seconds
XP Earned: 964977
XP Per Hour: -38151
Logs Burned: 6889
Burned Per Hour: 1152
===================================
===================================
<3
siuman101
05-08-2012, 01:40 PM
=============v1.7==================
============S1NFiremaker===========
Time Running: 6 Hours, 2 Minutes and 15 Seconds
XP Earned: 841860
XP Per Hour: -58808
Logs Burned: 6397
Burned Per Hour: 1071
===================================
Remember to post here when you get 99 ;)
#of 99s - 11+.
Will add SRL stats asap!
Version 1.8 Pushed!
PLEASE USE SRL STATS!
thomas1116
05-08-2012, 02:41 PM
what is SRL stats?
btw im testing ur new verison 1.8 thank u :P
chuckyb0y
05-08-2012, 02:41 PM
srl stats is the registraton of all xp u gaint on this script
thomas1116
05-08-2012, 02:50 PM
how can i use SRL STATS then when idk where i get them from ?
thomas1116
05-08-2012, 03:09 PM
well 1,8 gets just stuck , and dosnt even pay the demon so i use ur 1,7 instead, it lighted 70 logs then just stopped :S wierd
Cookiep
05-08-2012, 04:59 PM
============S1NFiremaker===========
Time Running: 3 Hours, 43 Minutes and 10 Seconds
XP Earned: 439965
XP/h: 120035
great script, reason it stopped is because i ran out of membership :/
5 hours of use in 7 hours xD
chuckyb0y
05-08-2012, 08:07 PM
just stops and stands there after few invents.
no debug nothing
i used 1.8 did few runs and than stopped.
thomas1116
05-08-2012, 09:35 PM
just stops and stands there after few invents.
no debug nothing
i used 1.8 did few runs and than stopped.
same for me :S
Cookiep
05-10-2012, 02:18 AM
version 1.8 is working great for me so far been running 35 minutes no problems at all, il keep it running and see if it can run as good as 1.4 and 1.7
IBZerked
05-10-2012, 09:14 AM
I've get within 30mins random events in my house ffs im flagged
xxshabsxx
05-10-2012, 10:55 AM
I've get within 30mins random events in my house ffs im flagged
Are you in building mode? If you are, and you get a random, then you're kind of stuffed.
Also I'm not sure why people are having issues with 1.8, mines running fine (and better than 1.7)
==================S1NFiremaker=================
Time Running: 1 Hours, 21 Minutes and 15 Seconds
XP Earned: 180900
XP Per Hour: 138502
Logs Burned: 1362
Burned Per Hour: 1042
===============================================
===============================================
This is with maples.
chuckyb0y
05-10-2012, 11:10 AM
Are you in building mode? If you are, and you get a random, then you're kind of stuffed.
Also I'm not sure why people are having issues with 1.8, mines running fine (and better than 1.7)
==================S1NFiremaker=================
Time Running: 1 Hours, 21 Minutes and 15 Seconds
XP Earned: 180900
XP Per Hour: 138502
Logs Burned: 1362
Burned Per Hour: 1042
===============================================
===============================================
This is with maples.
mine just stopts after talking to the butlers does not and logs out.
did u try run it for like 6hours ?
and what settings do you use ?
xxshabsxx
05-10-2012, 11:56 AM
mine just stopts after talking to the butlers does not and logs out.
did u try run it for like 6hours ?
and what settings do you use ?
That's really weird.
Have you set your xp to only show total, and popups off? That might set it off.
Other than that, I have no idea what you're doing wrong as the setup is so similar.
It it stopped for some reason after 2.2 hours.
Punjabi3
05-10-2012, 01:41 PM
I think the new bonfire update will be awesome for this script
Zerkeronrs7
05-10-2012, 01:50 PM
I think the new bonfire update will be awesome for this script
You read my mind, i can't wait for the updated version if sin decide to do it :D
chuckyb0y
05-10-2012, 01:53 PM
bonfire will be even easyer to bot with this.
so SIN please make it so it makes a fire and use logs on it.
gives bonus xp!
I will as soon as my laptop is fixed (3 weeks max :s)
Ashaman88
05-10-2012, 02:24 PM
I will as soon as my laptop is fixed (3 weeks max :s)
I implemented a ghetto version this morning, it's pretty easy to edit for it (just need tweaking for perfect). I'll shoot you what I got when I get home tonight
I implemented a ghetto version this morning, it's pretty easy to edit for it (just need tweaking for perfect). I'll shoot you what I got when I get home tonight
Awesome, thanks a ton.
Harry
05-10-2012, 03:43 PM
I hacked up bonfire support in this because I am much too lazy to write my own. I removed a lot of stuff I didn't like as well, and made everything a bit more safe.
Reply if you want me to remove this. I'd normally post just the parts I changed, but I changed a lot in it so I don't know what exactly I did. Don't think you'll care since you can't update it at the moment anyways. Works pretty stable and gives me ~150k exp/hr doing maple logs.
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
{$I sps/sps.simba}
var
StartTime,LogsBurned,globalexp:Integer;
//progress variables
XP,XPH,Sec:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
function butlerhere:boolean;
begin
result := (length(GetMiniMapDotsIn('npc',617,75,637,95)) > 0);
if result then writeln('got butler') else writeln('no butler');
end;
function FindButler(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
waitfunc(@butlerhere,100,10000);
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.39, 1.37);
if not(FindColorsTolerance(arP, 2174030, 196,79,349,222, 9)) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 1.53) and (X <= 7.94) and (Y >= 1.28) and (Y <= 6.22) and (Z >= 0.91) and (Z <= 3.49) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('emon')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Exit;
end;
GetMousePos(fx, fy);
end;
function FireColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.13, 0.49);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 1738208, MSX1, MSY1, MSX2, MSY2, 17);
if (Length(arP) = 0) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 13.94) and (X <= 58.29) and (Y >= 10.60) and (Y <= 58.15) and (Z >= 2.00) and (Z <= 18.07) then
begin
Result := arC[i];
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
function WaitNPCChatText(Text:String; Time:Integer):Boolean;
var
t,x,y:Integer;
begin
MarkTime(t);
repeat
wait(100+Random(100));
ClickContinue(True,True);
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
If (GetColor(185, 390) =13158600) Then
Begin
writeln('giving him coins');
ClickContinue(True, True);
Wait(100+Random(1000));
ClickContinue(True, True);
Wait(100+Random(1000));
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(1000+Random(1000));
ClickContinue(True, True);
//TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(1,1);
if FindButler(x,y) then
ClickMouse2(True);
Wait(2000+Random(2000));
end;
until(FindNPCChatText(Text,Nothing));
Result := True;
end;
function WaitInvCountInc(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 > Inv1);
Result := True;
end;
function WaitInvCountDec(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 < Inv1);
Result := True;
end;
procedure Proggy;
begin
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
writeLn('===================================');
writeLn('============S1NFiremaker===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writelN('===================================');
writeLn('===================================');
end;
procedure RandomRClickH; // phantombmx/EvilChicken - removed inv clicking
var
M: Byte;
Inv: Boolean;
bx,by: integer;
begin
if (not LoggedIn) then exit;
M := MouseSpeed;
MouseSpeed := 7 + Random(25);
bx := Random(MIX2);
by := Random(MIY2);
if PointInBox(point(bx,by),inttobox(MSX1,MSY1,msx2,ms y2)) then
begin
Mouse(bx, by, 0, 0, False);
if (Random(3) > 0) then
Inv := ChooseOption('xamine');
if (not Inv) then ChooseOption('ancel');
end
else
MMouse(bx, by, 0, 0);
MouseSpeed := M;
end;
procedure AntiBuns;
begin
begin
case (Random(100)) of
0: begin RandomRClickH; Inc(Players[CurrentPlayer].Integers[2]); end;
1: begin MouseSpeed := 15 + Random(7); Inc(Players[CurrentPlayer].Integers[2]); end;
2: begin if (Random(2) = 0) then PickUpMouse; Inc(Players[CurrentPlayer].Integers[2]); end;
3..200: begin
wait(1);
end;
end;
Wait(10+random(500));
end;
end;
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
repeat
AntiBuns;
if not (ExistsItem(27)) then begin Result:=False;exit; end;
wait(50);
Second := GetXPBarTotal;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Second > First);
Result := True;
end;
function FireExists:Boolean;
var
x,y:Integer;
begin
Result := FindColorSpiralTolerance(x,y,FireColor,196, 117, 323, 223, 3);
if Result then WriteLn('Fire exists') else WriteLn('Fire does not exist');
end;
function readytype: boolean;
var x,y:integer;
begin
result := FindColorSpiralTolerance(x,y,9877449,MCX1,MCY1,MCX 2,MCY2,38);
end;
function GetLogs(Amount:Integer):Boolean;
var
x,y,t:Integer;
begin
Result := False;
if ExistsItem(1) then
MouseItem(1,1);
if FindButler(x,y) then
begin
ClickMouse2(True);
if WaitNPCChattext('cert',4000) then
begin
TypeSendEx('1',False);
wait(750 + random(200));
if waitfunc(@readytype,100+Random(100),2000) then
begin
wait(250+random(1000));
TypeSend('26');
wait(50+Random(700));
if WaitInvCountInc(10000) then
Result := True;
end;
end;
end;
end;
function GetLogsFast(Amount:Integer):Boolean;
var
x,y,t:Integer;
begin
Result := False;
if ExistsItem(1) then
MouseItem(1,1);
if FindButler(x,y) then
begin
ClickMouse2(True);
If WaitNPCChatText('coins',1250) Then
Begin
TypeSendEx('1',False);
Wait(1000+Random(1000));
ClickContinue(True, True);
//TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(1,1);
if FindButler(x,y) then
ClickMouse2(True);
end;
if WaitNPCChattext('cert',4000) then
begin
TypeSendEx('1',False);
wait(750 + random(200));
if waitfunc(@readytype,100+Random(100),2000) then
begin
wait(250+random(1000));
TypeSend('26');
//wait(50+Random(700));
if WaitInvCountInc(10000) then
Result := True;
end;
end;
end;
end;
function WhatToDo: boolean;
begin
Result := (GetColor(333, 364) = 16777215);
end;
function Light(Slot:Integer;TypeOfBurn:string):Boolean;
begin
if (TypeOfBurn <> 'tinder') then
MouseItem(Slot,mouse_Left)
else
begin
MouseItem(Slot,Mouse_Right);
WaitOption('ight ', 750);
end;
if (TypeOfBurn <> 'tinder') then
if WaitFunc(@WhatToDo, 100, 2000) then
begin
if (TypeOfBurn <> 'tinder') then
MouseBox(316, 403, 392, 454, Mouse_Left)
else
MouseBox(128, 403, 199, 455, Mouse_Left);
end else
begin
WriteLn('Choosing Option for bonfire failed!');
Exit;
end;
if (TypeOfBurn = 'tinder') then
begin
if WaitFunc(@FireExists, 100, 5000) then
begin
WriteLn('Tinderbox worked, now gonna add bonfire!');
Light(slot+1,'bonfire');
Exit;
end else
Writeln('tinderbox failed!');
end;
if FindBlackChatMessage('here') then
begin
WriteLn('you can''t light a log here, too lazy to handle this atm, bye!');
terminatescript;
end;
if FindBlackChatMessage('range') then
begin
WriteLn('No bonfires, wut?');
end;
end;
function Relocate:Boolean;
var
x,y:Integer;
begin
if InvCount < 3 then
GetLogs(26);
// Wait(250 + random(2000));
end;
{function gotthelogs:boolean;
begin
result:=(invcount>6);
end;}
procedure BurnLogs;
var bakas: integer;
begin
findspinticket;
bakas := 1;
repeat
bakas := bakas+1;
if ExistsItem(bakas) then
Break;
until (bakas > 27);
if (bakas > 27) then
begin
WriteLn('No logs! Getting some more!');
Relocate;
Exit;
end;
if not FireExists then
Light(bakas, 'tinder')
else
Light(bakas, 'bonfire');
repeat
if not WaitXPIncrease(4000) then // you might want to increase this if you're on a laggy world
begin
WriteLn('Exp failsafe resulted, breaking out.');
Break;
end;
until not (ExistsItem(27));
Proggy;
findspinticket;
//waitfunc(@gotthelogs,100,5000);
// if InvCount < 3 then
Relocate;
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(22,25);
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
if InvCount = 1 then
GetLogs(26);
repeat
BurnLogs;
until not loggedin;
end.
pure ftw52
05-10-2012, 06:01 PM
where you start ?
blinkblink
05-10-2012, 06:22 PM
where you start ?
Are you serious?
Since you are blind that you couldn't read the main thread post....
Requirements:
Demon butler
Any firemaking level
Noted logs in first inventory slot
Clothes that DO NOT LOOK LIKE A FIRE
Money to pay the butler
Start character in the MOST south eastern place
View this screenshot -
http://puu.sh/pjgt
Start in same area, where clothes like mine (Stuff that doesn't have yellow/orange)
Set camera angle to the highest.
^.^
chuckyb0y
05-10-2012, 07:12 PM
Got problem it wont give the demon butler the coins in my case 7500 it stops and says no butler. and later on it sayed no logs try butler over and over again
MiroMiro
05-10-2012, 09:43 PM
doesn't work for me
xxshabsxx
05-10-2012, 10:22 PM
I hacked up bonfire support in this because I am much too lazy to write my own. I removed a lot of stuff I didn't like as well, and made everything a bit more safe.
Reply if you want me to remove this. I'd normally post just the parts I changed, but I changed a lot in it so I don't know what exactly I did. Don't think you'll care since you can't update it at the moment anyways. Works pretty stable and gives me ~150k exp/hr doing maple logs.
Wow, for me this is extremely buggy.
a) It doesn't right click the fire to make bonfires (much easier)
b) When the bonfire is out, 60% of the time it won't make a fire)
And for some reason, it just stops adding logs ALL the time.
Harry
05-10-2012, 10:41 PM
Wow, for me this is extremely buggy.
a) It doesn't right click the fire to make bonfires (much easier)
b) When the bonfire is out, 60% of the time it won't make a fire)
And for some reason, it just stops adding logs ALL the time.
a) No it's not easier, and infact it's much much slower.
You are in the far south-east area of your PoH in building mode, right? Also, use demon butler. Working flawless for me, earned over 1.8m exp already.
You sure you're using my edit and not the script in S1N's first post?...
xxshabsxx
05-10-2012, 11:08 PM
a) No it's not easier, and infact it's much much slower.
You are in the far south-east area of your PoH in building mode, right? Also, use demon butler. Working flawless for me, earned over 1.8m exp already.
You sure you're using my edit and not the script in S1N's first post?...
Yeah I was in the most south, eastern part of the map. I'll try again and see what happens because I beleive that its working for you and that I've done something wrong.
And why wouldn't right clicking the fire be faster? Wouldn't it just a bit less hassle as it's a simple right click option when the fire has been identified?
Anyway I'll delete the script, re-compile it and try again and I'll let you know.
siuman101
05-10-2012, 11:18 PM
Harry, i am trying to use your script, and i think that anti-ban is pretty bad... When the log is burning, it should not interrupt with clicking "craft", cause it will stop the burning action. Others work pretty good!
xxshabsxx
05-10-2012, 11:20 PM
Harry, i am trying to use your script, and i think that anti-ban is pretty bad... When the log is burning, it should not interrupt with clicking "craft", cause it will stop the burning action. Others work pretty good!
Yeah mine is running fine now.
But it tends to do what is said above.
===================================
============S1NFiremaker===========
Time Running: 10 Minutes and 8 Seconds
XP Earned: 21575
XP/h: 127536
===================================
===================================
And for some reason I'm not getting the xp that you are.
Edit:
Now I've fond that if the bonfire burns out, it lights a fire and tries to add a log WAY to fast. Which just makes an endless loop of trying to add the logs to the fire and then trying to light it when it eventually realizes it's not there.
Ugh, I don't know why I'm having so many problems.
Calm down and wait for my official release.
chuckyb0y
05-11-2012, 05:06 AM
Mine does only got problem with paying the demon butler it talks to hem but doesnt select the first option and talk use noted logs on him again.
Harry
05-11-2012, 05:30 AM
I don't know what any of you guys are doing wrong. My edit is still working flawless, none of the issues you are talking about I ever get. Demon butler with noted maple logs in build mode has been running fine for me.
laloo345
05-11-2012, 05:56 AM
Ummm New Update Of Burning Logs... Dont Think This Works Any More??
kneekopiko
05-11-2012, 05:57 AM
It still works fine with the new update.
chuckyb0y
05-11-2012, 07:05 AM
harry can u post ur Graphic settings and other settings maybe we do something wrong.
it just wont say first option it looks like it doesnt know that it needs to pay.
BTW did you edit version 1.8?
cause it doesnt work for me either.
thomas1116
05-11-2012, 08:03 AM
i use version 1.7 and im 97 firemaking now lighting maples... i got no problems :D
1.8 dosn't work for me :)
thomas1116
05-11-2012, 08:38 AM
damn guys, i tried a guide for fasten up SRL&simba , so i removed java , and reinstalled java 6 update 32 ... sooo i had to ,reinstal lsimba, and now the firemaking script dosnt work :S This is what it says :
SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 87, Members: True, Signed: True, Super Detail: False.
Error: Exception: Access violation at line 101
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
anyone know what to do ? :S
Zerkeronrs7
05-11-2012, 08:58 AM
No need to double post thomas :)
And i don't know what you guys are talking about, Herry's version of the script is working just fine.
Is the Bonfire working here :3 ?
chuckyb0y
05-11-2012, 09:19 AM
No need to double post thomas :)
And i don't know what you guys are talking about, Herry's version of the script is working just fine.
can you send your graphic settings simba plugins ?
maybe i am missing something because it wont detect that the servants need to be payed it just tryes over and over again to un note the maple's
i got last version msi sps srl odtm and extensions.
aslo playing on min with fixed screen on safe mode.
Zerkeronrs7
05-11-2012, 09:25 AM
can you send your graphic settings simba plugins ?
maybe i am missing something because it wont detect that the servants need to be payed it just tryes over and over again to un note the maple's
i got last version msi sps srl odtm and extensions.
aslo playing on min with fixed screen on safe mode.
I'm just on the min graphics settings. The only difference is i'm on SPS 1, but i don't think that will affect the script.
chuckyb0y
05-11-2012, 09:29 AM
I'm just on the min graphics settings. The only difference is i'm on SPS 1, but i don't think that will affect the script.
Than i dont realy get it my brightness is on max verything and code looks just fine..
maybe reinstalling Simba does help...
btw i am also using smart manager v0.93.
Neega Rose
05-11-2012, 09:30 AM
thanks 4 99 fm btw...right 4 the upd8 :/
siuman101
05-11-2012, 01:23 PM
Thanks for getting me to 99fm :P
Moron
05-11-2012, 01:46 PM
I hacked up bonfire support in this because I am much too lazy to write my own. I removed a lot of stuff I didn't like as well, and made everything a bit more safe.
Reply if you want me to remove this. I'd normally post just the parts I changed, but I changed a lot in it so I don't know what exactly I did. Don't think you'll care since you can't update it at the moment anyways. Works pretty stable and gives me ~150k exp/hr doing maple logs.
<rm quoted script>
Massive help, thanks. :spot:
Moron
05-12-2012, 03:42 PM
I hacked up bonfire support in this because I am much too lazy to write my own. I removed a lot of stuff I didn't like as well, and made everything a bit more safe.
[/simba]
Sometimes when adding logs to the bonfire, the script will click on a log in the inventory, causing the whole process to stop. Can you fix this??/ Please
newy1
05-13-2012, 02:42 AM
Stops every few minutes...
That's not any help at all.
Moron
05-13-2012, 01:39 PM
That's not any help at all.
U gonna update this:confused:
Butler keeps wandering off for me after 5-10 minutes. =/
navysealster
05-14-2012, 06:51 AM
Did not screenie the level but i recently went 77-99 with this script in about a week of relaxed botting. works well thank you very much!
chuckyb0y
05-14-2012, 09:10 AM
Thanx SIN
ur script made me 99 FM!!
http://i50.tinypic.com/24bixrt.png
I'll add both of you guys to OP, congrats!
koo29
05-15-2012, 01:19 AM
Are you planning to add bonfire support? That would be greatly appreciated :)
I definitely will, once I get my computer back.
Vanny
05-15-2012, 03:31 PM
http://puu.sh/uSeJ
I used 1.7 from levels 40-99 in a few day, Thanks sin!
Also, 1.8 seemed to lose track of the butler then just log out after a few minutes.
1.7 worked excellently, however it tended to try starting fires on top of existing ones.
This wouldn't be a problem if it wasn't for the fact it took 10+ seconds sometimes for it to figure out it was on top of a fire.
When it was doing that it was about 128k/hr, but when it wasn't it was hovering at 137k/hr.
Ecoalypse
05-15-2012, 04:23 PM
Could you make it able to fire make bonfires? Like, making a fire in the house then use logs on it and then when your out of logs u tell your butler to un-cert and repeat
Gratz Vanny!!!
Eco, I do NOT have access to scripting runescape at the moment.
If someone can get me the colors for the required things, I can write it via theory.
Ashaman88
05-16-2012, 10:55 PM
Gratz Vanny!!!
Eco, I do NOT have access to scripting runescape at the moment.
If someone can get me the colors for the required things, I can write it via theory.
So apparently you can get the fire spirit in build mode now. I went ahead and wrote it up to handle that (it will keep charms but drop all other items). I think I got it working good, but I cheated and have it only to work with maple logs (DTM). Lemme know if you would like me to send you the code
Ashaman88
05-16-2012, 11:04 PM
Post it here! :p
ah gay
http://puu.sh/v7un
won't let me drop the other items...any ideas?
Tell the butler to bank it?
Ashaman88
05-16-2012, 11:25 PM
Tell the butler to bank it?
oh duh! Think i've got it, lemme get a spirit to test it on then i will post what i got
Edit* Alright no idea how stable it is, and again I cheated for myself using the dtm for maple logs (anywhere you see Mlog, that's it). Idk if you want to store DTM's for the different type of logs in the storeuptext or just take apart what I've added and figure out a more flexible way.
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
var
StartTime,Burned,Log,mlog,Waittime,Ashes:Integer;
//Cases
UseProggys,FirstBank:Boolean;
TypeOfLogs:String;
procedure DeclarePlayers;
begin
UseProggys := False; //Yes or No * True or False
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
end;
Procedure HumanMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := 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-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(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 := A;
ClickMouse2(True);
end;
function FindButler(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.39, 1.37);
if not(FindColorsTolerance(arP, 2174030, 196,79,349,222, 9)) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 1.53) and (X <= 7.94) and (Y >= 1.28) and (Y <= 6.22) and (Z >= 0.91) and (Z <= 3.49) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
HumanMMouse(p.x,p.y,5,5);
Wait(100 + Random(100));
if (IsUpText('emon')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Exit;
end;
GetMousePos(fx, fy);
end;
function WaitNPCChatText(Text:String; Time:Integer):Boolean;
var
t:Integer;
begin
MarkTime(t);
repeat
wait(10);
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(FindNPCChatText(Text,Nothing));
Result := True;
end;
procedure StoreUptext;
begin
if ExistsItem(1) then
begin
Mouseitem(1,3);
if IsUpText('ew') then
TypeOfLogs := 'Yew';
if IsUptext('agic') then
TypeofLogs := 'Magic';
if IsUpText('aple') then
TypeOfLogs := 'Maple';
if IsUpText('Oak') then
TypeOfLogs := 'Oak';
if IsUpText('llow') then
TypeOfLogs := 'Willow';
end;
if TypeOfLogs = '' then
writeLn('Failed uptext checking');
writeLn('We are burning: ' + TypeOfLogs);
end;
function WaitInvCountInc(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 > Inv1);
Result := True;
end;
procedure Randoms;
begin
if FindNormalRandoms then
if not LoggedIn then
TerminateScript;
end;
function WaitInvCountDec(Time:Integer):Boolean;
var
Inv1,Inv2,t:Integer;
begin
MarkTime(t);
Inv1 := InvCount;
repeat
wait(10);
Inv2 := InvCount;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Inv2 < Inv1);
Result := True;
end;
procedure Proggy;
var
//progress variables
XP,XPH,Sec,BPH:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600 * XP) / (SeC);
BPH := (3600 * Burned) / (SeC);
writeLn('=============v1.7==================');
writeLn('============S1NFiremaker===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP Per Hour: ' + IntToStr(XPH));
writeLn('Logs Burned: ' + IntToStr(Burned));
writeLn('Burned Per Hour: ' + IntToStr(BPH));
writelN('===================================');
writeLn('===================================');
end;
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
repeat
wait(10);
Second := GetXPBarTotal;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Second > First);
Result := True;
end;
function GetLogs(Amount:Integer; DoWait:Boolean):Boolean;
var
x,y:Integer;
begin
Result := False;
if ExistsItem(1) then
MouseItem(1,1);
if FindButler(x,y) then
begin
ClickMouse2(True);
Wait(RandomRange(600,700));
If WaitNPCChatText('coins',1250) Then
Begin
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(1,1);
if FindButler(x,y) then
ClickMouse2(True);
end;
if WaitNPCChatText('cert',4000) then
begin
TypeSendEx('1',False);
If WaitFindColor(X,Y,0,266,397,281,407,1,5000) Then
begin
If (28-Invcount)<=26 Then
TypeSend(Tostr(28-InvCount)) Else
TypeSend('26');
If Not FirstBank Then
Burned:= Burned+28-InvCount;
FirstBank:=False;
if DoWait then
if WaitInvCountInc(10000) then
Result := True;
end;
end;
end;
end;
Procedure BankStuff;
var
i,x,y:integer;
Begin
for i := 2 to 8 do
begin
If existsitem(i) then
begin
mouseitem(i,3);
if not waituptextmulti(['og','logs','Log','log'],RandomRange(200,300)) then
begin
ClickMouse2(true);
if FindButler(x,y) then
begin
ClickMouse2(True);
If WaitNPCChatText('coins',1250) Then
Begin
ClickContinue(True, True);
TypeSendEx('1',False);
Wait(RandomRange(800,1000));
MouseItem(i,1);
if FindButler(x,y) then
ClickMouse2(True);
end;
if WaitNPCChatText('ank',4000) then
begin
FindNPCChatText('ank',ClickLeft);
If WaitFindColor(X,Y,0,266,397,281,407,1,5000) Then
begin
TypeSend(tostr(randomrange(100,500)));
end;
Wait(RandomRange(1000,1200));
Repeat
Wait(100)
Until FindButler(X,Y);
Wait(RandomRange(1500,2000));
end;
end;
End;
End;
End;
GetLogs(20,True); //so butler won't walk away
End;
Function GetSpirit: Boolean;
Var
a, h,X,y: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
Begin
if(not(LoggedIn))then Exit;
Result:=False;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.37, 2.08);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2655692, MSX1, MSY1, MSX2, MSY2, 14);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
HumanMMouse(X, Y, 5, 5);
if(WaitUpTextMulti(['emon','spirit', 'rit', 'ee'], RandomRange(150,200)))then
begin
ClickMouse2(False);
If Waitoptionmulti(['spirit', 'rit', 'ee'], 750) then
begin
WaitInvCountInc(4000);
Wait(RandomRange(2000,2200));
BankStuff;
result:=true;
Exit;
end;
end;
end;
End;
function Light(Slot:Integer):Boolean;
Var
x,y:integer;
begin
FindDTM(MLog,X,Y,MiX1,Miy1,Mix2,Miy2);
HumanMMouse(X,Y,4,4);
ClickMOuse2(False);
if WaitOptionMulti(['ight','Lig','Li','L'],750) then
Begin
Result := True;
if WaitInvCountDec(6000) then
WaitXPIncrease(4000);
MarkTime(Ashes);
End;
end;
Function FindFire: Boolean;
Var
X,y: Integer;
Begin
if(not(LoggedIn))then Exit;
Result:=False;
If FindDTM(MLog,X,Y,MIX1,MIy1,MIX2,MIY2) Then
Begin
HumanMouse(X,Y,4,4);
If WaitFindDTMEX(Log,X,Y,295,376,414,464,100,5000) Then
Begin
HumanMouse(X,Y,4,4);
Repeat
Wait(100);
Until Not FindDTM(Log,X,Y,295,376,414,464);
Result:=True;
End;
End;
End;
Procedure Waiting;
Var
T,Inv1: Integer;
SpiritSuccess: Boolean;
begin
SpiritSuccess:=True;
MarkTime(waittime);
Inv1:=InvCount;
Repeat
Wait(RandomRange(600,700));
If FindBlackChatMessage('rang') Then
Begin
ExamineInv;
Exit;
End;
If Inv1>InvCount Then
Begin
Inv1:=InvCount;
MarkTime(WaitTime);
End;
If (TimeFromMark(Ashes)>120000) And (CountDots('red')=1) Then
Exit;
If (FindChatBoxText('emerges',8,397249)) And (InvCount<20) Then
Begin
Marktime(T);
Repeat
Wait(100);
If TimeFromMark(T)>6000 Then
Begin
SpiritSuccess:=False;
Break;
End;
Until GetSpirit;
If SpiritSuccess Then
If FindFire Then
Marktime(waittime);
SpiritSuccess:=True;
End;
Until (CountItems('DTM',Mlog,[])=0) or (TimeFromMark(waittime)>8000);
end;
procedure Mainloop;
begin
Randoms;
If CountItems('DTM',Mlog,[])=0 Then
Begin
If InvCount>1 Then
BankStuff;
GetLogs(26,True);
End;
If FindFire Then
waiting;
If CountItems('DTM',Mlog,[])=0 Then
begin
Proggy;
Exit;
end;
Randoms;
Light(27);
end;
procedure ScriptStart;
var
StartInv,NTW:Integer;
begin
ClickNorth(SRL_ANGLE_HIGH);
MLog := DTMFromString('mbQAAAHicY2VgYMhiYmAoBuJkIC6H0jqMDA yqQKwNxAZAbALEkVY8DMFm3AxlwSoM0da8YJofqB8dM2LBYAAA 71YHDw==');
Log:= DTMFromString('mbQAAAHicY2VgYIhhZGBIAuJaIHYD4kAgXg jEq4F4DhDPBeI1QJzgoQXGIT6ODMHeDgyt2VYM/ED96JgRCwYDALTwCfA=');
FirstBank:=False;
StartInv := InvCount;
NTW := 28 - StartInv;
if StartInv < 2 then
begin
firstbank:=true;
GetLogs(NTW,True);
end else
Burned:=Countitems('dtm',mlog,[]);
Light(10);
MarkTime(Ashes);
end;
procedure frees;
begin
freedtm(log);
freedtm(mlog);
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(18,20);
writeLn('Changes in 1.7: ');
writeln('Will no longer light the whole row');
writeLn('Wont be a retard anymore. Hopefully.');
Addonterminate('frees');
Wait(1500);
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
StoreUptext;
ScriptStart;
repeat
Mainloop;
until not loggedin;
end.
Most things I added that might not make sense were necessary (like maybe a random wait here and there), but feel free to ask about any of it! Again this will probably work only on maple logs, unless the dtm manages to recognize other log types.
PS the dtm that is just 'log' is for the use with bonfire interface.
============S1NFiremaker===========
Time Running: 11 Minutes and 32 Seconds
XP Earned: 31423
XP Per Hour: 163708
Logs Burned: 188
Burned Per Hour: 979
===================================
===================================
Zerkeronrs7
05-17-2012, 01:02 PM
============S1NFiremaker===========
Time Running: 1 Hours, 11 Minutes and 35 Seconds
XP Earned: 147935
XP Per Hour: 124025
Logs Burned: 947
Burned Per Hour: 793
===================================
===================================
That's using ashaman's version. Logs hour isn't hat fast because the butler doesn't have more logs ready once you've finished your inventory. You have to wait wait for him to go and get some before you cans tart burning the logs again. Seems quite stable and is still running now though, well done man :)
Ashaman88
05-17-2012, 01:07 PM
============S1NFiremaker===========
Time Running: 1 Hours, 11 Minutes and 35 Seconds
XP Earned: 147935
XP Per Hour: 124025
Logs Burned: 947
Burned Per Hour: 793
===================================
===================================
That's using ashaman's version. Logs hour isn't hat fast because the butler doesn't have more logs ready once you've finished your inventory. You have to wait wait for him to go and get some before you cans tart burning the logs again. Seems quite stable and is still running now though, well done man :)
I did find a problem where if the orb gives you a gem, when you left click on it, it will bring up the cut interface instead of 'use' so it won't ever go to the bank. Probably will need to have it either detect the uptext for gems or just have all the items to be banked right clicked and choose optioned instead.
It looks like it's pretty much the same xp/hr as the line of logs...except i guess you get some charms and what not now.
Zerkeronrs7
05-17-2012, 02:25 PM
I did find a problem where if the orb gives you a gem, when you left click on it, it will bring up the cut interface instead of 'use' so it won't ever go to the bank. Probably will need to have it either detect the uptext for gems or just have all the items to be banked right clicked and choose optioned instead.
It looks like it's pretty much the same xp/hr as the line of logs...except i guess you get some charms and what not now.
I haven't come across that problem yet, so i'm guessing that it's flawless apart from that :)
And yea the xp/hour is the same pretty much, i don't know why i cared about the log/hour because you burn them slower anyway :P
EDIT: Quick proggy before bed with ashaman's version:
=============v1.7==================
============S1NFiremaker===========
Time Running: 4 Hours, 34 Minutes and 29 Seconds
XP Earned: 566018
XP Per Hour: 123734
Logs Burned: 3611
Burned Per Hour: 789
===================================
===================================
supamans
05-18-2012, 11:51 AM
how do i remove finding the spirit from that script you posted ashaman88 without messing the whole thing up? i attempted it but it was making fires like before bonfires
supamans
05-18-2012, 12:09 PM
nevermind i fixed it.
Ashaman88
05-18-2012, 12:11 PM
nevermind i fixed it.
Yeah just take out that part in the waiting procedure where it says the findchatboxtext stuff. Sin when you do finish doing the bonfire version check for the spirits should probably be optional per the user.
Awesome job Asha, but it's burning fewer logs than usual? Is that normal?
Zerkeronrs7
05-18-2012, 02:02 PM
Awesome job Asha, but it's burning fewer logs than usual? Is that normal?
Yes it is because you burn the logs more slowly than lighting them, and un noting the logs is slightly slower but more stable i feel :)
pulse0
05-18-2012, 02:13 PM
got 99 fm with your script last night! thanks alot. was running flawless. only time stopped was after the 6hr game update crap.
THANKS :)http://i1179.photobucket.com/albums/x400/pulse0/max%20cape%20photos/99FM.png
Ezio Auditore da Firenze
05-20-2012, 07:45 AM
Am I the only one here that gets randoms... I thought you couldn't get them in your house! Came back to my comp n i was on arravs island that pirate noob!
Zerkeronrs7
05-20-2012, 08:29 AM
Am I the only one here that gets randoms... I thought you couldn't get them in your house! Came back to my comp n i was on arravs island that pirate noob!
You have to be in building mode in your poh to not get any randoms :)
Ezio Auditore da Firenze
05-20-2012, 08:32 AM
You have to be in building mode in your poh to not get any randoms :)
Oh boy! :duh: thanks mate! =]
Edit: Added report. This was with Ashaman's modified version! (thanks mate), & thanks Sin :).
=============v1.7==================
============S1NFiremaker===========
Time Running: 1 Hours, 21 Minutes and 44 Seconds
XP Earned: 182103
XP Per Hour: 133708
Logs Burned: 1098
Burned Per Hour: 806
===================================
===================================
Chris Reborn
05-20-2012, 02:33 PM
thanks sin just got 99 fm with your script v1.7 would of had a screeny but i got it overnight. thanks man.
Chris Reborn
05-20-2012, 05:33 PM
you can add me to the OP if you want.
I will! As soon as I get on a computer haha!
maarc1
05-22-2012, 01:31 PM
Got a problem with Harrys version where it gets stuck at the point where you need to pay your demon butler.
I also get this weird prog:
===================================
============S1NFiremaker===========
Time Running: 2 Minutes and 44 Seconds
XP Earned: 20188309
XP/h: -3059378
===================================
===================================
imalegitbotter
05-30-2012, 08:06 AM
I let it run, and it just stands there after doing one or two inventorys, what am i doin wrong? D:
digitalninja
05-31-2012, 09:43 PM
Hi Shay,
I updated to the 1.8 and for some reason it always stalls out after paying the butler. It clicks on the logs after paying but doesnt un-cert via bulter ...
DN
rowan131
06-02-2012, 09:41 PM
Hey bot looks great but im having problems. Sometimes it wont click on the butler, sometimes it wont pay him, i have tryed 1.7 and 1.8 any ideas how i can fix these errors? Also my colors are green, brown and grey.
same problem as rowan, plus sometime it doesnt recognise the fire on the floor and tried to light fires ontop of already lit fires
Threshold
06-17-2012, 06:12 AM
How can I get Ashaman's to work with yew logs? Just keeps clicking the notes on the butler.
Sh!nE
06-18-2012, 08:05 PM
I don't get it why it burns the old way, when the bonfires gives more xp.
Luke L
06-19-2012, 03:40 AM
I don't get it why it burns the old way, when the bonfires gives more xp.
Because, even though it gives more exp, it puts them on the fire slower then you can light them, so they both result in about the same exp per hour anyways, so he hasn't bothered to update,
BUT if you do wish to have it do the bonfire method to use less logs overall, why not use ashmans updated version that does so, and can be found within the last few pages of this thread?
Hope I helped =)!
Edit: well now i've finally got around to running this bot. I tried ashmans version, but it isn't adding to bonfire, it just keeps making a new fire, but doing them extremely slow o.o. I'll be trying sins version in a second. I sure hope it helps, so that I'll be able to bot something while I sleep :) , (since i only babysit waterfiends, and they are bannable)
Sin's version is working great for me. Ashmans would like hover over the "add to bonfire" but then just go and light the figher after a sec, and so it had to do the "lighting fire" animation every time, making it slow (where as with sins, you light so fast inbetween, you just step off the fire over and over as you make them). Oh well, i'm happy :)! Can't wait to wake up and see how far I've got x)
jkj1991
06-29-2012, 11:02 AM
I hacked up bonfire support in this because I am much too lazy to write my own. I removed a lot of stuff I didn't like as well, and made everything a bit more safe.
Reply if you want me to remove this. I'd normally post just the parts I changed, but I changed a lot in it so I don't know what exactly I did. Don't think you'll care since you can't update it at the moment anyways. Works pretty stable and gives me ~150k exp/hr doing maple logs.
I greatly appreciate the script you hacked and it works wonders, Only issue I see is that it doesn't pay the butler and kind of just sits there, I have looked into it and don't see why cause it clearly states that the function to pay him is there maybe it's a problem on my end... Anyways PM me if you can help me out in any way thanks Harry much love - jj
dunn348
07-08-2012, 05:21 PM
=====================v1.8======================
==================S1NFiremaker=================
Time Running: 5 Hours, 21 Minutes and 58 Seconds
XP Earned: 0
XP Per Hour: 0
Logs Burned: 2939
Burned Per Hour: 547
===============================================
===============================================
Just a proggy great script man:garfield:
Luke L
07-08-2012, 07:36 PM
=====================v1.8======================
==================S1NFiremaker=================
Time Running: 5 Hours, 21 Minutes and 58 Seconds
XP Earned: 0
XP Per Hour: 0
Logs Burned: 2939
Burned Per Hour: 547
===============================================
===============================================
Just a proggy great script man:garfield:
Nice luckyyy :). Idk how you guys get those profiles, I get at most 2 hours, but usually it breaks in less than an hour.
lolskilla
09-01-2012, 12:51 AM
ash; your verssion makes them in a line, doesnt do bonfires :(
harrys version is working but for some reson it adds logs by right clicking the logs instead of just adding logs and waiting. it tries to readd maybe every4 logs. doesnt touch the fire elemntals either
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.