din_bad.qsrc 54 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164
  1. # din_bad
  2. !2021/05/02
  3. $mobile_check = {
  4. if menu_off = 0:
  5. gs 'stat'
  6. if vladimirday ! daystart and hour >= 15 and hour <= 17:
  7. if vladimirQW = 20:
  8. '<b><font color="red">Your phone is ringing</font></b>'
  9. $caller = 'Vladimir'
  10. $callerid = 'images/characters/city/vladimir/001.jpg'
  11. gs 'telefon','phone_ring'
  12. pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
  13. elseif vladimirQW = 25 and week = 6:
  14. '<b><font color="red">Your phone is ringing</font></b>'
  15. $caller = 'Vladimir'
  16. $callerid = 'images/characters/city/vladimir/001.jpg'
  17. gs 'telefon','phone_ring'
  18. pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
  19. elseif vladimirQW = 35 and week = 6:
  20. '<b><font color="red">Your phone is ringing</font></b>'
  21. $caller = 'Vladimir'
  22. $callerid = 'images/characters/city/vladimir/001.jpg'
  23. gs 'telefon','phone_ring'
  24. pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
  25. end
  26. end
  27. if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
  28. '<b><font color="red">Your phone is ringing</font></b>'
  29. $caller = 'Leonid Vostov'
  30. $callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg'
  31. gs 'telefon','phone_ring'
  32. pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:leonidSlaveDay = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
  33. end
  34. if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
  35. '<b><font color="red">Your phone is ringing</font></b>'
  36. $caller = 'Margaret'
  37. $callerid = ''
  38. gs 'telefon','phone_ring'
  39. pl''
  40. pl''
  41. pl''
  42. pl''
  43. pl''
  44. pl''
  45. pl''
  46. pl''
  47. pl''
  48. pl''
  49. '<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:qwdogiventday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
  50. end
  51. !! iterating all lovers
  52. lover_number = 0
  53. :loverloop
  54. if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5:
  55. if pcs_apprnc < vneshlover[lover_number]:
  56. loverrelation[lover_number] -= 1
  57. if loverrelation[lover_number] = 0:
  58. '<b><font color="red">Your lover hasn''t been calling you lately, they''ve probably grown tired of you.</font></b>'
  59. else
  60. 'Your lover <<$loverdesc[lover_number]>> has not called you.'
  61. end
  62. else
  63. ring = 1
  64. ringA = 1
  65. '<b><font color="red">Your phone is ringing</font></b>'
  66. PLAY 'sound/old_phone.mp3',30
  67. $caller = '<<$loverdesc[lover_number]>>'
  68. $callerid = 'images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg'
  69. gs 'telefon','phone_ring'
  70. pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
  71. end
  72. end
  73. lover_number += 1
  74. if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
  75. killvar 'lover_number'
  76. end
  77. }
  78. $d_salf = {
  79. *clr & cla
  80. '<center><h1>Tissues</h1></center>'
  81. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  82. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  83. '<td cellspacing="0" cellpadding="0" valign="top">'
  84. if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & cumspclnt = 12 & gs ''cum_cleanup'' & cumspclnt = 9 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your face and hands clean</b></a>'
  85. if cumloc[14] > 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your belly clean</b></a>'
  86. if FUNC('Cum_Manage', 'check_private', 15) = 1 and cumloc[15] > 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your breasts clean</b></a>'
  87. if FUNC('Cum_Manage', 'check_private') = 1 and (cumloc[1] + cumloc[4] > 0 or FUNC('Cum_Manage', 'check_innards', 0) = 1 or FUNC('Cum_Manage', 'check_innards', 3) = 1): '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your ass and pussy clean</b></a>'
  88. if cumloc[10] > 0 or cumloc[9] > 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & cumspclnt = 17 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe your arms and legs clean</b></a>'
  89. if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & cumspclnt = 6 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Clean your clothing</b></a>'
  90. if pcs_makeup ! 1 and cosmetic_tattoo = 0: '<a href="exec:mc_inventory[''makeup_wipes''] -= 1 & pcs_makeup = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Remove your makeup</b></a>'
  91. '<a href="exec:gs ''stat'' & gs ''din_bad'', ''d_bag''"><br><b>Put tissues away</b></a>'
  92. '</td></tr></table></center>'
  93. }
  94. $d_mouthwash = {
  95. *clr & cla
  96. '<center><h1>Mouth Wash</h1></center>'
  97. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  98. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  99. '<td cellspacing="0" cellpadding="0" valign="top">'
  100. cumspclnt = 2
  101. gs 'cum_cleanup'
  102. pcs_breath = 1
  103. mc_inventory['mouthwash'] -= 1
  104. gs 'stat'
  105. 'Your breath smells minty fresh.'
  106. ''
  107. act 'Done':gs 'stat' & gs 'din_bad', 'd_bag'
  108. '</td></tr></table></center>'
  109. }
  110. if $ARGS[0] = 'd_bag':
  111. *clr & cla
  112. $BACKIMAGE = ''
  113. gs 'stat'
  114. '<center><h1>Purse</h1></center>'
  115. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  116. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  117. '<td cellspacing="0" cellpadding="0" valign="top">'
  118. if mc_inventory['makeup_wipes'] > 0: 'You have <b><<mc_inventory[''makeup_wipes'']>></b> wet wipes left in your purse. <a href="exec:dynamic $d_salf">Use a tissue</a>'
  119. if mc_inventory['painkillers'] > 0 and pain['total'] > 0 and pain['killer'] = 0:
  120. 'You have <b><<mc_inventory[''painkillers'']>></b> painkiller'+iif(mc_inventory['painkillers'] > 1, 's ', ' ')+'left in your purse. <a href="exec: gs ''drugs'', ''painkiller'' & gs ''din_bad'', ''d_bag''">Take One</a>'
  121. elseif mc_inventory['painkillers'] > 0 and (pain['total'] = 0 or pain['killer'] > 0):
  122. 'You have <b><<mc_inventory[''painkillers'']>></b> painkiller'+iif(mc_inventory['painkillers'] > 1, 's ', ' ')+'left in your purse.'
  123. end
  124. if mc_inventory['mouthwash'] > 0 and (pcs_breath = 0 or cumloc[12] = 1):
  125. 'There''s mouthwash in your purse. <b><<mc_inventory[''mouthwash'']>></b> uses remaining. <a href="exec:dynamic $d_mouthwash">Use mouthwash</a>'
  126. elseif mc_inventory['mouthwash'] > 0 and pcs_breath = 1 and cumloc[12] = 0:
  127. 'There''s mouthwash in your purse. <b><<mc_inventory[''mouthwash'']>></b> uses remaining.'
  128. end
  129. if mc_inventory['travel_mirror'] = 1:
  130. 'You have a <a href="exec: cla & gt ''mirror'', ''d_bag_mirror''">compact mirror</a> in your purse'+iif(mc_inventory['travel_makeup'] >0, ' and some portable makeup.', '.')
  131. if mc_inventory['lipbalm'] > 0 and pcs_lipbalm <= 0:
  132. 'You can apply some <a href="exec: cls & gs ''mirror'', ''applyLipbalm'' & act ''Return'':gs ''din_bad'', ''d_bag''">lip balm</a>'
  133. end
  134. elseif mc_inventory['travel_mirror'] = 0 and mc_inventory['travel_makeup'] >0:
  135. 'You have some portable makeup in your purse, but you need a compact mirror to apply it.'
  136. end
  137. if mc_inventory['deodorant'] > 0 and deodorant_on = 0:
  138. 'There''s <a href="exec:hscrunchw = 0 & gs ''din_bad'', ''p_deodorant''">deodorant</a> in your purse. <b><<mc_inventory[''deodorant'']>></b> uses remaining.'
  139. elseif mc_inventory['deodorant'] > 0 and deodorant_on = 1:
  140. 'You are already wearing deodorant. <b><<mc_inventory[''deodorant'']>></b> uses remaining.'
  141. elseif mc_inventory['deodorant'] = 0 and deodorant_on = 0:
  142. 'You are not wearing deodorant. <b><<mc_inventory[''deodorant'']>></b> uses remaining.'
  143. elseif mc_inventory['deodorant'] = 0 and deodorant_on = 1:
  144. 'You are already wearing deodorant. <b><<mc_inventory[''deodorant'']>></b> uses remaining.'
  145. end
  146. !! Hair options
  147. *nl
  148. if (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 0:
  149. 'There''s a hairbrush in your purse. <a href="exec:pcs_hairbsh = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Brush your hair</a>'
  150. elseif (mc_inventory['travel_mirror'] = 1 or mc_inventory['comb'] = 1) and pcs_hairbsh = 1:
  151. 'There''s a hairbrush in your purse. Your hair doesn''t need brushing right now.'
  152. end
  153. if pcs_hairlng > 80 and mc_inventory['scrunchies'] >= 1 and hbraids = 0:
  154. if hscrunchw = 0 and hpingripw = 0: 'As you have a scrunchy, you can arrange your hair into a <a href="exec:hscrunchw = 1 & gs ''din_bad'', ''d_bag''">ponytail</a>. You have <<mc_inventory[''scrunchies'']>> scrunchies left.'
  155. if hscrunchw = 1: 'Remove the <a href="exec:hscrunchw = 0 & gs ''din_bad'', ''d_bag''">scrunchie</a> to get rid of the ponytail.'
  156. end
  157. if pcs_hairlng > 80 and pcs_hairlng <= 400 and mc_inventory['kirbygrips'] >= 1 and hbraids = 0:
  158. if hscrunchw = 0 and hpingripw = 0: 'You have several clips, pins and grips for you hair. Hence, you can <a href="exec:hpingripw = 1 & gs ''din_bad'', ''d_bag''">updo your hair</a>. You have <<mc_inventory[''kirbygrips'']>> hair accessories at your disposal.'
  159. if hpingripw = 1: 'Let your hair <a href="exec:hpingripw = 0 & gs ''din_bad'', ''d_bag''">flow free</a>.'
  160. end
  161. if pcs_hairlng > 80 and pcs_hairlng <= 800 and mc_inventory['scrunchies'] >= 2 and hbraids = 0:
  162. if hscrunchw = 0 and hpingripw = 0: 'You can use two hair ties to make yourself some <a href="exec:hpigtail = 1 & hscrunchw = 2 & gs ''din_bad'', ''d_bag''">pigtails</a>.'
  163. if hscrunchw = 2: '<a href="exec:hpigtail = 0 & hscrunchw = 0 & gs ''din_bad'', ''d_bag''">Remove</a> your scrunchies and let your hair flow free again.'
  164. end
  165. *nl
  166. if mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0:
  167. if preziktype = 2 or mc_inventory['sabotaged_condoms'] > 0:
  168. 'You have <b><<iif(preziktype = 2, mc_inventory[''normal_condoms''], mc_inventory[''normal_condoms'']+mc_inventory[''equipped_condoms''])>></b> normal condoms left, and <b><<iif(preziktype = 2, mc_inventory[''equipped_condoms'']+mc_inventory[''sabotaged_condoms''], mc_inventory[''sabotaged_condoms''])>></b> sabotaged <a href="exec:dynamic $din_Switch_Condom_Menu">condoms left in your purse.</a>'
  169. elseif preziktype < 2 and mc_inventory['sabotaged_condoms'] = 0:
  170. 'You have <b><<mc_inventory[''normal_condoms'']+mc_inventory[''equipped_condoms'']>></b> <a href="exec:dynamic $din_Switch_Condom_Menu">condoms left in your purse.</a>'
  171. end
  172. else
  173. 'You are out of condoms.'
  174. end
  175. if mc_inventory['lubricant'] > 0:
  176. 'You have <b><<mc_inventory[''lubricant'']>></b> squirts of lubricant available'
  177. if auto_anal_lube = 0:
  178. 'Automatically use for anal sex: <a href="exec:auto_anal_lube = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">No</a>'
  179. else
  180. 'Automatically use for anal sex: <a href="exec:auto_anal_lube = 0 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Yes</a>'
  181. end
  182. if auto_vag_lube = 0:
  183. 'Automatically use for vaginal sex: <a href="exec:auto_vag_lube = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">No</a>'
  184. else
  185. 'Automatically use for vaginal sex: <a href="exec:auto_vag_lube = 0 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Yes</a>'
  186. end
  187. end
  188. if FUNC('Cum_Manage', 'check_private') = 1:
  189. dynamic $toymanage
  190. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0: act 'Manage your piercings': gt 'piercing_management', 'main'
  191. end
  192. *nl
  193. if mc_inventory['amphetamine'] > 0: 'You have <b><<mc_inventory[''amphetamine'']>></b> tablets of amphetamine left in your purse. <a href="exec: gs ''drugs'', ''amphetamine'' & gs ''din_bad'', ''d_bag''">Take One</a>'
  194. if mc_inventory['joints'] > 0: 'You have enough weed for <b><<mc_inventory[''joints'']>></b> joints.'
  195. if mc_inventory['contraceptive_pill'] > 0 and pillsleft[ptype] > 0:
  196. 'You have <b><<mc_inventory[''contraceptive_pill'']>></b> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> and <b><<pillsleft[ptype]>></b> pills left in your opened package.'
  197. elseif mc_inventory['contraceptive_pill'] = 0 and pillsleft[ptype] > 0:
  198. 'You have <b><<pillsleft[ptype]>></b> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left in your purse.'
  199. elseif mc_inventory['contraceptive_pill'] > 0 and pillsleft[ptype] = 0:
  200. 'You have <b><<mc_inventory[''contraceptive_pill'']>></b> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> in your purse.'
  201. else
  202. 'You are out of birth control pills.'
  203. end
  204. if mc_inventory['morning_after_pill'] > 0:
  205. if mc_inventory['morning_after_pill'] = 1:
  206. 'You have one <a href="exec:gs''medical_din'',''morning_after_pill''">morning after pill</a>.'
  207. else
  208. 'You have <b><<mc_inventory[''morning_after_pill'']>></b> <a href="exec:gs''medical_din'',''morning_after_pill''">morning after pills</a>.'
  209. end
  210. else
  211. 'You have no morning after pills.'
  212. end
  213. if mc_inventory['mentats'] > 0 and drugVars['mentats_dose'] < 3:
  214. '<a href="exec: gs ''drugs'', ''mentats'' & gs ''din_bad'', ''d_bag'' & *pl ''<font color = green><br>You swallow the neurobooster pill.</font>''">Use a neurobooster pill in your purse.</a> There are <b><<mc_inventory[''mentats'']>></b> pills left. The warning label says not to take more than one per day.'
  215. elseif mc_inventory['mentats'] > 0:
  216. 'There are <b><<mc_inventory[''mentats'']>></b> neurobooster pills left. You really shouldn''t take any more pills today.'
  217. end
  218. if mc_inventory['steroids'] > 0:'<a href="exec:dynamic gs ''drugs'', ''steroids'' & gs ''din_bad'', ''d_bag''">Use steroids.</a> You have <b><<mc_inventory[''steroids'']>></b> steroids left in your purse.'
  219. if mc_inventory['breastcream'] > 0:'<a href="exec: gs ''drugs'', ''breastcream'' & gs ''din_bad'', ''d_bag''">Apply breast cream.</a> You have <b><<mc_inventory[''breastcream'']>></b> cream left in your purse.'
  220. if mc_inventory['aphrodisiac'] > 0:'<a href="exec: gs ''drugs'', ''aphrodisiac'' & gs ''din_bad'', ''d_bag'' & *pl $drugVars[''aphrodisiac_msg''] & *pl $min_arousal_msg & killvar ''$min_arousal_msg''">Chew aphrodisiac gum.</a> You have <b><<mc_inventory[''aphrodisiac'']>></b> gum left in your purse.'
  221. if mc_inventory['refill_bottle'] = 4:
  222. 'You carry your sports water bottle in your purse. It''s still completely full. <a href="exec: mc_inventory[''refill_bottle''] = 3 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  223. elseif mc_inventory['refill_bottle'] = 3:
  224. 'You carry your sports water bottle in your purse. It''s two-thirds full. <a href="exec: mc_inventory[''refill_bottle''] = 2 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  225. elseif mc_inventory['refill_bottle'] = 2:
  226. 'You carry your sports water bottle in your purse. It''s one-third full. <a href="exec: mc_inventory[''refill_bottle''] = 1 & pcs_hydra += 75 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  227. elseif mc_inventory['refill_bottle'] = 1:
  228. 'You carry your sports water bottle in your purse. It''s empty.'
  229. end
  230. if mc_inventory['food_water'] > 0: 'There''s a bottle of water in your purse. <a href="exec:mc_inventory[''food_water''] = 0 & pcs_hydra += 100 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''">Drink</a>'
  231. if mc_inventory['food_sandwich'] > 0: 'There''s a sandwich in your purse. <a href="exec:mc_inventory[''food_sandwich''] = 0 & pcs_energy += 40 & cumspclnt = 2 & gs ''cum_cleanup'' & fat += 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Eat</a>'
  232. if mc_inventory['strapon'] = 1 and strapnumber = 0:
  233. 'You have a strapon harness in your purse, but you don''t have a dildo attached to it'+iif(mc_inventory['dildo_small'] + mc_inventory['dildo_normal'] + mc_inventory['dildo_big'] + mc_inventory['dildo_large'] + mc_inventory['dildo_huge'] + mc_inventory['dildo_enormous'] + mc_inventory['dildo_gigantic'] > 0, '. You keep your dildos in your desk at home.', ', because you don''t own one.')
  234. elseif mc_inventory['strapon'] = 1 and strapnumber ! 0:
  235. 'You have a strapon harness in your purse and a <<(strapnumber +1)*5>>cm attached to it.'
  236. end
  237. if mc_inventory['food_wine'] = 1 and alkowine = 0:'There''s a bottle of <a href="exec:dynamic $dinalkowin1">wine</a> in your purse.'
  238. if mc_inventory['food_wine'] = 1 and alkowine = 1:'There''s a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a> in your purse.'
  239. if foto = 1:'Your purse contains a strange photo'
  240. if pattest > 0: 'You have <b><<pattest>></b> unused paternity test'+iif(used_pattest > 1, 's ', ' ')+'in your purse.'
  241. if used_pattest > 0: 'You have <b><<used_pattest>></b> <a href="exec:dynamic $test_purse">used</a> paternity test'+iif(used_pattest > 1, 's ', ' ')+'in your purse.'
  242. *nl
  243. if $pursepantytype ! '' or $pursebratype ! '': 'You also have '+iif($pursepantytype ! '','<a href="exec:view''<<func(''$panty_image'', $pursepantytype, pursepantynumber)>>''">a pair of panties</a>','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','<a href="exec:view''<<func(''$bra_image'', $pursebratype, pursebranumber)>>''">a bra</a>','')+' in your purse, which you can put on in the nearest bathroom.'
  244. if photographyEv >= 2: 'You have <a href="exec:gt''camera'',''start''">a camera</a> in your purse.'
  245. act 'Return':gt 'obj_din', 'menu_exit'
  246. '</td></tr></table></center>'
  247. end
  248. $dinalkowin1 = {
  249. *clr & cla
  250. alkowine = 1
  251. minut += 5
  252. gs 'drugs', 'alcohol', 'wine'
  253. gs'stat'
  254. '<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
  255. *nl
  256. 'You take the wine bottle out of your purse and slowly drink half of it. You struggle quite a lot to put the cork back before being able to make it.'
  257. act 'Continue':gs 'din_bad', 'd_bag'
  258. }
  259. $dinalkowin2 = {
  260. *clr & cla
  261. alkowine = 0
  262. mc_inventory['food_wine'] = 0
  263. minut += 5
  264. gs 'drugs', 'alcohol', 'wine'
  265. gs'stat'
  266. '<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
  267. *nl
  268. 'You take out the remaining half wine bottle out of your purse, slowly drinking the rest of it. As you finish you throw the empty bottle away.'
  269. act 'Continue':gs 'din_bad', 'd_bag'
  270. }
  271. $din_Switch_Condom_Menu = {
  272. dynamic $din_Update_Condom_Counts
  273. *clr & cla
  274. '<center><h1>Condoms</h1></center>'
  275. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  276. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  277. '<td cellspacing="0" cellpadding="0" valign="top">'
  278. i = 0
  279. 'You have <<iif(preziktype < 2, mc_inventory[''equipped_condoms'']+mc_inventory[''normal_condoms''], mc_inventory[''normal_condoms''])>> normal condoms left and <<iif(preziktype = 2, mc_inventory[''equipped_condoms'']+mc_inventory[''sabotaged_condoms''], mc_inventory[''sabotaged_condoms''])>> sabotaged condoms left.'
  280. *nl
  281. if preziktype > 0:
  282. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
  283. end
  284. if preziktype ! 1:
  285. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
  286. end
  287. if preziktype ! 2:
  288. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
  289. end
  290. if mc_inventory['normal_condoms'] > 0 or preziktype = 0:
  291. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  292. end
  293. *nl
  294. act 'Return':gs 'din_bad', 'd_bag'
  295. '</td></tr></table></center>'
  296. }
  297. $din_Table_Condom_Menu = {
  298. dynamic $din_Update_Condom_Counts
  299. *clr & cla
  300. '<center><h1>Condoms</h1></center>'
  301. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  302. *nl
  303. i = 1
  304. 'You have <<iif(preziktype < 2, mc_inventory[''equipped_condoms'']+mc_inventory[''normal_condoms''], mc_inventory[''normal_condoms''])>> normal condoms left and <<iif(preziktype = 2, mc_inventory[''equipped_condoms'']+mc_inventory[''sabotaged_condoms''], mc_inventory[''sabotaged_condoms''])>> sabotaged condoms left.'
  305. *nl
  306. if preziktype > 0:
  307. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
  308. end
  309. if preziktype ! 1:
  310. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
  311. end
  312. if preziktype ! 2:
  313. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
  314. end
  315. if mc_inventory['normal_condoms'] > 0 or preziktype = 0:
  316. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  317. end
  318. *nl
  319. act 'Return':gt 'stol', 'bc'
  320. }
  321. !! Condom System
  322. !! mc_inventory['equipped_condoms']: Total number of condoms sveta is using (normal or damaged).
  323. !! mc_inventory['normal_condoms']: Number of normal condoms sveta isn''t using.
  324. !! mc_inventory['sabotaged_condoms']: Number of damaged condoms seveta isn''t using.
  325. !! preziktype: 0 - Use condoms / 1 - don''t use condoms / 2 - use damaged condoms
  326. !! to check if sveta wants to use a condom use if mc_inventory['equipped_condoms'] > 0:
  327. $din_Do_Condom_Counts = {
  328. *clr & cla
  329. '<center><h1>Condoms</h1></center>'
  330. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  331. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  332. '<td cellspacing="0" cellpadding="0" valign="top">'
  333. if ARGS[0] = 1:
  334. 'Use a condom the next time you have sex.'
  335. if preziktype = 2: mc_inventory['sabotaged_condoms'] = mc_inventory['equipped_condoms']
  336. mc_inventory['equipped_condoms'] = mc_inventory['normal_condoms']
  337. mc_inventory['normal_condoms'] = 0
  338. preziktype = 0
  339. elseif ARGS[0] = 2:
  340. 'You will not use a condom the next time you have sex.'
  341. if preziktype = 0: mc_inventory['normal_condoms'] = mc_inventory['equipped_condoms']
  342. if preziktype = 2: mc_inventory['sabotaged_condoms'] = mc_inventory['equipped_condoms']
  343. mc_inventory['equipped_condoms'] = 0
  344. preziktype = 1
  345. elseif ARGS[0] = 3:
  346. 'Use your sabotaged condom the next time you have sex.'
  347. if preziktype = 0: mc_inventory['normal_condoms'] = mc_inventory['equipped_condoms']
  348. mc_inventory['equipped_condoms'] = mc_inventory['sabotaged_condoms']
  349. mc_inventory['sabotaged_condoms'] = 0
  350. preziktype = 2
  351. elseif ARGS[0] = 4:
  352. if preziktype ! 0 and mc_inventory['normal_condoms'] > 0:
  353. mc_inventory['sabotaged_condoms'] +=1
  354. mc_inventory['normal_condoms'] -= 1
  355. 'You use a needle to punch holes in one of the condoms.'
  356. elseif preziktype = 0 and mc_inventory['equipped_condoms'] > 0:
  357. mc_inventory['sabotaged_condoms'] +=1
  358. mc_inventory['equipped_condoms'] -= 1
  359. 'You use a needle to punch holes in one of the condoms.'
  360. else
  361. 'You do not have any condoms to sabotage.'
  362. end
  363. end
  364. if i = 0:
  365. dynamic $din_Switch_Condom_Menu
  366. else
  367. dynamic $din_Table_Condom_Menu
  368. end
  369. '</td></tr></table></center>'
  370. }
  371. $din_Update_Condom_Counts = {
  372. if mc_inventory['equipped_condoms'] + mc_inventory['normal_condoms'] + mc_inventory['sabotaged_condoms'] > 0: prezikmsg = 1
  373. if preziktype = 0:
  374. if mc_inventory['normal_condoms'] > 0:
  375. mc_inventory['equipped_condoms'] += mc_inventory['normal_condoms']
  376. mc_inventory['normal_condoms'] = 0
  377. end
  378. if mc_inventory['equipped_condoms'] <= 0:
  379. 'You are out of condoms.'
  380. mc_inventory['equipped_condoms'] = 0
  381. mc_inventory['normal_condoms'] = 0
  382. preziktype = 1
  383. end
  384. elseif preziktype = 1:
  385. if mc_inventory['equipped_condoms'] > 0:
  386. mc_inventory['normal_condoms'] += mc_inventory['equipped_condoms']
  387. mc_inventory['equipped_condoms'] = 0
  388. end
  389. elseif preziktype = 2:
  390. if mc_inventory['sabotaged_condoms'] > 0:
  391. mc_inventory['equipped_condoms'] += mc_inventory['sabotaged_condoms']
  392. mc_inventory['sabotaged_condoms'] = 0
  393. end
  394. if mc_inventory['equipped_condoms'] <= 0 and mc_inventory['normal_condoms'] <= 0:
  395. if prezikmsg = 1:prezikmsg = 2
  396. mc_inventory['equipped_condoms'] = 0
  397. mc_inventory['sabotaged_condoms'] = 0
  398. mc_inventory['normal_condoms'] = 0
  399. preziktype = 1
  400. elseif mc_inventory['equipped_condoms'] <= 0 and mc_inventory['normal_condoms'] > 0:
  401. 'You have run out of sabotaged condoms so you will have to use normal condoms.'
  402. mc_inventory['equipped_condoms'] = mc_inventory['normal_condoms']
  403. mc_inventory['normal_condoms'] = 0
  404. preziktype = 0
  405. end
  406. end
  407. }
  408. $d_tabletkied = {
  409. *clr & cla
  410. '<center><h1>Birth Control</h1></center>'
  411. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  412. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  413. '<td cellspacing="0" cellpadding="0" valign="top">'
  414. tabloc = 0
  415. if thinkpreg = 0 and knowpreg = 0:
  416. if tabletkiday < daystart: '<a href="exec:dynamic $d_tabletkieda, 1 & dynamic $d_tabletkied">Take the birth control pill now.</a>'
  417. if tabletkicheck = 0:
  418. if birth_control['remind_hour'] = 0:
  419. '<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Set a reminder to take your birth control pills.</a>'
  420. else
  421. '<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Change your birth control reminder.</a>'
  422. '<a href="exec:gs ''din_bad'', ''turn_off_bc_reminder''">Turn off your birth control reminder.</a>'
  423. end
  424. '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  425. elseif tabletkicheck = 1 and therapistFuckedPussyStage < 2:
  426. '<a href="exec:dynamic $d_tabletkieda, 3 & dynamic $d_tabletkied">Stop automatically taking your birth control pills.</a>'
  427. end
  428. end
  429. '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  430. if tabletkioddk = 1: '<a href="exec:dynamic $d_tabletkieda, 5 & dynamic $d_tabletkied">Dump the strange pills.</a>'
  431. *nl
  432. if birth_control['placebo_skip'] = 0:
  433. 'Skip your <a href="exec:*clr & birth_control[''placebo_skip''] = 1 & dynamic $d_tabletkied">placebo pills.</a>'
  434. '(Will cause you to no longer menstruate)'
  435. else
  436. 'Start taking your <a href="exec:*clr & birth_control[''placebo_skip''] = 0 & dynamic $d_tabletkied">placebo pills</a> again.'
  437. '(Will cause periods to start back up again in your menstrual cycle)'
  438. end
  439. act 'Return':gs 'din_bad', 'd_bag'
  440. '</td></tr></table></center>'
  441. }
  442. $d_tabletkiedt = {
  443. *clr & cla
  444. '<center><h1>Birth Control</h1></center>'
  445. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  446. *nl
  447. tabloc = 1
  448. if thinkpreg = 0 and knowpreg = 0:
  449. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1 & dynamic $d_tabletkiedt">Take the birth control pill now.</a>'
  450. if tabletkicheck = 0:
  451. if birth_control['remind_hour'] = 0:
  452. '<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Set a reminder to take your birth control pills.</a>'
  453. else
  454. '<a href="exec:gs ''din_bad'', ''set_bc_reminder''">Change your birth control reminder.</a>'
  455. '<a href="exec:gs ''din_bad'', ''turn_off_bc_reminder''">Turn off your birth control reminder.</a>'
  456. end
  457. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  458. elseif tabletkicheck = 1 and therapistFuckedPussyStage < 2:
  459. '<a href="exec:*clr & dynamic $d_tabletkieda, 3 & dynamic $d_tabletkiedt">Stop automatically taking your birth control pills.</a>'
  460. end
  461. end
  462. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  463. if tabletkioddk = 1: '<a href="exec:*clr & dynamic $d_tabletkieda, 5 & dynamic $d_tabletkiedt">Dump the strange pills.</a>'
  464. act 'Return':gt 'stol', 'bc'
  465. }
  466. $d_tabletkieda = {
  467. if ARGS[0] = 1:
  468. tabletkipd += tabletkipt
  469. if tabletkiday ! daystart:
  470. gs 'din_bad','takepill'
  471. tabletkiday = daystart
  472. tabletkipt = 0
  473. tabletkipi = 0
  474. else
  475. pcs_health -= 1
  476. end
  477. pilldaychk = daystart
  478. *clr
  479. dynamic $d_tabletkied
  480. 'You take your birth control pill.'
  481. gs 'stat'
  482. elseif ARGS[0] = 2:
  483. birth_control['remind_hour'] = 0
  484. gs 'din_bad', 'set_auto_bc'
  485. 'You will do your best to remember to take your birth control pills every day.'
  486. gs 'stat'
  487. elseif ARGS[0] = 3:
  488. 'You will take your birth control pills as you desire.'
  489. tabletkicheck = 0
  490. gs 'stat'
  491. elseif ARGS[0] = 4:
  492. if pcs_intel + pilldays <= rand(30,95) or therapistFuckedPussyStage > 1:
  493. 'These pills appear to be normal birth control pills.'
  494. tabletkioddk = 0
  495. gs 'stat'
  496. else
  497. if ptype = 0: $pillprob = 'nothing unusual about them.'
  498. if ptype = 1: $pillprob = 'that the pills have expired months ago.'
  499. if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.'
  500. if ptype = 3: $pillprob = 'that the pills are discolored and there is no expiry date.'
  501. if ptype = 4: $pillprob = 'that the pills are all the same color.'
  502. if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.'
  503. 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>'
  504. if ptype > 0: tabletkioddk = 1
  505. gs 'stat'
  506. if tabloc = 0:
  507. act 'Return':gs 'din_bad', 'd_bag'
  508. else
  509. act 'Return':gt 'stol', 'bc'
  510. end
  511. end
  512. elseif ARGS[0] = 5:
  513. 'You get rid of the strange pills.'
  514. tabletkioddk = 0
  515. pillsleft[ptype] = 0
  516. tabletkioddp = 0
  517. gs 'stat'
  518. end
  519. if mc_inventory['contraceptive_pill'] = 0 and pillsleft[ptype] = 0:
  520. msg 'That was your last birth control pill. You need to buy some more.'
  521. end
  522. if tabloc = 0:
  523. act 'Return':gs 'din_bad', 'd_bag'
  524. else
  525. act 'Return':gt 'stol', 'bc'
  526. end
  527. }
  528. if $ARGS[0] = 'set_auto_bc':
  529. :invalid_auto_bc_loop
  530. birth_control['auto_hour'] = input ("When do you want to take your pill? (Pick an hour 1 - 23. At that hour, you will automatically take your birth control pill. If you are asleep during the hour you set, you will not take it.)")
  531. if birth_control['auto_hour'] < 1 or birth_control['auto_hour'] > 23:
  532. msg 'Invalid input. Pick an hour between 1 and 23.'
  533. jump 'invalid_auto_bc_loop'
  534. else
  535. tabletkicheck = 1
  536. msg 'You set a reminder on your phone to take your birth control pill at <<birth_control[''auto_hour'']>>.'
  537. if tabloc = 0:
  538. dynamic $d_tabletkied
  539. else
  540. dynamic $d_tabletkiedt
  541. end
  542. end
  543. end
  544. if $ARGS[0] = 'set_bc_reminder':
  545. :invalid_bc_reminder_loop
  546. birth_control['remind_hour'] = input ("When do you want to set your reminder? (Pick an hour 1 - 22. An icon will appear in the stat display during that hour to remind you to take your pill.)")
  547. if birth_control['remind_hour'] < 1 or birth_control['remind_hour'] > 22:
  548. msg 'Invalid reminder input. Pick an hour between 1 and 22.'
  549. jump 'invalid_bc_reminder'
  550. else
  551. msg 'You set a reminder on your phone to take your birth control pill at <<birth_control[''remind_hour'']>>.'
  552. if tabloc = 0:
  553. dynamic $d_tabletkied
  554. else
  555. dynamic $d_tabletkiedt
  556. end
  557. end
  558. end
  559. if $ARGS[0] = 'turn_off_bc_reminder':
  560. birth_control['remind_hour'] = 0
  561. msg 'You turn off your reminder to take your birth control pills.'
  562. if tabloc = 0:
  563. dynamic $d_tabletkied
  564. else
  565. dynamic $d_tabletkiedt
  566. end
  567. end
  568. $d_cycreport_choice = {
  569. *clr & cla
  570. '<center><h1>Fertility Cycle</h1></center>'
  571. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  572. '<td width="800" cellspacing="0" cellpadding="0" valign="top">'
  573. dynamic $d_cycreport_update
  574. '<center><b>Current Status:</b></center>'
  575. '<center><<$cycreport_txt>></center>'
  576. '</td></tr></table></center><center><table cellspacing="0" cellpadding="20" valign="top"><tr><td width="250" valign="top">'
  577. if $cycreport_txt ! 'In labour' and succubusflag = 0:
  578. '<center><b>Change Status because:</b></center>'
  579. if thinkpreg = 0:
  580. if knowpreg = 1:
  581. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I''m pregnant.</a>'
  582. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I can''t be pregnant no matter the evidence.</a>'
  583. else
  584. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I think I''m pregnant.</a>'
  585. end
  586. elseif thinkpreg = 1:
  587. if knowpreg = 1:
  588. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I can''t be pregnant no matter the evidence.</a>'
  589. else
  590. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I''m not pregnant.</a>'
  591. end
  592. end
  593. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  594. '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  595. elseif thinkpreg ! 1:
  596. '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  597. '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  598. end
  599. if thinkpreg = 1 or knowpreg = 1:
  600. '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  601. '<a href="exec: dynamic $d_cycreport_actor, 7">I think the father is...</a>'
  602. end
  603. if knowpregloss = 1:
  604. '<a href="exec: dynamic $d_cycreport_actor, 8">I just had an abortion.</a>'
  605. elseif knowpregloss > 1 or thinkpreg = 1:
  606. '<a href="exec: dynamic $d_cycreport_actor, 8">I think I lost a baby.</a>'
  607. end
  608. elseif cycle = 5:
  609. 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.'
  610. else
  611. dynamic $d_cycreport_actor, 10
  612. end
  613. act 'Exit':gs 'stat' & gt $loc, $loc_arg
  614. '</td></tr></table></center>'
  615. }
  616. $d_cycreport_actor = {
  617. !! Svetlana has decided she is not pregnant
  618. if ARGS[0] = 1:
  619. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  620. if knowpreg = 1:
  621. denypreg = 1
  622. thinkpreg = 0
  623. else
  624. denypreg = 0
  625. thinkpreg = 0
  626. end
  627. dynamic $d_cycreport_update
  628. gs 'stat'
  629. dynamic $d_cycreport_choice
  630. !! Svetlana has decided she is pregnant.
  631. elseif ARGS[0] = 2:
  632. thinkpreg = 1
  633. denypreg = 0
  634. dynamic $d_cycreport_update
  635. gs 'stat'
  636. dynamic $d_cycreport_choice
  637. !! Svetlana is Menstrating.
  638. elseif ARGS[0] = 3:
  639. thinkpreg = 0
  640. denypreg = 0
  641. daylastperiod = daystart
  642. dynamic $d_cycreport_update
  643. gs 'stat'
  644. dynamic $d_cycreport_choice
  645. !! Svetlana is remembering her last period.
  646. elseif ARGS[0] = 4:
  647. thinkpreg = 0
  648. denypreg = 0
  649. *clr & cla
  650. '<center><h1>Fertility Cycle</h1></center>'
  651. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  652. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  653. 'How many days ago was it you had your last period?'
  654. 'Currently: <<pertemp>>'
  655. '<a href="exec: pertemp += 1 & dynamic $d_cycreport_actor, 4">+1</a> <a href="exec: pertemp += 5 & dynamic $d_cycreport_actor, 4">+5</a> <a href="exec: pertemp += 10 & dynamic $d_cycreport_actor, 4">+10</a> <a href="exec: pertemp = 0 & dynamic $d_cycreport_actor, 4">Reset</a> <a href="exec: daylastperiod = (daystart - pertemp) & dynamic $d_cycreport_update & gs ''stat'' & dynamic $d_cycreport_choice">Accept</a>'
  656. act 'Return':dynamic $d_cycreport_choice
  657. act 'Exit':gs 'stat' & gt $loc, $loc_arg
  658. '</td></tr></table></center>'
  659. !! Svetlana thinks she doesn''t have periods anymore. Good birth control has this effect (as does pregnancy.)
  660. elseif ARGS[0] = 5:
  661. if knowpreg = 1:
  662. denypreg = 1
  663. else
  664. denypreg = 0
  665. end
  666. thinkpreg = 0
  667. $cycreport_txt = 'You do not believe you have periods any more.'
  668. gs 'stat'
  669. dynamic $d_cycreport_choice
  670. !! Svetlana is trying to figure out her due date.
  671. elseif ARGS[0] = 6:
  672. *clr & cla
  673. '<center><h1>Fertility Cycle</h1></center>'
  674. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  675. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  676. 'How many days ago was it you had your last period?'
  677. 'Currently: <<pertemp>>'
  678. '<a href="exec: pertemp += 1 & dynamic $d_cycreport_actor, 6">+1</a> <a href="exec: pertemp += 5 & dynamic $d_cycreport_actor, 6">+5</a> <a href="exec: pertemp += 10 & dynamic $d_cycreport_actor, 6">+10</a> <a href="exec: pertemp = 0 & dynamic $d_cycreport_actor, 6">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat'' & dynamic $d_cycreport_choice">Accept</a>'
  679. act 'Return':dynamic $d_cycreport_choice
  680. act 'Exit':gs 'stat' & gt $loc, $loc_arg
  681. '</td></tr></table></center>'
  682. !! Svetlana is trying to guess who is the babydaddy.
  683. elseif ARGS[0] = 7:
  684. *clr & cla
  685. '<center><h1>Fertility Cycle</h1></center>'
  686. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  687. '<td width="500" cellspacing="0" cellpadding="0" valign="top">'
  688. potfather_temp[1] = arrsize('$wombpotfath')
  689. if potfather_temp[1] > 0:
  690. potfather_counter = 0
  691. 'List of potential fathers:'
  692. :potfather_loop
  693. if $wombpotfath[potfather_counter] ! 'unknown':
  694. $potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$wombpotfath[potfather_counter]]>> (<<$wombpotfath[potfather_counter]>>)</a>'
  695. else
  696. $potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
  697. end
  698. 'Potential father (<<potfather_counter + 1>>): <<$potfather_temp[2]>>'
  699. potfather_counter += 1
  700. if potfather_counter < arrsize('$wombpotfath'): jump 'potfather_loop'
  701. else
  702. 'There are no potential fathers.'
  703. end
  704. killvar 'potfather_counter'
  705. '<br> <a href="exec:dynamic $d_cycreport_choice & gs ''stat''">Accept</a>'
  706. '</td></tr></table></center>'
  707. act 'Return':dynamic $d_cycreport_choice
  708. act 'Exit':gs 'stat' & gt $loc, $loc_arg
  709. !! This is the old code that was broken, keeping it for now (julzor)
  710. !! {
  711. tempmax = arrsize('$cumfthname')-1
  712. tempcurr = 0
  713. sumcum = 0
  714. *nl
  715. :potfathloop
  716. if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
  717. if cumtime[tempcurr] > 0: '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
  718. if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
  719. if sumcum > 1:$cum = 's' else $cum = ''
  720. '<br>You think you have had <<sumcum>> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.'
  721. 'You suspect the father being: <<$wombthfath>><br>'
  722. *nl
  723. tempcurr = 0
  724. :pickfathloop
  725. if cumtime[tempcurr] > 0:
  726. if $npc_usedname[$cumfthname[tempcurr]] <> '':
  727. '<a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
  728. else
  729. ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
  730. end
  731. end
  732. if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
  733. killvar 'sumcum'
  734. killvar 'cum'
  735. killvar 'tempmax'
  736. killvar 'tempcurr'
  737. }
  738. !! Just recently lost a baby to abortion, miscarriage, or think you did because your period finally arrived.
  739. elseif ARGS[0] = 8:
  740. thinkpreg = 0
  741. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.'
  742. dynamic $d_cycreport_update
  743. gs 'stat'
  744. dynamic $d_cycreport_choice
  745. !! Just recently gave birth.
  746. elseif ARGS[0] = 10:
  747. temp = arrsize('Babyptype')
  748. temp -= 1
  749. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  750. gs 'stat'
  751. end
  752. }
  753. $d_cycreport_update = {
  754. killvar 'temp'
  755. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  756. !! Vagblood in a future update to account for babydamage and miscarrages.
  757. if mesec > 0 or vagblood > 0:
  758. $cycreport_txt = 'You are currently menstruating.'
  759. elseif succubusflag = 1:
  760. $cycreport_txt = 'As a succubus you no longer menstruate.'
  761. else
  762. if cyccustom = 1:
  763. if preg = 1 and knowpreg = 1:
  764. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  765. if $wombthfath <> 'unknown' and $wombthfath <> '':
  766. $cycreport_txt = '<<$cycreport_txt>> You suspect the father being <<$wombthfath>>.'
  767. end
  768. elseif knowpregloss = 1:
  769. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your abortion.'
  770. elseif knowpregloss = 2:
  771. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.'
  772. elseif knowpregrecover = 1:
  773. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  774. elseif menoage <= age and cycle = 6:
  775. $cycreport_txt = 'You have gone through menopause.'
  776. else
  777. temp[1] = daystart-daylastperiod
  778. if tabletkishot > 0:
  779. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>You are currently protected by a birth control shot.</font>'
  780. elseif birth_control['implant_status'] > 1 and pillcon2 >= 30000:
  781. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>Your implant protects you from getting pregnant.</font>'
  782. elseif birth_control['implant_status'] > 1 and pillcon2 < 30000:
  783. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>Your implant is not yet effective.</font>'
  784. elseif pillcon2 > 0 and birth_control['think_safe'] = 1:
  785. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>You are currently on the birth control pill.</font>'
  786. elseif pillcon2 > 0 and ((FocH > (Foch_Max - 96)) or ovulate > 0) and birth_control['think_safe'] = 0 and birth_control['using_bc'] > 0:
  787. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You are currently on the pill but it is not yet effective. <font color=red>It is currently your fertile stage and a dangerous day to have unprotected sex.</font>'
  788. elseif pillcon2 > 0 and birth_control['think_safe'] = 0 and birth_control['using_bc'] > 0:
  789. if stat['safe_day'] = 1:
  790. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You are currently on the pill but it is not yet effective. <font color=green>Today is a safe day to have unprotected sex.</font>'
  791. elseif birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1:
  792. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You are currently on the pill but it is not yet effective. <font color=orange>Today is <i>probably</i> a safe day to have unprotected sex.</font>'
  793. elseif birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1:
  794. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You are currently on the pill but it is not yet effective. <font color=red>Today is a dangerous day to have unprotected sex.</font>'
  795. end
  796. elseif daystart = tabletkiday:
  797. if stat['safe_day'] = 1:
  798. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective. <font color=green>Today is a safe day to have unprotected sex.</font>'
  799. elseif birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1:
  800. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective. <font color=blue>Today is <i>probably</i> a safe day to have unprotected sex.</font>'
  801. elseif birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1:
  802. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. You have taken the pill but it will be several weeks before it is fully effective. <font color=red>Today is a dangerous day to have unprotected sex.</font>'
  803. end
  804. elseif FocH > (Foch_Max - 96) or ovulate > 0:
  805. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>It is currently your fertile stage.</font>'
  806. elseif birth_control['implant_status'] = 1:
  807. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>Your implant stopped working. You need a new one.</font>'
  808. elseif birth_control['think_safe'] ! 1 and stat['safe_day'] = 1:
  809. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>Today is a safe day to have unprotected sex.</font>'
  810. elseif birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1:
  811. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=orange>Today is <i>probably</i> a safe day to have unprotected sex.</font>'
  812. elseif birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1:
  813. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=red>Today is a dangerous day to have unprotected sex.</font>'
  814. else
  815. $cycreport_txt = 'It has been <<temp[1]>> days since the start of your last period.'
  816. end
  817. !!{ if stat['vaginal'] > 0 and birth_control['think_safe'] ! 1 and stat['safe_day'] = 1:
  818. $calendar_method_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>Today is a safe day to have unprotected sex.</font>'
  819. elseif stat['vaginal'] > 0 and birth_control['think_safe'] ! 1 and stat['probably_safe_day'] = 1:
  820. $calendar_method_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>You are unlikely to get pregnant if you have unprotected sex today.</font>'
  821. elseif stat['vaginal'] > 0 and birth_control['think_safe'] ! 1 and stat['dangerous_day'] = 1:
  822. $calendar_method_txt = 'It has been <<temp[1]>> days since the start of your last period. <font color=green>Today is a safe day to have unprotected sex.</font>'
  823. end}
  824. end
  825. elseif denypreg = 1:
  826. if pregchem < 525:
  827. denypreg = 1
  828. thinkpreg = 0
  829. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  830. elseif pregchem < 1863:
  831. denypreg = 1
  832. thinkpreg = 0
  833. $cycreport_txt = 'You have a strange flu making you feel ill.'
  834. elseif pregchem < 4000:
  835. denypreg = 1
  836. thinkpreg = 0
  837. $cycreport_txt = 'Your strange flu still hasn''t gone away. As soon as it does you plan to exercise and lose the excess fat you''be been building up.'
  838. elseif pregchem < 6000:
  839. denypreg = 1
  840. thinkpreg = 0
  841. $cycreport_txt = 'Your weight just won''t come off...'
  842. elseif pregchem < 7500:
  843. denypreg = 1
  844. thinkpreg = 0
  845. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  846. elseif pregchem >= 7500:
  847. thinkpreg = 0
  848. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  849. else
  850. temp = daystart-daylastperiod
  851. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  852. end
  853. elseif cyccustom = 0:
  854. if $cycreport_txt ! 'In labour':
  855. if thinkpreg = 1 or knowpreg = 1:
  856. if knowpreg = 0: $temp = ' think you'
  857. if $wombthfath = 'unknown' or $wombthfath = '':
  858. $cycreport_txt = 'You<<$temp>> are pregnant. You aren''t yet sure who the father is. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  859. else
  860. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  861. end
  862. elseif $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your miscarrage.':
  863. if knowpregloss = 1: $cycreport_txt = 'Your body is recovering from the trauma of pregnancy after your abortion.'
  864. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  865. temp = daystart-daylastperiod
  866. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  867. end
  868. killvar 'temp'
  869. end
  870. end
  871. end
  872. }
  873. $d_cycreport_upduedate = {
  874. !! implant_calc: Calculation of an implantation date in the uterus (Average is 5 days after ovulation)
  875. implant_calc = daystart - lastovulation + 5
  876. !! Human gastation period: 280 days
  877. gastation_time = 280 / (1 + pregspeedcheat)
  878. temp = gastation_time - implant_calc
  879. pregdueday = day
  880. pregduemonth = month
  881. pregdueyear = year
  882. temp += pregdueday
  883. pregdueday = 0
  884. :pregduedateloop
  885. if pregduemonth = 1 and temp > 31:
  886. pregduemonth += 1
  887. temp -= 31
  888. elseif pregduemonth = 2 and temp > 28:
  889. pregduemonth += 1
  890. temp -= 28
  891. elseif pregduemonth = 3 and temp > 31:
  892. pregduemonth += 1
  893. temp -= 31
  894. elseif pregduemonth = 4 and temp > 30:
  895. pregduemonth += 1
  896. temp -= 30
  897. elseif pregduemonth = 5 and temp > 31:
  898. pregduemonth += 1
  899. temp -= 31
  900. elseif pregduemonth = 6 and temp > 30:
  901. pregduemonth += 1
  902. temp -= 30
  903. elseif pregduemonth = 7 and temp > 31:
  904. pregduemonth += 1
  905. temp -= 31
  906. elseif pregduemonth = 8 and temp > 31:
  907. pregduemonth += 1
  908. temp -= 31
  909. elseif pregduemonth = 9 and temp > 30:
  910. pregduemonth += 1
  911. temp -= 30
  912. elseif pregduemonth = 10 and temp > 31:
  913. pregduemonth += 1
  914. temp -= 31
  915. elseif pregduemonth = 11 and temp > 30:
  916. pregduemonth += 1
  917. temp -= 30
  918. elseif pregduemonth = 12 and temp > 31:
  919. pregduemonth = 1
  920. pregdueyear += 1
  921. temp -= 31
  922. else
  923. pregdueday = temp
  924. temp = 0
  925. end
  926. if temp > 0: jump 'pregduedateloop'
  927. $pregduedate = '<<pregdueday>> '
  928. if pregduemonth = 1:
  929. $pregduedate += 'Jan'
  930. elseif pregduemonth = 2:
  931. $pregduedate += 'Feb'
  932. elseif pregduemonth = 3:
  933. $pregduedate += 'Mar'
  934. elseif pregduemonth = 4:
  935. $pregduedate += 'Apr'
  936. elseif pregduemonth = 5:
  937. $pregduedate += 'May'
  938. elseif pregduemonth = 6:
  939. $pregduedate += 'Jun'
  940. elseif pregduemonth = 7:
  941. $pregduedate += 'Jul'
  942. elseif pregduemonth = 8:
  943. $pregduedate += 'Aug'
  944. elseif pregduemonth = 9:
  945. $pregduedate += 'Sep'
  946. elseif pregduemonth = 10:
  947. $pregduedate += 'Oct'
  948. elseif pregduemonth = 11:
  949. $pregduedate += 'Nov'
  950. elseif pregduemonth = 12:
  951. $pregduedate += 'Dec'
  952. end
  953. $pregduedate += ' <<pregdueyear>>'
  954. }
  955. $d_pregmovement = {
  956. if denypreg = 0 and pregchem > 0:
  957. if thinkpreg > 0 and knowpreg = 0:
  958. knowpreg = 1
  959. if kid <= 0:
  960. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  961. else
  962. 'The movement inside you confirms what you already suspected. You are pregnant once again.'
  963. end
  964. elseif knowpreg > 0:
  965. temprand = rand(0,2)
  966. if temprand = 0:
  967. if pregchem > 5000:
  968. 'Your baby visibly moves around inside you.'
  969. else
  970. 'You feel movement deep inside you as your baby shifts around.'
  971. end
  972. elseif temprand = 1:
  973. if pregchem > 5000:
  974. 'You wince as your baby delivers a vicious kick to your insides.'
  975. else
  976. 'You feel your baby kicking.'
  977. end
  978. elseif temprand = 2:
  979. if pregchem > 5000:
  980. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  981. else
  982. 'You feel your baby kicking.'
  983. end
  984. end
  985. else
  986. if cyccustom = 1:
  987. if pregchem < 4000:
  988. if kid <= 0 :
  989. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should see the doctor?'
  990. else
  991. 'It feels as if a baby is moving inside you. Are you pregnant?'
  992. end
  993. else
  994. knowpreg = 1
  995. if kid <= 0:
  996. 'It''s become pretty obvious. You are pregnant.'
  997. else
  998. 'It''s become pretty obvious. You are pregnant once again.'
  999. end
  1000. end
  1001. end
  1002. end
  1003. elseif pregchem > 0:
  1004. if kid > 0 and PregChem > 3903:
  1005. 'You try to deny it, but you just can''t any more. The large belly, the movement, you are pregnant once again.'
  1006. denypreg = 0
  1007. dynamic $d_cycreport_upduedate
  1008. $cycreport_txt = 'You are pregnant.'
  1009. else
  1010. 'You feel movement deep inside you. It''s probably just gas.'
  1011. end
  1012. end
  1013. }
  1014. if $ARGS[0] = 'takepill':
  1015. birth_control['using_bc'] = 3
  1016. if mc_inventory['contraceptive_pill'] > 0 and pillsleft[ptype] = 0:
  1017. tabletkirand = rand(1, mc_inventory['contraceptive_pill'])
  1018. if tabletkirand <= tabletkiold:
  1019. mc_inventory['contraceptive_pill'] -= 1
  1020. tabletkiold -= 1
  1021. ptype = 1
  1022. pillsleft[ptype] = 28
  1023. elseif tabletkirand <= tabletkiold + tabletkifake:
  1024. mc_inventory['contraceptive_pill'] -= 1
  1025. tabletkifake -= 1
  1026. ptype = 2
  1027. pillsleft[ptype] = 28
  1028. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej:
  1029. mc_inventory['contraceptive_pill'] -= 1
  1030. tabletkirej -= 1
  1031. ptype = 3
  1032. pillsleft[ptype] = 28
  1033. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug:
  1034. mc_inventory['contraceptive_pill'] -= 1
  1035. tabletkisug -= 1
  1036. ptype = 4
  1037. pillsleft[ptype] = 28
  1038. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert:
  1039. mc_inventory['contraceptive_pill'] -= 1
  1040. tabletkifert -= 1
  1041. ptype = 5
  1042. pillsleft[ptype] = 28
  1043. else
  1044. mc_inventory['contraceptive_pill'] -= 1
  1045. ptype = 0
  1046. pillsleft[ptype] = 28
  1047. end
  1048. killvar 'tabletkirand'
  1049. end
  1050. !! added empty week to allow menstruation - it take effect only when the pills are taken automatically
  1051. !! if placebopart <= 0 or tabletkicheck ! 1:
  1052. if placebopart <= 0 or birth_control['placebo_skip'] = 1:
  1053. if ptype = 0:
  1054. pillsleft[ptype] -= 1
  1055. pcs_skin += 1
  1056. pillcon += ((pillcon + 15000) / 25) + 4000
  1057. elseif ptype = 1:
  1058. pillsleft[ptype] -= 1
  1059. pcs_skin += rand(0,1)
  1060. pillcon += (( pillcon+ 15000) / 25)+ rand(2000,4000)
  1061. elseif ptype = 2:
  1062. pillsleft[ptype] -= 1
  1063. pcs_skin += rand(0,1)
  1064. pillcon += ((pillcon + 15000) / 25)+ rand(500,2000)
  1065. elseif ptype = 3:
  1066. pillsleft[ptype] -= 1
  1067. pcs_skin += rand(0,1)
  1068. if rand(0,4) = 0: pain['tummy'] += rand(5,10)
  1069. pillcon += ((pillcon + 15000) / 25)+ rand(2000,6000)
  1070. elseif ptype = 4:
  1071. pillsleft[ptype] -= 1
  1072. elseif ptype = 5:
  1073. pillsleft[ptype] -= 1
  1074. pcs_skin += 1
  1075. EggRH += rand(10,80)
  1076. end
  1077. !!pillcon2 is the ideal state, PC considers this the believed pillcon value
  1078. pillcon2 += ((pillcon2 + 15000) / 25) + 4000
  1079. if pillcon2 > 40000: pillcon2 = 40000
  1080. if pillcon > 40000: pillcon = 40000
  1081. gs 'fertility', 'update'
  1082. end
  1083. end
  1084. if $ARGS[0] = 'quick_takepill':
  1085. tabletkipd += tabletkipt
  1086. if tabletkiday ! daystart:
  1087. gs 'din_bad','takepill'
  1088. tabletkiday = daystart
  1089. tabletkipt = 0
  1090. tabletkipi = 0
  1091. else
  1092. pcs_health -= 1
  1093. end
  1094. pilldaychk = daystart
  1095. if birth_control['message_skip'] ! daystart:
  1096. if mc_inventory['contraceptive_pill'] = 0 and pillsleft[ptype] = 0:
  1097. msg 'That was your last birth control pill. You need to buy some more.'
  1098. else
  1099. msg 'You take your birth control pill.'
  1100. end
  1101. end
  1102. gs 'stat'
  1103. end
  1104. if $ARGS[0] = 'p_deodorant':
  1105. minut += 1
  1106. mc_inventory['deodorant'] -= 1
  1107. gs 'sweat', 'deo'
  1108. gs 'stat'
  1109. gs 'din_bad', 'd_bag'
  1110. end
  1111. --- din_bad ---------------------------------