din_bad.qsrc 43 KB

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