Var LivePercent:Integer;
   ReportTimeBeforezeroInt:Integer;
   ReportTimeBeforezeroBool:Boolean;
   VremStr:String;
Procedure OnMissionStart;
begin
   Actions.HouseAllow(0,1,false);//Кузница недоступна
   Actions.HouseAllow(0,2,false);//Оружейная Кузница недоступна
   Actions.HouseAllow(0,3,false);//Угольная шахта недоступна
   Actions.HouseAllow(0,4,false);//Железная Шахта недоступна
   Actions.HouseAllow(0,5,false);//Золотая Шахта недоступна
   Actions.HouseAllow(0,6,false);//Хижина Рыбака недоступна
   Actions.HouseAllow(0,10,false);//Кузница доспехов недоступна
   Actions.HouseAllow(0,12,false);//Конюшняя недоступна
   Actions.HouseAllow(0,15,false);//Металлургия недоступна
   Actions.HouseAllow(0,19,false);//оружейня недоступна
   Actions.HouseAllow(0,20,false);//Мастерская Арсенала недостуна
   Actions.HouseAllow(0,21,false);//Казарма недоступна
   Actions.HouseAllow(0,23,false);//Мастерская Машин недоступна
   Actions.HouseAllow(0,25,false);//Дубильня недоступна
   Actions.HouseAllow(0,29,false);//Рынок недоступна
   LivePercent:=100;
   ReportTimeBeforezeroInt:=3000;
   ReportTimeBeforezeroBool:=False;
   VremStr:='0';
End;

procedure OnHouseBuilt(aHouseID: Integer);
begin
   Actions.HouseAllow(0,States.HouseType(aHouseID),false);
end;

Procedure OnUnitDied(aUnitID: Integer; aKillerIndex: Integer);
begin
   If States.UnitOwner(aUnitID)=0 then begin
     VremStr:='<$1>'+ ' <$'+IntToStr(States.UnitType(aUnitID)+2)+'>'+'. <$40> <$'+IntToStr(aKillerIndex+42)+'>';
     ReportTimeBeforezeroInt:=3000;
  ReportTimeBeforezeroBool:=True;
     LivePercent:=LivePercent-1;
  If LivePercent=99 then
       Actions.ShowMsg(0, '<$45>');
   end;
end;
    
procedure OnTick;
begin
   if States.GameTime = 120 then begin
     Actions.ShowMsg(0, '<$0>');
     Actions.PlayWAV(0, 'start1', 1.0);
   end;
   If ReportTimeBeforezeroBool then
     If ReportTimeBeforezeroInt>0 then
    ReportTimeBeforezeroInt:=ReportTimeBeforezeroInt-1  
    else begin
      ReportTimeBeforezeroBool:=False;
      ReportTimeBeforezeroInt:=3000;
    end
  else
       VremStr:='0';
   Actions.OverlayTextSet(0,VremStr);
   Actions.OverlayTextAppend(0,'|<$46> '+IntToStr(LivePercent)+' <$47>');
end;