1
0

pregriskeval 653 B

123456789101112131415161718192021222324252627282930
  1. # pregriskeval
  2. argc = arrsize('ARGS')
  3. if argc > 0:
  4. eff_contra = ARGS[1]
  5. else
  6. eff_contra = sexcontra
  7. end
  8. if knowpreg = 1 or thinkpreg = 1:
  9. RESULT = -4
  10. elseif eff_contra = 2 or pilldays > 14:
  11. RESULT = -1
  12. elseif tabletkishot ! 0:
  13. RESULT = -2
  14. elseif mesec > 0:
  15. RESULT = -3
  16. elseif eff_contra = 0 or eff_contra = 4 or eff_contra = 5:
  17. if ((preziktype = 1 and ((preziksabo + prezikcount) > 0)) or preziktype = 2) and tabletkicheck = 0 and tabletki > 0:
  18. RESULT = 1
  19. else
  20. RESULT = 0
  21. end
  22. elseif eff_contra = 1 or eff_contra = 7:
  23. !{Definitely delibarately trying to get pregnant.}
  24. RESULT = 2
  25. end
  26. --- pregriskeval ---------------------------------