1
0

022_preg 310 B

1234567891011121314151617181920
  1. # preg
  2. if mesec = 0 and preg = 0 and tabletki = 0:
  3. !no monthly
  4. set pregrand = rand(0, 100)
  5. if pregrand >= 93:
  6. $father = $boy
  7. set preg = 1
  8. end
  9. if tabletki > 0:
  10. set pregrand = rand(0, 200)
  11. if pregrand = 0:
  12. $father = $boy
  13. set preg = 1
  14. end
  15. end
  16. end
  17. --- preg ---------------------------------