Code: Select all
Procedure DangerCheak;
var
Monster:array[1..4] of Cardinal;
i:Integer;
begin
Monster[1] := $01h4;
Monster[2] := $01F1;
Monster[3] := $00E2;
Monster[4] := $000C;
Ignore(Self);
for i:=1 to 4 do
begin
Finddistance := 14;
FindType(Monster[i],ground);
if FindCount>0 then
Attack(FindItem);
Healing;
end;
end;