din_bad.qsrc 38 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959
  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_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. !! Condom System
  266. !! prezik: Total number of condoms sveta is using (normal or damaged).
  267. !! prezikcount: Number of normal condoms sveta isn''t using.
  268. !! preziksabo: Number of damaged condoms seveta isn''t using.
  269. !! preziktyp: 0 - Use condoms / 1 - don''t use condoms / 2 - use damaged condoms
  270. !! to check if sveta wants to use a condom use if prezik > 0:
  271. $din_Do_Condom_Counts = {
  272. *clr & cla
  273. '<center><h1>Condoms</h1></center>'
  274. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  275. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  276. '<td cellspacing="0" cellpadding="0" valign="top">'
  277. if ARGS[0] = 1:
  278. 'Use a condom the next time you have sex.'
  279. if preziktype = 2: preziksabo = prezik
  280. prezik = prezikcount
  281. prezikcount = 0
  282. preziktype = 0
  283. elseif ARGS[0] = 2:
  284. 'You will not use a condom the next time you have sex.'
  285. if preziktype = 0: prezikcount = prezik
  286. if preziktype = 2: preziksabo = prezik
  287. prezik = 0
  288. preziktype = 1
  289. elseif ARGS[0] = 3:
  290. 'Use your sabotaged condom the next time you have sex.'
  291. if preziktype = 0: prezikcount = prezik
  292. prezik = preziksabo
  293. preziksabo = 0
  294. preziktype = 2
  295. elseif ARGS[0] = 4:
  296. if preziktype ! 0 and prezikcount > 0:
  297. preziksabo +=1
  298. prezikcount -=1
  299. 'You use a needle to punch holes in one of the condoms.'
  300. elseif preziktype = 0 and prezik > 0:
  301. preziksabo +=1
  302. prezik -=1
  303. 'You use a needle to punch holes in one of the condoms.'
  304. else
  305. 'You do not have any condoms to sabotage.'
  306. end
  307. end
  308. if i = 0:
  309. dynamic $din_Switch_Condom_Menu
  310. else
  311. dynamic $din_Table_Condom_Menu
  312. end
  313. '</td></tr></table></center>'
  314. }
  315. $din_Update_Condom_Counts = {
  316. if prezik + prezikcount + preziksabo > 0: prezikmsg = 1
  317. if preziktype = 0:
  318. if prezikcount > 0:
  319. prezik += prezikcount
  320. prezikcount = 0
  321. end
  322. if prezik <= 0:
  323. 'You are out of condoms.'
  324. prezik = 0
  325. prezikcount = 0
  326. preziktype = 1
  327. end
  328. elseif preziktype = 1:
  329. if prezik > 0:
  330. prezikcount += prezik
  331. prezik = 0
  332. end
  333. elseif preziktype = 2:
  334. if preziksabo > 0:
  335. prezik += preziksabo
  336. preziksabo = 0
  337. end
  338. if prezik <= 0 and prezikcount <= 0:
  339. if prezikmsg = 1:prezikmsg = 2
  340. prezik = 0
  341. preziksabo = 0
  342. prezikcount = 0
  343. preziktype = 1
  344. elseif prezik <= 0 and prezikcount > 0:
  345. 'You have run out of sabotaged condoms so you will have to use normal condoms.'
  346. prezik = prezikcount
  347. prezikcount = 0
  348. preziktype = 0
  349. end
  350. end
  351. }
  352. $d_tabletkied = {
  353. *clr & cla
  354. '<center><h1>Birth Control</h1></center>'
  355. '<center><img <<$set_imgh>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center>'
  356. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  357. '<td cellspacing="0" cellpadding="0" valign="top">'
  358. tabloc = 0
  359. if tabletkiday < daystart: '<a href="exec:dynamic $d_tabletkieda, 1">Take the birth control pill now.</a>'
  360. if tabletkicheck = 0:
  361. '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  362. elseif tabletkicheck = 1:
  363. '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</a>'
  364. end
  365. '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  366. if tabletkioddk = 1: '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</a>'
  367. act 'Return':gs 'din_bad', 'd_bag'
  368. '</td></tr></table></center>'
  369. }
  370. $d_tabletkiedt = {
  371. *clr & cla
  372. '<center><h1>Birth Control</h1></center>'
  373. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  374. *nl
  375. tabloc = 1
  376. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take the birth control pill now.</a>'
  377. if tabletkicheck = 0:
  378. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your birth control pills.</a>'
  379. elseif tabletkicheck = 1:
  380. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your birth control pills.</a>'
  381. end
  382. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</a>'
  383. if tabletkioddk = 1: '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</a>'
  384. act 'Return':gt 'stol', 'bc'
  385. }
  386. $d_tabletkieda = {
  387. cla
  388. if ARGS[0] = 1:
  389. tabletkipd += tabletkipt
  390. if tabletkiday ! daystart:
  391. gs 'din_bad','takepill'
  392. tabletkiday = daystart
  393. tabletkipt = 0
  394. tabletkipi = 0
  395. else
  396. pcs_health -= 1
  397. end
  398. pilldaychk = 1
  399. *clr
  400. dynamic $d_tabletkied
  401. 'You take the birth control pill.'
  402. gs 'stat'
  403. elseif ARGS[0] = 2:
  404. 'You will do your best to remember to take your birth control pills every day.'
  405. tabletkicheck = 1
  406. gs 'stat'
  407. elseif ARGS[0] = 3:
  408. 'You will take your birth control pills as you desire.'
  409. tabletkicheck = 0
  410. gs 'stat'
  411. elseif ARGS[0] = 4:
  412. if pcs_intel + pillsdays <= rand(30,95):
  413. 'These pills appear to be normal birth control pills.'
  414. tabletkioddk = 0
  415. gs 'stat'
  416. else
  417. if ptype = 0: $pillprob = 'nothing unusual about them.'
  418. if ptype = 1: $pillprob = 'that the pills have expired months ago.'
  419. if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.'
  420. if ptype = 3: $pillprob = 'that the pills are discolored and there is no expiry date.'
  421. if ptype = 4: $pillprob = 'that the pills are all the same color.'
  422. if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.'
  423. 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>'
  424. if ptype > 0: tabletkioddk = 1
  425. gs 'stat'
  426. if tabloc = 0:
  427. act 'Return':gs 'din_bad', 'd_bag'
  428. else
  429. act 'Return':gt 'stol', 'bc'
  430. end
  431. end
  432. elseif ARGS[0] = 5:
  433. 'You get rid of the strange pills.'
  434. tabletkioddk = 0
  435. pillsleft[ptype] = 0
  436. tabletkioddp = 0
  437. gs 'stat'
  438. end
  439. if tabloc = 0:
  440. act 'Return':gs 'din_bad', 'd_bag'
  441. else
  442. act 'Return':gt 'stol', 'bc'
  443. end
  444. }
  445. $d_cycreport_choice = {
  446. *clr & cla
  447. '<center><h1>Fertility Cycle</h1></center>'
  448. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  449. '<td width="800" cellspacing="0" cellpadding="0" valign="top">'
  450. dynamic $d_cycreport_update
  451. '<center><b>Current Status:</b></center>'
  452. '<center><<$cycreport_txt>></center>'
  453. '</td></tr></table></center><center><table cellspacing="0" cellpadding="20" valign="top"><tr><td width="250" valign="top">'
  454. if $cycreport_txt ! 'In labour':
  455. '<center><b>Change Status because:</b></center>'
  456. if thinkpreg = 0:
  457. if knowpreg = 1:
  458. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I''m pregnant.</a>'
  459. else
  460. '<a href="exec: dynamic $d_cycreport_actor, 2 & gs ''stat''">I think I''m pregnant.</a>'
  461. end
  462. elseif thinkpreg = 1:
  463. '<a href="exec: dynamic $d_cycreport_actor, 1 & gs ''stat''">I''m not pregnant.</a>'
  464. end
  465. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  466. '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  467. elseif thinkpreg ! 1:
  468. '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  469. '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  470. end
  471. if thinkpreg = 1 or knowpreg = 1:
  472. '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  473. '<a href="exec: dynamic $d_cycreport_actor, 7">I think the father is...</a>'
  474. end
  475. elseif cycle = 5:
  476. 'Broken water and contractions, it''s pretty clear what is going on. You need to get to a hospital ASAP.'
  477. else
  478. dynamic $d_cycreport_actor, 10
  479. end
  480. act 'Exit':gs 'stat' & gt $loc, $metka
  481. '</td></tr></table></center>'
  482. }
  483. $d_cycreport_actor = {
  484. if ARGS[0] = 1:
  485. if knowpreg = 1:
  486. denypreg = 1
  487. thinkpreg = 0
  488. else
  489. denypreg = 0
  490. thinkpreg = 0
  491. temp[1] = daystart - daylastperiod
  492. end
  493. dynamic $d_cycreport_update
  494. gs 'stat'
  495. dynamic $d_cycreport_choice
  496. elseif ARGS[0] = 2:
  497. thinkpreg = 1
  498. denypreg = 0
  499. dynamic $d_cycreport_update
  500. gs 'stat'
  501. dynamic $d_cycreport_choice
  502. elseif ARGS[0] = 3:
  503. thinkpreg = 0
  504. denypreg = 0
  505. daylastperiod = daystart
  506. dynamic $d_cycreport_update
  507. gs 'stat'
  508. dynamic $d_cycreport_choice
  509. elseif ARGS[0] = 4:
  510. thinkpreg = 0
  511. denypreg = 0
  512. *clr & cla
  513. '<center><h1>Fertility Cycle</h1></center>'
  514. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  515. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  516. 'How many days ago was it you had your last period?'
  517. 'Currently: <<pertemp>>'
  518. '<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>'
  519. act 'Return':dynamic $d_cycreport_choice
  520. act 'Exit':gs 'stat' & gt $loc, $metka
  521. '</td></tr></table></center>'
  522. elseif ARGS[0] = 5:
  523. thinkpreg = 0
  524. denypreg = 0
  525. $cycreport_txt = 'You do not believe you have periods any more.'
  526. gs 'stat'
  527. dynamic $d_cycreport_choice
  528. elseif ARGS[0] = 6:
  529. *clr & cla
  530. '<center><h1>Fertility Cycle</h1></center>'
  531. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  532. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  533. 'How many days ago was it you had your last period?'
  534. 'Currently: <<pertemp>>'
  535. '<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>'
  536. act 'Return':dynamic $d_cycreport_choice
  537. act 'Exit':gs 'stat' & gt $loc, $metka
  538. '</td></tr></table></center>'
  539. elseif ARGS[0] = 7:
  540. *clr & cla
  541. '<center><h1>Fertility Cycle</h1></center>'
  542. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  543. '<td width="250" cellspacing="0" cellpadding="0" valign="top">'
  544. tempmax = arrsize('$cumfthname')-1
  545. tempcurr = 0
  546. sumcum = 0
  547. *nl
  548. :potfathloop
  549. if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
  550. if cumtime[tempcurr] > 0: '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
  551. if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
  552. if sumcum > 1:$cum = 's' else $cum = ''
  553. '<br>You think you have had <<sumcum>> load<<$cum>> of cum shot<<$cum>> in your womb altogether that could have gotten you pregnant.'
  554. 'You suspect the father being: <<$wombthfath>><br>'
  555. *nl
  556. tempcurr = 0
  557. :pickfathloop
  558. if cumtime[tempcurr] > 0:
  559. if $npc_usedname[$cumfthname[tempcurr]] <> '':
  560. ' <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>'
  561. else
  562. ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
  563. end
  564. end
  565. if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
  566. killvar 'sumcum'
  567. killvar 'cum'
  568. killvar 'tempmax'
  569. killvar 'tempcurr'
  570. '<br> <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
  571. act 'Return':dynamic $d_cycreport_choice
  572. act 'Exit':gs 'stat' & gt $loc, $metka
  573. '</td></tr></table></center>'
  574. elseif ARGS[0] = 10:
  575. temp = arrsize('Babyptype')
  576. temp -= 1
  577. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  578. gs 'stat'
  579. end
  580. }
  581. $d_cycreport_update = {
  582. killvar 'temp'
  583. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  584. if mesec > 0:
  585. $cycreport_txt = 'You are currently on your period.'
  586. else
  587. if cyccustom = 1:
  588. if preg = 1 and knowpreg = 1:
  589. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  590. if $wombthfath ! 'unknown':
  591. $cycreport_txt = '<<$cycreport_txt>> You suspect the father being <<$wombthfath>>.'
  592. end
  593. elseif knowpregloss = 1:
  594. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy.'
  595. elseif knowpregrecover = 1:
  596. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  597. elseif menoage <= age and cycle = 6:
  598. $cycreport_txt = 'You have gone through menopause.'
  599. else
  600. temp[1] = daystart-lastmens
  601. if tabletkishot > 0:
  602. $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>'
  603. elseif pillcon2 > 30000:
  604. $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>'
  605. elseif pillcon2 > 8000 and ((FocH > (Foch_Max - 96)) or ovulate > 0):
  606. $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>'
  607. elseif pillcon2 > 8000:
  608. $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.'
  609. elseif daystart = tabletkiday:
  610. $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.'
  611. elseif FocH > (Foch_Max - 96) or ovulate > 0:
  612. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=red>It is currently your fertile stage.</font>'
  613. else
  614. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  615. end
  616. end
  617. elseif denypreg = 1:
  618. if pregchem < 525:
  619. denypreg = 1
  620. thinkpreg = 0
  621. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  622. elseif pregchem < 1863:
  623. denypreg = 1
  624. thinkpreg = 0
  625. $cycreport_txt = 'You have a strange flu making you feel ill.'
  626. elseif pregchem < 4000:
  627. denypreg = 1
  628. thinkpreg = 0
  629. $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.'
  630. elseif pregchem < 6000:
  631. denypreg = 1
  632. thinkpreg = 0
  633. $cycreport_txt = 'Your weight just won''t come off...'
  634. elseif pregchem < 7500:
  635. denypreg = 1
  636. thinkpreg = 0
  637. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  638. elseif pregchem >= 7500:
  639. thinkpreg = 0
  640. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  641. else
  642. temp = daystart-lastmens
  643. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  644. end
  645. elseif cyccustom = 0:
  646. if $cycreport_txt ! 'In labour':
  647. if thinkpreg = 1 or knowpreg = 1:
  648. if knowpreg = 0: $temp = ' think you'
  649. if $wombthfath = 'unknown' or $wombthfath = '':
  650. $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>>.'
  651. else
  652. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  653. end
  654. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  655. temp = daystart-lastmens
  656. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  657. end
  658. killvar 'temp'
  659. end
  660. end
  661. end
  662. }
  663. $d_cycreport_upduedate = {
  664. !! implant_calc: Calculation of an implantation date in the uterus (Average is 5 days after ovulation)
  665. implant_calc = daystart - lastovulation + 5
  666. !! Human gastation period: 280 days
  667. gastation_time = 280 / (1 + pregspeedcheat)
  668. temp = gastation_time - implant_calc
  669. pregdueday = day
  670. pregduemonth = month
  671. pregdueyear = year
  672. temp += pregdueday
  673. pregdueday = 0
  674. :pregduedateloop
  675. if pregduemonth = 1 and temp > 31:
  676. pregduemonth += 1
  677. temp -= 31
  678. elseif pregduemonth = 2 and temp > 28:
  679. pregduemonth += 1
  680. temp -= 28
  681. elseif pregduemonth = 3 and temp > 31:
  682. pregduemonth += 1
  683. temp -= 31
  684. elseif pregduemonth = 4 and temp > 30:
  685. pregduemonth += 1
  686. temp -= 30
  687. elseif pregduemonth = 5 and temp > 31:
  688. pregduemonth += 1
  689. temp -= 31
  690. elseif pregduemonth = 6 and temp > 30:
  691. pregduemonth += 1
  692. temp -= 30
  693. elseif pregduemonth = 7 and temp > 31:
  694. pregduemonth += 1
  695. temp -= 31
  696. elseif pregduemonth = 8 and temp > 31:
  697. pregduemonth += 1
  698. temp -= 31
  699. elseif pregduemonth = 9 and temp > 30:
  700. pregduemonth += 1
  701. temp -= 30
  702. elseif pregduemonth = 10 and temp > 31:
  703. pregduemonth += 1
  704. temp -= 31
  705. elseif pregduemonth = 11 and temp > 30:
  706. pregduemonth += 1
  707. temp -= 30
  708. elseif pregduemonth = 12 and temp > 31:
  709. pregduemonth = 1
  710. pregdueyear += 1
  711. temp -= 31
  712. else
  713. pregdueday = temp
  714. temp = 0
  715. end
  716. if temp > 0: jump 'pregduedateloop'
  717. $pregduedate = '<<pregduemonth>> / <<pregdueday>> / <<pregdueyear>>'
  718. }
  719. $d_pregmovement = {
  720. if denypreg = 0 and pregchem > 0:
  721. if thinkpreg > 0 and knowpreg = 0:
  722. knowpreg = 1
  723. if kid <= 0:
  724. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  725. else
  726. 'The movement inside you confirms what you already suspected. You are pregnant once again.'
  727. end
  728. elseif knowpreg > 0:
  729. temprand = rand(0,2)
  730. if temprand = 0:
  731. if pregchem > 5000:
  732. 'Your baby visibly moves around inside you.'
  733. else
  734. 'You feel movement deep inside you as your baby shifts around.'
  735. end
  736. elseif temprand = 1:
  737. if pregchem > 5000:
  738. 'You wince as your baby delivers a vicious kick to your insides.'
  739. else
  740. 'You feel your baby kicking.'
  741. end
  742. elseif temprand = 2:
  743. if pregchem > 5000:
  744. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  745. else
  746. 'You feel your baby kicking.'
  747. end
  748. end
  749. else
  750. if cyccustom = 1:
  751. if pregchem < 4000:
  752. if kid <= 0 :
  753. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should see the doctor?'
  754. else
  755. 'It feels as if a baby is moving inside you. Are you pregnant?'
  756. end
  757. else
  758. knowpreg = 1
  759. if kid <= 0:
  760. 'It''s become pretty obvious. You are pregnant.'
  761. else
  762. 'It''s become pretty obvious. You are pregnant once again.'
  763. end
  764. end
  765. end
  766. end
  767. elseif pregchem > 0:
  768. if kid > 0 and PregChem > 3903:
  769. 'You try to deny it, but you just can''t any more. The large belly, the movement, you are pregnant once again.'
  770. denypreg = 0
  771. dynamic $d_cycreport_upduedate
  772. $cycreport_txt = 'You are pregnant.'
  773. else
  774. 'You feel movement deep inside you. It''s probably just gas.'
  775. end
  776. end
  777. }
  778. $use_mentats = {
  779. if mentats_dose < 3:
  780. '<font color = green>You swallow the pill.</font>'
  781. mentats_dose += 1
  782. mentats_have -= 1
  783. else
  784. 'You really shouldn''t take any more pills today.'
  785. end
  786. }
  787. $use_steroids = {
  788. if steroid_dose < 3:
  789. '<font color = blue>You swallow the orange pill.</font>'
  790. steroid_dose += 1
  791. steroid_counter += 1
  792. steroid_have -= 1
  793. else
  794. 'You really shouldn''t take any more pills today.'
  795. end
  796. }
  797. $use_amphetamines = {
  798. if amphIntake < 2:
  799. '<font color= blue>You swallow the white pill.</font>'
  800. amphIntake += 1
  801. amphetamine -=1
  802. amphHigh = 12
  803. else
  804. 'Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.'
  805. end
  806. }
  807. $use_bcream = {
  808. if bcream_used < 1:
  809. '<font color = #DB7093>You smear the cream onto your breasts and rub it in.</font>'
  810. bcream_used = 1
  811. bcream_have -= 1
  812. else
  813. 'Using any more cream won''t have any effect.'
  814. end
  815. }
  816. $use_aphrodisiac = {
  817. if aphrodisiac_overdose = 1:
  818. 'You''ve had enough for today.'
  819. elseif aphrodisiac_timer = 0:
  820. '<font color = #DB7093>You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.</font>'
  821. aphrodisiac_have -= 1
  822. aphrodisiac_timer += 8
  823. pcs_horny = 80
  824. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  825. '<font color = #DB7093>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  826. aphrodisiac_have -= 1
  827. aphrodisiac_timer += 8
  828. pcs_horny = 100
  829. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  830. '<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>'
  831. aphrodisiac_have -= 1
  832. orgasm += 1
  833. min_arousal += 10
  834. aphrodisiac_overdose = 1
  835. if min_arousal = 10:'<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  836. if min_arousal = 20:'<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  837. 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>'
  838. 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>'
  839. 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>'
  840. if min_arousal = 60:'<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  841. else
  842. '<font color = #DB7093>You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?</font>'
  843. aphrodisiac_have -= 1
  844. end
  845. }
  846. if $ARGS[0] = 'takepill':
  847. if tabletki > 0 and pillsleft[ptype] = 0:
  848. tabletkirand = rand(1, tabletki)
  849. if tabletkirand <= tabletkiold:
  850. tabletki -=1
  851. tabletkiold -=1
  852. ptype = 1
  853. pillsleft[ptype] = 28
  854. elseif tabletkirand <= tabletkiold + tabletkifake:
  855. tabletki -=1
  856. tabletkifake -=1
  857. ptype = 2
  858. pillsleft[ptype] = 28
  859. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej:
  860. tabletki -=1
  861. tabletkirej -=1
  862. ptype = 3
  863. pillsleft[ptype] = 28
  864. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug:
  865. tabletki -=1
  866. tabletkisug -=1
  867. ptype = 4
  868. pillsleft[ptype] = 28
  869. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert:
  870. tabletki -=1
  871. tabletkifert -=1
  872. ptype = 5
  873. pillsleft[ptype] = 28
  874. else
  875. tabletki -=1
  876. ptype = 0
  877. pillsleft[ptype] = 28
  878. end
  879. killvar 'tabletkirand'
  880. end
  881. !! added empty week to allow menstruation - it take effect only when the pills are taken automatically
  882. if placebopart <= 0 or tabletkicheck ! 1:
  883. !!pillcon2 is the ideal state, PC cosiders this the believed pillcon value
  884. pillcon2 += ((pillcon2+15000)/40)+1000
  885. if pillcon2 > 40000:pillcon2 = 40000
  886. if ptype = 0:
  887. pillsleft[ptype] -= 1
  888. pcs_skin += 1
  889. pillcon += ((pillcon+15000)/40)+1000
  890. if pillcon > 40000: pillcon = 40000
  891. elseif ptype = 1:
  892. pillsleft[ptype] -= 1
  893. pcs_skin += rand(0,1)
  894. pillcon += ((pillcon+15000)/40)+ rand(250,1000)
  895. if pillcon > 40000: pillcon = 40000
  896. elseif ptype = 2:
  897. pillsleft[ptype] -= 1
  898. pcs_skin += rand(0,1)
  899. pillcon += ((pillcon+15000)/40)+ rand(0,500)
  900. if pillcon > 40000: pillcon = 40000
  901. elseif ptype = 3:
  902. pillsleft[ptype] -= 1
  903. pcs_skin += rand(0,1)
  904. if rand(0,4) = 0: pain['tummy'] += rand(5,10)
  905. pillcon += ((pillcon+15000)/40)+ rand(250,2000)
  906. if pillcon > 40000: pillcon = 40000
  907. elseif ptype = 4:
  908. pillsleft[ptype] -= 1
  909. elseif ptype = 5:
  910. pillsleft[ptype] -= 1
  911. pcs_skin += 1
  912. EggRH += rand(10,80)
  913. end
  914. end
  915. end
  916. --- din_bad ---------------------------------