Its not exactly the way how it should be done, but i think this should work...(unless theres something wrong with the DTM)
Code:
program BitMapTEST;
{.Include srl/srl.scar}
var
x, y, CopperOre : Integer;
Procedure LoadDTMs;
Begin
CopperOre := DTMFromString('78DA639CC1C4C0F0840105DCA8B5645000D28' +
'C40FC1F0818A703D5BC405573B2D4144C3342F98CB330D55CADB1' +
'4055330DA8E601AA9A3529BAA86AA602D53C4255D317A48AAA662' +
'E50CD535435070B8C51D40000CC261551');
End;
Procedure FindTheOre;
Begin
If FindDTM(x, y, CopperOre, 550, 202, 765, 502) Then
Begin
ClearDeBug;
Writeln('Found the Copper Ore.');
end;
If not(FindDTM(x, y, CopperOre, 550, 202, 765, 502)) Then
begin
ClearDeBug;
Writeln('Make a new DTM Pl0x');
end;
End;
begin
LoadDTMs;
FindTheOre;
end.