SCAR Code:
program new;
var
KingWait,KingReady,X,Y : Integer;
procedure MainLoop;
begin
KingWait := DTMFromString('78DA635461606090654001AB67410418A17C4' +
'62120C1CA8015C0D518030916026A1C81842AAA1C8FB03CAA1A90' +
'19CA04CC1105124E04D49803093B5439694976543520BF3BE0370' +
'700E7020438');
if FindDTM(KingWait, X, Y, 1, 1, 1, 1) then
begin
writeln('KingWait');
repeat until
KingReady := DTMFromString('78DA633464606090654001AB67410418A17C4' +
'60520C1CA8015C0D538020916026A12818432AADC925E3D5435CC' +
'40420D55CDCC666D54358A40C206550D3F3F2BAA1A5B20618BAA4' +
'64E8E1B450D0089AE06BD');
if FindDTM(KingReady, X, Y, 1, 1, 1, 1) then
begin
writeln('KingReady');
end;
end;
end;
begin
ClearDebug;
MainLoop;
end.
Type mismatch error, but I don't know what that means, or how I can fix it. Any help? Thanks.