din_bad.qsrc 37 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952
  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</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 clean your belly</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 clean your breasts</b></a>'
  84. if cumloc[1] > 0 or cumloc[4] > 0: '<a href="exec:salfetka -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe clean your ass and pussy</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 clean your arms and legs</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 up clothing</b></a>'
  87. if pcs_makeup ! 1: '<a href="exec:salfetka -= 1 & pcs_makeup = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Wipe cosmetics</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_kosmetitka = {
  92. *clr & cla
  93. '<center><h1>Cosmetics</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. gs 'stat'
  98. if kosmetitka >= 1: '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 2 & kosmetitka -= 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Light make-up</b></a>'
  99. if kosmetitka >= 2: '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 3 & kosmetitka -= 2 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Natural make-up</b></a>'
  100. if kosmetitka >= 3: '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 4 & kosmetitka -= 3 & gs ''stat'' & gs ''din_bad'', ''d_bag''"><b>Heavy make-up</b></a>'
  101. act 'Close makeup bag':gs 'stat' & gs 'din_bad', 'd_bag'
  102. '</td></tr></table></center>'
  103. }
  104. $d_mouthwash = {
  105. *clr & cla
  106. '<center><h1>Mouth Wash</h1></center>'
  107. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  108. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  109. '<td cellspacing="0" cellpadding="0" valign="top">'
  110. pcs_breath = 1
  111. cumspclnt = 2
  112. gs 'cum_cleanup'
  113. mouthwash -= 1
  114. gs 'stat'
  115. 'Your breath smells minty fresh.'
  116. ''
  117. act 'Done':gs 'stat' & gs 'din_bad', 'd_bag'
  118. '</td></tr></table></center>'
  119. }
  120. if $ARGS[0] = 'd_bag':
  121. *clr & cla
  122. '<center><h1>Purse</h1></center>'
  123. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  124. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  125. '<td cellspacing="0" cellpadding="0" valign="top">'
  126. if salfetka > 0: 'You have <b><<salfetka>></b> wet wipes left in your purse. <a href="exec:dynamic $d_salf">Use a tissue</a>'
  127. if pain_timer > totminut - 242 and painkiller > 0: 'Take a <a href="exec:pain[''killer''] = 1 & painkiller -= 1 & pain_timer = totminut & gs ''din_bad'', ''d_bag''">painkiller</a>. <b><<painkiller>></b> painkillers left in your purse.'
  128. if kosmetitka > 0 and pcs_makeup = 1: 'There''s a portable makeup in your purse. <b><<kosmetitka>></b> cosmetic applications left. <a href="exec:dynamic $d_kosmetitka">Put on makeup</a>'
  129. if kosmetitka > 0 and pcs_makeup ! 1: 'There''s a portable makeup in your purse. <b><<kosmetitka>></b> cosmetic applications left.'
  130. if mouthwash > 0 and (pcs_breath = 0 or cumloc[12] = 1): 'There''s a mouthwash in your purse. <b><<mouthwash>></b> uses remaining. <a href="exec:dynamic $d_mouthwash">Use mouthwash</a>'
  131. if mouthwash > 0 and pcs_breath = 1 and cumloc[12] = 0: 'There''s a mouthwash in your purse. <b><<mouthwash>></b> uses remaining.'
  132. if greben > 0 and pcs_hairbsh = 0: 'There''s a hairbrush in your purse. <a href="exec:pcs_hairbsh = 1 & gs ''stat'' & gs ''din_bad'', ''d_bag''">Brush your hair</a>'
  133. if greben > 0 and pcs_hairbsh = 1: 'There''s a hairbrush in your purse. Your hair doesn''t need brushing right now.'
  134. if prezik + prezikcount + preziksabo > 0:
  135. if preziktype = 2 or preziksabo > 0:
  136. '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 the purse.</a>'
  137. elseif preziktype < 2 and preziksabo = 0:
  138. 'You have <b><<prezik+prezikcount>></b> <a href="exec:dynamic $din_Switch_Condom_Menu">condoms left in the purse.</a>'
  139. end
  140. *nl
  141. else
  142. 'You are out of condoms.'
  143. end
  144. if amphetamine > 0: 'You have <b><<amphetamine>></b> tablets of amphetamine left in your purse. <a href="exec:dynamic $use_amphetamines & gs ''din_bad'', ''d_bag''">Take One</a>'
  145. if tabletki > 0 and pillsleft[ptype] > 0:
  146. '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.'
  147. elseif tabletki = 0 and pillsleft[ptype] > 0:
  148. 'You have <b><<pillsleft[ptype]>></b> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left in your purse.'
  149. elseif tabletki > 0 and pillsleft[ptype] = 0:
  150. 'You have <b><<tabletki>></b> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> in your purse.'
  151. else
  152. 'You are out of birth control pills.'
  153. end
  154. if mentats_have > 0:'<a href="exec:dynamic $use_mentats & gs ''din_bad'', ''d_bag''">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.'
  155. 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.'
  156. 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.'
  157. if aphrodisiac_have > 0:'<a href="exec:dynamic $use_aphrodisiac & gs ''din_bad'', ''d_bag''">Chew aphrodisiac gum.</a> You have <b><<aphrodisiac_have>></b> gum left in your purse.'
  158. if lubri > 0:'There''s a tube of lubricant in your purse, enough for <b><<lubri>></b> applications.'
  159. 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>'
  160. 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>'
  161. if wine = 1 and alkowine = 0:'There''s a bottle of <a href="exec:dynamic $dinalkowin1">wine</a> in your purse.'
  162. if wine = 1 and alkowine = 1:'There''s a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a> in your purse.'
  163. if foto = 1:'Your purse contains a strange photo'
  164. if pattest > 0:
  165. iif(used_pattest > 1,$tt = 's',$tt = '')
  166. 'You have <b><<pattest>></b> unused paternity test<<$tt>> in your purse.'
  167. end
  168. if used_pattest > 0:
  169. iif(used_pattest > 1,$tt = 's',$tt = '')
  170. 'You have <b><<used_pattest>></b> <a href="exec:dynamic $test_purse">used</a> paternity test<<$tt>> in your purse.'
  171. end
  172. killvar 'tt'
  173. act 'Return':gt 'obj_din', 'menu_exit'
  174. '</td></tr></table></center>'
  175. end
  176. $dinalkowin1 = {
  177. *clr & cla
  178. alkowine = 1
  179. if pcs_hydra >= 100:
  180. pcs_hydra -= 5
  181. else
  182. pcs_hydra -= 10
  183. end
  184. if pcs_intel > 5 : intel_deg -= 1
  185. alko += 5
  186. cumspclnt = 2
  187. gs 'cum_cleanup'
  188. pcs_breath = 0
  189. gs'stat'
  190. '<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
  191. *nl
  192. '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.'
  193. act 'Continue':gs 'din_bad', 'd_bag'
  194. }
  195. $dinalkowin2 = {
  196. *clr & cla
  197. alkowine = 0
  198. if pcs_hydra >= 100:
  199. pcs_hydra -= 5
  200. else
  201. pcs_hydra -= 10
  202. end
  203. wine = 0
  204. if pcs_intel > 5: intel_deg -= 1
  205. alko += 5
  206. cumspclnt = 2
  207. gs 'cum_cleanup'
  208. pcs_breath = 0
  209. gs'stat'
  210. '<center><img <<$set_imgh>> src="images/shared/food/alkowin.jpg"></center>'
  211. *nl
  212. '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.'
  213. act 'Continue':gs 'din_bad', 'd_bag'
  214. }
  215. $din_Switch_Condom_Menu = {
  216. dynamic $din_Update_Condom_Counts
  217. *clr & cla
  218. '<center><h1>Condoms</h1></center>'
  219. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  220. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  221. '<td cellspacing="0" cellpadding="0" valign="top">'
  222. i = 0
  223. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
  224. *nl
  225. if preziktype > 0:
  226. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
  227. end
  228. if preziktype ! 1:
  229. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
  230. end
  231. if preziktype ! 2:
  232. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
  233. end
  234. if prezikcount > 0 or preziktype = 0:
  235. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  236. end
  237. *nl
  238. act 'Return':gs 'din_bad', 'd_bag'
  239. '</td></tr></table></center>'
  240. }
  241. $din_Table_Condom_Menu = {
  242. dynamic $din_Update_Condom_Counts
  243. *clr & cla
  244. '<center><h1>Condoms</h1></center>'
  245. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  246. *nl
  247. i = 1
  248. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal condoms left and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms left.'
  249. *nl
  250. if preziktype > 0:
  251. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to using normal condoms</a>.'
  252. end
  253. if preziktype ! 1:
  254. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using condoms</a>.'
  255. end
  256. if preziktype ! 2:
  257. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to using sabotaged condoms</a>.'
  258. end
  259. if prezikcount > 0 or preziktype = 0:
  260. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  261. end
  262. *nl
  263. act 'Return':gt 'stol', 'bc'
  264. }
  265. $din_Do_Condom_Counts = {
  266. !{set condom count and type}
  267. *clr & cla
  268. '<center><h1>Condoms</h1></center>'
  269. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  270. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  271. '<td cellspacing="0" cellpadding="0" valign="top">'
  272. if ARGS[0] = 1:
  273. 'Offer a condom the next time you have sex.'
  274. if preziktype = 2: preziksabo = prezik
  275. prezik = prezikcount
  276. prezikcount = 0
  277. preziktype = 0
  278. elseif ARGS[0] = 2:
  279. 'You will not offer a condom the next time you have sex.'
  280. if preziktype = 0: prezikcount = prezik
  281. if preziktype = 2: preziksabo = prezik
  282. prezik = 0
  283. preziktype = 1
  284. elseif ARGS[0] = 3:
  285. 'Offer your sabotaged condom the next time you have sex.'
  286. if preziktype = 0: prezikcount = prezik
  287. prezik = preziksabo
  288. preziksabo = 0
  289. preziktype = 2
  290. elseif ARGS[0] = 4:
  291. if preziktype ! 0 and prezikcount > 0:
  292. preziksabo +=1
  293. prezikcount -=1
  294. 'You use a needle to punch holes in one of the condoms.'
  295. elseif preziktype = 0 and prezik > 0:
  296. preziksabo +=1
  297. prezik -=1
  298. 'You use a needle to punch holes in one of the condoms.'
  299. else
  300. 'You do not have any condoms to sabotage.'
  301. end
  302. end
  303. if i = 0:
  304. dynamic $din_Switch_Condom_Menu
  305. else
  306. dynamic $din_Table_Condom_Menu
  307. end
  308. '</td></tr></table></center>'
  309. }
  310. $din_Update_Condom_Counts = {
  311. if prezik + prezikcount + preziksabo > 0: prezikmsg = 1
  312. if preziktype = 0:
  313. if prezikcount > 0:
  314. prezik += prezikcount
  315. prezikcount = 0
  316. end
  317. if prezik <= 0:
  318. 'You are out of condoms.'
  319. prezik = 0
  320. prezikcount = 0
  321. preziktype = 1
  322. end
  323. elseif preziktype = 1:
  324. if prezik > 0:
  325. prezikcount += prezik
  326. prezik = 0
  327. end
  328. elseif preziktype = 2:
  329. if preziksabo > 0:
  330. prezik += preziksabo
  331. preziksabo = 0
  332. end
  333. if prezik <= 0 and prezikcount <= 0:
  334. if prezikmsg = 1:prezikmsg = 2
  335. prezik = 0
  336. preziksabo = 0
  337. prezikcount = 0
  338. preziktype = 1
  339. elseif prezik <= 0 and prezikcount > 0:
  340. 'You have run out of sabotaged condoms so you will have to use normal condoms.'
  341. prezik = prezikcount
  342. prezikcount = 0
  343. preziktype = 0
  344. end
  345. end
  346. }
  347. $d_tabletkied = {
  348. *clr & cla
  349. '<center><h1>Birth Control</h1></center>'
  350. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  351. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  352. '<td cellspacing="0" cellpadding="0" valign="top">'
  353. tabloc = 0
  354. if tabletkiday < daystart: '<a href="exec:dynamic $d_tabletkieda, 1">Take the birth control pill now.</a>'
  355. if tabletkicheck = 0:
  356. '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  357. elseif tabletkicheck = 1:
  358. '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</a>'
  359. end
  360. '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  361. if tabletkioddk = 1: '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</a>'
  362. act 'Return':gs 'din_bad', 'd_bag'
  363. '</td></tr></table></center>'
  364. }
  365. $d_tabletkiedt = {
  366. *clr & cla
  367. '<center><h1>Birth Control</h1></center>'
  368. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  369. *nl
  370. tabloc = 1
  371. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take the birth control pill now.</a>'
  372. if tabletkicheck = 0:
  373. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  374. elseif tabletkicheck = 1:
  375. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</a>'
  376. end
  377. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  378. if tabletkioddk = 1: '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</a>'
  379. act 'Return':gt 'stol', 'bc'
  380. }
  381. $d_tabletkieda = {
  382. cla
  383. if ARGS[0] = 1:
  384. tabletkipd += tabletkipt
  385. if tabletkiday ! daystart:
  386. gs 'din_bad','takepill'
  387. tabletkiday = daystart
  388. tabletkipt = 0
  389. tabletkipi = 0
  390. else
  391. pcs_health -= 1
  392. end
  393. pilldaychk = 1
  394. *clr
  395. dynamic $d_tabletkied
  396. 'You take the birth control pill.'
  397. gs 'stat'
  398. elseif ARGS[0] = 2:
  399. 'You will do your best to remember to take your birth control pills every day.'
  400. tabletkicheck = 1
  401. gs 'stat'
  402. elseif ARGS[0] = 3:
  403. 'You will take your birth control pills as you desire.'
  404. tabletkicheck = 0
  405. gs 'stat'
  406. elseif ARGS[0] = 4:
  407. if pcs_intel + pillsdays <= rand(30,95):
  408. 'These pills appear to be normal birth control pills.'
  409. tabletkioddk = 0
  410. gs 'stat'
  411. else
  412. if ptype = 0: $pillprob = 'nothing unusual about them.'
  413. if ptype = 1: $pillprob = 'that the pills have expired months ago.'
  414. if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.'
  415. if ptype = 3: $pillprob = 'that the pills are discolored and there is no expiry date.'
  416. if ptype = 4: $pillprob = 'that the pills are all the same color.'
  417. if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.'
  418. 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>'
  419. if ptype > 0: tabletkioddk = 1
  420. gs 'stat'
  421. if tabloc = 0:
  422. act 'Return':gs 'din_bad', 'd_bag'
  423. else
  424. act 'Return':gt 'stol', 'bc'
  425. end
  426. end
  427. elseif ARGS[0] = 5:
  428. 'You get rid of the strange pills.'
  429. tabletkioddk = 0
  430. pillsleft[ptype] = 0
  431. tabletkioddp = 0
  432. gs 'stat'
  433. end
  434. if tabloc = 0:
  435. act 'Return':gs 'din_bad', 'd_bag'
  436. else
  437. act 'Return':gt 'stol', 'bc'
  438. end
  439. }
  440. $d_cycreport_choice = {
  441. *clr & cla
  442. '<center><h1>Fertility Cycle</h1></center>'
  443. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  444. '<td width="800" cellspacing="0" cellpadding="0" valign="top">'
  445. dynamic $d_cycreport_update
  446. '<center><b>Current Status:</b></center>'
  447. '<center><<$cycreport_txt>></center>'
  448. '</td></tr></table></center><center><table cellspacing="0" cellpadding="20" valign="top"><tr><td width="250" valign="top">'
  449. if $cycreport_txt ! 'In labour':
  450. '<center><b>Change Status because:</b></center>'
  451. if thinkpreg = 0:
  452. if knowpreg = 1:
  453. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I''m pregnant.</a>'
  454. else
  455. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I think I''m pregnant.</a>'
  456. end
  457. elseif thinkpreg = 1:
  458. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I''m not pregnant.</a>'
  459. end
  460. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  461. '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  462. elseif thinkpreg ! 1:
  463. '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  464. '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  465. end
  466. if thinkpreg = 1 or knowpreg = 1:
  467. '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  468. '<a href="exec: dynamic $d_cycreport_actor, 7">I think the father is...</a>'
  469. end
  470. elseif cycle = 5:
  471. 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.'
  472. else
  473. dynamic $d_cycreport_actor, 10
  474. end
  475. act 'Exit':gs 'stat' & gt $loc, $metka
  476. '</td></tr></table></center>'
  477. }
  478. $d_cycreport_actor = {
  479. if ARGS[0] = 1:
  480. if knowpreg = 1:
  481. denypreg = 1
  482. thinkpreg = 0
  483. else
  484. denypreg = 0
  485. thinkpreg = 0
  486. temp[1] = daystart - daylastperiod
  487. end
  488. dynamic $d_cycreport_update
  489. gs 'stat'
  490. dynamic $d_cycreport_choice
  491. elseif ARGS[0] = 2:
  492. thinkpreg = 1
  493. denypreg = 0
  494. dynamic $d_cycreport_update
  495. gs 'stat'
  496. dynamic $d_cycreport_choice
  497. elseif ARGS[0] = 3:
  498. thinkpreg = 0
  499. denypreg = 0
  500. daylastperiod = daystart
  501. dynamic $d_cycreport_update
  502. gs 'stat'
  503. dynamic $d_cycreport_choice
  504. elseif ARGS[0] = 4:
  505. thinkpreg = 0
  506. denypreg = 0
  507. *clr & cla
  508. '<center><h1>Fertility Cycle</h1></center>'
  509. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  510. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  511. 'How many days ago was it you had your last period?'
  512. 'Currently: <<pertemp>>'
  513. '<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>'
  514. act 'Return':dynamic $d_cycreport_choice
  515. act 'Exit':gs 'stat' & gt $loc, $metka
  516. '</td></tr></table></center>'
  517. elseif ARGS[0] = 5:
  518. thinkpreg = 0
  519. denypreg = 0
  520. $cycreport_txt = 'You do not believe you have periods any more.'
  521. gs 'stat'
  522. dynamic $d_cycreport_choice
  523. elseif ARGS[0] = 6:
  524. *clr & cla
  525. '<center><h1>Fertility Cycle</h1></center>'
  526. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  527. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  528. 'How many days ago was it you had your last period?'
  529. 'Currently: <<pertemp>>'
  530. '<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>'
  531. act 'Return':dynamic $d_cycreport_choice
  532. act 'Exit':gs 'stat' & gt $loc, $metka
  533. '</td></tr></table></center>'
  534. elseif ARGS[0] = 7:
  535. *clr & cla
  536. '<center><h1>Fertility Cycle</h1></center>'
  537. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  538. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  539. tempmax = arrsize('$cumfthname')-1
  540. tempcurr = 0
  541. sumcum = 0
  542. *nl
  543. :potfathloop
  544. if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
  545. if cumtime[tempcurr] > 0: '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
  546. if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
  547. if sumcum > 1:$cum = 's' else $cum = ''
  548. '<br>You think you have had <<sumcum>> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.'
  549. 'You suspect the father being: <<$wombthfath>><br>'
  550. *nl
  551. tempcurr = 0
  552. :pickfathloop
  553. if cumtime[tempcurr] > 0:
  554. if $npc_usedname[$cumfthname[tempcurr]] <> '':
  555. ' <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>'
  556. else
  557. ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
  558. end
  559. end
  560. if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
  561. killvar 'sumcum'
  562. killvar 'cum'
  563. killvar 'tempmax'
  564. killvar 'tempcurr'
  565. '<br> <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
  566. act 'Return':dynamic $d_cycreport_choice
  567. act 'Exit':gs 'stat' & gt $loc, $metka
  568. '</td></tr></table></center>'
  569. elseif ARGS[0] = 10:
  570. temp = arrsize('Babyptype')
  571. temp -= 1
  572. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  573. gs 'stat'
  574. end
  575. }
  576. $d_cycreport_update = {
  577. killvar 'temp'
  578. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  579. if mesec > 0:
  580. $cycreport_txt = 'You are currently on your period.'
  581. else
  582. if cyccustom = 1:
  583. if preg = 1 and knowpreg = 1:
  584. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  585. if $wombthfath ! 'unknown':
  586. $cycreport_txt = '<<$cycreport_txt>> You suspect the father being <<$wombthfath>>.'
  587. end
  588. elseif knowpregloss = 1:
  589. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy.'
  590. elseif knowpregrecover = 1:
  591. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  592. elseif menoage <= age and cycle = 6:
  593. $cycreport_txt = 'You have gone through menopause.'
  594. else
  595. temp[1] = daystart-lastmens
  596. if tabletkishot > 0:
  597. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=green>You are currently protected by a birth control shot.</font>'
  598. elseif pillcon2 > 30000:
  599. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=green>You are currently on the birth control pill.</font>'
  600. elseif pillcon2 > 8000 and ((FocH > (Foch_Max - 96)) or ovulate > 0):
  601. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. You are currently on the pill but it is not yet effective. <font color=red>It is currently a dangerous day.</font>'
  602. elseif pillcon2 > 8000:
  603. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. You are currently on the pill but it is not yet effective.'
  604. elseif daystart = tabletkiday:
  605. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. You have taken the pill but it will be several weeks before it is fully effective.'
  606. elseif FocH > (Foch_Max - 96) or ovulate > 0:
  607. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=red>It is currently your fertile stage.</font>'
  608. else
  609. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  610. end
  611. end
  612. elseif denypreg = 1:
  613. if pregchem < 525:
  614. denypreg = 1
  615. thinkpreg = 0
  616. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  617. elseif pregchem < 1863:
  618. denypreg = 1
  619. thinkpreg = 0
  620. $cycreport_txt = 'You have a strange flu making you feel ill.'
  621. elseif pregchem < 4000:
  622. denypreg = 1
  623. thinkpreg = 0
  624. $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.'
  625. elseif pregchem < 6000:
  626. denypreg = 1
  627. thinkpreg = 0
  628. $cycreport_txt = 'Your weight just won''t come off...'
  629. elseif pregchem < 7500:
  630. denypreg = 1
  631. thinkpreg = 0
  632. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  633. elseif pregchem >= 7500:
  634. thinkpreg = 0
  635. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  636. else
  637. temp = daystart-lastmens
  638. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  639. end
  640. elseif cyccustom = 0:
  641. if $cycreport_txt ! 'In labour':
  642. if thinkpreg = 1 or knowpreg = 1:
  643. if knowpreg = 0: $temp = ' think you'
  644. if $wombthfath = 'unknown' or $wombthfath = '':
  645. $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>>.'
  646. else
  647. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  648. end
  649. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  650. temp = daystart-lastmens
  651. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  652. end
  653. killvar 'temp'
  654. end
  655. end
  656. end
  657. }
  658. $d_cycreport_upduedate = {
  659. !! Ovulation is ~7d after menstruation
  660. !! Implantation takes several days: Average is 5
  661. !! Human gastation period: 280 days
  662. !! ovu_calc: Days since last ovulation
  663. ovu_calc = daystart - lastmens + 7 + 5
  664. temp = 280 - ovu_calc
  665. pregdueday = day
  666. pregduemonth = month
  667. pregdueyear = year
  668. temp += pregdueday
  669. pregdueday = 0
  670. :pregduedateloop
  671. if pregduemonth = 1 and temp > 31:
  672. pregduemonth += 1
  673. temp -= 31
  674. elseif pregduemonth = 2 and temp > 28:
  675. pregduemonth += 1
  676. temp -= 28
  677. elseif pregduemonth = 3 and temp > 31:
  678. pregduemonth += 1
  679. temp -= 31
  680. elseif pregduemonth = 4 and temp > 30:
  681. pregduemonth += 1
  682. temp -= 30
  683. elseif pregduemonth = 5 and temp > 31:
  684. pregduemonth += 1
  685. temp -= 31
  686. elseif pregduemonth = 6 and temp > 30:
  687. pregduemonth += 1
  688. temp -= 30
  689. elseif pregduemonth = 7 and temp > 31:
  690. pregduemonth += 1
  691. temp -= 31
  692. elseif pregduemonth = 8 and temp > 31:
  693. pregduemonth += 1
  694. temp -= 31
  695. elseif pregduemonth = 9 and temp > 30:
  696. pregduemonth += 1
  697. temp -= 30
  698. elseif pregduemonth = 10 and temp > 31:
  699. pregduemonth += 1
  700. temp -= 31
  701. elseif pregduemonth = 11 and temp > 30:
  702. pregduemonth += 1
  703. temp -= 30
  704. elseif pregduemonth = 12 and temp > 31:
  705. pregduemonth = 1
  706. pregdueyear += 1
  707. temp -= 31
  708. else
  709. pregdueday = temp
  710. temp = 0
  711. end
  712. if temp > 0: jump 'pregduedateloop'
  713. $pregduedate = '<<pregduemonth>> / <<pregdueday>> / <<pregdueyear>>'
  714. }
  715. $d_pregmovement = {
  716. if denypreg = 0 and pregchem > 0:
  717. if thinkpreg > 0 and knowpreg = 0:
  718. knowpreg = 1
  719. if kid <= 0:
  720. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  721. else
  722. 'The movement inside you confirms what you already suspected. You are pregnant once again.'
  723. end
  724. elseif knowpreg > 0:
  725. temprand = rand(0,2)
  726. if temprand = 0:
  727. if pregchem > 5000:
  728. 'Your baby visibly moves around inside you.'
  729. else
  730. 'You feel movement deep inside you as your baby shifts around.'
  731. end
  732. elseif temprand = 1:
  733. if pregchem > 5000:
  734. 'You wince as your baby delivers a vicious kick to your insides.'
  735. else
  736. 'You feel your baby kicking.'
  737. end
  738. elseif temprand = 2:
  739. if pregchem > 5000:
  740. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  741. else
  742. 'You feel your baby kicking.'
  743. end
  744. end
  745. else
  746. if cyccustom = 1:
  747. if pregchem < 4000:
  748. if kid <= 0 :
  749. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should see the doctor?'
  750. else
  751. 'It feels as if a baby is moving inside you. Are you pregnant?'
  752. end
  753. else
  754. knowpreg = 1
  755. if kid <= 0:
  756. 'It''s become pretty obvious. You are pregnant.'
  757. else
  758. 'It''s become pretty obvious. You are pregnant once again.'
  759. end
  760. end
  761. end
  762. end
  763. elseif pregchem > 0:
  764. if kid > 0 and PregChem > 3903:
  765. 'You try to deny it, but you just can''t any more. The large belly, the movement, you are pregnant once again.'
  766. denypreg = 0
  767. dynamic $d_cycreport_upduedate
  768. $cycreport_txt = 'You are pregnant.'
  769. else
  770. 'You feel movement deep inside you. It''s probably just gas.'
  771. end
  772. end
  773. }
  774. $use_mentats = {
  775. if mentats_dose < 3:
  776. '<font color = green>You swallow the pill.</font>'
  777. mentats_dose += 1
  778. mentats_have -= 1
  779. else
  780. 'You really shouldn''t take any more pills today.'
  781. end
  782. }
  783. $use_steroids = {
  784. if steroid_dose < 3:
  785. '<font color = blue>You swallow the orange pill.</font>'
  786. steroid_dose += 1
  787. steroid_counter += 1
  788. steroid_have -= 1
  789. else
  790. 'You really shouldn''t take any more pills today.'
  791. end
  792. }
  793. $use_amphetamines = {
  794. if amphIntake < 2:
  795. '<font color= blue>You swallow the white pill.</font>'
  796. amphIntake += 1
  797. amphetamine -=1
  798. amphHigh = 12
  799. else
  800. 'Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.'
  801. end
  802. }
  803. $use_bcream = {
  804. if bcream_used < 1:
  805. '<font color = #DB7093>You smear the cream onto your breasts and rub it in.</font>'
  806. bcream_used = 1
  807. bcream_have -= 1
  808. else
  809. 'Using any more cream won''t have any effect.'
  810. end
  811. }
  812. $use_aphrodisiac = {
  813. if aphrodisiac_overdose = 1:
  814. 'You''ve had enough for today.'
  815. elseif aphrodisiac_timer = 0:
  816. '<font color = #DB7093>You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.</font>'
  817. aphrodisiac_have -= 1
  818. aphrodisiac_timer += 8
  819. pcs_horny = 80
  820. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  821. '<font color = #DB7093>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  822. aphrodisiac_have -= 1
  823. aphrodisiac_timer += 8
  824. pcs_horny = 100
  825. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  826. '<font color = red><b>You take yet another gum and start chewing it. Suddenly you find yourself in grip of an intense orgasm!<br> It goes on and on and you sink to the ground and do your best to endure it.</b></font>'
  827. aphrodisiac_have -= 1
  828. orgasm += 1
  829. min_arousal += 10
  830. aphrodisiac_overdose = 1
  831. if min_arousal = 10:'<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  832. if min_arousal = 20:'<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  833. if min_arousal = 30:'<font color = #DB7093>As you are trying to get back to your feet you notice that you are still horny. What is happening to you?</font>'
  834. if min_arousal = 40:'<font color = #DB7093>You are certain of it. Every time those gums give you an orgasm they also increase your libido.</font>'
  835. if min_arousal = 50:'<font color = #DB7093>You run a finger across your slit and shudder. You really should stop chewing these gums while you can still think of something other than sex.</font>'
  836. if min_arousal = 60:'<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  837. else
  838. '<font color = #DB7093>You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?</font>'
  839. aphrodisiac_have -= 1
  840. end
  841. }
  842. if $ARGS[0] = 'takepill':
  843. if tabletki > 0 and pillsleft[ptype] = 0:
  844. tabletkirand = rand(1, tabletki)
  845. if tabletkirand <= tabletkiold:
  846. tabletki -=1
  847. tabletkiold -=1
  848. ptype = 1
  849. pillsleft[ptype] = 28
  850. elseif tabletkirand <= tabletkiold + tabletkifake:
  851. tabletki -=1
  852. tabletkifake -=1
  853. ptype = 2
  854. pillsleft[ptype] = 28
  855. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej:
  856. tabletki -=1
  857. tabletkirej -=1
  858. ptype = 3
  859. pillsleft[ptype] = 28
  860. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug:
  861. tabletki -=1
  862. tabletkisug -=1
  863. ptype = 4
  864. pillsleft[ptype] = 28
  865. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert:
  866. tabletki -=1
  867. tabletkifert -=1
  868. ptype = 5
  869. pillsleft[ptype] = 28
  870. else
  871. tabletki -=1
  872. ptype = 0
  873. pillsleft[ptype] = 28
  874. end
  875. killvar 'tabletkirand'
  876. end
  877. !! added empty week to allow menstruation - it take effect only when the pills are taken automatically
  878. if placebopart <= 0 or tabletkicheck ! 1:
  879. !!pillcon2 is the ideal state, PC cosiders this the believed pillcon value
  880. pillcon2 += ((pillcon2+15000)/40)+1000
  881. if pillcon2 > 40000:pillcon2 = 40000
  882. if ptype = 0:
  883. pillsleft[ptype] -= 1
  884. pcs_skin += 1
  885. pillcon += ((pillcon+15000)/40)+1000
  886. if pillcon > 40000: pillcon = 40000
  887. elseif ptype = 1:
  888. pillsleft[ptype] -= 1
  889. pcs_skin += rand(0,1)
  890. pillcon += ((pillcon+15000)/40)+ rand(250,1000)
  891. if pillcon > 40000: pillcon = 40000
  892. elseif ptype = 2:
  893. pillsleft[ptype] -= 1
  894. pcs_skin += rand(0,1)
  895. pillcon += ((pillcon+15000)/40)+ rand(0,500)
  896. if pillcon > 40000: pillcon = 40000
  897. elseif ptype = 3:
  898. pillsleft[ptype] -= 1
  899. pcs_skin += rand(0,1)
  900. if rand(0,4) = 0: pain['tummy'] += rand(5,10)
  901. pillcon += ((pillcon+15000)/40)+ rand(250,2000)
  902. if pillcon > 40000: pillcon = 40000
  903. elseif ptype = 4:
  904. pillsleft[ptype] -= 1
  905. elseif ptype = 5:
  906. pillsleft[ptype] -= 1
  907. pcs_skin += 1
  908. EggRH += rand(10,80)
  909. end
  910. end
  911. end
  912. --- din_bad ---------------------------------