var Integer fi cardinal begin ignoreReset findDistance 100 while FindT

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
var i : Integer;
fi : cardinal;
begin
ignoreReset();
findDistance := 100;
//while FindType($191, Ground) <> 0 do
while FindTypeEx($0191, $FFFF, ground, false) <> 0 do
begin
AddToSystemJournal('0x' + intToHex(finditem, 8));
ClickOnObject(finditem);
ignore(findItem);
end;
//while FindType($190, Ground) <> 0 do
while FindTypeEx($0190, $FFFF, ground, false) <> 0 do
begin
AddToSystemJournal('0x' + intToHex(finditem, 8));
ClickOnObject(finditem);
ignore(findItem);
end;
end.