1
0

femcyc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524
  1. # femcyc
  2. if $ARGS[0] = '':
  3. !{Hourly reduction in semen potency}
  4. !{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 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.}
  5. if rcntorgzm = 1:
  6. if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
  7. if rcntorgzmtmp = 0: rcntorgzmtmp = 1
  8. end
  9. ctemp = 0
  10. ctemp[1] = 0
  11. ctemp[2] = 0
  12. cumarr_idx = 0
  13. :cumarrloop
  14. if cumarr_idx < arrsize('$cumarrnam'):
  15. if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 64:
  16. cumpdrop = (cumarrcpt[cumarr_idx] / 100) * (cumarrage[cumarr_idx] / 5)
  17. if cumpdrop < 100: cumpdrop = 100
  18. if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
  19. cumarrcpt[cumarr_idx] -= cumpdrop
  20. cumarrage[cumarr_idx] += 1
  21. else
  22. KILLVAR 'cumarrcpt',cumarr_idx
  23. KILLVAR 'cumarrppt',cumarr_idx
  24. KILLVAR '$cumarrnam',cumarr_idx
  25. KILLVAR 'cumarrage',cumarr_idx
  26. KILLVAR 'cumarrdel',cumarr_idx
  27. KILLVAR 'cumarrkno',cumarr_idx
  28. KILLVAR 'cumarrcon',cumarrte_idx
  29. end
  30. cumarr_idx += 1
  31. jump 'cumarrloop'
  32. end
  33. !!Succubus absorption of sperm in womb
  34. if succubusflag = 1:
  35. if arrsize('cumarrppt') > 0:
  36. succycletmp = 0
  37. :sucvagabs
  38. if cumarrdel[succycletmp] = 0:
  39. if cumarrcpt[succycletmp] > 10000:
  40. sexnutrition += 30 * succublvl
  41. succubxp += 3
  42. elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
  43. sexnutrition += 5 * succublvl
  44. succubxp += 2
  45. elseif cumarrcpt[succycletmp] =< 1000:
  46. sexnutrition += succublvl
  47. else
  48. sexnutrition += 25 * succublvl
  49. succubxp += 3
  50. end
  51. KILLVAR 'cumarrcpt', succycletmp
  52. KILLVAR 'cumarrppt', succycletmp
  53. KILLVAR '$cumarrnam', succycletmp
  54. KILLVAR 'cumarrage', succycletmp
  55. KILLVAR 'cumarrdel', succycletmp
  56. KILLVAR 'cumarrkno', succycletmp
  57. KILLVAR 'cumarrcon', succycletmp
  58. sucabscum = 1
  59. end
  60. succycletmp += 1
  61. if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
  62. end
  63. killvar 'succycletmp'
  64. end
  65. cumsumvag = 0
  66. cumsumass = 0
  67. cumsumbod = 0
  68. if arrsize('sparrvol') > 0:
  69. sparr_idx = 0
  70. :cumspaloop
  71. if sparr_idx < arrsize('$sparrnam'):
  72. !!Succubus absorption for internal locations other than womb
  73. if succubusflag = 1:
  74. if sparrloc[sparr_idx] = 3 or sparrloc[sparr_idx] = 12:
  75. sexnutrition += 25*succublvl
  76. succubxp += 3
  77. sucabscum = 1
  78. if sparrvol[sparr_idx] > 0: sparrvol[sparr_idx] = 0
  79. end
  80. end
  81. !!{if sparrloc[sparr_idx] = 0 or sparrloc[sparr_idx] = 3 or sparrloc[sparr_idx] = 12:
  82. sexnutrition += 30*succublvl
  83. sparrvol[sparr_idx] -= 30*succublvl
  84. if sparrvol[sparr_idx] < 0 : sexnutrition += sparrvol[sparr_idx] & sparrvol[sparr_idx] = 0
  85. end}
  86. if sparrvol[sparr_idx] > 0 and (sparrage[sparr_idx] < 5 or sparrloc[sparr_idx] = 17 or sparrloc[sparr_idx] = 2 or sparrloc[sparr_idx] = 5 or sparrloc[sparr_idx] = 6 or sparrloc[sparr_idx] = 7):
  87. !{Cum dries up and flakes off or flows out pretty fast, but stains on clothes have to be washed off and condoms must be removed}
  88. cumarr_idx = arrsize('$cumarrnam')
  89. if sparrloc[sparr_idx] = 17:
  90. !{Cum flows out of the condom into the vagina slowly until PC removes it.}
  91. cumarr_idx = func('cumarrput', $sparrnam[sparr_idx], 5, sparrppt[sparr_idx] / 2, (sparrppt[sparr_idx] / (sparrage[sparr_idx] + 1)), sparridt[sparr_idx], sparrage[sparr_idx])
  92. elseif sparrloc[sparr_idx] = 0:
  93. !{Cervix quickly drinks up deposits left unremoved}
  94. cumarr_idx = func('cumarrput', $sparrnam[sparr_idx], 2, sparrppt[sparr_idx], (sparrppt[sparr_idx] / (sparrage[sparr_idx] + 1)) * 2, sparridt[sparr_idx], sparrage[sparr_idx])
  95. elseif sparrslc[sparr_idx] > 0 and sparrloc[sparr_idx] = 1:
  96. cumarr_idx = func('cumarrput', $sparrnam[sparr_idx], 2, sparrppt[sparr_idx] / 20, sparrppt[sparr_idx]/ ((1000 * sparrage[sparr_idx]) / sparrvol[sparr_idx]), 0, sparrage[sparr_idx])
  97. end
  98. if sparrloc[sparr_idx] = 0 or sparrloc[sparr_idx] = 3 or sparrloc[sparr_idx] = 12:sparrvol[sparr_idx] -= sparrage[sparr_idx]/2
  99. if sparrloc[sparr_idx] = 0 and cumsumvag > 60: sparrslc = 1
  100. if sparrloc[sparr_idx] = 3 and cumsumass > 60: sparrslc = 1
  101. if sparrloc[sparr_idx] = 17 and sparrage[sparr_idx] > 48:
  102. cumcondslip = 1
  103. health -= 3
  104. 'You feel nauseous.'
  105. if rand(0,5) < 5: health -= 2
  106. else
  107. cumcondslip = 0
  108. end
  109. if sparrloc[sparr_idx] ! 0 and sparrloc[sparr_idx] ! 3 and sparrloc[sparr_idx] ! 12 and isprok = 0 and sparrage < 5: sparrslc[sparr_idx] += 1
  110. sparrage[sparr_idx] += 1
  111. sparr_idx += 1
  112. cumsumbod += sparrvol[sparr_idx]
  113. if sparrloc[sparr_idx] = 0: cumsumvag += sparrvol[sparr_idx]
  114. if sparrloc[sparr_idx] = 3: cumsumass += sparrvol[sparr_idx]
  115. else
  116. KILLVAR 'spafinloc',sparr_idx
  117. KILLVAR 'sparrage',sparr_idx
  118. KILLVAR 'sparrloc',sparr_idx
  119. KILLVAR '$sparrnam',sparr_idx
  120. KILLVAR 'sparrppt',sparr_idx
  121. KILLVAR 'sparridt',sparr_idx
  122. KILLVAR 'sparrvol',sparr_idx
  123. KILLVAR 'sparrslc',sparr_idx
  124. end
  125. jump 'cumspaloop'
  126. end
  127. end
  128. if lactate > 0:
  129. if lactatemv <= 0:
  130. lactatemv = 0
  131. if lactatemm < titK*4 and milkgrowday < daystart:
  132. lactatemm += 1
  133. lactatemv += 1
  134. bgrowday = daystart
  135. elseif milkgrowday < daystart:
  136. if rand(0,30) = 0: titK += 1
  137. milkgrowday = daystart
  138. lactatemv += 1
  139. end
  140. elseif lactatemv < lactatemm:
  141. lactatemv += lactatemm/20
  142. elseif lactatemv = lactatemm and milkgrowday < daystart:
  143. milkgrowday = daystart
  144. lactatemm -= 1
  145. lactatemv -= 1
  146. if rand(0,90) = 0: titK -= 1
  147. elseif lactatemv > lactatemm:
  148. lactatemv = lactatemm
  149. end
  150. end
  151. if cycle <= 0:
  152. gs 'femcyc', 'cyc0'
  153. elseif cycle = 1:
  154. gs 'femcyc', 'cyc1'
  155. elseif cycle = 2:
  156. gs 'femcyc', 'cyc2'
  157. elseif cycle = 3:
  158. gs 'femcyc', 'cyc3'
  159. elseif cycle = 4:
  160. gs 'femcyc', 'cyc4'
  161. elseif cycle = 5:
  162. gs 'femcyc', 'preg'
  163. end
  164. dynamic $d_cycreport_update
  165. end
  166. !{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.}
  167. if $ARGS[0] = 'cyc0':
  168. if mesec <= 0:
  169. cycle = 1
  170. mesec = 0
  171. if rand(0,1000) = 1000:
  172. EggRH = rand(20,80)
  173. else
  174. EggRH = 0
  175. end
  176. FocH = EggRH
  177. else
  178. mesec -= 1
  179. end
  180. end
  181. !{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.}
  182. if $ARGS[0] = 'cyc1':
  183. if FocH <= 150:
  184. EggRH +=1
  185. FocH +=1
  186. if rand(0,1) = 1: EggRH += 1
  187. temprand = rand(0,1000)
  188. temprand -= sterileov
  189. temprand += tempovbonus
  190. if temprand <= 0: EggRH -= 1
  191. if pillcon > 7000: EggRH -= 1
  192. else
  193. !{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.}
  194. Temprand = rand(0,20)
  195. Temprand += age/15
  196. Temprand -= pillcon/1000
  197. if temprand > 20:
  198. EggRH += 205
  199. Temprand = rand(0,20)
  200. Temprand += age/15
  201. if temprand > 20: EggRH += 410
  202. end
  203. FocH = 0
  204. Ovulate = 24 + rand(0,20)
  205. cycle = 2
  206. ferteggage = 0
  207. end
  208. end
  209. !!{Fertilization.}
  210. if $ARGS[0] = 'cyc2':
  211. can_sz = arrsize('$cumarrnam')
  212. if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
  213. KILLVAR 'cumfathwght'
  214. KILLVAR '$cumfathnames'
  215. KILLVAR 'cumtime'
  216. can_idx = 0
  217. cum_total = 0
  218. !!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
  219. :FatherCumAnalyze
  220. if can_idx < can_sz:
  221. if cumarrkno[can_idx] = 1:
  222. if Enable_Android = 0:
  223. wpf_in = arrpos(0, '$wombpotfath', $cumarrnam[can_idx])
  224. else
  225. wpf_in = arrpos('$wombpotfath', $cumarrnam[can_idx])
  226. end
  227. if wpf_in < 0:
  228. wpf_sz = arrsize('$wombpotfath')
  229. $wombpotfath[wpf_sz] = $cumarrnam[can_idx]
  230. cumtime[wpf_sz] += 1
  231. end
  232. end
  233. if cumarrkno[can_idx] >= 0:cum_totaltime += 1
  234. if Enable_Android = 0:
  235. cfn_in = arrpos(0, '$cumfathnames', $cumarrnam[can_idx])
  236. else
  237. cfn_in = arrpos('$cumfathnames', $cumarrnam[can_idx])
  238. end
  239. cfw_sz = arrsize('cumfathwght')
  240. if cfn_in < 0:
  241. cumfathwght[cfw_sz] = cumarrcpt[can_idx]
  242. $cumfathnames[cfw_sz] = $cumarrnam[can_idx]
  243. else
  244. cumfathwght[cfw_in] += cumarrcpt[can_idx]
  245. end
  246. cum_total += cumarrcpt[can_idx]
  247. can_idx += 1
  248. jump 'FatherCumAnalyze'
  249. end
  250. wpf_sz = arrsize('$wombpotfath')
  251. if Enable_Android = 0:
  252. if wpf_sz ! 1 and arrpos(0, '$wombpotfath', 'Unknown') < 0: $wombpotfath[wpf_sz] = 'Unknown'
  253. else
  254. if wpf_sz ! 1 and arrpos('$wombpotfath', 'Unknown') < 0: $wombpotfath[wpf_sz] = 'Unknown'
  255. end
  256. !!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
  257. KILLVAR '$cumfathlotto'
  258. cfw_idx = 0
  259. cfw_sz = arrsize('cumfathwght')
  260. :FathLottoLoop
  261. if cfw_idx < cfw_sz:
  262. cfl_ct = (cumfathwght[cfw_idx] * 100) / cum_total
  263. if cfl_ct < 1: cfl_ct = 1
  264. cfl_idx = arrsize('$cumfathlotto')
  265. :FathLottoAdd
  266. if cfl_ct > 0:
  267. $cumfathlotto[cfl_idx] = $cumfathnames[cfw_idx]
  268. cfl_idx += 1
  269. cfl_ct -= 1
  270. jump 'FathLottoAdd'
  271. end
  272. cfw_idx += 1
  273. jump 'FathLottoLoop'
  274. end
  275. cfl_sz = arrsize('$cumfathlotto')
  276. egg_idx = 0
  277. egg_sz = UnfertEgg
  278. :FertLoop
  279. if egg_idx < egg_sz:
  280. !!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
  281. fert_thresh = rand(1,250000)
  282. if pillcon < 0: pillcon = 0
  283. fert_thresh += pillcon
  284. if steriletu = 1: fert_thresh += fert_thresh*30
  285. if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
  286. if fert_thresh <= cum_total:
  287. lotto_idx = rand(0, cfl_sz-1)
  288. UnfertEgg -= 1
  289. FertEgg += 1
  290. nextbaby = arrsize('$ChildFath')
  291. polkid[nextbaby] = rand(0, 1)
  292. $kidname[nextbaby] = 'unborn'
  293. kidage[nextbaby] = 0
  294. daykid[nextbaby] = 0
  295. monthkid[nextbaby] = 0
  296. yearkid[nextbaby] = 0
  297. Babyptype[nextbaby] = 0
  298. $ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
  299. if arrsize('$wombpotfath') = 1:
  300. $ChildThFath[nextbaby] = $wombpotfath[0]
  301. else
  302. $ChildThFath[nextbaby] = 'Unknown'
  303. end
  304. hairkid[nextbaby] = rand(0, 3)
  305. eyeskid[nextbaby] = rand(0, 3)
  306. ChildConType = cumarrcon[nextbaby]
  307. end
  308. egg_idx += 1
  309. jump 'FertLoop'
  310. end
  311. killvar 'temp'
  312. tempovbonus = 0
  313. end
  314. !!{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.}
  315. if pillcon > 26000:
  316. if rand(0,400) ! 1: EggRH = 0
  317. ovulate -= 2
  318. end
  319. :OviLoop
  320. If EggRH > ((UnfertEgg + FertEgg) * 150):
  321. UnfertEgg += 1
  322. EggRH -= (200*UnfertEgg)
  323. jump 'OviLoop'
  324. end
  325. If ovulate <= 0:
  326. cycle = 3
  327. UnfertEgg = 0
  328. end
  329. ferteggage += 1
  330. Ovulate -= 1
  331. end
  332. !{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.}
  333. if $ARGS[0] = 'cyc3':
  334. ferteggage += 1
  335. implant_idx = 0
  336. implant_sz = arrsize('Babyptype')
  337. :implant_loop
  338. if implant_idx < implant_sz:
  339. if Babyptype[implant_idx] = 0:
  340. imp_thresh = (100 - (age + sterilewb))
  341. if broodcurse ! 0: imp_thresh *= 2
  342. imp_rand = rand(0, 120000)
  343. if imp_rand < imp_thresh:
  344. implant_day = daystart
  345. implant_hour = hour
  346. !{Egg implanted}
  347. ent_thresh = age + (sterilewb * 5)
  348. if broodcurse ! 0: ent_thresh = 0
  349. if rand(0, 10000) < ent_thresh:
  350. Babyptype[implant_idx] = 2
  351. else:
  352. Babyptype[implant_idx] = 1
  353. end
  354. FertEgg -= 1
  355. babyembryo += 1
  356. end
  357. end
  358. implant_idx += 1
  359. jump 'implant_loop'
  360. end
  361. !!{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.}
  362. if LutH > 300:
  363. rej_idx = 0
  364. rej_sz = arrsize('Babyptype')
  365. :lutcycloop
  366. if rej_idx < rej_sz:
  367. if Babyptype[rej_idx] = 0:
  368. KILLVAR 'polkid',tempbabyi
  369. KILLVAR '$kidname',tempbabyi
  370. KILLVAR 'kidage',tempbabyi
  371. KILLVAR 'daykid',tempbabyi
  372. KILLVAR 'monthkid',tempbabyi
  373. KILLVAR 'yearkid',tempbabyi
  374. KILLVAR 'Babyptype',tempbabyi
  375. KILLVAR '$ChildFath',tempbabyi
  376. KILLVAR '$ChildThFath',tempbabyi
  377. KILLVAR 'hairkid',tempbabyi
  378. KILLVAR 'eyeskid',tempbabyi
  379. KILLVAR 'cumarrcon',tempbabyi
  380. end
  381. rej_idx += 1
  382. jump 'lutcycloop'
  383. end
  384. LutH = 0
  385. if preg = 1:
  386. cycle = 5
  387. elseif menoage <= age:
  388. KILLVAR '$wombpotfath'
  389. cycle = 6
  390. else
  391. KILLVAR '$wombpotfath'
  392. temprand = rand(0,10)
  393. if pillcon < 30000 or temprand = 0:
  394. cycle = 0
  395. if cyccustom = 1: daylastperiod = daystart
  396. temprand = rand(0,10)
  397. if temprand = 0:
  398. mesec = 120
  399. elseif temprand < 9:
  400. mesec = 96
  401. else
  402. mesec = 72
  403. end
  404. else
  405. FocH = 0
  406. EggRH = 0
  407. cycle = 1
  408. mesec = 0
  409. end
  410. end
  411. else
  412. if preg = 1:PregChem += 1
  413. if rand(0,100) < 100: LutH += 1
  414. end
  415. end
  416. !{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.}
  417. if $ARGS[0] = 'cyc4':
  418. if RecovH <= 0:
  419. cycle = 1
  420. if cyccustom = 1:
  421. knowpregloss = 0
  422. knowpregrecover = 0
  423. end
  424. if rand(0,1000) = 1000:
  425. EggRH = rand(20,80)
  426. else
  427. EggRH = 0
  428. end
  429. FocH = EggRH
  430. else
  431. RecovH -= 1
  432. if rand(0,10) = 0: RecovH -= 1
  433. end
  434. end
  435. !{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.}
  436. if $ARGS[0] = 'preg':
  437. PregChem += 1
  438. temprand = rand(-400,800)
  439. temprand -= (babyembryo-1)*588
  440. if PregChem > 6573 + temprand and preg ! 2:
  441. 'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
  442. $cycreport_txt = 'In labour'
  443. arrmodtmp =arrsize('$ChildFath')
  444. arrmodtmp -= (babyembryo+1)
  445. :babyfinalpreploop
  446. if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
  447. daykid[arrmodtmp] = 42
  448. $ChildThFath[arrmodtmp] = $wombthfath
  449. arrmodtmp += 1
  450. jump 'babyfinalpreploop'
  451. end
  452. KILLVAR '$wombpotfath'
  453. KILLVAR '$wombthfath'
  454. preg = 2
  455. if babyembryo > 1:
  456. 'Your babies are coming...'
  457. else
  458. 'Your baby is coming...'
  459. end
  460. if PregChem < 3885:
  461. 'Way too early!'
  462. elseif PregChem < 5229:
  463. 'Very early!'
  464. elseif PregChem < 6069:
  465. 'Early.'
  466. elseif PregChem > 6959:
  467. 'Late.'
  468. elseif PregChem > 7245:
  469. 'Very Late!'
  470. end
  471. 'You need to get to a clinic.'
  472. end
  473. if PregChem > 3887:
  474. if lactate <= 0:
  475. 'You begin lactating'
  476. lactate = 1
  477. lactatemv = 0
  478. lactatemm = 10
  479. else
  480. if lactate < 1: lactate = 1
  481. end
  482. end
  483. if PregChem > 2203:
  484. if pregchem > 2853 or kid > 0:
  485. if rand(0,7) = 0: dynamic $d_pregmovement
  486. else
  487. if rand(0,500) = 0: dynamic $d_pregmovement
  488. end
  489. end
  490. end
  491. --- femcyc ---------------------------------