Procedure DropLogs;
var
X, Y, LogDTM, I:Integer;
SlotBox:TBox;
LogPattern:TIntegerArray;
Begin
LogDTM := DTMFromString('mggAAAHicY2NgYHBhYmAwBmJbIPYG4kAgtg HiJ0C550D8HohvAfFLIL4LxB5mCgyxjrIMsW6aDG6m8gzeFooM Ec7qDP8ZsANGHBgCAPVgDCM=');
LogPattern:=[1,5,8,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19, 23,4,8,12,16,20,24,28];
For I:=0 To 27 Do
Begin
Slotbox:=InvBox(LogPattern [I]);
If FindDTM(LogDTM,X,Y,SlotBox.X1,SlotBox.Y1, Slotbox.X2, Slotbox.Y2) Then
Begin
MouseItem(LogPattern[I],False):
ChooseOption('Dro');
End;
End;
End;
[Error] (95:38): Type mismatch at line 94
Compiling failed.



Reply With Quote










