SCAR Code:
program New;
{.include srl/srl.scar}
var
Clay, SoftClay: integer;
procedure LoadDtms;
begin
Clay := DTMFromString('78DA63CC62626078C18002167646331801694' +
'620FE0F048CB94035F719D000231209A44B806A9E1250930D54F3' +
'86809A64A09AE7F8D50000123D0C64');
SoftClay := DTMFromString('78DA637464626078C28002B20378198C80342' +
'310FF070246909ADB0C6880118904D2DE40352F09A87101AA794F' +
'408D0D116ACC31DD8CAE0600F0460C02');
Writeln('dtm''s loaded.');
end;
procedure FreeDtms;
begin
FreeDTM(Clay);
FreeDTM(SoftClay);
Writeln('dtm''s free''d.');
end;
procedure FindTheDTM(soft: boolean);
var
TheDTM, x, y: integer;
prefix: string;
begin
case soft of
true: begin
TheDTM := SoftClay;
prefix := 'soft';
end;
false: begin
TheDTM := Clay;
prefix := '';
end;
end;
if FindDTM(TheDTM, x, y, mix1, miy1, mix2, miy2) then
begin
Writeln('Found '+prefix+'clay dtm at ('+inttostr(x)+', '+inttostr(y)+').');
MMouse(x, y, 0, 0);
end;
end;
begin
setupsrl;
LoadDtms;
FindTheDTM(true);
Wait(2000);
FindTheDTM(false);
FreeDtms;
end.