SCAR Code:
Function FindFallyBank: Boolean;
var
BankDTM: integer;
BP: TPoint;
begin
BankDTM := DTMFromString('78DA632C66626008654001FFFFFF67D061646' +
'06084B0FF33E602D5C442E418A1F8CF1F26381F4C1712A1A694B0' +
'1A0089E9105D');
try
if dtmrotated(BankDTM,BP.x,BP.y,MMx1,MMy1,MMx2,MMy2) then
begin
if distance(MMcx,MMcy,BP.x,BP.y) > 12 then
Mouse(BP.x,BP.y,0,0,True);
wait(200+random(300));
FFlag(Random(3));
OpenBankFast('feb');
if PinScreen then Inpin(Players[currentplayer].pin);
wait(300 + random(300));
FixBank;
Result := True;
FreeDTM(BankDTM);
end;
except Freedtm(BankDTM); end;
end;
"except" is used for to do an action (or just something like a writeln) when the previous action has failed.
SCAR Code:
Function FindFallyBank: Boolean;
var
BankDTM: integer;
BP: TPoint;
begin
BankDTM := DTMFromString('78DA632C66626008654001FFFFFF67D061646' +
'06084B0FF33E602D5C442E418A1F8CF1F26381F4C1712A1A694B0' +
'1A0089E9105D');
try
if dtmrotated(BankDTM,BP.x,BP.y,MMx1,MMy1,MMx2,MMy2) then
begin
if distance(MMcx,MMcy,BP.x,BP.y) > 12 then
Mouse(BP.x,BP.y,0,0,True);
wait(200+random(300));
FFlag(Random(3));
OpenBankFast('feb');
if PinScreen then Inpin(Players[currentplayer].pin);
wait(300 + random(300));
FixBank;
Result := True;
//FreeDTM(BankDTM);we don't want to free it twice, eh? ;)
end;
except Writeln('Fally bank NOT found?!');
finally Freedtm(BankDTM);
end;
end;