SCAR Code:
var
X3, Y3 : Integer;
function FindLightChat : Boolean;
begin
If(Not(LoggedIn)) then NextPlayer (False);
begin
If(FindDTM(TindB, X3,Y3, 562, 208, 731, 459)) then
begin
Writeln(' Found Tinderbox, Everything Looks Good ');
begin
if(InChatMulti('ou can', 't ligh', 't a fir'))then
begin
HighestAngle;
wait(10+random(10));
Writeln(' Could Not light the fire there, moving player ');
MouseFindFlag(MMCX, MMCY, 15, -15);
Flag;
end;
end;
end;
end;
end;
Var
X2, Y2 : Integer;
procedure LightAndMakeFire;
begin
If(Not(LoggedIn)) then Exit;
If (InventoryCount = 28) or (InvFull) then
begin
repeat
If (FindDTM(TindB, X2,Y2, 562, 208, 731, 459)) then
begin
Mouse(X2, Y2, 5, 5, True);
Wait(100+random(100));
FindLightChat;
wait(10);
If (FindDTM(RLog, X2, Y2, 562, 208, 731, 459)) then
begin
Mouse(X2, Y2, 5, 5, True);
FindLightChat;
Wait(1000+random(100));
LightWait;
end;
end;
until (Not(FindDTM(RLog, X2, Y2, 562, 208, 731, 459)))
Loads:= Loads + 1;
end;
end;