every 0$1 trigger FilterAllUnits([[f_side,6],[f_type,unit_human]])=0 do
Begin
AddMedal('zdrowi',1);
SaveVariable(GetLives(Mart),'Mart_live');
SaveVariable(GetLives(Sergiej),'Sergiej_live');
SaveVariable(GetLives(Frank),'Frank_live');
SaveCharacters(mart,'mart');
SaveCharacters(frank,'frank');
SaveCharacters(sergiej,'sergiej');
SaveCharacters(geral,'geral');
SaveCharacters(lars,'Lars');
SaveCharacters(Kurt,'Kurt');
SaveCharacters(Nitek,'Nitek');
SaveCharacters(Anarchy,'Anarchy');
SaveCharacters(Mefisto,'Mefisto');
SaveCharacters(cast,'Castiel');
SaveCharacters(ramzes,'Ramzes');
SaveCharacters(smirnof,'Dr.Smirnof');
SaveCharacters(Mustaf,'Mustaf');
SaveCharacters(Protektor,'Protektor');
SaveCharacters(Kiler,'Kiler');
SaveCharacters(Czurak,'Dr.Czurak')
SaveCharacters(Shadow,'Dr.Shadowrun')
SaveCharacters(Marv,'Dr.Marv')

If Researched(1,tech_ApePsych) or Researched(1,tech_ApeAgres) then
begin
AddMedal('malpa',1);
else
AddMedal('malpa',-1);

if FilterAllUnits([[f_side,1],[f_weapon,11]])>=1 or FilterAllUnits([[f_side,1],[f_bweapon,11]])>=1 then
AddMedal('radar',1)
else
AddMedal('radar,-1);

GiveMedals('Main');
RewardPeople([mart,frank,smirnof,czurak,shadow,marv,ramzes]);
YouWin;
end;

Every 0$1 trigger IsDead(Mart) or IsDead(smirnof) or IsDead(czurak) or IsDead(shadow) or IsDead(marv) or IsDead(protektor) or IsDead(ramzes) or IsDead(Marv) do
 Begin
  YouLost('Trup');
 End;