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;
