din_van.qsrc 73 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758
  1. # din_van
  2. !!pcs_leghair = leg hair 0 - 3 for smooth <= 6 for stubble <= 9 for light after that hairy
  3. !!pcs_pubes = pubes 0 - 3 for smooth <= 10 for stubble <= 20 for light hair after that its hairy
  4. !!stanok = razor
  5. !!$brit = shaving dynamic
  6. $showerdin = {
  7. menu_off = 1
  8. if hypnoAddict = 0:
  9. cumspclnt = 1
  10. else
  11. cumspclnt = 18
  12. end
  13. gs 'cum_cleanup'
  14. body_write = 0
  15. face_write = 0
  16. pcs_hairbsh = 0
  17. pcs_makeup = 1
  18. if frost > 0:frost = 0
  19. if shampoo < 0: shampoo = 0
  20. lactation['lactmess'] = 0
  21. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  22. if noShampoo = 0:
  23. shampoo -= 1
  24. else
  25. killvar 'noShampoo'
  26. end
  27. if false_lashes >= 1:
  28. if rand(0,4) <= 2:
  29. 'You''re careful enough that your false lashes make it through relatively unscathed.'
  30. else
  31. 'Unfortunately, your false lashes don''t make it through the shower.'
  32. false_lashes = 0
  33. pcs_lashes = pcs_naturallashes
  34. gs 'body_shape', 'basebeautycalc', 1
  35. end
  36. end
  37. }
  38. $bteeth = {
  39. if pcs_breath ! 1 or cumloc[12] = 1:
  40. act 'Brush your teeth (0:03)':
  41. menu_off = 1
  42. *clr & cla
  43. minut += 3
  44. cumspclnt = 2
  45. gs 'cum_cleanup'
  46. pcs_breath = 1
  47. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/brushteeth.jpg"></center>'
  48. *nl
  49. 'You brush your teeth and now they are clean and minty fresh.'
  50. act 'Finish':menu_off = 0 & gt $loc, $metka
  51. end
  52. end
  53. }
  54. $dryOff = {
  55. act 'Get out and dry off': mirror_steam = hour & gt $loc, $metka
  56. }
  57. $shower = {
  58. act 'Take a shower (0:15)':
  59. menu_off = 1
  60. *clr & cla
  61. minut += 15
  62. if $loc = 'vanrPar' or $loc = 'tanvanr' or hotelShampoo = 1: noShampoo = 1
  63. noShampoo_tmp = noShampoo
  64. dynamic $showerdin
  65. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></center>'
  66. *nl
  67. 'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you.'
  68. if daystart < 10 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:
  69. pcs_horny += rand(6,10)
  70. 'It''s really arousing to see your new body with all its smooth curves, breasts with large nipples, wide hips, and smooth legs. You begin to lather your body noticing how soft and tender it feels. Once you''re sure you didn''t miss a single spot on your feminine body you begin to wash yourself off, continuing to experience new and strange sensations.'
  71. elseif daystart < 30 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:
  72. pcs_horny += rand(2,6)
  73. 'You have already gotten used to your feminine body and its softness doesn''t surprise you very much anymore. But you still let your hands wander a bit over your soft curves before you begin to wash yourself in earnest.'
  74. else
  75. pcs_horny += rand(0,2)
  76. ''+iif(noShampoo_tmp = 1, 'It''s not your shampoo, so you use a little more than you normally would; with a tinge of guilt you ', 'Using your own shampoo, you carefully ')+'soap yourself trying not to miss any spot and then wash off.'
  77. end
  78. if shampoo = 0 and noShampoo_tmp = 1:
  79. 'When you get a chance, you should stop by the supermarket and buy some shampoo.'
  80. elseif shampoo <= 5:
  81. 'You are getting low on shampoo, with only <<shampoo>> remaining. When you get a chance, you should stop by the supermarket and buy some more.'
  82. end
  83. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  84. if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the shower.'
  85. if btwarn > 0:
  86. if btwarn = 1: $weightwarn = 'losing'
  87. if btwarn = 2: $weightwarn = 'gaining'
  88. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  89. killvar '$weightwarn' & btwarn = 0
  90. end
  91. if normbuffpick = 1:
  92. *nl
  93. '<b>You notice that your muscles are starting to show through your skin.</b>'
  94. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  95. end
  96. if lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] <= 0:
  97. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  98. 'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk.<br>Using the breast pump regularly probably made you lactate!'
  99. lactation['induced'] = 1
  100. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  101. 'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk. Regularly massaging your breasts probably made you lactate!<br>'
  102. lactation['induced'] = 1
  103. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  104. 'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk. All that pumping and massaging your breasts probably caused you to lactate!<br>'
  105. lactation['induced'] = 1
  106. else
  107. 'During showering you clean your breasts and something catches your eye. White drops come from your nipples. To your surprise it is milk. You started lactating!<br>'
  108. if thinkpreg = 1 or knowpreg = 1:
  109. 'This is probably happening because you are pregnant.'
  110. else
  111. 'You should have this checked out by a doctor. You could be pregnant.'
  112. end
  113. lactation['induced'] = 0
  114. end
  115. pcs_usedbreastpumponherself = 0
  116. pcs_massagedherbreasts = 0
  117. lactation['pc_aware'] = 1
  118. end
  119. dynamic $dryOff
  120. if pcs_horny >= 40:
  121. act 'Use the shower head on your pussy':
  122. menu_off = 1
  123. *clr & cla
  124. if rand(0, 5) = 0 and obdysh = 1:gt 'vann', 'v4'
  125. '<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
  126. *nl
  127. 'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
  128. if pcs_inhib < 30:inhib_exp += rand(1,3)
  129. pcs_mood += 15
  130. $orgasm_or = 'yes'
  131. gs 'arousal', 'masturbate', 10
  132. gs 'arousal', 'end'
  133. if hypnoAddict ! 0:
  134. 'You unconsciously avoid spraying water into your vagina.'
  135. else
  136. cumspclnt = 8
  137. gs 'cum_cleanup'
  138. end
  139. dynamic $dryOff
  140. end
  141. end
  142. act 'Take a selfie':
  143. gs 'telefon', 'Phone_selfie_image_bathing', 'shower'
  144. end
  145. dynamic $brit
  146. if vanr_lock = 0 and $loc = 'vanrPar':
  147. *nl
  148. 'In your absentmindedness you forgot to close the door.'
  149. 'The idea that the door is open occupies your mind while you are showering. It would be very embarrassing if your brother or stepfather looked in at the wrong time.'
  150. if indorf = 0: gs 'vanrPar', 'peek'
  151. end
  152. end
  153. killvar 'noShampoo_tmp'
  154. }
  155. $bath = {
  156. act 'Soak in the bath (0:30)':
  157. menu_off = 1
  158. *clr & cla
  159. minut += 30
  160. pcs_sweat = 7 + rand(0,4)
  161. pcs_mood += 20
  162. if $loc = 'vanrPar' or $loc = 'tanvanr' or hotelShampoo = 1: noShampoo = 1
  163. noShampoo_tmp = noShampoo
  164. dynamic $showerdin
  165. if bath_daystart ! daystart:
  166. bath_daystart = daystart
  167. pcs_skin += rand(1,2)
  168. pcs_willpwr += 1
  169. end
  170. gs 'stat'
  171. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
  172. *nl
  173. 'While the bathtub fills up you get undressed and then dip a toe into the water. It has just the right temperature so you climb in and let yourself sink into the warm water.'
  174. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  175. pcs_horny += rand(6,10)
  176. 'You stare at those smooth, soft legs sticking out of the water. You''re still not used to this new body and the look of all this roundness.'
  177. 'Starting to soap yourself you unwittingly turn your attention to your breasts. They''re so soft and big, and when you touch them you feel an unfamiliar but pleasant sensation. You take your time getting familiar with your new body, then you begin to wash yourself in earnest.'
  178. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  179. pcs_horny += rand(2,6)
  180. 'You have become a little accustomed to your female body and casually soap up all these soft curves and rinse yourself off, rubbing your hands all over your feminine body to make sure you didn''t miss a spot.'
  181. else
  182. pcs_horny += rand(0,2)
  183. 'You lean back and relax for a while. '+iif(noShampoo_tmp = 1, 'It’s not your shampoo, so you use a little more than you normally would; with a tinge of guilt you ', 'Using your own shampoo, you carefully ')+'begin to lather your body, gently gliding your soft hands over your smooth curves, and wash yourself thoroughly.'
  184. end
  185. if shampoo = 0 and noShampoo_tmp = 1:
  186. 'When you get a chance, you should stop by the supermarket and buy some shampoo.'
  187. elseif shampoo <= 5:
  188. 'You are getting low on shampoo, with only <<shampoo>> remaining. When you get a chance, you should stop by the supermarket and buy some more.'
  189. end
  190. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  191. if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the bath.'
  192. if btwarn > 0:
  193. if btwarn = 1: $weightwarn = 'losing'
  194. if btwarn = 2: $weightwarn = 'gaining'
  195. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  196. killvar '$weightwarn' & btwarn = 0
  197. end
  198. if normbuffpick = 1:
  199. ''
  200. '<b>You notice that your muscles are starting to show through your skin.</b>'
  201. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  202. end
  203. dynamic $dryOff
  204. act '"Wash" your pussy':
  205. menu_off = 1
  206. *clr & cla
  207. if obdysh = 1 and rand(0, 5) = 1:gt 'vann', 'v4'
  208. minut += 10
  209. '<center><video autoplay loop src="images/shared/home/bathroom/wash7.mp4"></center>'
  210. *nl
  211. 'You turn on the faucet, lift your legs and scoot your ass over to align your pussy with the jet of warm water. It feels really good and soon a warmth begins to grow in your abdomen.'
  212. if pcs_inhib < 30:inhib_exp += rand(1,3)
  213. pcs_mood += 15
  214. $orgasm_or = 'yes'
  215. gs 'arousal', 'masturbate', 10
  216. gs 'arousal', 'end'
  217. dynamic $dryOff
  218. end
  219. act 'Take a selfie':
  220. gs 'telefon', 'Phone_selfie_image_bathing', 'bath'
  221. end
  222. dynamic $brit
  223. end
  224. killvar 'noShampoo_tmp'
  225. }
  226. $brit = {
  227. if shave_menu = 1 and stanok > 1:
  228. if pcs_leghair > 3 or (pubestyle = 1 and pcs_pubes > 3) or (((pubestyle >= 2 and pubestyle <= 7) or pubestyle = 12) and pcs_pubes >= 15) or (pubestyle = 8 and pcs_pubes >= 20) or ((pubestyle = 9 or pubestyle >= 13) and pcs_pubes > 25) or (pubestyle = 10 and pcs_pubes >= 35) or (pubestyle = 11 and pcs_pubes > 10):
  229. act 'Shave yourself (0:15)':
  230. menu_off = 1
  231. *clr & cla
  232. minut += 15
  233. pcs_leghair = 0
  234. if pubestyle = 1:
  235. pcs_pubes = 0
  236. elseif (pubestyle >= 2 and pubestyle <= 9) or pubestyle >= 12:
  237. pcs_pubes = 16
  238. elseif pubestyle = 10 and pcs_pubes >= 35:
  239. pcs_pubes = 26
  240. elseif pubestyle = 11 and pcs_pubes > 10:
  241. pcs_pubes = 0
  242. end
  243. pcs_horny += 5
  244. stanok -= 2
  245. if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
  246. if $loc ='gadbana':
  247. '<center><video autoplay loop src="images/shared/home/bathroom/shave.mp4"></center>'
  248. else
  249. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  250. end
  251. *nl
  252. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  253. 'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
  254. 'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
  255. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  256. pcs_mood += 10
  257. 'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
  258. elseif pubestyle = 1:
  259. 'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  260. elseif pubestyle >= 2 and pubestyle <=7:
  261. 'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time cleaning up the area around your neatly trimmed and styled patch of pussy hair as well.'
  262. elseif pubestyle = 8:
  263. 'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time shaving off the stubble around your small patch of hair tidy as well.'
  264. elseif pubestyle >= 9:
  265. 'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your small neat bush as well.'
  266. elseif pubestyle >= 10:
  267. 'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your bush as well.'
  268. end
  269. dynamic $dryOff
  270. end
  271. if pcs_leghair > 3:
  272. act'Shave your legs (0:05)':
  273. menu_off = 1
  274. *clr & cla
  275. minut += 5
  276. pcs_leghair = 0
  277. pcs_horny += 5
  278. stanok -= 1
  279. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  280. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.jpg"></center>'
  281. *nl
  282. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  283. 'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
  284. 'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
  285. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  286. pcs_mood += 10
  287. 'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
  288. else
  289. 'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
  290. end
  291. dynamic $dryOff
  292. end
  293. end
  294. else
  295. '<br>You don''t need to shave.'
  296. end
  297. elseif shave_menu = 2 and stanok > 0:
  298. if pcs_pubes > 3:
  299. if pubestyle = 1:
  300. act 'Shave your pussy (0:10)':
  301. menu_off = 1
  302. *clr & cla
  303. minut += 10
  304. pcs_pubes = 0
  305. pcs_horny += 5
  306. stanok -= 1
  307. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  308. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  309. *nl
  310. 'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  311. dynamic $dryOff
  312. end
  313. elseif ((pubestyle >= 2 and pubestyle <= 7) or pubestyle = 12) and pcs_pubes >= 15:
  314. act 'Trim your pussy (0:10)':
  315. menu_off = 1
  316. *clr & cla
  317. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
  318. *nl
  319. if pcs_pubes >= 20:
  320. 'You carefully shave away the hair at the edges of your pussy, trimming it all away until there is only a neatly styled bush left at the top.'
  321. else
  322. 'You carefully shave away the stubble at the edges of your pussy, careful to only trim and maintain the neatly styled bush you have at the top.'
  323. end
  324. minut += 10
  325. pcs_pubes = 11
  326. pcs_horny += 5
  327. stanok -= 1
  328. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  329. dynamic $dryOff
  330. end
  331. elseif pubestyle = 8 and pcs_pubes >= 20:
  332. act 'Trim your pubic hair (0:10)':
  333. menu_off = 1
  334. *clr & cla
  335. minut += 10
  336. pcs_pubes = 16
  337. pcs_horny += 5
  338. stanok -= 1
  339. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  340. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
  341. *nl
  342. 'You spend some time trimming back your pubic hair, not shaving it away completely but careful to make it neat and tidy.'
  343. dynamic $dryOff
  344. end
  345. elseif (pubestyle = 9 or pubestyle >= 13) and pcs_pubes >= 26:
  346. act 'Trim your bush (0:10)':
  347. menu_off = 1
  348. *clr & cla
  349. minut += 10
  350. pcs_pubes = 21
  351. pcs_horny += 5
  352. stanok -= 1
  353. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  354. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
  355. *nl
  356. 'You spend some time trimming back your light bush of pubic hair, tidying it up and keeping your bikini line nice and clean.'
  357. dynamic $dryOff
  358. end
  359. elseif pubestyle = 10 and pcs_pubes >= 40:
  360. act 'Trim back your bush (0:10)':
  361. menu_off = 1
  362. *clr & cla
  363. minut += 10
  364. pcs_pubes = 26
  365. pcs_horny += 5
  366. stanok -= 1
  367. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  368. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
  369. *nl
  370. 'You spend some time trimming back your thick bush of pubic hair, tidying it up and keeping your bikini line nice and clean.'
  371. dynamic $dryOff
  372. end
  373. end
  374. end
  375. elseif shave_menu = 3 and stanok > 0:
  376. if pcs_leghair > 3:
  377. act 'Shave your legs (0:05)':
  378. menu_off = 1
  379. *clr & cla
  380. minut += 5
  381. pcs_leghair = 0
  382. pcs_horny += 5
  383. stanok -= 1
  384. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  385. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.jpg"></center>'
  386. *nl
  387. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  388. 'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
  389. 'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
  390. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  391. pcs_mood += 10
  392. 'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
  393. else
  394. 'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
  395. end
  396. dynamic $dryOff
  397. end
  398. end
  399. end
  400. }
  401. $tampon = {
  402. if sanpad > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprokp = 0 and isprok = 0 and $pantyworntype ! 'none' and knowpreg = 0:
  403. act 'Use a sanitary pad (0:02)':
  404. menu_off = 1
  405. *clr & cla
  406. sanpad -= 1
  407. isprokp = 1
  408. minut += 2
  409. pcs_mood -= 5
  410. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  411. *nl
  412. 'You use a sanitary pad.'
  413. act 'Finish':menu_off = 0 & gt $loc, $metka
  414. end
  415. end
  416. if tampon > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprok = 0 and isprokp = 0 and knowpreg = 0:
  417. act 'Use a tampon (0:02)':
  418. menu_off = 1
  419. *clr & cla
  420. tampon -= 1
  421. isprok = 1
  422. minut += 2
  423. pcs_mood -= 5
  424. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  425. *nl
  426. 'You use a tampon.'
  427. act 'Finish':menu_off = 0 & gt $loc, $metka
  428. end
  429. end
  430. }
  431. $quickwash = {
  432. if spdirty > 0:
  433. act 'Quick wash (0:15)':
  434. menu_off = 1
  435. *clr & cla
  436. cumspclnt = 4
  437. gs 'cum_cleanup'
  438. if pcs_sweat < 30:
  439. pcs_sweat = 15 + rand(0,4)
  440. else
  441. pcs_sweat -= 10 + rand(0,4)
  442. end
  443. minut += 15
  444. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash5.jpg"></center>'
  445. *nl
  446. 'You give yourself a catlick, thus removing any traces of cum.'
  447. act 'Finish':menu_off = 0 & gt $loc, $metka
  448. end
  449. end
  450. gs 'din_van', 'pblc_pee'
  451. }
  452. $wearpan = {
  453. if $pantyworntype = 'none':
  454. act 'Wear panties (0:02)':
  455. minut += 2
  456. gs 'stat'
  457. gt 'panties', 'view_panty_list', 'bathroom'
  458. end
  459. end
  460. if $braworntype = 'none':
  461. act 'Wear a bra (0:02)':
  462. minut += 2
  463. gs 'stat'
  464. gt 'bras', 'view_bra_list', 'bathroom'
  465. end
  466. end
  467. }
  468. $removepan = {
  469. if $pantyworntype ! 'none' and $braworntype ! 'none':
  470. act 'Remove underwear (0:02)':
  471. minut += 2
  472. gs 'stat'
  473. gs 'underwear', 'remove'
  474. gt $loc, $metka
  475. end
  476. end
  477. if $pantyworntype ! 'none':
  478. act 'Remove panties (0:02)':
  479. minut += 2
  480. gs 'stat'
  481. gs 'panties', 'remove'
  482. gt $loc, $metka
  483. end
  484. end
  485. if $braworntype ! 'none':
  486. act 'Remove bra (0:02)':
  487. minut += 2
  488. gs 'stat'
  489. gs 'bras', 'remove'
  490. gt $loc, $metka
  491. end
  492. end
  493. }
  494. !! Meant for non-home bathrooms. If you have a bag stashes the underwear in there and enables putting it back on later.
  495. !! purse_____ variables get wiped in 'wardrobe', 'clothing', 'panties' and 'bra' so there isn''t a chance of duplication
  496. $publicpan = {
  497. if $pantyworntype ! 'none' and $braworntype ! 'none':
  498. act 'Remove underwear'+iif(bag = 1, ' and put it in your purse ',' ') + '(0:02)':
  499. minut += 2
  500. gs 'stat'
  501. if bag = 1:
  502. $pursepantytype = $pantyworntype
  503. pursepantynumber = pantywornnumber
  504. $pursebratype = $braworntype
  505. pursebranumber = brawornnumber
  506. end
  507. gs 'underwear', 'remove'
  508. gt $loc, $metka
  509. end
  510. elseif bag = 1 and $pantyworntype = 'none' and $braworntype = 'none' and $pursepantytype ! '' and $pursebratype ! '':
  511. act 'Put your underwear back on (0:02)':
  512. minut += 2
  513. gs 'stat'
  514. gs 'panties', 'wear', $pursepantytype, pursepantynumber
  515. gs 'bras', 'wear', $pursebratype, pursebranumber
  516. killvar '$pursepantytype' & killvar 'pursepantynumber'
  517. killvar '$pursebratype' & killvar 'pursebranumber'
  518. gt $loc, $metka
  519. end
  520. end
  521. if $pantyworntype ! 'none':
  522. act 'Remove panties'+iif(bag = 1, ' and put them in your purse ',' ') + '(0:02)':
  523. minut += 2
  524. gs 'stat'
  525. if bag = 1:
  526. $pursepantytype = $pantyworntype
  527. pursepantynumber = pantywornnumber
  528. end
  529. gs 'panties', 'remove'
  530. gt $loc, $metka
  531. end
  532. elseif bag = 1 and $pantyworntype = 'none' and $pursepantytype ! '':
  533. act 'Put your panties back on (0:02)':
  534. minut += 2
  535. gs 'stat'
  536. gs 'panties', 'wear', $pursepantytype, pursepantynumber
  537. killvar '$pursepantytype' & killvar 'pursepantynumber'
  538. gt $loc, $metka
  539. end
  540. end
  541. if $braworntype ! 'none':
  542. act 'Remove bra'+iif(bag = 1, ' and put it in your purse ',' ') + '(0:02)':
  543. minut += 2
  544. gs 'stat'
  545. if bag = 1:
  546. $pursebratype = $braworntype
  547. pursebranumber = brawornnumber
  548. end
  549. gs 'bras', 'remove'
  550. gt $loc, $metka
  551. end
  552. elseif bag = 1 and $braworntype = 'none' and $pursebratype ! '':
  553. act 'Put your bra back on (0:02)':
  554. minut += 2
  555. gs 'stat'
  556. gs 'bras', 'wear', $pursebratype, pursebranumber
  557. killvar '$pursebratype' & killvar 'pursebranumber'
  558. gt $loc, $metka
  559. end
  560. end
  561. }
  562. $basin = {
  563. if cumloc[12] = 1:
  564. act 'Rinse your mouth (0:05)':
  565. menu_off = 1
  566. cla
  567. cumspclnt = 2
  568. gs 'cum_cleanup'
  569. minut += 5
  570. gs 'stat'
  571. *nl
  572. 'You rinse your mouth and get rid of the taste of cum.'
  573. act 'Finish':menu_off = 0 & gt $loc, $metka
  574. end
  575. end
  576. if cumloc[13] = 1:
  577. act 'Wash the cum from your hands (0:05)':
  578. menu_off = 1
  579. cla
  580. cumspclnt = 9
  581. gs 'cum_cleanup'
  582. minut += 5
  583. gs 'stat'
  584. *nl
  585. 'You wash your hands and get rid of any trace of cum.'
  586. act 'Finish':menu_off = 0 & gt $loc, $metka
  587. end
  588. end
  589. if cumloc[11] = 1 and cumloc[16] = 0:
  590. act 'Wash the cum from your face (0:05)':
  591. menu_off = 1
  592. *clr & cla
  593. pcs_makeup = 1
  594. cumspclnt = 9
  595. gs 'cum_cleanup'
  596. cumspclnt = 11
  597. gs 'cum_cleanup'
  598. if pcs_sweat > 19 : pcs_sweat -= 5
  599. minut += 5
  600. gs 'stat'
  601. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
  602. *nl
  603. 'You clean your face and get rid of any trace of cum.'
  604. act 'Finish':menu_off = 0 & gt $loc, $metka
  605. end
  606. elseif cumloc[11] = 0 and cumloc[16] = 1:
  607. act 'Wash the cum out of your hair (0:10)':
  608. menu_off = 1
  609. cla
  610. cumspclnt = 9
  611. gs 'cum_cleanup'
  612. cumspclnt = 5
  613. gs 'cum_cleanup'
  614. pcs_hairbsh = 0
  615. if pcs_sweat > 19 : pcs_sweat -= 5
  616. minut += 10
  617. gs 'stat'
  618. *nl
  619. 'You clean your hair and get rid of any trace of cum.'
  620. act 'Finish':menu_off = 0 & gt $loc, $metka
  621. end
  622. elseif cumloc[11] = 1 and cumloc[16] = 1:
  623. act 'Wash the cum from your face and hair (0:10)':
  624. menu_off = 1
  625. *clr & cla
  626. pcs_makeup = 1
  627. cumspclnt = 9
  628. gs 'cum_cleanup'
  629. cumspclnt = 12
  630. gs 'cum_cleanup'
  631. pcs_hairbsh = 0
  632. if pcs_sweat > 19 : pcs_sweat -= 5
  633. minut += 10
  634. gs 'stat'
  635. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
  636. *nl
  637. 'You clean your face and hair and get rid of any trace of cum.'
  638. act 'Finish':menu_off = 0 & gt $loc, $metka
  639. end
  640. end
  641. if cumloc[2] = 1 or cumloc[5] = 1 or cumloc[6] = 1 or cumloc[7] = 1:
  642. act 'Wash the cum off your clothes (0:10)':
  643. menu_off = 1
  644. *clr & cla
  645. cumspclnt = 9
  646. gs 'cum_cleanup'
  647. cumspclnt = 6
  648. gs 'cum_cleanup'
  649. minut += 10
  650. gs 'stat'
  651. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  652. 'You spend ten minutes wiping and rinsing the cum stains out of your clothes. In the end, all that remains of the stains are some damp spots that should dry up in a few minutes.'
  653. act 'Finish':menu_off = 0 & gt $loc, $metka
  654. end
  655. end
  656. if body_write > 0 or face_write > 0:
  657. act 'Wash the writings off your body (0:10)':
  658. menu_off = 1
  659. *clr & cla
  660. body_write = 0
  661. face_write = 0
  662. minut += 10
  663. gs'stat'
  664. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
  665. *nl
  666. 'You wash off the indecent inscriptions on your body.'
  667. act 'Finish':menu_off = 0 & gt $loc, $metka
  668. end
  669. end
  670. if pcs_makeup ! 1:
  671. act 'Wash off cosmetics (0:10)':
  672. menu_off = 1
  673. cla
  674. pcs_makeup = 1
  675. cumspclnt = 9
  676. gs 'cum_cleanup'
  677. cumspclnt = 11
  678. gs 'cum_cleanup'
  679. minut += 10
  680. *nl
  681. 'You wash off your makeup.'
  682. act 'Finish':menu_off = 0 & gt $loc, $metka
  683. end
  684. end
  685. if false_lashes >= 1:
  686. act 'Remove false lashes (0:05)':
  687. menu_off = 1
  688. cla
  689. 'You carefully peel off the glued-on strip, careful to protect your natural lashes.'
  690. lashsavechance = rand(0,4)
  691. if lashsavechance = 4:
  692. 'These lashes still look to be in pretty good shape; you could probably use them again.'
  693. if pcs_lashes = 4:fakelashesmink += 1
  694. if pcs_lashes = 3:fakelashesplain += 1
  695. end
  696. pcs_lashes = pcs_naturallashes
  697. false_lashes = 0
  698. minut += 5
  699. gs 'body_shape', 'basebeautycalc', 1
  700. act 'Finish':menu_off = 0 & gt $loc, $metka
  701. end
  702. end
  703. if deodorant > 0 and deodorant_on = 0:
  704. act 'Apply deodorant (0:01)':
  705. *clr & cla
  706. menu_off = 1
  707. minut += 1
  708. deodorant -= 1
  709. gs 'sweat', 'deo'
  710. iif(func('body_din','pregnancyVisibility') = 1, '<center><img <<$set_imgh>> src="images/shared/home/bathroom/deodorant_preg.jpg"></center>', '<center><img <<$set_imgh>> src="images/shared/home/bathroom/deodorant.jpg"></center>')
  711. 'You apply deodorant to your armpits. It will keep you feeling fresh and clean for longer.'
  712. act 'Continue': menu_off = 0 & gt $loc, $metka
  713. end
  714. end
  715. }
  716. $pir_title = {
  717. *clr & cla
  718. '<center><b>Available piercings - select one by clicking the image</b></center>'
  719. *nl
  720. }
  721. $pirTongue = {
  722. dynamic $pir_title
  723. i = 1
  724. :looptongue_pir
  725. if dyneval('RESULT = PirsA<<i>>_owned') = 1:*p '<a href="exec:pirsA = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/a<<i>>.jpg" height="250" ></a>'
  726. i += 1
  727. if i <= 4:jump 'looptongue_pir'
  728. }
  729. $pirLip = {
  730. dynamic $pir_title
  731. i = 1
  732. :looplip_pir
  733. if dyneval('RESULT = PirsB<<i>>_owned') = 1:*p '<a href="exec:pirsB = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/b<<i>>.jpg" height="250" ></a>'
  734. i += 1
  735. if i <= 7:jump 'looplip_pir'
  736. }
  737. $pirEars = {
  738. dynamic $pir_title
  739. i = 1
  740. :loopears_pir
  741. if dyneval('RESULT = PirsC<<i>>_owned') = 1:*p '<a href="exec:pirsC = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/c<<i>>.jpg" height="250" ></a>'
  742. i += 1
  743. if i <= 24:jump 'loopears_pir'
  744. }
  745. $pirNose = {
  746. dynamic $pir_title
  747. i = 1
  748. :loopnose_pir
  749. if dyneval('RESULT = PirsD<<i>>_owned') = 1:*p '<a href="exec:pirsD = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/d<<i>>.jpg" height="250" ></a>'
  750. i += 1
  751. if i <= 7:jump 'loopnose_pir'
  752. }
  753. $pirBrow = {
  754. dynamic $pir_title
  755. i = 1
  756. :loopbrow_pir
  757. if dyneval('RESULT = PirsE<<i>>_owned') = 1:*p '<a href="exec:pirsE = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/e<<i>>.jpg" height="250" ></a>'
  758. i += 1
  759. if i <= 2:jump 'loopbrow_pir'
  760. }
  761. $pirNips = {
  762. dynamic $pir_title
  763. i = 1
  764. :loopnipple_pir
  765. if dyneval('RESULT = PirsF<<i>>_owned') = 1:*p '<a href="exec:pirsF = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/f<<i>>.jpg" height="250" ></a>'
  766. i += 1
  767. if i <= 4:jump 'loopnipple_pir'
  768. }
  769. $pirNavel = {
  770. dynamic $pir_title
  771. i = 1
  772. :loopnavel_pir
  773. if dyneval('RESULT = PirsN<<i>>_owned') = 1:*p '<a href="exec:pirsN = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/n<<i>>.jpg" height="250" ></a>'
  774. i += 1
  775. if i <= 4:jump 'loopnavel_pir'
  776. }
  777. $pirPubic = {
  778. dynamic $pir_title
  779. i = 1
  780. :looppubic_pir
  781. if dyneval('RESULT = PirsG<<i>>_owned') = 1:*p '<a href="exec:pirsG = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/g<<i>>.jpg" height="250" ></a>'
  782. i += 1
  783. if i <= 7:jump 'looppubic_pir'
  784. }
  785. $pirManage = {
  786. cla
  787. menu_off = 1
  788. *nl
  789. if pirsA > 0:
  790. if pirsA < 10000:
  791. '<center><a href="exec:pirsA = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove tongue piercing</a>.</center>'
  792. else
  793. '<center><a href="exec:dynamic $pirTongue">Insert tongue piercing</a>.</center>'
  794. end
  795. *nl
  796. end
  797. if pirsB > 0:
  798. if pirsB < 10000:
  799. '<center><a href="exec:pirsB = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove lip piercing</a>.</center>'
  800. else
  801. '<center><a href="exec:dynamic $pirLip">Insert lip piercing</a>.</center>'
  802. end
  803. *nl
  804. end
  805. if pirsC > 0:
  806. if pirsC < 10000:
  807. '<center><a href="exec:pirsC = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove ear piercings</a>.</center>'
  808. else
  809. '<center><a href="exec:dynamic $pirEars">Insert ear piercings</a>.</center>'
  810. end
  811. *nl
  812. end
  813. if pirsD > 0:
  814. if pirsD < 10000:
  815. '<center><a href="exec:pirsD = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nose piercing</a>.</center>'
  816. else
  817. '<center><a href="exec:dynamic $pirNose">Insert nose piercing</a>.</center>'
  818. end
  819. *nl
  820. end
  821. if pirsE > 0:
  822. if pirsE < 10000:
  823. '<center><a href="exec:pirsE = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove eyebrow piercing</a>.</center>'
  824. else
  825. '<center><a href="exec:dynamic $pirBrow">Insert eyebrow piercing</a>.</center>'
  826. end
  827. *nl
  828. end
  829. if pirsF > 0:
  830. if pirsF < 10000:
  831. '<center><a href="exec:pirsF = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nipple piercings</a>.</center>'
  832. else
  833. '<center><a href="exec:dynamic $pirNips">Insert nipple piercings</a>.</center>'
  834. end
  835. *nl
  836. end
  837. if pirsN > 0:
  838. if pirsN < 10000:
  839. '<center><a href="exec:pirsN = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove navel piercing</a>.</center>'
  840. else
  841. '<center><a href="exec:dynamic $pirNavel">Insert navel piercing</a>.</center>'
  842. end
  843. *nl
  844. end
  845. if pirsG > 0:
  846. if pirsG < 10000:
  847. '<center><a href="exec:pirsG = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove pussy piercings</a>.</center>'
  848. else
  849. '<center><a href="exec:dynamic $pirPubic">Insert pussy piercings</a>.</center>'
  850. end
  851. *nl
  852. end
  853. act 'Continue': menu_off = 0 & gt $loc, $metka
  854. }
  855. $enema = {
  856. if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  857. act 'Give yourself an enema (0:05)':
  858. menu_off = 1
  859. cla
  860. *clr
  861. cumspclnt = 7
  862. gs 'cum_cleanup'
  863. minut += 5
  864. klismaday = daystart
  865. klismaday1 = 1
  866. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
  867. *nl
  868. 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  869. act 'Finish':menu_off = 0 & gt $loc, $metka
  870. end
  871. end
  872. }
  873. $toymanage = {
  874. if analplug = 1 and analplugin = 1:
  875. act 'Remove your butt plug (0:05)':
  876. menu_off = 1
  877. cla
  878. *clr
  879. minut += 5
  880. analplugIN = 0
  881. if pcs_ass < 30:pcs_ass += 1
  882. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  883. *nl
  884. 'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check
  885. act 'Finish':menu_off = 0 & gt $loc, $metka
  886. end
  887. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  888. act 'Insert your butt plug (0:05)':
  889. menu_off = 1
  890. cla
  891. *clr
  892. minut += 5
  893. analplugIN = 1
  894. if pcs_ass < 10:pcs_ass += 5
  895. if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
  896. if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)
  897. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  898. *nl
  899. if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
  900. if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
  901. act 'Finish':menu_off = 0 & gt $loc, $metka
  902. end
  903. end
  904. if vibrator = 1 and vibratorIN = 1:
  905. act 'Remove the vibrator (0:05)':
  906. menu_off = 1
  907. cla
  908. *clr
  909. minut += 5
  910. vibratorIN = 0
  911. if pcs_vag < 30:pcs_vag += 1
  912. '<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
  913. *nl
  914. 'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
  915. act 'Finish':menu_off = 0 & gt $loc, $metka
  916. end
  917. elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
  918. act 'Insert the vibrator in your vagina (0:05)':
  919. menu_off = 1
  920. cla
  921. *clr
  922. minut += 5
  923. vibratorIN = 1
  924. if pcs_vag < 30:pcs_vag += 2
  925. '<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
  926. *nl
  927. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  928. act 'Finish':gt $loc, $metka
  929. end
  930. end
  931. }
  932. $palelady = {
  933. if dur > 0:'You have enough cocaine for <<dur>>'+iif(dur = 1, 'line.', 'lines.')
  934. if dur > 0 and narkday ! daystart:
  935. act 'Do a line of cocaine (0:05)':
  936. *clr & cla
  937. menu_off = 1
  938. minut += 5
  939. narkday = daystart
  940. gs 'drugs', 'cocaine'
  941. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  942. 'You snort some cocaine, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  943. act 'Continue': menu_off = 0 & gt $loc, $metka
  944. end
  945. end
  946. }
  947. if $ARGS[0] = 'private':
  948. menu_off = 0
  949. if stanok > 0:'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
  950. if mosolmaz > 0: 'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
  951. if tampon = 0 and sanpad = 0:
  952. '<b><font color="red">You have no tampons left.</font></b>'
  953. elseif tampon = 1:
  954. '<font color="red">You have only <b><<tampon>></b> tampon left.</font>'
  955. else
  956. 'You have <b><<tampon>></b> tampons.'
  957. end
  958. if sanpad = 0 and tampon = 0:
  959. '<b><font color="red">You have no pads left.</font></b>'
  960. elseif sanpad = 1:
  961. '<font color="red">You have only <b><<sanpad>></b> pads left.</font>'
  962. else
  963. 'You have <b><<sanpad>></b> pads.'
  964. end
  965. 'Your deodorant will last you for <b><<deodorant>></b> more '+iif(deodorant = 1, 'application.', 'applications.')
  966. if $ARGS[1] = 'hotelroom':
  967. dynamic $shower
  968. if $ARGS[2] = 'bath': dynamic $bath
  969. elseif $loc = 'vanrPar':
  970. 'You can use your parent''s shampoo.'
  971. dynamic $shower
  972. dynamic $bath
  973. elseif $loc = 'tanvanr':
  974. 'You can use Tanya''s shampoo.'
  975. dynamic $shower
  976. dynamic $bath
  977. elseif shampoo > 0:
  978. 'You have enough shampoo for <b><<shampoo>></b> uses.'
  979. dynamic $shower
  980. dynamic $bath
  981. else
  982. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  983. end
  984. if painkiller > 0:
  985. 'You have <b><<painkiller>></b> painkiller'+iif(painkiller > 1, 's.', '.')
  986. if pain['total'] > 0 and pain['killer'] = 0:
  987. act 'Take a painkiller':
  988. cla
  989. pain['killer'] += 1
  990. painkiller -= 1
  991. pcs_hydra += 20
  992. gs 'stat'
  993. *nl
  994. 'You take a painkiller and gulp it down with a glass of water.'
  995. act 'Finish':menu_off = 0 & gt $loc, $metka
  996. end
  997. end
  998. end
  999. if bcream_have > 0:
  1000. '<a href="exec:dynamic $use_bcream & gt $loc, $metka">Apply breast cream.</a> Uses left: <<bcream_have>>.'
  1001. end
  1002. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage your piercings</a>'
  1003. if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $metka">Inject silicone into your breast implants.</a>'
  1004. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $metka">Drain silicone from your breast implants.</a>'
  1005. dynamic $bteeth
  1006. dynamic $tampon
  1007. act 'Change clothes and toys':
  1008. cla
  1009. act 'Return':menu_off = 0 & gt $loc, $metka
  1010. dynamic $wearpan
  1011. dynamic $removepan
  1012. if $curloc = 'vanrPar' and $clothingworntype = 'nude':
  1013. act 'Wear clothes (0:05)':
  1014. *clr & cla
  1015. minut += 5
  1016. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  1017. 'You get dressed'
  1018. gs 'clothing', 'wear_last_worn'
  1019. gs 'stat'
  1020. act 'Return': menu_off = 0 & gt $loc, $metka
  1021. end
  1022. elseif $curloc = 'vanrPar' and $clothingworntype ! 'nude':
  1023. act 'Remove clothes (0:05)':
  1024. *clr & cla
  1025. minut += 5
  1026. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/undress1.mp4"></video></center>'
  1027. 'You remove your clothing'
  1028. gs 'clothing', 'strip'
  1029. gs 'stat'
  1030. act 'Return': menu_off = 0 & gt $loc, $metka
  1031. end
  1032. end
  1033. dynamic $toymanage
  1034. end
  1035. '<a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<bmi_calc>>.<br><<$bmi_desc>></center>''">Check weight on the scales</a>'
  1036. gs 'din_van', 'prvt_pee'
  1037. dynamic $basin
  1038. dynamic $brit
  1039. dynamic $enema
  1040. if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
  1041. act 'Rub ointment onto your pussy (0:05)':
  1042. cla
  1043. mosal_time = (daystart * 100) + hour
  1044. minut += 5
  1045. mosolmaz -= 1
  1046. mosol -= 5
  1047. 'You take a tube of cream and rub it onto your itchy vulva.'
  1048. act 'Finish':menu_off = 0 & gt $loc, $metka
  1049. end
  1050. end
  1051. !For now, the pregnancy reactions use bimbolevel as a chack. Once the pregnancy fetish is added to the game, the check will likely change to that.
  1052. if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
  1053. act 'Do a pregnancy test (0:05)':
  1054. cla
  1055. minut += 5
  1056. pregtest -= 1
  1057. gs 'stat'
  1058. if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
  1059. cla
  1060. knowpreg = 1
  1061. thinkpreg = 1
  1062. *nl
  1063. 'The test shows two strips. You are pregnant. As you look at the test in your hand, you are?'
  1064. act 'Horrified':gt 'din_van', 'HorrifiedReact1'
  1065. act 'Concerned':gt 'din_van', 'ConcernedReact1'
  1066. act 'Excited':gt 'din_van', 'ExcitedReact1'
  1067. elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
  1068. cla
  1069. knowpreg = 1
  1070. thinkpreg = 1
  1071. *nl
  1072. 'The test shows two strips. You are pregnant. As you look at the test in your hand, you are?'
  1073. act 'Excited':gt 'din_van', 'ExcitedReact1'
  1074. act 'Aroused':gt 'din_van', 'ArousedReact1'
  1075. elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid = 0 and pcs_pregtalk = 0:
  1076. knowpreg = 1
  1077. thinkpreg = 1
  1078. gt 'din_van', 'WifeReact1'
  1079. elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid > 0 and pcs_pregtalk = 0:
  1080. knowpreg = 1
  1081. thinkpreg = 1
  1082. gt 'din_van', 'WifeReact2'
  1083. elseif pcs_pregtalk = 1 and pregchem > 120 and knowpreg = 0:
  1084. *nl
  1085. knowpreg = 1
  1086. thinkpreg = 1
  1087. 'The test shows two strips. You are pregnant.'
  1088. elseif pcs_pregtalk = 1 or (knowpreg = 1 and preg = 1):
  1089. *nl
  1090. knowpreg = 1
  1091. thinkpreg = 1
  1092. 'The test shows two strips. You are pregnant.'
  1093. else
  1094. knowpreg = 0
  1095. *nl
  1096. 'The test shows one band. You are not pregnant.'
  1097. end
  1098. act 'Finish':menu_off = 0 & gt $loc, $metka
  1099. end
  1100. end
  1101. !!breast pump is now in the menu, not on the screen
  1102. if breastpump > 0 and bp_unbox >= 1:
  1103. act 'Use breast pump':
  1104. gt 'lact_bp', 'bp_milking'
  1105. end
  1106. elseif breastpump > 0 and bp_unbox <= 0:
  1107. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  1108. elseif breastpump <= 0:
  1109. gs 'lact_bp', 'massage'
  1110. end
  1111. end
  1112. if $ARGS[0] = 'misery':
  1113. menu_off = 1
  1114. if stiralka > 0:
  1115. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 1:
  1116. husband += 5
  1117. poroshok -= 1
  1118. husporday = daystart
  1119. 'The washing machine washed your husband''s dirty laundry.'
  1120. elseif poroshok < 1:
  1121. 'You ran out of washing powder for the washing machine.'
  1122. end
  1123. end
  1124. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  1125. act 'Wash your husbands clothes (2 units of washing powder) (1:00)':
  1126. *clr & cla
  1127. husband += 5
  1128. poroshok -= 2
  1129. minut += 60
  1130. husporday = daystart
  1131. pcs_mood -= 25
  1132. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  1133. *nl
  1134. 'You spend an hour washing your husband''s dirty laundry.'
  1135. act 'Leave the bathroom':menu_off = 0 & gt $loc, $metka
  1136. end
  1137. end
  1138. if husband > 0 and husbanday > 0 and huspolday ! daystart:
  1139. act 'Clean the apartment (1:00)':
  1140. *clr & cla
  1141. husband += 5
  1142. minut += 60
  1143. huspolday = daystart
  1144. pcs_mood -= 25
  1145. !!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  1146. *nl
  1147. 'You take a rag and start cleaning the apartment.'
  1148. act 'Finish':menu_off = 0 & gt $loc, $metka
  1149. end
  1150. end
  1151. end
  1152. if $ARGS[0] = 'buffpick':
  1153. menu_off = 1
  1154. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit2.jpg"></center>'
  1155. *nl
  1156. 'While drying off and getting dressed you examine the sleek muscles that are showing through your skin.'
  1157. 'As you do so you think about how you look and decide:'
  1158. act 'You like how you look.': normbuffpick = 2 & mirror_steam = hour & menu_off = 0 & gt $loc, $metka
  1159. act 'You don''t like how you look.': nrmbfpckct += 1 & normbuffpick = 0 & mirror_steam = hour & menu_off = 0 & gt $loc, $metka
  1160. end
  1161. if $ARGS[0] = 'HorrifiedReact1':
  1162. menu_off = 1
  1163. cla
  1164. pcs_pregtalk = 1
  1165. minut += 10
  1166. *nl
  1167. 'You stare in disbelief at the test in your hand. The two strips displayed can only mean one thing: you are pregnant. You sink to the floor, mind spinning. Tears well in your eyes. How could this happen?'
  1168. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  1169. 'You don''t even know how this is possible. You''ve never even had sex with anyone.'
  1170. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  1171. 'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
  1172. elseif rape > 0 and stat['vaginal'] > 1:
  1173. 'It’s bad enough that you were raped, but possibly getting pregnant from it as well? It’s completely unfair.'
  1174. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  1175. 'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
  1176. else
  1177. 'This is the worst possible thing that could have happened to you. You feel like you''re going to vomit from the stress.'
  1178. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  1179. 'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
  1180. end
  1181. act 'Finish' :menu_off = 0 & gt $loc, $metka
  1182. end
  1183. if $ARGS[0] = 'ConcernedReact1':
  1184. menu_off = 1
  1185. cla
  1186. pcs_pregtalk = 1
  1187. minut += 10
  1188. *nl
  1189. 'Your mind races as you gaze at the test in your hand. The two strips clearly show that you''re pregnant. You know this isn''t the worst thing that could happen to you, but your life is definitely going to change. Are you even ready for that kind of change?'
  1190. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  1191. 'The worst part about this whole situation is that you don''t even know how this happened. How can you get pregnant without having sex?'
  1192. 'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
  1193. elseif rape > 0 and stat['vaginal'] > 1:
  1194. 'The worst part about this whole situation is that this isn''t even your fault. This was forced on you.'
  1195. 'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
  1196. else
  1197. 'On some level, you''re aware that this is a consequence of your own actions, but you''re not quite ready to come to terms with that.'
  1198. 'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
  1199. end
  1200. act 'Finish' :menu_off = 0 & gt $loc, $metka
  1201. end
  1202. if $ARGS[0] = 'ExcitedReact1':
  1203. menu_off = 1
  1204. cla
  1205. pcs_pregtalk = 1
  1206. minut += 10
  1207. *nl
  1208. 'You''re overcome with glee as you look at the pregnancy test in your hand. Its two strips confirm that your wish has been granted: you are pregnant. You giggle as you clutch the pregnancy test, excited to share the news with everyone you know.'
  1209. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  1210. 'You''re not sure how this happened, but you''re not going to complain. Who cares if a miracle made it happen?'
  1211. 'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
  1212. elseif rape > 0 and stat['vaginal'] > 1:
  1213. 'You don’t even care about the circumstances that got you pregnant. It was absolutely worth it for this moment.'
  1214. 'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
  1215. else
  1216. 'Every time you had sex, you hoped the act would make you into a mother.'
  1217. 'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
  1218. end
  1219. act 'Finish' :menu_off = 0 & gt $loc, $metka
  1220. end
  1221. if $ARGS[0] = 'ArousedReact1':
  1222. menu_off = 1
  1223. cla
  1224. pcs_pregtalk = 1
  1225. minut += 10
  1226. *nl
  1227. 'You rub your thighs together as you stare at the pregnancy test in your hand. The two strips displayed confirm that you’ve been knocked up. You excitedly recount every load of cum blast into your fertile womb, wondering which one found purchase. You gently rub your clit in a circular motion as you think about the fact that, in a few months, everyone who sees your large, pregnant belly will know what a slut you are.'
  1228. if rape > 0 and stat['vaginal'] > 1 and incest['exp'] = 0:
  1229. 'You pick up speed as you recall your rapist forcefully pumping you full of his wonderful semen without any concern for your desires. You loved having your agency stripped away as a complete stranger decided to make you a mother.'
  1230. elseif incest['exp'] > 0:
  1231. 'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
  1232. 'The taboo knowledge that you could have gotten pregnant from incest turns you on even more.'
  1233. else
  1234. 'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
  1235. end
  1236. 'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
  1237. act 'Finish' :menu_off = 0 & gt $loc, $metka
  1238. end
  1239. if $ARGS[0] = 'WifeReact1':
  1240. menu_off = 1
  1241. cla
  1242. pcs_pregtalk = 1
  1243. minut += 10
  1244. *nl
  1245. 'A wide smile spreads across your face as you look down at the pregnancy test. The two strips displayed exclaim that you’re finally starting a family. You begin to shake with excitement as you think about how you are going to tell your husband. Should you just tell him as soon as you see him, or do you want to make it an even more special occasion and tell him over a fancy dinner? Maybe you should just nonchalantly drop the test in front of him to see his reaction. Regardless of how you decide to do it, you can''t keep the excitement to yourself any longer. You take a brief moment to freshen up before leaving the room. '
  1246. 'You have a little time before your husband gets home and the baby''s room isn''t going to design itself.'
  1247. act 'Finish' :menu_off = 0 & gt $loc, $metka
  1248. end
  1249. if $ARGS[0] = 'WifeReact2':
  1250. menu_off = 1
  1251. cla
  1252. pcs_pregtalk = 1
  1253. minut += 10
  1254. *nl
  1255. 'You smile warmly at the test in your hand. You are definitely pregnant again. Your chest swells with joy, knowing that your wonderful family is about to get a little bit larger. You contentedly sigh as you envision your pregnant belly swelling again, proclaiming your motherhood to the world. Having a child is the greatest thing that has ever happened to you, and you’re thrilled at the opportunity to experience it again. You can’t wait any longer to tell your husband. You quickly spruce yourself up before going to share the fantastic news with your spouse.'
  1256. act 'Finish' :menu_off = 0 & gt $loc, $metka
  1257. end
  1258. !!------------------------------------------------------------------------------------------------------------------------------------------------------
  1259. !!Peeing text
  1260. !!I''m separating the following text into two versions, some for private bathrooms like those found in homes, and one set for public bathrooms, like those at the school.
  1261. !!Private bathrooms: One of these text should be randomly selected if using a private restroom, such as one in a home.
  1262. if $ARGS[0] = 'prvt_pee':
  1263. if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart):
  1264. act 'Go pee (0:04)':
  1265. *clr & cla
  1266. menu_off = 1
  1267. pee_hour = hour
  1268. pee_day = daystart
  1269. minut += 4
  1270. '<center><img <<$set_imgh>> src="images/pc/pee/pee-private/' + rand(1,19) + '.jpg"></center>'
  1271. !!Get random pee-private picture
  1272. rand_pee = rand(0,7)
  1273. if rand_pee = 0:
  1274. 'You take a seat on the toilet and begin peeing, glad to feel the pressure released.'
  1275. elseif rand_pee = 1:
  1276. 'After sitting on the toilet you finally release your bladder. A shiver runs down your spine as the stream flows out of you. "Wow," you think, "I had to go more than I thought."'
  1277. elseif rand_pee = 2:
  1278. 'Settling into the toilet seat you pull out your phone and begin checking for messages and doing other things to occupy the time until the stream slows to a trickle and finally stops.'
  1279. elseif rand_pee = 3:
  1280. 'You plop down onto the porcelain throne and begin to unleash a torrent of urine into the bowl. As you wait for nature to finish it''s business you begin to daydream a bit as your mind wanders off.'
  1281. elseif rand_pee = 4:
  1282. 'While relaxing your bladder and beginning to pee you decide to reflect on your recent interactions with the people in your life. "What do they think of me? Do they talk behind my back?" You continue contemplating until your body signals that the flow has ended.'
  1283. elseif rand_pee = 5:
  1284. 'You nearly piss yourself as you rush to seat yourself onto the toilet. Unable to hold back the flood anymore, your body releases a seemingly endless stream as you moan quietly in relief, thankful that you made it in time.'
  1285. elseif rand_pee = 6:
  1286. 'After situating yourself on the toilet, you relax and begin peeing. The urine tickles your labia as it sprays out of you into the toilet bowl.'
  1287. else
  1288. 'As you begin to sit down you nearly jump back to your feet as the cold toilet seat stings your bare bottom. You shake your head and sigh before settling back onto the icy seat and doing your business.'
  1289. end
  1290. !!If PC is on her period and using tampon, then the following options should appear as well as the standard "Finish and wipe" act:
  1291. !!This may require an addition check to see if the PC has a purse since I think they need that to carry tampons with them.
  1292. if isprok = 1 and tampon > 0:
  1293. act 'Change tampon (0:02)':
  1294. *clr & cla
  1295. minut += 2
  1296. '<center><img <<$set_imgh>> src="images/pc/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
  1297. 'Reaching down and taking the string between your fingers, you slowly pull the used tampon from your vagina. You wrap it in toilet paper to be thrown in the trash bin. Opening your purse, you retrieve a fresh one before unpackaging it and carefully inserting it into you.'
  1298. gs 'din_van', 'prvt_pee_end'
  1299. end
  1300. end
  1301. !!If PC is on her period and using pad, then the following options should appear as well as the standard "Finish and wipe" act:
  1302. !!This may require an addition check to see if the PC has a purse since I think they need that to carry pads with them.
  1303. if isprokp = 1 and sanpad > 0:
  1304. act 'Change pad (0:02)':
  1305. *clr & cla
  1306. minut += 2
  1307. '<center><img <<$set_imgh>> src="images/pc/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
  1308. 'Checking your pad, you decide it''s time for a new one. You carefully peel it off of your panties before folding it into thirds and setting it aside to be thrown away. Digging in your bag, you pull out a fresh pad, unpackage it, peel off the adhesive strip, and place it into your underwear. Finally, you wrap the wings around the sides of the gusset to make sure it is nice and secure.'
  1309. gs 'din_van', 'prvt_pee_end'
  1310. end
  1311. end
  1312. gs 'din_van', 'prvt_pee_end'
  1313. end
  1314. end
  1315. end
  1316. if $ARGS[0] = 'prvt_pee_end':
  1317. act 'Finish and wipe':
  1318. *clr & cla
  1319. '<center><img <<$set_imgh>> src="images/pc/pee/wiping/' + rand(1,9) + '.jpg"></center>'
  1320. rand_pee = rand(0,2)
  1321. if rand_pee = 0:
  1322. 'Gathering some toilet paper from the roll, you reach down wipe your vagina clean from the last drops of pee leaking from you before dropping the paper into the toilet.'
  1323. elseif rand_pee = 1:
  1324. 'Wrapping some toilet paper around your hand, you reach around and give your pussy and ass a quick wipe before letting the paper drop into the bowl.'
  1325. else
  1326. 'You take a wad of toilet paper in your fist before using it to gently pat your vagina dry. You toss the used material in the toilet and flush it down.'
  1327. end
  1328. act 'Finish':menu_off = 0 & gt $loc, $metka
  1329. end
  1330. end
  1331. !!Public bathrooms: These texts should be randomly selected if using a public restroom
  1332. if $ARGS[0] = 'pblc_pee':
  1333. if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart):
  1334. act 'Go pee (0:04)':
  1335. *clr & cla
  1336. menu_off = 1
  1337. pee_hour = hour
  1338. pee_day = daystart
  1339. minut += 4
  1340. '<center><img <<$set_imgh>> src="images/pc/pee/pee-public/' + rand(1,11) + '.jpg"></center>'
  1341. rand_pee = rand(0,7)
  1342. if rand_pee = 0:
  1343. 'Settling into the toilet seat you pull out your phone and begin checking for messages and doing other things to occupy the time until the stream slows to a trickle and finally stops.'
  1344. elseif rand_pee = 1:
  1345. 'While relaxing your bladder and beginning to pee you decide to reflect on your recent interactions with the people in your life. "What do they think of me? Do they talk behind my back?" You continue contemplating until your body signals that the flow has ended.'
  1346. elseif rand_pee = 2:
  1347. 'You nearly piss yourself as you rush to seat yourself onto the toilet. Unable to hold back the flood anymore, your body releases a seemingly endless stream as you moan quietly in relief, thankful that you made it in time.'
  1348. elseif rand_pee = 3:
  1349. 'Immediately up entering the restroom, your nostrils are assaulted by the most heinous stench. Knowing that you have no other option, you try to suppress your gags as you sit in a stall and do your business.'
  1350. elseif rand_pee = 4:
  1351. *clr
  1352. '<center><img <<$set_imgh>> src="images/pc/pee/pee-public/hovercraft' + rand(1,2) + '.jpg"></center>'
  1353. 'You enter the stall and groan in disgust at the sight of the gross facilities. Realizing that you have no choice, you decided to "hovercraft" it. Instead of sitting down on the filthy seat, you hover your ass above the bowl before letting go of the pee you''d been holding, not caring if all of the stream gets into the toilet or elsewhere.'
  1354. else
  1355. !!Graffiti trigger text
  1356. rand_pee = rand(0,21)
  1357. 'As you sit down to relieve your bladder you get distracted reading some of the graffiti on the wall of the stall.'
  1358. $rand_girl = func('gschool_randperson', 1, '', 1, 1, 1, 1, 1, 0)
  1359. if rand_pee = 0:
  1360. 'Albina and her Starlettes are a bunch of dirty whores.'
  1361. elseif rand_pee = 1:
  1362. '<<$rand_girl>>''s vagina smells like puke!'
  1363. elseif rand_pee = 2:
  1364. 'Beware of Dimka! He''s not as nice as he seems!'
  1365. elseif rand_pee = 3:
  1366. 'If you''re on the rag, check the seat when you get up and WIPE IT OFF!!! No one wants a nasty seat!'
  1367. elseif rand_pee = 4:
  1368. 'If you smell fish, it''s probably your dirty twat! Hahaha!'
  1369. elseif rand_pee = 5:
  1370. 'Shave your punani, bitches! No one likes digging through a forest, LOL.'
  1371. elseif rand_pee = 6:
  1372. 'Shaved pussies stink and are prone to infection! Don''t believe the lies!'
  1373. elseif rand_pee = 7:
  1374. 'Fight the Patriarchy!'
  1375. elseif rand_pee = 8:
  1376. 'Tampons vs. Pads, cast your vote! Below this text are hash marks indicating various girl''s preference. One person also wrote "Freebleeder for life!" Ewww.'
  1377. elseif rand_pee = 9:
  1378. 'Petra''s cock is smaller than my lipstick tube, LOL!'
  1379. elseif rand_pee = 10:
  1380. 'You''re beautiful! Believe that!'
  1381. elseif rand_pee = 11:
  1382. 'Putin is a chauvinist pig!'
  1383. elseif rand_pee = 12:
  1384. 'Suck dick! It''s good for you!'
  1385. elseif rand_pee = 13:
  1386. '"I''ll pull out, I swear! is the most dangerous lie you can believe." This text is followed by a crude drawing of a pregnant woman.'
  1387. elseif rand_pee = 14:
  1388. 'Cut back on the perfume, ladies. It smells like a unicorn farted in here.'
  1389. elseif rand_pee = 15:
  1390. '<<$rand_girl>> is a slut and everyone knows it!'
  1391. elseif rand_pee = 16:
  1392. 'Men are like pantyhose; They either run, cling, or don''t fit right in the crotch!'
  1393. elseif rand_pee = 17:
  1394. 'Gopnik guys are SO HOT!!!'
  1395. elseif rand_pee = 18:
  1396. 'That rumor about black guys is true! Just ask Marcus for a sneak peek.'
  1397. elseif rand_pee = 19:
  1398. 'Butt sex is the best sex!'
  1399. elseif rand_pee = 20:
  1400. 'I just wrote on the wall. Take THAT, society!'
  1401. else
  1402. 'Never quit loving your clit.'
  1403. end
  1404. end
  1405. if mesec > 0 and (isprok = 1 or (isprok = 0 and isprokp = 0)) and tampon > 0 and bag = 1:
  1406. act 'Change tampon (0:02)':
  1407. *clr & cla
  1408. minut += 2
  1409. '<center><img <<$set_imgh>> src="images/pc/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
  1410. 'Reaching down and taking the string between your fingers, you slowly pull the used tampon from your vagina. You wrap it in toilet paper to be thrown in the trash bin. Opening your purse, you retrieve a fresh one before unpackaging it and carefully inserting it into you.'
  1411. gs 'din_van', 'pblc_pee_end'
  1412. end
  1413. end
  1414. if mesec > 0 and (isprokp = 1 or (isprok = 0 and isprokp = 0)) and sanpad > 0 and bag = 1:
  1415. act 'Change pad (0:02)':
  1416. *clr & cla
  1417. minut += 2
  1418. '<center><img <<$set_imgh>> src="images/pc/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
  1419. 'Checking your pad, you decide it''s time for a new one. You carefully peel it off of your panties before folding it into thirds and setting it aside to be thrown away. Digging in your bag, you pull out a fresh pad, unpackage it, peel off the adhesive strip, and place it into your underwear. Finally, you wrap the wings around the sides of the gusset to make sure it is nice and secure.'
  1420. gs 'din_van', 'pblc_pee_end'
  1421. end
  1422. end
  1423. gs 'din_van', 'pblc_pee_end'
  1424. end
  1425. end
  1426. end
  1427. if $ARGS[0] = 'pblc_pee_end':
  1428. act 'Finish and wipe':
  1429. *clr & cla
  1430. '<center><img <<$set_imgh>> src="images/pc/pee/wiping/' + rand(1,9) + '.jpg"></center>'
  1431. rand_pee = rand(0,6)
  1432. if rand_pee = 0:
  1433. 'Gathering some toilet paper from the roll, you reach down wipe your vagina clean from the last drops of pee leaking from you before dropping the paper into the toilet.'
  1434. elseif rand_pee = 1:
  1435. 'Wrapping some toilet paper around your hand, you reach around and give your pussy and ass a quick wipe before letting the paper drop into the bowl.'
  1436. elseif rand_pee = 2:
  1437. 'You take a wad of toilet paper in your fist before using it to gently pay your vagina dry. You toss the used material in the toilet and flush it down.'
  1438. elseif rand_pee = 3:
  1439. 'You gather some of the rough, cheap toilet paper and use it to lightly wipe yourself, not wanting to irritate your sensitive skin. You drop it into the dirty toilet and use your foot to push the handle in order to flush.'
  1440. elseif rand_pee = 4:
  1441. 'Looking over for the roll of toilet paper see that the roll has been used up. Noticing that the stall next to you seems occupied, you politely ask the stranger to help you out. The stranger chuckles a bit before kindly handing you a wad under the stall wall, which you happily use.'
  1442. else
  1443. *clr
  1444. '<center><img <<$set_imgh>> src="images/pc/pee/wiping/no' + rand(1,6) + '.jpg"></center>'
  1445. 'Reaching out for toilet paper you sigh as you notice that the roll is empty. Annoyed, you wiggle your ass to shake the last few drops from your lady bits before pulling up your panties and walking out of the stall.'
  1446. end
  1447. act 'Finish':menu_off = 0 & gt $loc, $metka
  1448. end
  1449. end
  1450. if $ARGS[0] = 'shave_options':
  1451. menu_off = 1
  1452. *clr & cla
  1453. if shave_img_hgt = 0:shave_img_hgt = 100
  1454. !! images handled using FUNC(''$pube_image'')
  1455. '<h3><center><b><font color="maroon">Shaving optons</b></h3><br><center><font color="maroon">Here you can choose your style for pubic hair and which body parts you wish to shave.</font></center>'
  1456. '<br><center><table border=0 cellspacing=<<shave_img_hgt/25>> cellpadding=5>'
  1457. *P '<TR><TD><center><a href="exec:view''images/pc/body/pussy/hair/pussy.jpg''"><img Height = <<shave_img_hgt>> src="images/pc/body/pussy/hair/pussy.jpg"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],2)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],2)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],3)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],3)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],4)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],4)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],5)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],5)>>"></a></center></TD>'
  1458. '<TR><TD><center>'
  1459. if pubestyle ! 1:
  1460. '<a href="exec:pubestyle = 1 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Clean Shave</a>'
  1461. else
  1462. 'Clean Shave'
  1463. end
  1464. '</center></TD><TD><center>'
  1465. if pubestyle ! 2 and pcs_pubes > 15:
  1466. '<a href="exec:pubestyle = 2 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">V-shaped</a>'
  1467. else
  1468. 'V-shaped'
  1469. end
  1470. '</center></TD><TD><center>'
  1471. if pubestyle ! 3 and pcs_pubes > 15:
  1472. '<a href="exec:pubestyle = 3 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Triangle-shaped</a>'
  1473. else
  1474. 'Triangle-shaped'
  1475. end
  1476. '</center></TD><TD><center>'
  1477. if pubestyle ! 4 and pcs_pubes > 15:
  1478. '<a href="exec:pubestyle = 4 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Landing-strip</a>'
  1479. else
  1480. 'Landing-strip'
  1481. end
  1482. '</center></TD><TD><center>'
  1483. if pubestyle ! 5 and pcs_pubes > 15:
  1484. '<a href="exec:pubestyle = 5 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Heart-shaped</a>'
  1485. else
  1486. 'Heart-shaped'
  1487. end
  1488. '</center></TD>'
  1489. *P '<TR><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],6)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],6)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],7)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],7)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],8)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],8)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],9)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],9)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',26,pcs_pubecol[2],10)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',26,pcs_pubecol[2],10)>>"></a></center></TD>'
  1490. '<TR><TD><center>'
  1491. if pubestyle ! 6 and pcs_pubes > 15:
  1492. '<a href="exec:pubestyle = 6 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Flame-shaped</a>'
  1493. else
  1494. 'Flame-shaped'
  1495. end
  1496. '</center></TD><TD><center>'
  1497. if pubestyle ! 7 and pcs_pubes > 15:
  1498. '<a href="exec:pubestyle = 7 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Cross-Shaped</a>'
  1499. else
  1500. 'Cross-Shaped'
  1501. end
  1502. '</center></TD><TD><center>'
  1503. if pubestyle ! 8 and pcs_pubes > 20:
  1504. '<a href="exec:pubestyle = 8 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Trimmed</a>'
  1505. else
  1506. 'Trimmed'
  1507. end
  1508. '</center></TD><TD><center>'
  1509. if pubestyle ! 9 and pcs_pubes > 25:
  1510. '<a href="exec:pubestyle = 9 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Small Bush</a>'
  1511. else
  1512. 'Small Bush'
  1513. end
  1514. '</center></TD><TD><center>'
  1515. if pubestyle ! 10 and pcs_pubes > 35:
  1516. '<a href="exec:pubestyle = 10 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Full Bush</a>'
  1517. else
  1518. 'Full Bush'
  1519. end
  1520. *P '<TR><TD><center><a href="exec:view''<<FUNC(''$pube_image'',5,pcs_pubecol[2],11)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',5,pcs_pubecol[2],11)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],12)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],12)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],13)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],13)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],14)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],14)>>"></a></center></TD>'
  1521. *nl
  1522. '<TR><TD><center>'
  1523. if pubestyle ! 11 and pcs_pubes > 10:
  1524. '<a href="exec:pubestyle = 11 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Lazy</a>'
  1525. '(don''t immediately shave stubble)'
  1526. else
  1527. 'Lazy'
  1528. '(don''t immediately shave stubble)'
  1529. end
  1530. '</center></TD><TD><center>'
  1531. if pubestyle ! 12 and pcs_pubes > 15:
  1532. '<a href="exec:pubestyle = 12 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Mini Bush</a>'
  1533. else
  1534. 'Mini Bush'
  1535. end
  1536. '</center></TD><TD><center>'
  1537. if pubestyle ! 13 and pcs_pubes > 20:
  1538. '<a href="exec:pubestyle = 13 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Bushy Strip</a>'
  1539. else
  1540. 'Bushy Strip'
  1541. end
  1542. '</center></TD><TD><center>'
  1543. if pubestyle ! 14 and pcs_pubes > 20:
  1544. '<a href="exec:pubestyle = 14 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Rectangle</a>'
  1545. else
  1546. 'Rectangle'
  1547. end
  1548. '</center></TD><TR><center>'
  1549. 'Your razor will last for <b><<stanok>></b> more shaves.'
  1550. *nl
  1551. '<center><b>Change your shaving routine:</b></center>'
  1552. '<center><font color="grey">Note: Choosing to never shave, or to shave legs only, will remove your chosen shave style.<br> You can only choose a style if you currently have enough hair to support it.</font></center>'
  1553. *nl
  1554. !if shave_menu = 0:nothing
  1555. !if shave_menu = 1:legs and pussy
  1556. !if shave_menu = 2:pussy only
  1557. !if shave_menu = 3:legs only
  1558. if shave_menu = 0:
  1559. $shave_chosen = 'doesn''t include any shaving options.'
  1560. $shave_time = ''
  1561. 'Never shave | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave everything.''">Everything</a>','<a href="exec:shave_menu = 1 & gs ''din_van'', ''shave_options''">Everything</a>')+' | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave your pussy.''">Pussy only</a>','<a href="exec:shave_menu = 2 & gs ''din_van'', ''shave_options''">Pussy only</a>')+' | <a href="exec:shave_menu = 3 & pubestyle = 0 & gs ''din_van'', ''shave_options''">Legs only</a>'
  1562. elseif shave_menu = 1:
  1563. $shave_chosen = 'involves shaving your legs and maintaining your current pubic style.'
  1564. $shave_time = 'It takes 15 minutes to complete this routine.'
  1565. '<a href="exec:shave_menu = 0 & pubestyle = 0 & gs ''din_van'', ''shave_options''">Never shave</a> | Everything | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave your pussy.''">Pussy only</a>','<a href="exec:shave_menu = 2 & gs ''din_van'', ''shave_options''">Pussy only</a>')+' | <a href="exec:shave_menu = 3 & pubestyle = 0 & gs ''din_van'', ''shave_options''">Legs only</a>'
  1566. elseif shave_menu = 2:
  1567. $shave_chosen = 'involves not shaving your legs and maintaining your current pubic style.'
  1568. $shave_time = 'It takes 10 minutes to complete this routine.'
  1569. '<a href="exec:shave_menu = 0 & pubestyle = 0 & gs ''din_van'', ''shave_options''">Never shave</a> | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave everything.''">Everything</a>','<a href="exec:shave_menu = 1 & gs ''din_van'', ''shave_options''">Everything</a>')+' | Pussy only | <a href="exec:shave_menu = 3 & pubestyle = 0 & gs ''din_van'', ''shave_options''">Legs only</a>'
  1570. elseif shave_menu = 3:
  1571. $shave_chosen = 'involves shaving your legs and not maintaining any chosen pubic style.'
  1572. $shave_time = 'It takes 5 minutes to complete this routine.'
  1573. '<a href="exec:shave_menu = 0 & pubestyle = 0 & gs ''din_van'', ''shave_options''">Never shave</a> | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave everything.''">Everything</a>','<a href="exec:shave_menu = 1 & gs ''din_van'', ''shave_options''">Everything</a>')+' | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave your pussy.''">Pussy only</a>','<a href="exec:shave_menu = 2 & gs ''din_van'', ''shave_options''">Pussy only</a>')+' | Legs only'
  1574. end
  1575. *nl
  1576. '<center>Your current routine <<$shave_chosen>> <br><<$shave_time>></center>'
  1577. '</table></center>'
  1578. act 'Return':menu_off = 0 & gt $loc, $metka
  1579. act 'Set image height for this view':
  1580. shave_img_hgt = input("Enter height in pixels you want for images on this page<br>(default 100, min 50, max 500)")
  1581. if shave_img_hgt < 50:
  1582. shave_img_hgt = 50
  1583. elseif shave_img_hgt > 500:
  1584. shave_img_hgt = 500
  1585. end
  1586. gt 'din_van', 'shave_options'
  1587. end
  1588. end
  1589. --- din_van ---------------------------------