AshamanBonfire
Procedure Mainloop;
Begin
FindNormalRandoms;
If CheckInventory Then
If Shantay Then
Begin
If WaitFunc(@BankShantay,100,20000) Then
If Not WaitInvCountInc(10000) Then
Exit Else
LogCount:=LogCount+(CountLogs);
End Else
If WaitFunc(@FindButler,1,10000) Then
If Not WaitInvCountInc(10000) Then
Exit Else
LogCount:=LogCount+(CountLogs);
If FindFire Then
Waiting;
FindNormalRandoms;
If CheckInventory Then
ProgressReport;
If TimeFromMark(TimeOut)>600000 Then
Begin
Writeln('Something went wrong, shutting down');
If Not TimeoutFS Then
Exit;
Logout;
TerminateScript;
End;
If TimeFromMark(TimeOut)>300000 Then
Begin
Writeln('Something went wrong, resetting stuff');
ClickNorth(SRL_ANGLE_HIGH);
BankShantay;
End;
If Shantay Then
Begin
If Not WaitLoggedIn(1000) Then
Begin
LoginPlayer;
Wait(RandomRange(4000,6000));
HumanMouseBox(71,533-50,100,547-50);
ClickMouse2(True);
ClickNorth(SRL_ANGLE_HIGH);
MarkTime(Timeout);
FindNormalRandoms;
End;
If TakeBreaks Then
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
End;
Wait(Random(100));
End;
Flight's Barbarian Fly-Fisher
Procedure MasterLoop;
begin
if not LoggedIn_F then Exit;
GetStage;
if DoBanking then
begin
Case Stage of
0: StartFishing;
1:
if UseLodestone then
TeleEdgeville
else
WalkTo('Bank');
2:
begin
if not HandleBank then
begin
if UseLodestone then
TeleEdgeville
else
WalkTo('Bank');
HandleBank;
end;
end;
3:
WalkTo('Spot');
end;
end else
Case Stage of
0,1: StartFishing;
end;
end;
The thing is, I run Bonfire script without any errors for unlimited time (it never crashed yet, I run it for 5-10 hours and then stop to do farm runs), but for him it just executes without any error message or anything.