Code:
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/firemaking.scar}
const
waittime= 2000;
var
matchesdtm,x,y,logDTM,BankersDTM:integer;
procedure firemaker;
forward;
procedure loaddtms;
begin
disguise('loading dtms');
BankersDTM := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
'76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
'81150D3039471C1AF060092960C0C');
logDTM := DTMFromString('78DA639CCAC4C0F0840105D4255A313C04D28' +
'C40FC1F0818A703D5BC6740038C4824909E0854F391809A3E22CC' +
'E902AA794B404D3B50CD0B22D43C25C2AEC704D47403D53C20A0A' +
'607A8E62E0135A070BE4340CD2CA09A5B04D4CC03AAB94940CD62' +
'CC38C550331FA8E60D116EA642BC030033D71F50');
MatchesDTM := DTMFromString('78DA637461626078CA8002DC6C39188C80342' +
'310FF0702463FA09A270C6880118904D2CE40353708A8B102AAB9' +
'43408D2950CD23026ACC816A5E1350630954F39E801A1BA09A8F4' +
'4F8EB030135DE40356F09A8F121AC0600502A11AE');
end;
procedure errortime;
var
i: integer;
firecolors: array [0..3] of integer;
begin
disguise('error fixing')
firecolors[0]:= 2058645;
firecolors[1]:= 8048887;
firecolors[2]:= 4759509;
firecolors[3]:= 5155538;
if (not LoggedIn) then Exit;
for i := 0 to 3 do
if FindObjTPA(x, y, firecolors[i], 10, 2, 15, 25, 10, ['walk']) then
begin
Mouse(x, y, 4, 4, True);
flag;
firemaker;
end;
end;
procedure firemaker;
var
m:integer;
begin
disguise('fire time');
gametab(4);
repeat
If FindDTM(MatchesDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,true);
end;
wait(100 + random(50));
If FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,true);
end;
begin
MarkTime(M);
while (TimeFromMark(M) < WaitTime) do
Cantlightcheck;
if CantLightCheck = true then
begin
errortime;
end;
end;
Until not FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2)
end;
function Banking: Boolean;
begin
disguise('getting logs');
MakeCompass('N')
Wait (300 + random(160));
OpenBankQuiet('veb');
if (PinScreen) then
InPin('Pin');
Withdraw(1,1,28);
Wait(150 + random (278));
closebank;
radialwalk(findvarrockroadcolor,0,90,100,1,1);
flag;
end;
procedure getinbank;
begin
disguise('in to the bank')
if DTMRotated(BankersDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
Mouse(X-2,Y+5, 0, 0, True);
Flag;
end;
begin
setupsrl;
setupfiremaking;
activateclient;
loaddtms;
{getinbank;
banking;}
firemaker;
end.