1
0

femcyc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461
  1. # femcyc
  2. !{Hourly reduction in semen potency}
  3. !{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 200 hours. If it is 200 hours old, it kills that index, which should shift the index up. If it is less than 200 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
  4. ctemp = 0
  5. ctemp[1] = 0
  6. ctemp[2] = 0
  7. cumarrtemp = 0
  8. :cummarrpdloop
  9. if cumarrage[cumarrtemp] < 190 and cumarrcpt[cumarrtemp] > 0:
  10. CumPDrop = cumarrcpt[cumarrtemp] / (200 - cumarrage[cumarrtemp])
  11. if ovulate <= 0:
  12. Temprand = rand(0,3)
  13. if temprand <= 0:
  14. CumPDrop = CumPDrop*3
  15. elseif temprand = 1:
  16. CumPDrop = CumPDrop*2
  17. end
  18. end
  19. cumarrcpt[cumarrtemp] -= CumPDrop
  20. cumarrage[cumarrtemp] += 1
  21. cumarrtemp += 1
  22. arrmodtmp = arrsize('$cumarrnam')
  23. if arrmodtmp > cumarrtemp:
  24. jump 'cummarrpdloop'
  25. end
  26. else
  27. KILLVAR 'cumarrcpt',cumarrtemp
  28. KILLVAR 'cumarrppt',cumarrtemp
  29. KILLVAR '$cumarrnam',cumarrtemp
  30. KILLVAR 'cumarrage',cumarrtemp
  31. KILLVAR 'cumarrdel',cumarrtemp
  32. KILLVAR 'cumarrkno',cumarrtemp
  33. KILLVAR 'cumarrcon',cumarrtemp
  34. arrmodtmp = arrsize('$cumarrnam')
  35. if arrmodtmp > cumarrtemp:
  36. jump 'cummarrpdloop'
  37. end
  38. end
  39. cumarrtemp = 0
  40. if arrsize('sparrvol') > 0:
  41. :cumspaloop
  42. !!Succubus absorption (not yet active)
  43. !{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
  44. sexnutrition += 30*succublvl
  45. sparrvol[cumarrtemp] -= 30*succublvl
  46. if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
  47. end}
  48. if sparrvol[cumarrtemp] > 0:
  49. sparrtmpv = arrsize('$cumarrnam')
  50. if sparrloc[cumarrtemp] = 17:
  51. sparrtmpv = arrpos('$cumarrnam',$sparrnam[cumarrtemp])
  52. if sparrage[cumarrtemp] < 4:
  53. cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
  54. elseif sparrage[cumarrtemp] < 10:
  55. cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
  56. end
  57. elseif sparrloc[cumarrtemp] = 0:
  58. sparrtmpv = arrpos('$cumarrnam',$sparrnam[cumarrtemp])
  59. if sparrage[cumarrtemp] < 4:
  60. cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
  61. elseif sparrage[cumarrtemp] < 10:
  62. cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
  63. end
  64. elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
  65. if sparrloc[cumarrtemp] = 1:
  66. cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
  67. cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
  68. $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
  69. cumarrage[sparrtmpv] = sparrage[cumarrtemp]
  70. cumarrdel[sparrtmpv] = 1
  71. cumarrkno[sparrtmpv] = 0
  72. cumarrcon[sparrtmpv] = 0
  73. end
  74. elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
  75. if sparrloc[cumarrtemp] = 2:
  76. cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
  77. cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
  78. $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
  79. cumarrage[sparrtmpv] = sparrage[cumarrtemp]
  80. cumarrdel[sparrtmpv] = 3
  81. cumarrkno[sparrtmpv] = 0
  82. cumarrcon[sparrtmpv] = 0
  83. elseif sparrloc[cumarrtemp] = 4:
  84. cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
  85. cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
  86. $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
  87. cumarrage[sparrtmpv] = sparrage[cumarrtemp]
  88. cumarrdel[sparrtmpv] = 2
  89. cumarrkno[sparrtmpv] = 0
  90. cumarrcon[sparrtmpv] = 0
  91. end
  92. elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
  93. if sparrloc[cumarrtemp] = 3:
  94. cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
  95. cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
  96. $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
  97. cumarrage[sparrtmpv] = sparrage[cumarrtemp]
  98. cumarrdel[sparrtmpv] = 2
  99. cumarrkno[sparrtmpv] = 0
  100. cumarrcon[sparrtmpv] = 0
  101. elseif sparrloc[cumarrtemp] = 5:
  102. cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
  103. cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
  104. $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
  105. cumarrage[sparrtmpv] = sparrage[cumarrtemp]
  106. cumarrdel[sparrtmpv] = 3
  107. cumarrkno[sparrtmpv] = 0
  108. cumarrcon[sparrtmpv] = 0
  109. elseif sparrloc[cumarrtemp] = 6:
  110. cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]/1000*sparrage[cumarrtemp]/sparrvol[cumarrtemp]
  111. cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
  112. $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
  113. cumarrage[sparrtmpv] = sparrage[cumarrtemp]
  114. cumarrdel[sparrtmpv] = 3
  115. cumarrkno[sparrtmpv] = 0
  116. cumarrcon[sparrtmpv] = 0
  117. end
  118. end
  119. else
  120. KILLVAR 'spafinloc',cumarrtemp
  121. KILLVAR 'sparrage',cumarrtemp
  122. KILLVAR 'sparrloc',cumarrtemp
  123. KILLVAR '$sparrnam',cumarrtemp
  124. KILLVAR 'sparrppt',cumarrtemp
  125. KILLVAR 'sparridt',cumarrtemp
  126. KILLVAR 'sparrvol',cumarrtemp
  127. KILLVAR 'sparrslc',cumarrtemp
  128. end
  129. if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
  130. if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc = 1
  131. if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc = 1
  132. if sparrloc[cumarrtemp] = 17 and sparrage[cumarrtemp] > 48:
  133. cumcondslip = 1
  134. health -= 3
  135. 'You feel nauseous.'
  136. if rand(0,5) < 5: health -= 2
  137. else
  138. cumcondslip = 0
  139. end
  140. cumsumbod = ctemp
  141. cumsumvag = ctemp[1]
  142. cumsumass = ctemp[2]
  143. if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
  144. sparrage[cumarrtemp] += 1
  145. cumarrtemp += 1
  146. if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
  147. ctemp += sparrvol[cumarrtemp]
  148. if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
  149. if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
  150. end
  151. if lactate > 0:
  152. if lactatemv <= 0:
  153. lactatemv = 0
  154. if lactatemm < titK*4 and milkgrowday < daystart:
  155. lactatemm += 1
  156. lactatemv += 1
  157. bgrowday = daystart
  158. elseif milkgrowday < daystart:
  159. if rand(0,30) = 0: titK += 1
  160. milkgrowday = daystart
  161. end
  162. elseif lactatemv < lactatemm:
  163. lactatemv += lactatemm/20
  164. elseif lactatemv = lactatemm and milkgrowday < daystart:
  165. milkgrowday = daystart
  166. lactatemm -= 1
  167. lactatemv -= 1
  168. if rand(0,90) = 0: titK -= 1
  169. elseif lactatemv > lactatemm:
  170. lactatemv = lactatemm
  171. end
  172. end
  173. !{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
  174. if cycle <= 0:
  175. if mesec <= 0:
  176. Cycle = 1
  177. mesec = 0
  178. if rand(0,1000) = 1000:
  179. EggRH = rand(20,80)
  180. else
  181. EggRH = 0
  182. end
  183. FocH = EggRH
  184. else
  185. mesec -= 1
  186. end
  187. !{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
  188. elseif cycle = 1:
  189. if FocH <= 150:
  190. EggRH +=1
  191. FocH +=1
  192. if rand(0,1) = 1: EggRH += 1
  193. temprand = rand(0,1000)
  194. temprand -= sterileov
  195. if temprand <= 0: EggRH -= 1
  196. if pillcon > 7000: EggRH -= 1
  197. else
  198. !{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
  199. Temprand = rand(0,20)
  200. Temprand += age/15
  201. Temprand -= pillcon/1000
  202. if temprand > 20:
  203. EggRH += 205
  204. Temprand = rand(0,20)
  205. Temprand += age/15
  206. if temprand > 20: EggRH += 410
  207. end
  208. FocH = 0
  209. Ovulate = 24 + rand(0,20)
  210. Cycle = 2
  211. ferteggage = 0
  212. end
  213. elseif cycle = 2:
  214. !{Fertilization. It checks if you are ovulating and that there is cum in the cum array. Then it sets a random flag with a chance of 25*10000. (1 in 25 chance.) It then overlays that chance with the concentration of pill chemical in your blood, initializing it if it is in the negatives for some reason. It begins at the beginning of the cum array, and starts the processing. The check should be done with the same number. It is checking the oldest first. Their sperm should already be in the best position, even though it is unhealty by comparison. Then it moves down to the fresher stuff. The first sperm to have the potency above the threshold gets to fertilize. So a custom potency of a million is a sure pregnancy.}
  215. arrmodtmp = arrsize('$cumarrnam')
  216. if Ovulate > 0 and arrmodtmp > 0:
  217. Temprand = rand(1,250000)
  218. if pillcon < 0: pillcon = 0
  219. Temprand += pillcon
  220. if steriletu = 1: Temprand += Temprand*30
  221. cumarrtemp = 0
  222. :cumloop
  223. !{Here it verifies there is unfertilized eggs. If there are, it checks the current index potency against the current threshold. If it fails, it goes up one in the index, checks to verify it hasnt reached the end, then starts a new check. if it succeeds, it checks to see if it is a second or greater part of a litter, if it isnt, then it cleans up the array containing a list of the potential fathers, then sets the list to contain people your MC should know are potential fathers for the baby. It does this by evaluating the cum array, the potential fathers variable. It does this independently of the main loop evaluating the array for pregnancy.}
  224. if UnfertEgg > 0:
  225. if TempRand < cumarrcpt[cumarrtemp]:
  226. if fertegg = 0:
  227. KILLVAR '$wombpotfath'
  228. $wombthfath = 'Unknown'
  229. $wombpotfath[0] = 'Unknown'
  230. FathpotAdd = 1
  231. Fathpotcheck = 0
  232. arrmodtmp = arrsize('$cumarrnam')
  233. :potfathaddLoop
  234. if arrmodtmp > Fathpotcheck:
  235. if cumarrkno[Fathpotcheck] = 1:
  236. $wombpotfath[Fathpotadd] = $cumarrnam[Fathpotcheck]
  237. Fathpotadd += 1
  238. end
  239. Fathpotcheck += 1
  240. Jump 'potfathaddloop'
  241. end
  242. end
  243. !{It adds a fertilized egg, removes an unfertilized egg, then sets the array index checker to the size of the array of children you have to make sure it is adding to the end of the file. It then sets a temporary flag to determine the sex of your baby. 0 is a girl. Then it calls the babys name unborn. It clears the variable for the age, sets the real fathers name to the name stored in the cum array, then sets the person you think is the father of this baby to "unknown". It then sets a random hair color and random eye color. This was used in the old system in a variable that wasnt ever called from the best of my ability to find. Then it flags the child based on what kind of contraception failed when it was concieved. Useful in several ways.}
  244. FertEgg += 1
  245. UnfertEgg -= 1
  246. Nextbaby = arrsize('$ChildFath')
  247. Temppolkid = rand(0,1)
  248. polkid[nextbaby] = Temppolkid
  249. $kidname[nextbaby] = 'unborn'
  250. kidage[nextbaby] = 0
  251. daykid[nextbaby] = 0
  252. monthkid[nextbaby] = 0
  253. yearkid[nextbaby] = 0
  254. Babyptype[nextbaby] = 0
  255. $ChildFath[nextbaby] = $cumarrnam[cumarrtemp]
  256. $ChildThFath[nextbaby] = 'unknown'
  257. hairkid[nextbaby] = rand(0, 3)
  258. eyeskid[nextbaby] = rand(0, 3)
  259. ChildConType = cumarrcon[nextbaby]
  260. else
  261. cumarrtemp += 1
  262. arrmodtmp = arrsize('$cumarrnam')
  263. if cumarrtemp < arrmodtmp:
  264. Jump 'cumloop'
  265. end
  266. end
  267. end
  268. end
  269. !{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
  270. if pillcon > 26000:
  271. if rand(0,400) ! 1:
  272. EggRH = 0
  273. end
  274. ovulate -= 2
  275. end
  276. :OviLoop
  277. If EggRH > (UnfertEgg * 150):
  278. Unfertegg += 1
  279. EggRH -= 200*UnfertEgg
  280. Jump 'OviLoop'
  281. end
  282. If ovulate <= 0:
  283. cycle = 3
  284. UnfertEgg = 0
  285. end
  286. ferteggage += 1
  287. Ovulate -= 1
  288. !{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
  289. elseif cycle = 3:
  290. ferteggage += 1
  291. if FertEgg >= 1:
  292. temprand = rand (0,100000)
  293. if ferteggage < 120:
  294. temprand += 170
  295. temprand -= age*10
  296. if steriletu = 1: temprand -= 200
  297. !{if there is a entopic pregnancy, it sets the first unborn baby in the array to this. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
  298. if temprand <= 0:
  299. tempbabyi = ARRPOS('Babyptype',0)
  300. Babyptype[tempbabyi] = 2
  301. FertEgg -= 1
  302. BabyEmbryo += 1
  303. PregChem = random(0,30)
  304. if preg = 0:
  305. preg = 1
  306. end
  307. end
  308. else
  309. !{Otherwise, it adds your womb sterilie factor to the temprand. Then it checks if your temprand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
  310. temprand += sterilewb
  311. if temprand <= (1200-(Age*7)):
  312. tempbabyi = ARRPOS('Babyptype',0)
  313. Babyptype[tempbabyi] = 1
  314. FertEgg -= 1
  315. BabyEmbryo += 1
  316. PregChem += rand(0,30)
  317. if preg = 0:
  318. preg = 1
  319. end
  320. end
  321. end
  322. end
  323. !{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
  324. if LutH > 300:
  325. :lutcycloop
  326. if fertegg > 0:
  327. tempbabyi = ARRPOS('Babyptype',0)
  328. KILLVAR 'polkid',tempbabyi
  329. KILLVAR '$kidname',tempbabyi
  330. KILLVAR 'kidage',tempbabyi
  331. KILLVAR 'daykid',tempbabyi
  332. KILLVAR 'monthkid',tempbabyi
  333. KILLVAR 'yearkid',tempbabyi
  334. KILLVAR 'Babyptype',tempbabyi
  335. KILLVAR '$ChildFath',tempbabyi
  336. KILLVAR '$ChildThFath',tempbabyi
  337. KILLVAR 'hairkid',tempbabyi
  338. KILLVAR 'eyeskid',tempbabyi
  339. KILLVAR 'cumarrcon',tempbabyi
  340. fertegg -= 1
  341. jump 'lutcycloop'
  342. end
  343. LutH = 0
  344. if preg = 1:
  345. cycle = 5
  346. elseif menoage <= age:
  347. KILLVAR '$wombpotfath'
  348. cycle = 6
  349. else
  350. KILLVAR '$wombpotfath'
  351. temprand = rand(0,10)
  352. if pillcon < 30000 or temprand = 0:
  353. Cycle = 0
  354. if cyccustom = 1:
  355. daylastperiod = daystart
  356. end
  357. temprand = rand(0,10)
  358. if temprand = 0:
  359. mesec = 120
  360. elseif temprand < 9:
  361. mesec = 96
  362. else
  363. mesec = 72
  364. end
  365. else
  366. FocH = 0
  367. EggRH = 0
  368. Cycle = 1
  369. mesec = 0
  370. end
  371. end
  372. else
  373. if preg = 1:PregChem += 1
  374. if rand(0,100) < 100: LutH += 1
  375. end
  376. !{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
  377. elseif cycle = 4:
  378. if RecovH <= 0:
  379. Cycle = 1
  380. if cyccustom = 1:
  381. knowpregloss = 0
  382. knowpregrecover = 0
  383. end
  384. if rand(0,1000) = 1000:
  385. EggRH = rand(20,80)
  386. else
  387. EggRH = 0
  388. end
  389. FocH = EggRH
  390. else
  391. RecovH -= 1
  392. if rand(0,10) = 0:
  393. RecovH -= 1
  394. end
  395. end
  396. !{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
  397. elseif cycle = 5:
  398. PregChem += 1
  399. temprand = rand(-400,800)
  400. temprand -= (babyembryo-1)*588
  401. if PregChem > 6573 + temprand and preg ! 2:
  402. 'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
  403. $cycreport_txt = 'In labour'
  404. arrmodtmp =arrsize('$ChildFath')
  405. arrmodtmp -= (babyembryo+1)
  406. :babyfinalpreploop
  407. if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
  408. daykid[arrmodtmp] = 42
  409. $ChildThFath[arrmodtmp] = $wombthfath
  410. arrmodtmp += 1
  411. jump 'babyfinalpreploop'
  412. end
  413. KILLVAR '$wombpotfath'
  414. KILLVAR '$wombthfath'
  415. preg = 2
  416. if babyembryo > 1:
  417. 'Your babies are coming...'
  418. else
  419. 'Your baby is coming...'
  420. end
  421. if PregChem < 3885:
  422. 'Way too early!'
  423. elseif PregChem < 5229:
  424. 'Very early!'
  425. elseif PregChem < 6069:
  426. 'Early.'
  427. elseif PregChem > 6959:
  428. 'Late.'
  429. elseif PregChem > 7245:
  430. 'Very Late!'
  431. end
  432. 'You need to get to a clinic.'
  433. end
  434. if PregChem > 3887:
  435. if lactate <= 0:
  436. 'You begin lactating'
  437. lactate = 1
  438. lactatemv = 0
  439. lactatemm = 10
  440. else
  441. if lactate < 1: lactate = 1
  442. end
  443. end
  444. if PregChem > 2203:
  445. if pregchem > 2853 or kid > 0:
  446. if rand(0,7) = 0: dynamic $d_pregmovement
  447. else
  448. if rand(0,500) = 0: dynamic $d_pregmovement
  449. end
  450. end
  451. end
  452. dynamic $d_cycreport_update
  453. --- femcyc ---------------------------------