I will make this simple.
Script:
SCAR Code:
Program AutoFiremaker;
{.include SRL/SRL.Scar}
Var
x, y, Tinderbox, Willow : Integer;
Const
LogType = 'Willow'; //Choose the type of log you wish to burn.
//Valid Options: Normal, Oak, Willow, Maple, Yew
LogBurn = 100; //Choose the amount of logs you wish to burn.
//Valid Options: Any number other than zero.
PinNumber = ''; //Enter your pin number for banking.
//Valid Options: Four digit number or leave blank if no pin.
Procedure DeclareDTMs;
Begin
Tinderbox := DTMFromString('78DA6314616060006124E06EC701166204E2F' +
'F40C0280764B033A001462412487300095E026A7880843C013520' +
'7929FC6A00FCE40572');
Willow := DTMFromString('78DA6314656060106140016EF69260214620F' +
'E0F048CB2400607031A60442281341790E021A0861748C81350A3' +
'0424A4F0AB0100093E0589');
End;
Procedure Banking;
Var
FailedBank : Integer;
Begin
Repeat
Wait(250 + Random(250));
OpenBankFast('Vbw');
Inc(FailedBank);
Wait(250 + Random(250));
Until PinScreen or BankScreen or (FailedBank = 3);
If FailedBank = 3 Then
Begin
WriteLn('Failed to find bank.');
LogOut;
Exit;
End;
If PinScreen Then
Begin
Wait(250 + Random(250));
FailedBank := 0;
InPin(PinNumber);
Wait(250 + Random(250));
End;
If BankScreen Then
Begin
Wait(250 + Random(250));
FailedBank := 0;
If FindDTM(Willow, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Wait(250 + Random(250));
Mouse(x, y, 5, 5, False);
Wait(250 + Random(250));
ChooseOption('All');
Wait(250 + Random(250));
CloseBank;
Wait(250 + Random(250));
End Else
Begin
CloseBank;
WriteLn('Failed to find bank.');
LogOut;
Exit;
End;
End;
End;
Procedure WalkToBank;
Begin
If FindSymbol(x, y, 'Bank') Then
Begin
Wait(250 + Random(250));
Mouse(x, y, 5, 5, True);
Wait(250 + Random(250));
Banking;
End Else
Begin
WriteLn('Failed to find bank.');
LogOut;
Exit;
End;
End;
Procedure Burning;
Begin
DeclareDTMs;
If FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Wait(250 + Random(250));
Mouse(x, y, 5, 5, True);
Wait(250 + Random(250));
If FindDTM(LogType, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Wait(250 + Random(250));
Mouse(x, y, 5, 5, True);
Wait(250 + Random(250));
Dec(LogBurn);
End Else
Begin
WriteLn('Faild to find tinderbox.');
LogOut;
Exit;
End;
End;
Procedure WalkToRoad;
Begin
If FindSymbol(x, y, 'Bank') Then
Begin
Wait(250 + Random(250));
Mouse(x+60, y+35, 5, 5, True);
Wait(250 + Random(250));
End Else
Begin
WriteLn('Failed to walk to the road.');
LogOut;
Exit;
End;
End;
Procedure FiremakingLoop;
Begin
MakeCompass('N');
SetAngle(True);
Banking;
WalkToRoad;
Burning;
WalkToBank;
End;
Begin
SetupSRL;
ActivateClient;
repeat
FiremakingLoop;
Until (False);
End.
Problem:
Code:
Line 95: [Error] (16852:51): Type mismatch in script
Lines 90 - 100:
SCAR Code:
If FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Wait(250 + Random(250));
Mouse(x, y, 5, 5, True);
Wait(250 + Random(250));
If FindDTM(LogType, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Wait(250 + Random(250));
Mouse(x, y, 5, 5, True);
Wait(250 + Random(250));
Dec(LogBurn);