SCAR Code:
program New;
{.include SRL/SRL.scar}
var HowLoads: integer;
const
WhatBar = 'Bronze';
WhatSmith = 'Dagger';
LoadsDo = 1;
procedure OpenBankDeposit(FirstSlot, EndSlot: integer);
var
x, y: integer;
begin
repeat
FindObjCustom(x, y, ['Use', 'B', 'U'], [1390918, 3223861], 4);
Mouse(x,y,1,1,false);
ChooseOption('quic');
Wait(1500+random(125));
until(BankScreen);
if BankScreen then
begin
Deposit(FirstSlot, EndSlot, 1);
end;
CloseBank;
end;
procedure GoToBank;
var x, y, rx, ry: integer;
begin
SymbolAccuracy := 0.5;
FindSymbol(x, y, 'bank');
Mouse(x, y, 1, 1, true);
Flag;
OpenBankDeposit(2, 28);
FindSymbol(rx, ry, 'anvil');
Mouse(rx, ry, 1, 1, true);
Flag;
end;
procedure DoSmith;
var cx, cy, DTM, dx, dy: integer;
begin
case WhatBar of
'Bronze': begin
DTM := DTMFromString('78DA63E46661606065624006767A92609A11C' +
'A6704A9114555039385ABF9C7CCC0C04F408D38D01C6E026A3881' +
'6A18F1AB0100FB81021A');
FindDTM(DTM, cx, cy, 615, 228, 603, 228);
Mouse(cx, cy, 1, 1, true);
FindObj(dx, dy, 'Anvil', 3223861, 4);
Mouse(dx, dy, 1, 1, true);
Wait(7000+random(200));
case WhatSmith of
'Dagger': begin
Mouse(49, 82, 1, 1, false);
ChooseOption('All');
GoToBank;
end;
'Sword': begin
Mouse(171, 133, 1, 1, false);
ChooseOption('All');
GoToBank;
end;
end;
end;
begin
ActivateClient;
Wait(1000);
repeat
DoSmith;
HowLoads := HowLoads+1;
until(HowLoads = LoadsDo);
end.