1
0

din_van.qsrc 79 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767
  1. # din_van
  2. !2021/04/26
  3. !!pcs_leghair = leg hair 0 - 3 for smooth <= 6 for stubble <= 9 for light after that hairy
  4. !!pcs_pubes = pubes 0 - 3 for smooth <= 10 for stubble <= 20 for light hair after that its hairy
  5. !!pubestyle = the style in which you have determined to shave your pubic hair
  6. !!shave_length = the length that your pubic hair will be shortened to after shaving/trimming
  7. !!shave_trigger = the length that your pubic hair needs to be to shave/trim it
  8. !!stanok = razor
  9. !!$brit = shaving dynamic
  10. $showerdin = {
  11. menu_off = 1
  12. if hypnoAddict = 0:
  13. cumspclnt = 1
  14. else
  15. cumspclnt = 18
  16. end
  17. gs 'cum_cleanup'
  18. body_write = 0
  19. face_write = 0
  20. pcs_hairbsh = 0
  21. pcs_makeup = 1
  22. if frost > 0:frost = 0
  23. if shampoo < 0: shampoo = 0
  24. lactation['lactmess'] = 0
  25. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  26. if noShampoo = 0:
  27. shampoo -= 1
  28. else
  29. killvar 'noShampoo'
  30. end
  31. if false_lashes >= 1:
  32. if rand(0,4) <= 2:
  33. 'You''re careful enough that your false lashes make it through relatively unscathed.'
  34. else
  35. 'Unfortunately, your false lashes don''t make it through the shower.'
  36. false_lashes = 0
  37. pcs_lashes = pcs_naturallashes
  38. gs 'body_shape', 'basebeautycalc', 1
  39. end
  40. end
  41. }
  42. $bteeth = {
  43. if pcs_breath ! 1 or cumloc[12] = 1:
  44. act 'Brush your teeth (0:03)':
  45. menu_off = 1
  46. *clr & cla
  47. minut += 3
  48. cumspclnt = 2
  49. gs 'cum_cleanup'
  50. pcs_breath = 1
  51. if $clothingworntype = 'nude' and $braworntype = 'none' and $pantyworntype = 'none':
  52. '<center><video autoplay loop src="images/shared/home/bathroom/brushteeth.mp4"></center>'
  53. play 'sound/brushteeth.mp3',100
  54. else
  55. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/brushteeth.jpg"></center>'
  56. end
  57. *nl
  58. 'You brush your teeth and now they are clean and minty fresh.'
  59. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  60. end
  61. end
  62. }
  63. $dryOff = {
  64. act 'Get out and dry off': mirror_steam = hour & gt $loc, $loc_arg
  65. }
  66. $shower = {
  67. act 'Take a shower (0:15)':
  68. menu_off = 1
  69. *clr & cla
  70. minut += 15
  71. if $loc = 'vanrPar' or $loc = 'tanvanr' or $loc = 'albinahome' or hotelShampoo = 1: noShampoo = 1
  72. noShampoo_tmp = noShampoo
  73. dynamic $showerdin
  74. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></center>'
  75. *nl
  76. 'You undress and turn on the water in the shower. When it hits the right temperature, you step into the shower and let the warm water rain down on you.'
  77. if daystart < 10 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:
  78. pcs_horny += rand(6,10)
  79. '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 haven''t missed a single spot, you begin to wash yourself off, continuing to experience new and strange sensations.'
  80. elseif daystart < 30 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:
  81. pcs_horny += rand(2,6)
  82. 'You''ve 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.'
  83. else
  84. pcs_horny += rand(0,2)
  85. ''+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 ')+'lather yourself up, trying not to miss any spots, and then wash off.'
  86. end
  87. if shampoo = 0 and noShampoo_tmp = 1:
  88. 'When you get a chance, you should stop by the supermarket and buy some shampoo.'
  89. elseif shampoo <= 5:
  90. '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.'
  91. end
  92. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  93. if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the shower.'
  94. if btwarn > 0:
  95. if btwarn = 1: $weightwarn = 'losing'
  96. if btwarn = 2: $weightwarn = 'gaining'
  97. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  98. killvar '$weightwarn' & btwarn = 0
  99. end
  100. if normbuffpick = 1:
  101. *nl
  102. '<b>You notice that your muscles are starting to show through your skin.</b>'
  103. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  104. end
  105. if lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] <= 0:
  106. if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
  107. 'As you clean your breasts, something catches your eye. White drops come from your nipples. It is milk.<br>Using the breast pump regularly probably made you lactate!'
  108. lactation['induced'] = 1
  109. elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
  110. 'As you clean your breasts, something catches your eye. White drops come from your nipples. It is milk. Regularly massaging your breasts probably made you lactate!<br>'
  111. lactation['induced'] = 1
  112. elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
  113. 'As you clean your breasts, 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>'
  114. lactation['induced'] = 1
  115. else
  116. 'As you clean your breasts, something catches your eye. White drops come from your nipples. You find, to your surprise, that it is milk. You have started lactating!<br>'
  117. if thinkpreg = 1 or knowpreg = 1:
  118. 'This is probably happening because you are pregnant.'
  119. else
  120. 'You should have this checked out by a doctor. You could be pregnant.'
  121. end
  122. lactation['induced'] = 0
  123. end
  124. pcs_usedbreastpumponherself = 0
  125. pcs_massagedherbreasts = 0
  126. lactation['pc_aware'] = 1
  127. end
  128. dynamic $dryOff
  129. if rapeday = daystart and rape_shower ! daystart:
  130. act'Cry (react to rape)':
  131. cla & *clr
  132. rape_shower = daystart
  133. minut += rand(10,40)
  134. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/cry.jpg"></center>'
  135. 'The last of the suds run off of you, but you can still <i>feel it</i>.'
  136. *nl
  137. 'Your rapist''s cock <i>inside</i> you.'
  138. *nl
  139. 'His cum <i>leaking</i> out of you.'
  140. *nl
  141. 'You grab the soap again and scrub yourself again, but it still feels like something is there, coating your skin. You scrub and scrub and scrub but it just won''t go away until you finally cry out, throwing it into the corner. Tremors begin coursing through your body and you slowly sink down onto the shower floor, where you remain, sobbing while the water continues raining down on you.'
  142. dynamic $dryOff
  143. end
  144. elseif pcs_horny >= 40:
  145. act 'Use the shower head on your pussy':
  146. menu_off = 1
  147. *clr & cla
  148. if rand(0, 5) = 0 and obdysh = 1:gt 'vann', 'v4'
  149. '<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
  150. *nl
  151. 'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
  152. if pcs_inhib < 30:inhib_exp += rand(1,3)
  153. pcs_mood += 15
  154. $orgasm_or = 'no'
  155. gs 'arousal', 'clit_vibe', -10, 'masturbate'
  156. $orgasm_or = 'no'
  157. gs 'arousal', 'clit_vibe', -10, 'masturbate'
  158. $orgasm_or = 'yes'
  159. gs 'arousal', 'clit_vibe', 10, 'masturbate'
  160. gs 'arousal', 'end'
  161. if hypnoAddict ! 0:
  162. 'You unconsciously avoid spraying water into your vagina.'
  163. else
  164. cumspclnt = 8
  165. gs 'cum_cleanup'
  166. end
  167. dynamic $dryOff
  168. end
  169. end
  170. gs'selfplay','shower_dildo_check'
  171. act 'Take a selfie':
  172. gs 'telefon', 'Phone_selfie_image_bathing', 'shower'
  173. end
  174. dynamic $brit
  175. if vanr_lock = 0 and $loc = 'vanrPar':
  176. *nl
  177. 'In your absentmindedness, you have forgotton to close the door.'
  178. '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.'
  179. if indorf = 0: gs 'vanrPar', 'peek'
  180. end
  181. end
  182. killvar 'noShampoo_tmp'
  183. }
  184. $bath = {
  185. act 'Soak in the bath (0:30)':
  186. menu_off = 1
  187. *clr & cla
  188. minut += 30
  189. pcs_sweat = 7 + rand(0,4)
  190. pcs_mood += 20
  191. if $loc = 'vanrPar' or $loc = 'tanvanr' or hotelShampoo = 1: noShampoo = 1
  192. noShampoo_tmp = noShampoo
  193. dynamic $showerdin
  194. if bath_daystart ! daystart:
  195. bath_daystart = daystart
  196. pcs_skin += rand(1,2)
  197. pcs_willpwr += 1
  198. end
  199. gs 'stat'
  200. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
  201. *nl
  202. 'You undress while the bathtub fills up and dip a toe into the water. It is just the right temperature, so you climb in and let yourself sink into the warm water, moaning softly as you feel your muscles start to relax.'
  203. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  204. pcs_horny += rand(6,10)
  205. 'You stare at the smooth, soft legs sticking out of the water. You''re still not used to this new body and the look of all this roundness.'
  206. 'As you start 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.'
  207. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  208. pcs_horny += rand(2,6)
  209. '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.'
  210. else
  211. pcs_horny += rand(0,2)
  212. '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.'
  213. end
  214. if shampoo = 0 and noShampoo_tmp = 1:
  215. 'When you get a chance, you should stop by the supermarket and buy some shampoo.'
  216. elseif shampoo <= 5:
  217. '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.'
  218. end
  219. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  220. if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the bath.'
  221. if btwarn > 0:
  222. if btwarn = 1: $weightwarn = 'losing'
  223. if btwarn = 2: $weightwarn = 'gaining'
  224. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  225. killvar '$weightwarn' & btwarn = 0
  226. end
  227. if normbuffpick = 1:
  228. ''
  229. '<b>You notice that your muscles are starting to show through your skin.</b>'
  230. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  231. end
  232. dynamic $dryOff
  233. act '"Wash" your pussy':
  234. menu_off = 1
  235. *clr & cla
  236. if obdysh = 1 and rand(0, 5) = 1:gt 'vann', 'v4'
  237. minut += 10
  238. '<center><video autoplay loop src="images/shared/home/bathroom/wash7.mp4"></center>'
  239. *nl
  240. '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.'
  241. if pcs_inhib < 30:inhib_exp += rand(1,3)
  242. pcs_mood += 15
  243. $orgasm_or = 'no'
  244. gs 'arousal', 'clit_vibe', -10, 'masturbate'
  245. $orgasm_or = 'no'
  246. gs 'arousal', 'clit_vibe', -10, 'masturbate'
  247. $orgasm_or = 'yes'
  248. gs 'arousal', 'clit_vibe', 10, 'masturbate'
  249. gs 'arousal', 'end'
  250. dynamic $dryOff
  251. end
  252. gs'selfplay','bathtub_dildo_check'
  253. act 'Take a selfie':
  254. gs 'telefon', 'Phone_selfie_image_bathing', 'bath'
  255. end
  256. dynamic $brit
  257. end
  258. killvar 'noShampoo_tmp'
  259. }
  260. $brit = {
  261. if shave_menu = 1 and stanok > 1:
  262. if pcs_leghair > 3 or (pubestyle > 0 and pcs_pubes >= shave_trigger):
  263. if pcs_leghair > 3 and (pubestyle > 0 and pcs_pubes >= shave_trigger):
  264. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  265. $shave_act = 'Shave your legs and pussy'
  266. $shave_txt1 = '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.'
  267. $shave_txt2 = '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. In the end, you get a pretty decent job done.'
  268. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  269. pcs_mood += 10
  270. $shave_txt1 = '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?'
  271. elseif pubestyle = 1:
  272. $shave_act = 'Shave your legs and pussy'
  273. if pcs_pubes <= 10:
  274. $shave_txt1 = 'You do your legs first before lathering up your crotch and taking a razor to the bush growing there. After a few minutes of shaving, you take a moment to inspect yourself, making sure you got everything.'
  275. $shave_txt2 = 'Satisfied there isn''t even a single hair left, you rinse yourself off, enjoying the newfound smoothness of your pussy.'
  276. else
  277. $shave_txt1 = 'You lather up your legs and crotch, grabbing your razor and carefully scraping away stubble that is growing from them.'
  278. $shave_txt2 = 'After a few minutes of work, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble left. Satisfied, you rinse yourself off, smiling in relief that your pussy is silky smooth once again.'
  279. end
  280. elseif (pubestyle >= 2 and pubestyle <= 8) or pubestyle >= 12:
  281. if pcs_pubes >= shave_trigger + 5:
  282. $shave_act = 'Shave your legs and pussy'
  283. $shave_txt1 = 'You lather up your legs and carefully shave them. Once finished, you lather up your crotch and start shaving away the edges of your pubic hair. After a few minutes, you''ve given your pussy a perfect hairdoo and rinse off the rest of the soap, admiring your new sexual fashion before deciding what to do next.'
  284. else
  285. $shave_act = 'Shave your legs and trim your bush'
  286. $shave_txt1 = 'You lather up your legs and carefully shave them. Once finished, you spend some time cleaning up the area around your styled pubic hair, trimming back stubble and hair until it''s neat and tidy again.'
  287. end
  288. elseif pubestyle = 9:
  289. $shave_act = 'Shave your legs and maintain your bush'
  290. if pcs_pubes >= 26:
  291. $shave_txt1 = 'You lather up your legs and carefully shave them. Once you''re finished, you spend some time maintaining your bush and your bikini lines, until it is a neat and tidy lawn of hair.'
  292. else
  293. $shave_txt1 = 'You lather up your legs and carefully shave them. Once you''re finished, you spend some time maintaining your bush, keeping it short and neat.'
  294. end
  295. elseif pubestyle = 10:
  296. $shave_act = 'Shave your legs and trim your bush'
  297. if pcs_pubes >= 40:
  298. $shave_txt1 = 'You lather up your legs and carefully shave them. Once you''re finished, you spend some time hacking back the wild jungle covering your crotch. Soon enough, you''re left with a sophisticated and tidy bush of hair that neatly carpets your pussy.'
  299. else
  300. $shave_txt1 = 'You lather up your legs and carefully shave them. Once you''re finished, you spend some time maintaining your bush, keeping it neat and tidy.'
  301. end
  302. elseif pubestyle = 11:
  303. $shave_act = 'Shave your legs and pussy'
  304. if pcs_pubes <= 10:
  305. $shave_txt1 = 'You do your legs first before realizing that the stubble growing around your pussy is starting to become irritating and you can''t put it off any longer. Lathering yourself up, you grab your razor and carefully scrape away the rough itchy hairs have been bothering you so.'
  306. $shave_txt2 = 'After a few minutes of work, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble hiding in the folds of your crotch somewhere. Satisfied, you rinse yourself off, smiling in relief that your pussy is smooth once again.'
  307. else
  308. $shave_txt1 = 'You do your legs first before lathering up your crotch and taking a razor to the hair growing there. After a few minutes of shaving, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble hiding in the folds of your crotch somewhere. Satisfied, you rinse yourself off, enjoying the newfound smoothness of your pussy.'
  309. end
  310. else
  311. $shave_act = ''
  312. end
  313. if $shave_act ! '':
  314. act '<<$shave_act>> (0:15)':
  315. menu_off = 1
  316. *clr & cla
  317. if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
  318. if $loc ='gadbana':
  319. '<center><video autoplay loop src="images/shared/home/bathroom/shave.mp4"></center>'
  320. elseif pcs_pubes <= 10 and shave_length = 2:
  321. '<center><video autoplay loop src="images/shared/home/bathroom/shave_stubble.mp4"></center>'
  322. elseif shave_length = 2:
  323. '<center><video autoplay loop src="images/shared/home/bathroom/shave_bush.mp4"></center>'
  324. elseif shave_length > 2:
  325. '<center><video autoplay loop src="images/shared/home/bathroom/trim_bush.mp4"></center>'
  326. else
  327. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  328. end
  329. *nl
  330. '<<$shave_txt1>>'
  331. *nl
  332. '<<$shave_txt2>>'
  333. minut += 15
  334. pcs_leghair = 0
  335. pcs_pubes = shave_length
  336. pcs_horny += 5
  337. stanok -= 2
  338. dynamic $dryOff
  339. gs'selfplay','bathtub_dildo_check'
  340. gs'selfplay','shower_dildo_check'
  341. end
  342. end
  343. end
  344. if pcs_leghair > 3:
  345. act'Shave your legs (0:05)':
  346. menu_off = 1
  347. *clr & cla
  348. minut += 5
  349. pcs_leghair = 0
  350. pcs_horny += 5
  351. stanok -= 1
  352. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  353. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave2.jpg"></center>'
  354. *nl
  355. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  356. '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.'
  357. '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. In the end, you get a pretty decent job done.'
  358. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  359. pcs_mood += 10
  360. '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?'
  361. else
  362. 'You lather your legs up and grab your razor. After spending a few minutes methodically shaving away every last hair, your legs are smooth and clean. The feeling of your silky skin turns you on a little.'
  363. end
  364. dynamic $dryOff
  365. gs'selfplay','bathtub_dildo_check'
  366. gs'selfplay','shower_dildo_check'
  367. end
  368. end
  369. else
  370. '<br>You don''t need to shave.'
  371. end
  372. end
  373. if (shave_menu = 2 or shave_menu = 1) and stanok > 0:
  374. if pubestyle > 0 and pcs_pubes >= shave_trigger:
  375. if pubestyle = 1:
  376. $shave_act = 'Shave your pussy'
  377. if pcs_pubes <= 10:
  378. $shave_txt1 = 'You lather up yourself up, and grab your razor, carefully scraping away stubble that is growing from your crotch.'
  379. $shave_txt2 = 'After a few minutes of work, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble hiding in the folds of your crotch somewhere. Satisfied, you rinse yourself off, smiling in relief that your pussy is silky smooth once again.'
  380. else
  381. $shave_txt1 = 'You lather up your crotch and take a razor to the hair growing there. After a few minutes of shaving, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble hiding in the folds of your crotch somewhere. Satisfied, you rinse yourself off, enjoying the newfound smoothness of your pussy.'
  382. end
  383. elseif (pubestyle >= 2 and pubestyle <= 8) or pubestyle >= 12:
  384. if pcs_pubes >= shave_trigger + 5:
  385. $shave_act = 'Shave your pussy'
  386. $shave_txt1 = 'You lather up your crotch and start shaving away the edges of your pubic hair. After a few minutes, you''ve given your pussy a perfect hairdoo and rinse off the rest of the soap, admiring your new sexual fashion.'
  387. else
  388. $shave_act = 'Trim your bush'
  389. $shave_txt1 = 'You lather up your crotch and spend some time cleaning up the stubble around your pussy until your bush is neatly styled again.'
  390. end
  391. elseif pubestyle = 9:
  392. $shave_act = 'Trim your bush'
  393. if pcs_pubes >= 26:
  394. $shave_txt1 = 'You spend some time trimming back your thick bush of pubic hair, until it is a neat and tidy lawn of hair instead.'
  395. else
  396. $shave_txt1 = 'You spend some time maintaining your bush, keeping it short and neat.'
  397. end
  398. elseif pubestyle = 10:
  399. if pcs_pubes >= 40:
  400. $shave_act = 'Trim back your bush'
  401. $shave_txt1 = 'You spend some time hacking back the wild jungle covering your crotch. Soon enough, you''re left with a sophisticated and tidy bush of hair that neatly carpets your pussy.'
  402. else
  403. $shave_act = 'Trim your bush'
  404. $shave_txt1 = 'You spend some time maintaining your bush, trimming back the edges, keeping it neat and tidy.'
  405. end
  406. elseif pubestyle = 11:
  407. $shave_act = 'Shave your pussy'
  408. if pcs_pubes <= 10:
  409. $shave_txt1 = 'As the water of the shower continues to roll down your body, you suddenly realize that the stubble growing around your pussy is starting to become irritating and you can''t put it off any longer. Lathering yourself up, you grab your razor and carefully scrape away the rough itchy hairs have been bothering you so.'
  410. $shave_txt2 = 'After a few minutes of work, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble hiding in the folds of your crotch somewhere. Satisfied, you rinse yourself off, smiling in relief that your pussy is smooth once again.'
  411. else
  412. $shave_txt1 = 'You lather up yourself up and take a razor to the hair growing over your crotch. After a few minutes of shaving, you take a moment to inspect yourself, making sure you got every last pube and there isn''t even a bit of stubble hiding in the folds of your crotch somewhere. Satisfied, you rinse yourself off, enjoying the newfound smoothness of your pussy.'
  413. end
  414. else
  415. $shave_act = ''
  416. end
  417. if $shave_act ! '':
  418. act '<<$shave_act>> (0:10)':
  419. menu_off = 1
  420. *clr & cla
  421. if pcs_pubes <= 10 and shave_length = 2:
  422. '<center><video autoplay loop src="images/shared/home/bathroom/shave_stubble.mp4"></center>'
  423. elseif shave_length = 2:
  424. '<center><video autoplay loop src="images/shared/home/bathroom/shave_bush.mp4"></center>'
  425. elseif shave_length > 2:
  426. '<center><video autoplay loop src="images/shared/home/bathroom/trim_bush.mp4"></center>'
  427. else
  428. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  429. end
  430. *nl
  431. minut += 10
  432. pcs_pubes = shave_length
  433. pcs_horny += 5
  434. stanok -= 1
  435. '<<$shave_txt1>>'
  436. *nl
  437. '<<$shave_txt2>>'
  438. dynamic $dryOff
  439. gs'selfplay','bathtub_dildo_check'
  440. gs'selfplay','shower_dildo_check'
  441. end
  442. end
  443. end
  444. end
  445. if (shave_menu = 3 or shave_menu = 1) and stanok > 0:
  446. if pcs_leghair > 3:
  447. act 'Shave your legs (0:05)':
  448. menu_off = 1
  449. *clr & cla
  450. minut += 5
  451. pcs_leghair = 0
  452. pcs_horny += 5
  453. stanok -= 1
  454. if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
  455. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave2.jpg"></center>'
  456. *nl
  457. if daystart < 10 and StoryLine = 0 and ntstart = 0:
  458. '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.'
  459. '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. In the end, you get a pretty decent job done.'
  460. elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
  461. pcs_mood += 10
  462. '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?'
  463. else
  464. '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.'
  465. end
  466. dynamic $dryOff
  467. gs'selfplay','bathtub_dildo_check'
  468. gs'selfplay','shower_dildo_check'
  469. end
  470. end
  471. end
  472. }
  473. $tampon = {
  474. if sanpad > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprokp = 0 and isprok = 0 and $pantyworntype ! 'none' and knowpreg = 0:
  475. act 'Use a sanitary pad (0:02)':
  476. menu_off = 1
  477. *clr & cla
  478. sanpad -= 1
  479. isprokp = 1
  480. minut += 2
  481. pcs_mood -= 5
  482. '<center><img <<$set_imgh>> src="images/pc/body/pee/period/pad/<<rand(2,3)>>.jpg"></center>'
  483. *nl
  484. 'You use a sanitary pad.'
  485. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  486. end
  487. end
  488. if tampon > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprok = 0 and isprokp = 0 and knowpreg = 0:
  489. act 'Use a tampon (0:02)':
  490. menu_off = 1
  491. *clr & cla
  492. tampon -= 1
  493. isprok = 1
  494. minut += 2
  495. pcs_mood -= 5
  496. '<center><img <<$set_imgh>> src="images/pc/body/pee/period/tampon/6.jpg"></center>'
  497. *nl
  498. 'You use a tampon.'
  499. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  500. end
  501. end
  502. }
  503. $quickwash = {
  504. if spdirty > 0:
  505. act 'Quick wash (0:15)':
  506. menu_off = 1
  507. *clr & cla
  508. cumspclnt = 4
  509. gs 'cum_cleanup'
  510. if pcs_sweat < 30:
  511. pcs_sweat = 15 + rand(0,4)
  512. else
  513. pcs_sweat -= 10 + rand(0,4)
  514. end
  515. minut += 15
  516. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash5.jpg"></center>'
  517. *nl
  518. 'You give yourself a catlick, thus removing any traces of cum.'
  519. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  520. end
  521. end
  522. gs 'din_van', 'pblc_pee'
  523. }
  524. $wearpan = {
  525. if $pantyworntype = 'none':
  526. act 'Wear panties (0:02)':
  527. minut += 2
  528. gs 'stat'
  529. gt 'panties', 'view_panty_list', 'bathroom'
  530. end
  531. end
  532. if $braworntype = 'none':
  533. act 'Wear a bra (0:02)':
  534. minut += 2
  535. gs 'stat'
  536. gt 'bras', 'view_bra_list', 'bathroom'
  537. end
  538. end
  539. }
  540. $removepan = {
  541. if $pantyworntype ! 'none' and $braworntype ! 'none':
  542. act 'Remove underwear (0:02)':
  543. minut += 2
  544. gs 'stat'
  545. gs 'underwear', 'remove'
  546. gt $loc, $loc_arg
  547. end
  548. end
  549. if $pantyworntype ! 'none':
  550. act 'Remove panties (0:02)':
  551. minut += 2
  552. gs 'stat'
  553. gs 'panties', 'remove'
  554. gt $loc, $loc_arg
  555. end
  556. end
  557. if $braworntype ! 'none':
  558. act 'Remove bra (0:02)':
  559. minut += 2
  560. gs 'stat'
  561. gs 'bras', 'remove'
  562. gt $loc, $loc_arg
  563. end
  564. end
  565. }
  566. !! Meant for non-home bathrooms. If you have a bag stashes the underwear in there and enables putting it back on later.
  567. !! purse_____ variables get wiped in 'wardrobe', 'clothing', 'panties' and 'bra' so there isn''t a chance of duplication
  568. $publicpan = {
  569. if $pantyworntype ! 'none' and $braworntype ! 'none':
  570. act 'Remove underwear'+iif(bag = 1, ' and put it in your purse ',' ') + '(0:02)':
  571. minut += 2
  572. gs 'stat'
  573. if bag = 1:
  574. $pursepantytype = $pantyworntype
  575. pursepantynumber = pantywornnumber
  576. $pursebratype = $braworntype
  577. pursebranumber = brawornnumber
  578. end
  579. gs 'underwear', 'remove'
  580. gt $loc, $loc_arg
  581. end
  582. elseif bag = 1 and $pantyworntype = 'none' and $braworntype = 'none' and $pursepantytype ! '' and $pursebratype ! '':
  583. act 'Put your underwear back on (0:02)':
  584. minut += 2
  585. gs 'stat'
  586. gs 'panties', 'wear', $pursepantytype, pursepantynumber
  587. gs 'bras', 'wear', $pursebratype, pursebranumber
  588. killvar '$pursepantytype' & killvar 'pursepantynumber'
  589. killvar '$pursebratype' & killvar 'pursebranumber'
  590. gt $loc, $loc_arg
  591. end
  592. end
  593. if $pantyworntype ! 'none':
  594. act 'Remove panties'+iif(bag = 1, ' and put them in your purse ',' ') + '(0:02)':
  595. minut += 2
  596. gs 'stat'
  597. if bag = 1:
  598. $pursepantytype = $pantyworntype
  599. pursepantynumber = pantywornnumber
  600. end
  601. gs 'panties', 'remove'
  602. gt $loc, $loc_arg
  603. end
  604. elseif bag = 1 and $pantyworntype = 'none' and $pursepantytype ! '':
  605. act 'Put your panties back on (0:02)':
  606. minut += 2
  607. gs 'stat'
  608. gs 'panties', 'wear', $pursepantytype, pursepantynumber
  609. killvar '$pursepantytype' & killvar 'pursepantynumber'
  610. gt $loc, $loc_arg
  611. end
  612. end
  613. if $braworntype ! 'none':
  614. act 'Remove bra'+iif(bag = 1, ' and put it in your purse ',' ') + '(0:02)':
  615. minut += 2
  616. gs 'stat'
  617. if bag = 1:
  618. $pursebratype = $braworntype
  619. pursebranumber = brawornnumber
  620. end
  621. gs 'bras', 'remove'
  622. gt $loc, $loc_arg
  623. end
  624. elseif bag = 1 and $braworntype = 'none' and $pursebratype ! '':
  625. act 'Put your bra back on (0:02)':
  626. minut += 2
  627. gs 'stat'
  628. gs 'bras', 'wear', $pursebratype, pursebranumber
  629. killvar '$pursebratype' & killvar 'pursebranumber'
  630. gt $loc, $loc_arg
  631. end
  632. end
  633. }
  634. $basin = {
  635. if cumloc[12] = 1:
  636. act 'Rinse your mouth (0:05)':
  637. menu_off = 1
  638. cla
  639. cumspclnt = 2
  640. gs 'cum_cleanup'
  641. minut += 5
  642. gs 'stat'
  643. *nl
  644. 'You rinse your mouth and get rid of the taste of cum.'
  645. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  646. end
  647. end
  648. if cumloc[13] = 1:
  649. act 'Wash the cum from your hands (0:05)':
  650. menu_off = 1
  651. cla
  652. cumspclnt = 9
  653. gs 'cum_cleanup'
  654. minut += 5
  655. gs 'stat'
  656. *nl
  657. 'You wash your hands and get rid of any trace of cum.'
  658. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  659. end
  660. end
  661. if cumloc[11] = 1 and cumloc[16] = 0:
  662. act 'Wash the cum from your face (0:05)':
  663. menu_off = 1
  664. *clr & cla
  665. pcs_makeup = 1
  666. cumspclnt = 9
  667. gs 'cum_cleanup'
  668. cumspclnt = 11
  669. gs 'cum_cleanup'
  670. if pcs_sweat > 19 : pcs_sweat -= 5
  671. minut += 5
  672. gs 'stat'
  673. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
  674. *nl
  675. 'You clean your face and get rid of any trace of cum.'
  676. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  677. end
  678. elseif cumloc[11] = 0 and cumloc[16] = 1:
  679. act 'Wash the cum out of your hair (0:10)':
  680. menu_off = 1
  681. cla
  682. cumspclnt = 9
  683. gs 'cum_cleanup'
  684. cumspclnt = 5
  685. gs 'cum_cleanup'
  686. pcs_hairbsh = 0
  687. if pcs_sweat > 19 : pcs_sweat -= 5
  688. minut += 10
  689. gs 'stat'
  690. *nl
  691. 'You clean your hair and get rid of any trace of cum.'
  692. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  693. end
  694. elseif cumloc[11] = 1 and cumloc[16] = 1:
  695. act 'Wash the cum from your face and hair (0:10)':
  696. menu_off = 1
  697. *clr & cla
  698. pcs_makeup = 1
  699. cumspclnt = 9
  700. gs 'cum_cleanup'
  701. cumspclnt = 12
  702. gs 'cum_cleanup'
  703. pcs_hairbsh = 0
  704. if pcs_sweat > 19 : pcs_sweat -= 5
  705. minut += 10
  706. gs 'stat'
  707. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
  708. *nl
  709. 'You clean your face and hair and get rid of any trace of cum.'
  710. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  711. end
  712. end
  713. if cumloc[2] = 1 or cumloc[5] = 1 or cumloc[6] = 1 or cumloc[7] = 1:
  714. act 'Wash the cum off your clothes (0:10)':
  715. menu_off = 1
  716. *clr & cla
  717. cumspclnt = 9
  718. gs 'cum_cleanup'
  719. cumspclnt = 6
  720. gs 'cum_cleanup'
  721. minut += 10
  722. gs 'stat'
  723. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  724. '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.'
  725. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  726. end
  727. end
  728. if body_write > 0 or face_write > 0:
  729. act 'Wash the writings off your body (0:10)':
  730. menu_off = 1
  731. *clr & cla
  732. body_write = 0
  733. face_write = 0
  734. minut += 10
  735. gs'stat'
  736. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
  737. *nl
  738. 'You wash off the indecent inscriptions on your body.'
  739. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  740. end
  741. end
  742. if pcs_makeup ! 1 and cosmetic_tattoo = 0:
  743. act 'Wash off cosmetics (0:10)':
  744. menu_off = 1
  745. cla
  746. pcs_makeup = 1
  747. cumspclnt = 9
  748. gs 'cum_cleanup'
  749. cumspclnt = 11
  750. gs 'cum_cleanup'
  751. minut += 10
  752. *nl
  753. 'You wash off your makeup.'
  754. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  755. end
  756. end
  757. if false_lashes >= 1:
  758. act 'Remove false lashes (0:05)':
  759. menu_off = 1
  760. cla
  761. 'You carefully peel off the glued-on strip, careful to protect your natural lashes.'
  762. lashsavechance = rand(0,4)
  763. if lashsavechance = 4:
  764. 'These lashes still look to be in pretty good shape; you could probably use them again.'
  765. if pcs_lashes = 4:fakelashesmink += 1
  766. if pcs_lashes = 3:fakelashesplain += 1
  767. end
  768. pcs_lashes = pcs_naturallashes
  769. false_lashes = 0
  770. minut += 5
  771. gs 'body_shape', 'basebeautycalc', 1
  772. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  773. end
  774. end
  775. if deodorant > 0 and deodorant_on = 0:
  776. act 'Apply deodorant (0:01)':
  777. *clr & cla
  778. menu_off = 1
  779. minut += 1
  780. deodorant -= 1
  781. gs 'sweat', 'deo'
  782. 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>')
  783. 'You apply deodorant to your armpits. It will keep you feeling fresh and clean for longer.'
  784. act 'Continue': menu_off = 0 & gt $loc, $loc_arg
  785. end
  786. end
  787. }
  788. $pirManage = {
  789. gt 'piercing_management', 'main'
  790. }
  791. $enema = {
  792. if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  793. act 'Give yourself an enema (0:05)':
  794. menu_off = 1
  795. cla
  796. *clr
  797. cumspclnt = 7
  798. gs 'cum_cleanup'
  799. minut += 5
  800. klismaday = daystart
  801. klismaday1 = 1
  802. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
  803. *nl
  804. 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  805. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  806. end
  807. end
  808. }
  809. $toymanage = {
  810. if analplug = 1 and analplugin = 1:
  811. act 'Remove your butt plug (0:05)':
  812. menu_off = 1
  813. cla
  814. *clr
  815. minut += 5
  816. analplugIN = 0
  817. if pcs_ass < 30:pcs_ass += 1
  818. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  819. *nl
  820. 'You squat and tug gently at the butt plug, gasping as you push it out. You can''t help but feel a bit empty now that it''s out.' & !!0.2.6: Removed unneccessary var check
  821. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  822. end
  823. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  824. act 'Insert your butt plug (0:05)':
  825. menu_off = 1
  826. cla
  827. *clr
  828. minut += 5
  829. analplugIN = 1
  830. if pcs_ass < 10:pcs_ass += 5
  831. if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
  832. if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)
  833. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  834. *nl
  835. if butpluguse > 0:'You squat and gently rub the butt plug against your anus after lubricating it with a bit of saliva. After a few minutes, 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.'
  836. 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 can have great adventures someday... You could even say huge and thick adventures with crimson heads..." 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 lubricate your anus with your saliva and push the butt plug against it. 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 and then immediately feel naughty for even having thought that.'
  837. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  838. end
  839. end
  840. if vibrator = 1 and vibratorIN = 1:
  841. act 'Remove the vibrator (0:05)':
  842. menu_off = 1
  843. cla
  844. *clr
  845. minut += 5
  846. vibratorIN = 0
  847. if pcs_vag < 30:pcs_vag += 1
  848. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/vibrator.jpg"></center>'
  849. *nl
  850. '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.'
  851. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  852. end
  853. elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
  854. act 'Insert the vibrator in your vagina (0:05)':
  855. menu_off = 1
  856. cla
  857. *clr
  858. minut += 5
  859. vibratorIN = 1
  860. if pcs_vag < 30:pcs_vag += 2
  861. '<center><img <<$set_imgh>> src="images/pc/items/sextoys/vibrator.jpg"></center>'
  862. *nl
  863. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  864. act 'Finish':gt $loc, $loc_arg
  865. end
  866. end
  867. }
  868. $palelady = {
  869. if dur > 0:'You have enough cocaine for <<dur>>'+iif(dur = 1, 'line.', 'lines.')
  870. if dur > 0 and narkday ! daystart:
  871. act 'Do a line of cocaine (0:05)':
  872. *clr & cla
  873. menu_off = 1
  874. minut += 5
  875. narkday = daystart
  876. gs 'drugs', 'cocaine'
  877. '<center><img <<$set_imgh>> src="images/shared/drugs/dur.jpg"></center>'
  878. 'You snort some cocaine, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  879. act 'Continue': menu_off = 0 & gt $loc, $loc_arg
  880. end
  881. end
  882. }
  883. if $ARGS[0] = 'private':
  884. menu_off = 0
  885. if stanok > 0:'You have enough razors left for <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
  886. if stanok > 0 and stanok <= 2 and razor['warning'] ! daystart:
  887. razor['warning'] = daystart
  888. msg' You''re about to run out of razors!'
  889. end
  890. if mosolmaz > 0: 'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
  891. if tampon = 0 and sanpad = 0:
  892. '<b><font color="red">You have no feminine hygiene products left.</font></b>'
  893. elseif tampon = 1 and tampon['warning'] ! daystart:
  894. tampon['warning'] = daystart
  895. msg'<font color="red">You only have <b><<tampon>></b> tampon left!</font>'
  896. elseif tampon = 1:
  897. msg'<font color="red">You only have <b><<tampon>></b> tampon left.</font>'
  898. else
  899. 'You have <b><<tampon>></b> tampons.'
  900. end
  901. if sanpad = 1 and sanpad['warning'] ! daystart:
  902. sanpad['warning'] = daystart
  903. msg'<font color="red">You only have <b><<sanpad>></b> pad left!</font>'
  904. elseif sanpad = 1:
  905. '<font color="red">You have only <b><<sanpad>></b> pads left.</font>'
  906. else
  907. 'You have <b><<sanpad>></b> pads.'
  908. end
  909. 'Your deodorant will last you for <b><<deodorant>></b> more '+iif(deodorant = 1, 'application.', 'applications.')
  910. if $ARGS[1] = 'hotelroom':
  911. dynamic $shower
  912. if $ARGS[2] = 'bath': dynamic $bath
  913. elseif $loc = 'vanrPar':
  914. 'You can use your parent''s shampoo.'
  915. dynamic $shower
  916. dynamic $bath
  917. elseif $loc = 'LariskaHome':
  918. 'You can use Lariska''s shampoo.'
  919. dynamic $shower
  920. dynamic $bath
  921. elseif $loc = 'tanvanr':
  922. 'You can use Tanya''s shampoo.'
  923. dynamic $shower
  924. dynamic $bath
  925. elseif shampoo > 0:
  926. 'You have enough shampoo for <b><<shampoo>></b> uses.'
  927. dynamic $shower
  928. dynamic $bath
  929. else
  930. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  931. end
  932. if painkiller > 0:
  933. 'You have <b><<painkiller>></b> painkiller'+iif(painkiller > 1, 's.', '.')
  934. if pain['total'] > 0 and pain['killer'] = 0:
  935. act 'Take a painkiller':
  936. cla
  937. pain['killer'] += 1
  938. painkiller -= 1
  939. pcs_hydra += 20
  940. gs 'stat'
  941. *nl
  942. 'You take a painkiller and gulp it down with a glass of water.'
  943. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  944. end
  945. end
  946. end
  947. if bcream_have > 0:
  948. '<a href="exec:dynamic $use_bcream & gt $loc, $loc_arg">Apply breast cream.</a> Uses left: <<bcream_have>>.'
  949. end
  950. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:*clr & cla & dynamic $pirManage">Manage your piercings</a>'
  951. if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $loc_arg">Inject silicone into your breast implants.</a>'
  952. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $loc_arg">Drain silicone from your breast implants.</a>'
  953. dynamic $bteeth
  954. dynamic $tampon
  955. act 'Change clothes and toys':
  956. cla
  957. act 'Return':menu_off = 0 & gt $loc, $loc_arg
  958. dynamic $wearpan
  959. dynamic $removepan
  960. if $curloc = 'vanrPar' and $clothingworntype = 'nude':
  961. act 'Wear clothes (0:05)':
  962. *clr & cla
  963. minut += 5
  964. '<center><video autoplay loop src="images/pc/activities/misc/dress_1.mp4"></video></center>'
  965. 'You get dressed.'
  966. gs 'clothing', 'wear_last_worn'
  967. gs 'stat'
  968. act 'Return': menu_off = 0 & gt $loc, $loc_arg
  969. end
  970. elseif $curloc = 'vanrPar' and $clothingworntype ! 'nude':
  971. act 'Remove clothes (0:05)':
  972. *clr & cla
  973. minut += 5
  974. '<center><video autoplay loop src="images/pc/items/accessories/computer/webcam/undress1.mp4"></video></center>'
  975. 'You remove your clothing.'
  976. gs 'clothing', 'strip'
  977. gs 'stat'
  978. act 'Return': menu_off = 0 & gt $loc, $loc_arg
  979. end
  980. end
  981. dynamic $toymanage
  982. end
  983. '<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>'
  984. gs 'din_van', 'prvt_pee'
  985. dynamic $basin
  986. dynamic $brit
  987. dynamic $enema
  988. if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
  989. act 'Rub ointment onto your pussy (0:05)':
  990. cla
  991. mosal_time = (daystart * 100) + hour
  992. minut += 5
  993. mosolmaz -= 1
  994. mosol -= 5
  995. 'You take a tube of cream and rub it onto your itchy vulva.'
  996. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  997. end
  998. end
  999. !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.
  1000. if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
  1001. act 'Do a pregnancy test (0:05)':
  1002. cla & *clr
  1003. '<center><img <<$set_imgh>> src="images/pc/items/accessories/birthcontrol/preg_test.jpg"></center>'
  1004. 'You sit down on the toilet and slip the test between your legs, carefully letting loose a stream of urine from your pussy onto the tip. Following the instructions, you then re-cap it and lay it flat on the sink, spending the next five minutes nervously fidgeting, waiting out the suggested time...'
  1005. 'When the time is up, you eagerly snatch it up and yank off the cap to see the results.'
  1006. minut += 5
  1007. pregtest -= 1
  1008. gs 'stat'
  1009. if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
  1010. cla
  1011. knowpreg = 1
  1012. thinkpreg = 1
  1013. *nl
  1014. 'The test shows two strips. You are pregnant. As you look at the test in your hand, you are...'
  1015. act 'Horrified':gt 'din_van', 'HorrifiedReact1'
  1016. act 'Concerned':gt 'din_van', 'ConcernedReact1'
  1017. act 'Excited':gt 'din_van', 'ExcitedReact1'
  1018. elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
  1019. cla
  1020. knowpreg = 1
  1021. thinkpreg = 1
  1022. *nl
  1023. 'The test shows two strips. You are pregnant. As you look at the test in your hand, you are...'
  1024. act 'Excited':gt 'din_van', 'ExcitedReact1'
  1025. act 'Aroused':gt 'din_van', 'ArousedReact1'
  1026. elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid = 0 and pcs_pregtalk = 0:
  1027. knowpreg = 1
  1028. thinkpreg = 1
  1029. gt 'din_van', 'WifeReact1'
  1030. elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid > 0 and pcs_pregtalk = 0:
  1031. knowpreg = 1
  1032. thinkpreg = 1
  1033. gt 'din_van', 'WifeReact2'
  1034. elseif pcs_pregtalk = 1 and pregchem > 120 and knowpreg = 0:
  1035. *nl
  1036. knowpreg = 1
  1037. thinkpreg = 1
  1038. 'The test shows two strips. You are pregnant.'
  1039. elseif pcs_pregtalk = 1 or (knowpreg = 1 and preg = 1):
  1040. *nl
  1041. knowpreg = 1
  1042. thinkpreg = 1
  1043. 'The test shows two strips. You are pregnant.'
  1044. else
  1045. knowpreg = 0
  1046. *nl
  1047. 'The test shows one band. You are not pregnant.'
  1048. act'Sigh in relief':gt'din_van','ReliefReact'
  1049. act'Sigh in disappointment':gt'din_van','DisappointedReact'
  1050. end
  1051. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1052. end
  1053. end
  1054. !!breast pump is now in the menu, not on the screen
  1055. if breastpump > 0 and bp_unbox >= 1:
  1056. act 'Use breast pump':
  1057. gt 'lact_bp', 'bp_milking'
  1058. end
  1059. elseif breastpump > 0 and bp_unbox <= 0:
  1060. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  1061. elseif breastpump <= 0:
  1062. gs 'lact_bp', 'massage'
  1063. end
  1064. end
  1065. if $ARGS[0] = 'misery':
  1066. menu_off = 1
  1067. if stiralka > 0:
  1068. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 1:
  1069. husband += 5
  1070. poroshok -= 1
  1071. husporday = daystart
  1072. 'The washing machine washed your husband''s dirty laundry.'
  1073. elseif poroshok < 1:
  1074. 'You have run out of washing powder for the washing machine.'
  1075. end
  1076. end
  1077. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  1078. act 'Wash your husband''s clothes (2 units of washing powder) (1:00)':
  1079. *clr & cla
  1080. husband += 5
  1081. poroshok -= 2
  1082. minut += 60
  1083. husporday = daystart
  1084. pcs_mood -= 20
  1085. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  1086. *nl
  1087. 'You spend an hour washing your husband''s dirty laundry.'
  1088. act 'Leave the bathroom':menu_off = 0 & gt $loc, $loc_arg
  1089. end
  1090. end
  1091. if husband > 0 and husbanday > 0 and huspolday ! daystart:
  1092. act 'Clean the apartment (1:00)':
  1093. *clr & cla
  1094. husband += 5
  1095. minut += 60
  1096. huspolday = daystart
  1097. pcs_mood -= 20
  1098. !!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  1099. *nl
  1100. 'You take a rag and start cleaning the apartment.'
  1101. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1102. end
  1103. end
  1104. end
  1105. if $ARGS[0] = 'misery_2':
  1106. menu_off = 1
  1107. if stiralka > 0:
  1108. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 1:
  1109. husband += 5
  1110. poroshok -= 1
  1111. husporday = daystart
  1112. 'The washing machine washed your husband''s dirty laundry.'
  1113. elseif poroshok < 1:
  1114. 'You have run out of washing powder for the washing machine.'
  1115. end
  1116. end
  1117. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  1118. act 'Wash your husband''s clothes (2 units of washing powder) (1:00)':
  1119. *clr & cla
  1120. husband += 5
  1121. poroshok -= 2
  1122. minut += 60
  1123. husporday = daystart
  1124. pcs_mood -= 20
  1125. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  1126. *nl
  1127. 'You spend an hour washing your husband''s dirty laundry.'
  1128. act 'Leave the bathroom':menu_off = 0 & gt $loc, $loc_arg
  1129. end
  1130. end
  1131. if husband > 0 and husbanday > 0 and huspolday ! daystart:
  1132. act 'Clean the apartment (1:00)':
  1133. *clr & cla
  1134. husband += 5
  1135. minut += 60
  1136. huspolday = daystart
  1137. pcs_mood -= 20
  1138. !!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  1139. *nl
  1140. 'You take a rag and start cleaning the apartment.'
  1141. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1142. end
  1143. end
  1144. end
  1145. if $ARGS[0] = 'buffpick':
  1146. menu_off = 1
  1147. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit2.jpg"></center>'
  1148. *nl
  1149. 'While drying off and getting dressed, you examine the sleek muscles that are showing through your skin.'
  1150. 'As you do so, you think about how you look and decide:'
  1151. act 'You like how you look.': normbuffpick = 2 & mirror_steam = hour & menu_off = 0 & gt $loc, $loc_arg
  1152. act 'You don''t like how you look.': nrmbfpckct += 1 & normbuffpick = 0 & mirror_steam = hour & menu_off = 0 & gt $loc, $loc_arg
  1153. end
  1154. if $ARGS[0] = 'ReliefReact':
  1155. cla & *clr
  1156. '<center><img <<$set_imgh>> src="images/pc/items/accessories/birthcontrol/preg_test.jpg"></center>'
  1157. 'Negative.'
  1158. *nl
  1159. 'You sigh in relief, letting loose a breath that you feel like you''ve been holding for days. You toss the used test into the trash and happily get on with your not-pregnant day.'
  1160. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1161. end
  1162. if $ARGS[0] = 'DisappointedReact':
  1163. cla & *clr
  1164. '<center><img <<$set_imgh>> src="images/pc/items/accessories/birthcontrol/preg_test.jpg"></center>'
  1165. 'Negative.'
  1166. *nl
  1167. 'You sigh, closing your eyes in disappointment. You had really hoped that this day would be the day you found out you were expecting. But today is not that day. With not a small amount of frustration, you throw the used test into the trash and move on with your day.'
  1168. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1169. end
  1170. if $ARGS[0] = 'HorrifiedReact1':
  1171. menu_off = 1
  1172. cla
  1173. pcs_pregtalk = 1
  1174. minut += 10
  1175. *nl
  1176. '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?'
  1177. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  1178. 'You don''t even know how this is possible. You''ve never even had sex with anyone.'
  1179. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  1180. '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.'
  1181. elseif rape > 0 and stat['vaginal'] > 1:
  1182. 'It’s bad enough that you were raped, but possibly getting pregnant from it as well? It’s completely unfair!'
  1183. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  1184. '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.'
  1185. else
  1186. 'This is the worst possible thing that could have happened to you. You feel like you''re going to vomit from the stress.'
  1187. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  1188. '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.'
  1189. end
  1190. act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
  1191. end
  1192. if $ARGS[0] = 'ConcernedReact1':
  1193. menu_off = 1
  1194. cla
  1195. pcs_pregtalk = 1
  1196. minut += 10
  1197. *nl
  1198. '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?'
  1199. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  1200. '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?'
  1201. 'After spending a few minutes 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.'
  1202. elseif rape > 0 and stat['vaginal'] > 1:
  1203. 'The worst part about this whole situation is that this isn''t even your fault. This was forced on you.'
  1204. 'After spending a few minutes 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.'
  1205. else
  1206. '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.'
  1207. 'After spending a few minutes 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.'
  1208. end
  1209. act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
  1210. end
  1211. if $ARGS[0] = 'ExcitedReact1':
  1212. menu_off = 1
  1213. cla
  1214. pcs_pregtalk = 1
  1215. minut += 10
  1216. *nl
  1217. '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.'
  1218. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  1219. 'You''re not sure how this happened, but you''re not going to complain. Who cares if a miracle made it happen?'
  1220. 'You spend 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.'
  1221. elseif rape > 0 and stat['vaginal'] > 1:
  1222. 'You don’t even care about the circumstances that got you pregnant. It was absolutely worth it for this moment.'
  1223. 'You spend 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.'
  1224. else
  1225. 'Every time you''ve had sex, you hoped the act would make you into a mother.'
  1226. 'You spend 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.'
  1227. end
  1228. act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
  1229. end
  1230. if $ARGS[0] = 'ArousedReact1':
  1231. menu_off = 1
  1232. cla
  1233. pcs_pregtalk = 1
  1234. minut += 10
  1235. *nl
  1236. '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 blasted 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.'
  1237. if rape > 0 and stat['vaginal'] > 1 and incest['exp'] = 0:
  1238. '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 dignity stripped away as a complete stranger decided to make you a mother.'
  1239. elseif incest['exp'] > 0:
  1240. '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.'
  1241. 'The taboo knowledge that you could have gotten pregnant from incest turns you on even more.'
  1242. else
  1243. '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.'
  1244. end
  1245. *nl
  1246. '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.'
  1247. act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
  1248. end
  1249. if $ARGS[0] = 'WifeReact1':
  1250. menu_off = 1
  1251. cla
  1252. pcs_pregtalk = 1
  1253. minut += 10
  1254. *nl
  1255. '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. '
  1256. *nl
  1257. 'You have a little time before your husband gets home and the baby''s room isn''t going to design itself.'
  1258. act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
  1259. end
  1260. if $ARGS[0] = 'WifeReact2':
  1261. menu_off = 1
  1262. cla
  1263. pcs_pregtalk = 1
  1264. minut += 10
  1265. *nl
  1266. '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.'
  1267. act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
  1268. end
  1269. !!------------------------------------------------------------------------------------------------------------------------------------------------------
  1270. !!Peeing text
  1271. !!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.
  1272. !!Private bathrooms: One of these text should be randomly selected if using a private restroom, such as one in a home.
  1273. if $ARGS[0] = 'prvt_pee':
  1274. if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart):
  1275. act 'Go pee (0:04)':
  1276. *clr & cla
  1277. menu_off = 1
  1278. pee_hour = hour
  1279. pee_day = daystart
  1280. minut += 4
  1281. '<center><img <<$set_imgh>> src="images/pc/body/pee/private/' + rand(1,19) + '.jpg"></center>'
  1282. !!Get random private peeing picture
  1283. rand_pee = rand(0,7)
  1284. if rand_pee = 0:
  1285. 'You take a seat on the toilet and begin peeing, glad to feel the pressure released.'
  1286. elseif rand_pee = 1:
  1287. '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."'
  1288. elseif rand_pee = 2:
  1289. 'Settling onto 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.'
  1290. elseif rand_pee = 3:
  1291. '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.'
  1292. elseif rand_pee = 4:
  1293. '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.'
  1294. elseif rand_pee = 5:
  1295. 'You nearly piss yourself as you rush to seat yourself on 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.'
  1296. elseif rand_pee = 6:
  1297. '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.'
  1298. else
  1299. '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.'
  1300. end
  1301. !!If PC is on her period and using tampon, 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 tampons with them.
  1303. if isprok = 1 and tampon > 0:
  1304. act 'Change tampon (0:02)':
  1305. *clr & cla
  1306. minut += 2
  1307. '<center><img <<$set_imgh>> src="images/pc/body/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
  1308. '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, unpack it and carefully insert it into yourself.'
  1309. gs 'din_van', 'prvt_pee_end'
  1310. end
  1311. end
  1312. !!If PC is on her period and using pad, then the following options should appear as well as the standard "Finish and wipe" act:
  1313. !!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.
  1314. if isprokp = 1 and sanpad > 0:
  1315. act 'Change pad (0:02)':
  1316. *clr & cla
  1317. minut += 2
  1318. '<center><img <<$set_imgh>> src="images/pc/body/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
  1319. '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.'
  1320. gs 'din_van', 'prvt_pee_end'
  1321. end
  1322. end
  1323. gs 'din_van', 'prvt_pee_end'
  1324. end
  1325. end
  1326. end
  1327. if $ARGS[0] = 'prvt_pee_end':
  1328. act 'Finish and wipe':
  1329. *clr & cla
  1330. '<center><img <<$set_imgh>> src="images/pc/body/pee/wiping/' + rand(1,9) + '.jpg"></center>'
  1331. rand_pee = rand(0,2)
  1332. if rand_pee = 0:
  1333. 'Gathering some toilet paper from the roll, you reach down wipe your vagina clean from the last drops of urine leaking from you before dropping the paper into the toilet.'
  1334. elseif rand_pee = 1:
  1335. '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.'
  1336. else
  1337. '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.'
  1338. end
  1339. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1340. end
  1341. end
  1342. !!Public bathrooms: These texts should be randomly selected if using a public restroom
  1343. if $ARGS[0] = 'pblc_pee':
  1344. if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart):
  1345. act 'Go pee (0:04)':
  1346. *clr & cla
  1347. menu_off = 1
  1348. pee_hour = hour
  1349. pee_day = daystart
  1350. minut += 4
  1351. '<center><img <<$set_imgh>> src="images/pc/body/pee/public/' + rand(1,11) + '.jpg"></center>'
  1352. rand_pee = rand(0,7)
  1353. if rand_pee = 0:
  1354. 'Settling onto 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.'
  1355. elseif rand_pee = 1:
  1356. '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.'
  1357. elseif rand_pee = 2:
  1358. '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.'
  1359. elseif rand_pee = 3:
  1360. '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.'
  1361. elseif rand_pee = 4:
  1362. *clr
  1363. '<center><img <<$set_imgh>> src="images/pc/body/pee/public/hovercraft' + rand(1,2) + '.jpg"></center>'
  1364. '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.'
  1365. else
  1366. !!Graffiti trigger text
  1367. rand_pee = rand(0,21)
  1368. 'As you sit down to relieve your bladder you get distracted reading some of the graffiti on the wall of the stall.'
  1369. $rand_girl = func('gschool_randperson', 1, '', 1, 1, 1, 1, 1, 0)
  1370. if rand_pee = 0:
  1371. 'Albina and her Starlets are a bunch of dirty whores!'
  1372. elseif rand_pee = 1:
  1373. '<<$rand_girl>>''s vagina smells like puke!'
  1374. elseif rand_pee = 2:
  1375. 'Beware of Dimka! He''s not as nice as he seems!'
  1376. elseif rand_pee = 3:
  1377. 'If you''re on the rag, check the seat when you get up and WIPE IT OFF!!! No one wants a nasty seat!'
  1378. elseif rand_pee = 4:
  1379. 'If you smell fish, it''s probably your dirty twat! Hahaha!'
  1380. elseif rand_pee = 5:
  1381. 'Shave your punani, bitches! No one likes digging through a forest, LOL.'
  1382. elseif rand_pee = 6:
  1383. 'Shaved pussies stink and are prone to infection! Don''t believe the lies!'
  1384. elseif rand_pee = 7:
  1385. 'Fight the Patriarchy!'
  1386. elseif rand_pee = 8:
  1387. '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.'
  1388. elseif rand_pee = 9:
  1389. 'Petka''s cock is smaller than my lipstick tube, LOL!'
  1390. elseif rand_pee = 10:
  1391. 'You''re beautiful! Believe that!'
  1392. elseif rand_pee = 11:
  1393. 'Putin is a chauvinist pig!'
  1394. elseif rand_pee = 12:
  1395. 'Suck dick! It''s good for you!'
  1396. elseif rand_pee = 13:
  1397. '"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.'
  1398. elseif rand_pee = 14:
  1399. 'Cut back on the perfume, ladies. It smells like a unicorn farted in here.'
  1400. elseif rand_pee = 15:
  1401. '<<$rand_girl>> is a slut and everyone knows it!'
  1402. elseif rand_pee = 16:
  1403. 'Men are like pantyhose; They either run, cling, or don''t fit right in the crotch!'
  1404. elseif rand_pee = 17:
  1405. 'Gopnik guys are SO HOT!!!'
  1406. elseif rand_pee = 18:
  1407. 'That rumor about black guys is true! Just ask Marcus for a sneak peek.'
  1408. elseif rand_pee = 19:
  1409. 'Butt sex is the best sex!'
  1410. elseif rand_pee = 20:
  1411. 'I just wrote on the wall. Take THAT, society!'
  1412. else
  1413. 'Never quit loving your clit.'
  1414. end
  1415. end
  1416. if mesec > 0 and (isprok = 1 or (isprok = 0 and isprokp = 0)) and tampon > 0 and bag = 1:
  1417. act 'Change tampon (0:02)':
  1418. *clr & cla
  1419. minut += 2
  1420. '<center><img <<$set_imgh>> src="images/pc/body/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
  1421. '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 yourself.'
  1422. gs 'din_van', 'pblc_pee_end'
  1423. end
  1424. end
  1425. if mesec > 0 and (isprokp = 1 or (isprok = 0 and isprokp = 0)) and sanpad > 0 and bag = 1:
  1426. act 'Change pad (0:02)':
  1427. *clr & cla
  1428. minut += 2
  1429. '<center><img <<$set_imgh>> src="images/pc/body/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
  1430. '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.'
  1431. gs 'din_van', 'pblc_pee_end'
  1432. end
  1433. end
  1434. gs 'din_van', 'pblc_pee_end'
  1435. end
  1436. end
  1437. end
  1438. if $ARGS[0] = 'pblc_pee_end':
  1439. act 'Finish and wipe':
  1440. *clr & cla
  1441. '<center><img <<$set_imgh>> src="images/pc/body/pee/wiping/' + rand(1,9) + '.jpg"></center>'
  1442. rand_pee = rand(0,6)
  1443. if rand_pee = 0:
  1444. 'Gathering some toilet paper from the roll, you reach down wipe your vagina clean from the last drops of urine leaking from you before dropping the paper into the toilet.'
  1445. elseif rand_pee = 1:
  1446. '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.'
  1447. elseif rand_pee = 2:
  1448. '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.'
  1449. elseif rand_pee = 3:
  1450. '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.'
  1451. elseif rand_pee = 4:
  1452. 'Looking for the roll of toilet paper, you are dismayed to 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.'
  1453. else
  1454. *clr
  1455. '<center><img <<$set_imgh>> src="images/pc/body/pee/wiping/no' + rand(1,6) + '.jpg"></center>'
  1456. '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 off before pulling up your panties and walking out of the stall.'
  1457. end
  1458. act 'Finish':menu_off = 0 & gt $loc, $loc_arg
  1459. end
  1460. end
  1461. if $ARGS[0] = 'shave_options':
  1462. menu_off = 1
  1463. *clr & cla
  1464. if shave_img_hgt = 0:shave_img_hgt = 100
  1465. !! images handled using FUNC(''$pube_image'')
  1466. '<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>'
  1467. '<br><center><table border=0 cellspacing=<<shave_img_hgt/25>> cellpadding=5>'
  1468. *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>'
  1469. '<TR><TD><center>'
  1470. if pubestyle ! 1:
  1471. '<a href="exec:pubestyle = 1 & shave_length = 2 & shave_trigger = 4 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Clean Shave</a>'
  1472. else
  1473. 'Clean Shave'
  1474. end
  1475. '</center></TD><TD><center>'
  1476. if pubestyle ! 2 and pcs_pubes > 15:
  1477. '<a href="exec:pubestyle = 2 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">V-shaped</a>'
  1478. else
  1479. 'V-shaped'
  1480. end
  1481. '</center></TD><TD><center>'
  1482. if pubestyle ! 3 and pcs_pubes > 15:
  1483. '<a href="exec:pubestyle = 3 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Triangle-shaped</a>'
  1484. else
  1485. 'Triangle-shaped'
  1486. end
  1487. '</center></TD><TD><center>'
  1488. if pubestyle ! 4 and pcs_pubes > 15:
  1489. '<a href="exec:pubestyle = 4 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Landing-strip</a>'
  1490. else
  1491. 'Landing-strip'
  1492. end
  1493. '</center></TD><TD><center>'
  1494. if pubestyle ! 5 and pcs_pubes > 15:
  1495. '<a href="exec:pubestyle = 5 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Heart-shaped</a>'
  1496. else
  1497. 'Heart-shaped'
  1498. end
  1499. '</center></TD>'
  1500. *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>'
  1501. '<TR><TD><center>'
  1502. if pubestyle ! 6 and pcs_pubes > 15:
  1503. '<a href="exec:pubestyle = 6 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Flame-shaped</a>'
  1504. else
  1505. 'Flame-shaped'
  1506. end
  1507. '</center></TD><TD><center>'
  1508. if pubestyle ! 7 and pcs_pubes > 15:
  1509. '<a href="exec:pubestyle = 7 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Cross-Shaped</a>'
  1510. else
  1511. 'Cross-Shaped'
  1512. end
  1513. '</center></TD><TD><center>'
  1514. if pubestyle ! 8 and pcs_pubes > 20:
  1515. '<a href="exec:pubestyle = 8 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Trimmed</a>'
  1516. else
  1517. 'Trimmed'
  1518. end
  1519. '</center></TD><TD><center>'
  1520. if pubestyle ! 9 and pcs_pubes > 25:
  1521. '<a href="exec:pubestyle = 9 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Small Bush</a>'
  1522. else
  1523. 'Small Bush'
  1524. end
  1525. '</center></TD><TD><center>'
  1526. if pubestyle ! 10:
  1527. '<a href="exec:pubestyle = 10 & shave_length = 26 & shave_trigger = 31 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Full Bush</a>'
  1528. else
  1529. 'Full Bush'
  1530. end
  1531. *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>'
  1532. *nl
  1533. '<TR><TD><center>'
  1534. if pubestyle ! 11 and pcs_pubes > 10:
  1535. '<a href="exec:pubestyle = 11 & shave_length = 2 & shave_trigger = 8 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Lazy</a>'
  1536. '(don''t immediately shave stubble)'
  1537. else
  1538. 'Lazy'
  1539. '(don''t immediately shave stubble)'
  1540. end
  1541. '</center></TD><TD><center>'
  1542. if pubestyle ! 12 and pcs_pubes > 15:
  1543. '<a href="exec:pubestyle = 12 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Mini Bush</a>'
  1544. else
  1545. 'Mini Bush'
  1546. end
  1547. '</center></TD><TD><center>'
  1548. if pubestyle ! 13 and pcs_pubes > 20:
  1549. '<a href="exec:pubestyle = 13 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Bushy Strip</a>'
  1550. else
  1551. 'Bushy Strip'
  1552. end
  1553. '</center></TD><TD><center>'
  1554. if pubestyle ! 14 and pcs_pubes > 20:
  1555. '<a href="exec:pubestyle = 14 & shave_length = 16 & shave_trigger = 21 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''din_van'', ''shave_options''">Rectangle</a>'
  1556. else
  1557. 'Rectangle'
  1558. end
  1559. '</center></TD><TR><center>'
  1560. 'Your razor will last for <b><<stanok>></b> more shaves.'
  1561. *nl
  1562. '<center><b>Change your shaving routine:</b></center>'
  1563. '<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>'
  1564. *nl
  1565. !if shave_menu = 0:nothing
  1566. !if shave_menu = 1:legs and pussy
  1567. !if shave_menu = 2:pussy only
  1568. !if shave_menu = 3:legs only
  1569. if shave_menu = 0:
  1570. $shave_chosen = 'doesn''t include any shaving options.'
  1571. $shave_time = ''
  1572. '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>'
  1573. elseif shave_menu = 1:
  1574. $shave_chosen = 'involves shaving your legs and maintaining your current pubic style.'
  1575. $shave_time = 'It takes 15 minutes to complete this routine.'
  1576. '<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>'
  1577. elseif shave_menu = 2:
  1578. $shave_chosen = 'involves not shaving your legs and maintaining your current pubic style.'
  1579. $shave_time = 'It takes 10 minutes to complete this routine.'
  1580. '<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>'
  1581. elseif shave_menu = 3:
  1582. $shave_chosen = 'involves shaving your legs and not maintaining any chosen pubic style.'
  1583. $shave_time = 'It takes 5 minutes to complete this routine.'
  1584. '<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'
  1585. end
  1586. *nl
  1587. '<center>Your current routine <<$shave_chosen>> <br><<$shave_time>></center>'
  1588. '</table></center>'
  1589. act 'Return':menu_off = 0 & gt $loc, $loc_arg
  1590. act 'Set image height for this view':
  1591. shave_img_hgt = input("Enter height in pixels you want for images on this page<br>(default 100, min 50, max 500)")
  1592. if shave_img_hgt < 50:
  1593. shave_img_hgt = 50
  1594. elseif shave_img_hgt > 500:
  1595. shave_img_hgt = 500
  1596. end
  1597. gt 'din_van', 'shave_options'
  1598. end
  1599. end
  1600. --- din_van ---------------------------------