var      
         PlayerHasNoGoldMine : array[0..7] of Boolean;
         PlayerNeedToShowMessage : array[0..7] of Boolean;
         DamagePeriod : Integer //Период с которым будет наноситься дамаг, если 1 то каждый тик, 2 каждые два тика и тд

procedure UpdateGoldMineFlags;
var player : integer;
begin
for player:= 0 to 7 do
begin
         if States.StatHouseTypeCount(player, 5) = 0 then
             if not PlayerHasNoGoldMine  [player]then
                 PlayerNeedToShowMessage:= true;
             PlayerHasNoGoldMine [player]:= true
         else
             PlayerHasNoGoldMine [player]:= false;
end
end;

procedure DamageAllBuildings(aPlayerID : Itenger, aDamageAmount : Integer);
var      
         I : Integer;
         HouseArray : array of Integer;
begin
HouseArray := States.PlayerGetAllHouses(aPlayerID);
for I:=0 to Length(HouseArray)-1 do
         Actions.HouseAddDamage(HouseArray[i], aDamageAmount);
end;

procedure OnMissionStart;
var I : Integer;
begin
DamagePeriod = 8;
UpdateGoldMineFlags();
for I:=0 to 7 do
         PlayerNeedToShowMeassage:=false;
end;

procedure OnHouseDestroyed(aHouseID: Integer; aDestroyerIndex: Integer);
begin
[size=8]UpdateGoldMineFlags();[/size]         
end;

procedure OnTick;
begin
if PlayerHasNoGoldMine[НужныйТебеИгрок] and (States.GameTime mod DamagePeriod = 0) then
         DamageAllBuildings(НужныйТебеИгрок, Урон);
if PlayerNeedToShowMessage[НужныйТебеИгрок] then
begin
         Actions.ShowMsg(НужныйТебеИгрок, НужноеТебеСообщение);
         PlayerNeedToShowMessage[НужныйТебеИгрок] := false;
end;
end;[/i]

tates.StatHouseTypeCount(player, 5) = 0