# MilkYield
IF (MilkCows:Animal[Index].Kol_voOtelov >= 1)
AND ((MilkCows:Animal[Index].Stelnost < 250) OR
(MilkCows:Animal[Index].Stelnost >280)) DO
NADOI^:= NADOI + 20;
END
# MilkCows are slaughtered
IF MilkCows:Animal[Index].Kol_voOtelov > 5 DO
VesTyw^:= VesTyw + MilkCows:Animal[Index].Weight/2;
MilkCows^: REMOVE Animal[Index];
UBOI^:= UBOI + 1;
END
END
WHENEVER (Stage = 7) AND (Index > NUMBER(MilkCows)) DO
Stage^:=8;
Index^:=1;
END
# Fecundation of MilkCows
WHENEVER (Stage = 8) AND (Index <= NUMBER(MilkCows)) DO
Index^:= Index + 1;
IF (MilkCows:Animal[Index].Status = FALSE) AND
(MilkCows:Animal[Index].Stelnost > (340)) DO
IF Rand < 0.98 DO
MilkCows:Animal[Index].Status^:= TRUE;
MilkCows:Animal[Index].Stelnost^:= 1;
END
ELSE DO
MilkCows^: TO Cows SEND Animal[Index]
CHANGING
Age^:= MilkCows:Animal[Index].Age;
Weight^:= MilkCows:Animal[Index].Weight;
END
END
END
END
END OF Herd