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;