cum_arrcheat.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268
  1. # cum_arrcheat
  2. !! npc_pregtalk[] 0/1: Does character A# know that you are currently pregnant
  3. !! pcs_pregtalk 0/1: Has PC been told she is pregnant
  4. *clr & cla
  5. '<center><h2>Cheat Menu - OOX Debug</h2></center>'
  6. if cycle = 0:
  7. $cycletemp[1] = 'menstruating with <<mesec>> hours remaining'
  8. elseif cycle = 1:
  9. cycletemp[6] = (Foch_Max-FocH)
  10. $cycletemp[1] = 'in your follicular phase with an egg release hormone level of <<EggRH>> with around <<cycletemp[6]>> hours remaining until ovulation'
  11. elseif cycle = 2:
  12. $cycletemp[1] = 'ovulating with around <<Ovulate>> hours remaining until your luteal phase begins and <<EggRH>> remaining egg release hormone. You have <<UnfertEgg>> unfertilized egg and <<FertEgg>> unimplanted zygote. It has been <<ferteggage>> hours since ovulation began'
  13. elseif cycle = 3:
  14. cycletemp[6] = (LutH_Max-LutH)
  15. $cycletemp[1] = 'in your luteal phase with <<BabyEmbryo>> foetus and <<FertEgg>> unimplanted zygote. Your body currently has a pregnancy chemical level of <<pregchem>>. It has been <<ferteggage>> hours since you ovulated. You have around <<cycletemp[6]>> hours remaining until menstruation or official pregnancy'
  16. elseif cycle = 4:
  17. $cycletemp[1] = 'in your post pregnancy recovery phase. You have around <<RecovH>> hours remaining before your follicular phase begins'
  18. elseif cycle = 5:
  19. $cycletemp[1] = 'pregnant. Your body currently has a pregnancy chemical level of <<pregchem>>. You have <<BabyEmbryo>> baby growing inside you'
  20. elseif cycle = 6:
  21. $cycletemp[1] = 'menopausal'
  22. else
  23. $cycletemp[1] = 'an unknown value'
  24. end
  25. if steriletu < 0:
  26. $cycletemp[2]= '. You have had a tubal ligation procedure'
  27. else
  28. $cycletemp[2]= ''
  29. end
  30. if lactation['active'] > 0:
  31. $cycletemp[3]= '. You are lactating. You currently have <<lactation[''breastmv'']/1000>> millilitres of milk stored, with a capacity of <<lactation[''breastmm'']/1000>> millilitres'
  32. else
  33. $cycletemp[3]= ''
  34. end
  35. if tabletkicheck = 2:
  36. $cycletemp[4] = '. You are currently protected from pregnancy by a birth control shot. You have <<tabletkishot>> days until it runs out'
  37. elseif tabletkicheck = 1:
  38. if tabletkiday = daystart:
  39. $cycletemp[6] = '. You have taken your pill today'
  40. else
  41. $cycletemp[6] = '. You have not taken your pill today'
  42. end
  43. $cycletemp[4] = '. You automatically take your pill. Your current pill discipline is <<tabletkipd>><<$cycletemp[6]>>. <<tabletkipt>> will be added to your pill discipline if you take the pill now, and <<tabletkipi>> will be added to your pill discipline if you do no additional action. You currently have <<pillcon>> units of birth control chemical in your body, though you believe it is actually <<pillcon2>>.'
  44. elseif pillcon2 > 0:
  45. $cycletemp[4] = '. You currently have <<pillcon>> units of birth control chemical in your body, but you think it is actually <<pillcon2>>.'
  46. else
  47. $cycletemp[4] = ''
  48. end
  49. if pilldays > 0:
  50. $cycletemp[8] = '. You believe you have taken your birth control pill <<pilldays>> days in a row'
  51. else
  52. $cycletemp[8] = ''
  53. end
  54. 'You are currently <<$cycletemp[1]>><<$cycletemp[2]>><<$cycletemp[4]>><<$cycletemp[8]>>. Your womb damage is at <<sterilewb>> and your Ovary damage is at <<sterileov>><<$cycletemp[2]>>. You have been cummed on or inside yourself <<stat[''cum_count'']>> times.'
  55. cycletemp[4] = arrsize('$wombpotfath')
  56. if cycletemp[4] > 0:
  57. cycletemp = 0
  58. 'Potential Father List (of <<cycletemp[4]>>):'
  59. :cumcpfloop
  60. if $wombpotfath[cycletemp] ! 'unknown':
  61. $cycletemp[5] = $npc_usedname[$wombpotfath[cycletemp]]
  62. else
  63. $cycletemp[5] = ''
  64. end
  65. 'Father <<cycletemp>>: <<$wombpotfath[cycletemp]>> - <<$cycletemp[5]>>'
  66. cycletemp += 1
  67. if cycletemp < arrsize('$wombpotfath'): jump 'cumcpfloop'
  68. else
  69. 'No listed potential fathers.'
  70. end
  71. cycletemp[4] = arrsize('$cumarrnam')
  72. if cycletemp[4] > 0:
  73. cycletemp = 0
  74. 'Sperm in your womb (of <<cycletemp[4]>>):'
  75. '<Table border=1><TR><TH>Index</TH><TH>ID</TH><TH>Owner</TH><TH>Potential Potency</TH><TH>Current Potency</TH><TH>Method of Acquisition</TH><TH>Contraception Type</TH><TH>Age in Hours</TH><TH>Aware</TH><TH>DNA</TH></TR>'
  76. :cumcswloop
  77. if cumarrdel[cycletemp] = 0:
  78. $cycletemp[2] = 'Vaginal intercourse'
  79. elseif cumarrdel[cycletemp] = 1:
  80. $cycletemp[2] = 'From spatter on the vagina'
  81. elseif cumarrdel[cycletemp] = 2:
  82. $cycletemp[2] = 'From the anal area'
  83. elseif cumarrdel[cycletemp] = 3:
  84. $cycletemp[2] = 'From sperm on clothing'
  85. elseif cumarrdel[cycletemp] = 4:
  86. $cycletemp[2] = 'From sperm on fingers'
  87. elseif cumarrdel[cycletemp] = 5:
  88. $cycletemp[2] = 'From sperm on wipes'
  89. else
  90. $cycletemp[2] = 'improperly defined'
  91. end
  92. if cumarrcon[cycletemp] = 0:
  93. $cycletemp[3] = 'No contraception used'
  94. elseif cumarrcon[cycletemp] = 1:
  95. $cycletemp[3] = 'You lied about being on the pill'
  96. elseif cumarrcon[cycletemp] = 2:
  97. $cycletemp[3] = iif(birth_control['implant_status'] > 1, 'You have a birth control implant', 'You were on the pill')
  98. elseif cumarrcon[cycletemp] = 3:
  99. $cycletemp[3] = 'You used a condom'
  100. elseif cumarrcon[cycletemp] = 4:
  101. $cycletemp[3] = 'The condom broke'
  102. elseif cumarrcon[cycletemp] = 5:
  103. $cycletemp[3] = 'The condom slipped off inside you'
  104. elseif cumarrcon[cycletemp] = 6:
  105. $cycletemp[3] = 'The condom was sabotaged by someone else'
  106. elseif cumarrcon[cycletemp] = 7:
  107. $cycletemp[3] = 'You sabotaged the condom'
  108. elseif cumarrcon[cycletemp] = 8:
  109. $cycletemp[3] = 'Precum had sperm in it'
  110. elseif cumarrcon[cycletemp] = 9:
  111. $cycletemp[3] = 'Semen from a previous sexual act was pushed into the vagina'
  112. else
  113. $cycletemp[3] = 'improperly defined'
  114. end
  115. $cycletemp[5] = $npc_usedname[$cumarrnam[cycletemp]]
  116. !'Index number: <<cycletemp>>. Sperm ID: <<cumarrcnt[cycletemp]>>. Sperm Owner: <<$cumarrnam[cycletemp]>>. Sperm Potential Potency: <<cumarrppt[cycletemp]>> Sperm Current Potency: <<cumarrcpt[cycletemp]>>. Sperm Method of Acquisition: <<$cycletemp[2]>>. Sperm Contraception Type: <<$cycletemp[3]>>. Sperm Age in Hours: <<Cumarrage[cycletemp]>>. If you know who did it (0 means no): <<cumarrkno[cycletemp]>>.'
  117. *P '<TR><TD><<cycletemp>></TD><TD><<cumarrcnt[cycletemp]>></TD><TD><<$cumarrnam[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<cumarrppt[cycletemp]>> Sperm</TD><TD><<cumarrcpt[cycletemp]>> Sperm</TD><TD><<$cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<Cumarrage[cycletemp]>></TD><TD><<cumarrkno[cycletemp]>></TD><TD><<$npc_dna[$cumarrnam[cycletemp]]>></TD></TR>'
  118. cycletemp += 1
  119. if cycletemp < arrsize('$cumarrnam'):
  120. jump 'cumcswloop'
  121. else
  122. '</TABLE>'
  123. end
  124. else
  125. 'No sperm is registered in your womb.'
  126. end
  127. cycletemp[4] = arrsize('sparrvol')
  128. if cycletemp[4] > 0:
  129. cycletemp = 0
  130. 'Sperm spatter (of <<cycletemp[4]>>):'
  131. '<Table border=1><TR><TH>Index</TH><TH>ID</TH><TH>Sperm Owner</TH><TH>Potential Potency</TH><TH>Age in Hours</TH><TH>Aware</TH><TH>Volume (ml)</TH><TH>Location</TH><TH>Spread Value</TH></TR>'
  132. :cumcsbloop
  133. cycletemp[2] = (sparrvol[cycletemp]/10)
  134. if sparrloc[cycletemp] = 0:
  135. $cycletemp[3] = 'In your Vagina'
  136. elseif sparrloc[cycletemp] = 1:
  137. $cycletemp[3] = 'On your labia'
  138. elseif sparrloc[cycletemp] = 2:
  139. $cycletemp[3] = 'On your panties over your vagina'
  140. elseif sparrloc[cycletemp] = 3:
  141. $cycletemp[3] = 'In your anus'
  142. elseif sparrloc[cycletemp] = 4:
  143. $cycletemp[3] = 'On your butt'
  144. elseif sparrloc[cycletemp] = 5:
  145. $cycletemp[3] = 'On your panties over your butt'
  146. elseif sparrloc[cycletemp] = 6:
  147. $cycletemp[3] = 'On your clothes in your groin area'
  148. elseif sparrloc[cycletemp] = 7:
  149. $cycletemp[3] = 'On your clothes'
  150. elseif sparrloc[cycletemp] = 8:
  151. $cycletemp[3] = 'On your back'
  152. elseif sparrloc[cycletemp] = 9:
  153. $cycletemp[3] = 'On your legs'
  154. elseif sparrloc[cycletemp] = 10:
  155. $cycletemp[3] = 'On your arms'
  156. elseif sparrloc[cycletemp] = 11:
  157. $cycletemp[3] = 'On your face'
  158. elseif sparrloc[cycletemp] = 12:
  159. $cycletemp[3] = 'Inside your mouth'
  160. elseif sparrloc[cycletemp] = 13:
  161. $cycletemp[3] = 'On your hands'
  162. elseif sparrloc[cycletemp] = 14:
  163. $cycletemp[3] = 'On your stomach'
  164. elseif sparrloc[cycletemp] = 15:
  165. $cycletemp[3] = 'On your breasts'
  166. elseif sparrloc[cycletemp] = 16:
  167. $cycletemp[3] = 'In your hair'
  168. elseif sparrloc[cycletemp] = 17:
  169. $cycletemp[3] = 'In a condom in your vagina'
  170. else
  171. $cycletemp[3] = 'improperly defined'
  172. end
  173. $cycletemp[5] = $npc_usedname[$sparrnam[cycletemp]]
  174. !'Index number: <<cycletemp>>. Spatter Sperm ID: <<sparrcnt[cycletemp]>>. Spatter Sperm Owner: <<$sparrnam[cycletemp]>>. Spatter Potential Potency: <<sparrppt[cycletemp]>> Spatter Age in Hours: <<sparrage[cycletemp]>>. If you know who did it (0 means no): <<sparridt[cycletemp]>>. Spatter Volume: <<cycletemp[2]>> Milliliters. Spatter Location: <<$cycletemp[3]>>. Spatter Spread Value: <<sparrslc[cycletemp]>>.'
  175. *P '<TR><TD><<cycletemp>></TD><TD><<sparrcnt[cycletemp]>></TD><TD><<$sparrnam[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<sparrppt[cycletemp]>></TD><TD><<sparrage[cycletemp]>></TD><TD><<sparridt[cycletemp]>></TD><TD><<cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<sparrslc[cycletemp]>></TD></TR>'
  176. cycletemp += 1
  177. if cycletemp < arrsize('sparrvol'):
  178. jump 'cumcsbloop'
  179. else
  180. '</TABLE>'
  181. end
  182. else
  183. 'No sperm spatter is registered.'
  184. end
  185. cycletemp[4] = arrsize('$ChildFath')
  186. if cycletemp[4] > 0:
  187. cycletemp = 0
  188. if $wombthfath ! 'unknown': 'Current father set as the father you think is of the children in the womb: <<$wombthfath>>'
  189. 'Babies and Children (of <<cycletemp[4]>>):'
  190. '<Table border=1><TR><TH>Index</TH><TH>Name</TH><TH>Age</TH><TH>Born(M/D/Y)</TH><TH>Sex</TH><TH>Pregnancy Type</TH><TH>Biological Father</TH><TH>Believed Father</TH><TH>Eye Color</TH><TH>Hair Color</TH><th>Type</th><TH>Contraception Type</TH><TH>Child DNA</TH></TR>'
  191. :cumcbcloop
  192. if polkid[cycletemp] = 0:
  193. $cycletemp[2] = 'F'
  194. else
  195. $cycletemp[2] = 'M'
  196. end
  197. if babyptype[cycletemp] = 0:
  198. $cycletemp[3] = 'Zygote'
  199. elseif babyptype[cycletemp] = 1:
  200. $cycletemp[3] = 'Healthy Implantation'
  201. elseif babyptype[cycletemp] = 2:
  202. $cycletemp[3] = 'Ectopic Pregnancy'
  203. elseif babyptype[cycletemp] = 3:
  204. $cycletemp[3] = 'Breach'
  205. elseif babyptype[cycletemp] = 40:
  206. $cycletemp[3] = 'Damaged Foetus from Alcohol/Smoking/Other drugs'
  207. elseif babyptype[cycletemp] = 45:
  208. $cycletemp[3] = 'Damaged Foetus from other sources'
  209. elseif babyptype[cycletemp] = 50:
  210. $cycletemp[3] = 'Severely Damaged Foetus'
  211. elseif babyptype[cycletemp] = 100:
  212. $cycletemp[3] = 'Foetal Death'
  213. elseif babyptype[cycletemp] = 105:
  214. $cycletemp[3] = 'Foetal Death, will not self purge'
  215. else
  216. $cycletemp[3] = 'Unlabelled Ptype'
  217. end
  218. if ChildConType[cycletemp] = 0:
  219. $cycletemp[4] = 'No contraception used'
  220. elseif ChildConType[cycletemp] = 1:
  221. $cycletemp[4] = 'You lied about being on the pill'
  222. elseif ChildConType[cycletemp] = 2:
  223. $cycletemp[4] = 'You were on the pill'
  224. elseif ChildConType[cycletemp] = 3:
  225. $cycletemp[4] = 'You used a condom'
  226. elseif ChildConType[cycletemp] = 4:
  227. $cycletemp[4] = 'The condom broke'
  228. elseif ChildConType[cycletemp] = 5:
  229. $cycletemp[4] = 'The condom slipped off inside you'
  230. elseif ChildConType[cycletemp] = 6:
  231. $cycletemp[4] = 'The condom was sabotaged by someone else'
  232. elseif ChildConType[cycletemp] = 7:
  233. $cycletemp[4] = 'You sabotaged the condom'
  234. else
  235. $cycletemp[4] = 'improperly defined'
  236. end
  237. $cycletemp[5] = $npc_usedname[$ChildFath[cycletemp]]
  238. if $ChildThFath[cycletemp] ! 'unknown':
  239. $cycletemp[7] = $npc_usedname[$ChildThFath[cycletemp]]
  240. else
  241. $cycletemp[7] = ''
  242. end
  243. !'Index number: <<cycletemp>>. Name of the kid: <<$kidname[cycletemp]>>. Age of the kid: <<kidage[cycletemp]>>. Born(M/D/Y): <<monthkid[cycletemp]>> / <<daykid[cycletemp]>> / <<yearkid[cycletemp]>>. Sex: <<$cycletemp[2]>>. Pregnancy Type: <<$cycletemp[3]>>. Biological Father: <<$ChildFath[cycletemp]>>. Believed Father: <<$ChildThFath[cycletemp]>>. Child Eye Color: <<eyeskid[cycletemp]>>. Child Hair Color: <<hairkid[cycletemp]>>. Child Type: <<$childtype[cycletemp]>>. Child Contraceptive Type: <<$cycletemp[4]>>'
  244. *P '<TR><TD><<cycletemp>></TD><TD><<$kidname[cycletemp]>></TD><TD><<kidage[cycletemp]>></TD><TD><<monthkid[cycletemp]>> / <<daykid[cycletemp]>> / <<yearkid[cycletemp]>></TD><TD><<$cycletemp[2]>></TD><TD><<$cycletemp[3]>></TD><TD><<$ChildFath[cycletemp]>> - <<$cycletemp[5]>></TD><TD><<$ChildThFath[cycletemp]>> - <<$cycletemp[7]>></TD><TD><<eyeskid[cycletemp]>></TD><TD><<hairkid[cycletemp]>></TD><td><<$childtype[cycletemp]>></td><TD><<$cycletemp[4]>></TD><TD><<$kid_dna[cycletemp]>></TD></TR>'
  245. cycletemp += 1
  246. if cycletemp < arrsize('$ChildFath'):
  247. jump 'cumcbcloop'
  248. else
  249. '</TABLE>'
  250. end
  251. else
  252. 'No Pregnancies registered.'
  253. end
  254. killvar '$cycletemp'
  255. act 'Return to cheat index': dynamic $cheatmenu
  256. --- cum_arrcheat ---------------------------------