original-war.net

Code: Select all

On EnterBuilding(b,un) do
 If b=czapa then
 Begin
  If IsDead(Ojciec) then
   Begin
    If Ilosc_mechow=8 and FilterAllUnits([[f_ok],[f_side,3,[f_type,unit_human]]])=9 then
     Medal=True
     Else
     Medal=False;
    If Ilosc_mechow=6 and FilterAllUnits([[f_ok],[f_side,3],[f_type,unit_human]])=7 then
      Medal=True
     Else
      Medal=False;
    If Ilosc_mechow=4 and FilterAllUnits([[f_ok],[f_side,3],[f_type,unit_human]])=5 then
      Begin
       Medal=2;
       SaveVariable(Medal,'Medal');
       End
     Else
      Begin
       Medal=1;
       SaveVariable(Medal,'Medal');
      End;
    ChangeMap('3','%_cont');
  End;
 If IsOk(Ojciec) then
 Begin
  YouLost('Ucieczka');
 End;