SCAR Code:
program New;
{.include srl/srl.scar}
var
YourDTM : Integer;
procedure LoadDTMs;
begin
YourDTM := DTMFromString('78DA63FCC4C0C010CB8002EAE7EE04D38C503' +
'EA33C90351155CDFFFFFF51D5CC00B2AA09A80906B23C51D5E4E6' +
'E6A2AA390B24AC50D55CB9FD1655CD5E205183AA86A18101450D0' +
'08CE31230');
end;
procedure CheckForDTM;
var
AmountOfDTM : Integer;
begin
AmountOfDTM:= CountItemsIn('inv', 'dtm', YourDTM, []);
Writeln(IntToStr(AmountOfDTM)+' DTM`s found!');
Disguise(IntToStr(AmountOfDTM)+' DTM`s found!');
end;
procedure SetSelfWindowState(State:TWindowState); //Yakman
begin
GetSelf.WindowState :=State;
end;
procedure SafeSetSelfWindowState(State:TWindowState); //Yakman
var
t: TVariantArray;
begin
t := [state];
ThreadSafeCall('SetSelfWindowState', t);
end;
procedure Minimize; //Yakman
begin
SafeSetSelfWindowState(wsMinimized);
end;
procedure Maximize; //Yakman
begin
SafeSetSelfWindowState(wsNormal);
end;
begin
SetupSrl;
LoadDTMs;
Minimize;
CheckForDTM;
Maximize;
end.

~shut