123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804 |
- # din_van
- $showerdin = {
- cumspclnt = 1
- gs 'cum_cleanup'
- }
- $bteeth = {
- if fbreath ! 1:
- act 'Brush your teeth (0.05)':
- cla
- *clr
- minut += 5
- cumspclnt = 2
- gs 'cum_cleanup'
- fbreath = 1
- '<center><img src="images/pics/brushteeth.jpg"></center>'
- 'You brush your teeth and now they are clean and minty fresh'
- act 'Finish':gt $locM, $metkaM
- end
- end
- }
- $shower = {
- act 'Wash in the shower (0:15)':
- cla
- *clr
- shampoo -= 1
- minut += 15
- horny += 1
- hapri = 0
- mop = 1
- sweat = -3
- if clrbelo > 0 and tanga = 1:
- clrbelo -= 1
- dirtbelo += 1
- elseif clrbelo = 0 and tanga = 1:
- tanga = 0
- dirtbelo += 1
- end
- if shampoo < 0:
- shampoo = 0
- end
- dynamic $showerdin
- if frost > 0:frost = 0
- '<center><img src="images/pics/dush.jpg"></center>'
- if daystart < 10 and StoryLine = 0:
- 'It is really wild 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 in the shower noticing how soft and tender it feels. Once you lather yourself with soap you wash in the shower, continuing to experience new and strange sensations.'
- elseif daystart >= 10 and daystart < 30 and StoryLine = 0:
- 'You have already gotten used to a woman''s body and its softness doesn''t surprise you very much.'
- else
- 'You carefully lather soap over your body trying not to miss any spot, and then wash off in the shower.'
- end
- if btwarn > 0:
- if btwarn = 1: $weightwarn = 'losing'
- if btwarn = 2: $weightwarn = 'gaining'
- '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
- killvar '$weightwarn' & btwarn = 0
- end
- if normbuffpick = 1:
- ''
- '<b>You notice that your muscles are starting to show through your skin.</b>'
- act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
- end
- if vanr_lock = 0 and $loc = 'vanrPar':
- 'Trying to quickly wash up and get back to business, you forget to close the door.'
- '<br>The idea that the door is open occupies your mind when you wipe with a towel. It would be very embarrassing if your brother or stepfather looked in wrong time.'
- cla
- act 'Dry off':
- if indorf = 0:
- gs 'vanrPar', 'peek'
- else
- mirror_steam = hour & gt $locM, $metkaM
- end
- end
- end
- if (leghair > 0 or lobok > 0) and stanok > 0:
- act 'Get razor':dynamic $brit
- end
- if horny >= 90:
- act 'Use the showerhead on your pussy':
- cla
- *clr
- horny = 0
- minut += 30
- mastr += 1
- orgasm += 1
- manna += 15
- willpower += 15
- '<center><img src="images/pics/wash2.jpg"></center>'
- 'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. Soon you feel a warm wave spreading over your entire body and you shudder as the orgasm overtakes you.'
- act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
- end
- elseif horny >= 40 and horny < 90:
- act 'Send shower pussy':
- cla
- *clr
- horny += 5
- minut += 30
- manna += 10
- willpower += 10
- '<center><img src="images/pics/wash2.jpg"></center>'
- 'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. At first it feels very nice, but after a while it starts to be a little bit painful. You decide to stop masturbating.'
- act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
- end
- end
- act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
- end
- }
- $bath = {
- act 'Soak in the bath (1:00)':
- cla
- *clr
- shampoo -= 1
- minut += 60
- sweat = -3
- horny += 1
- hapri = 0
- mop = 1
- manna += 10
- if clrbelo > 0 and tanga = 1:
- clrbelo -= 1
- dirtbelo += 1
- elseif clrbelo = 0 and tanga = 1:
- tanga = 0
- dirtbelo += 1
- end
- if shampoo < 0:
- shampoo = 0
- end
- dynamic $showerdin
- if frost > 0:frost = 0
- skinvan += 1
- gs 'stat'
- '<center><img src="images/pics/wash4.jpg"></center>'
- if daystart < 10:
- 'You got into the bathroom and sat down in the warm water, sticking out of the water your knees are rounded and smooth, which you blinked, you still have not got used to his new body was wildly like to look at all these roundness. Starting lather body you unwittingly turn attention to your chest, it''s so soft and big, and when you touch them you feel unfamiliar but pleasant sensations. Then you washed yourself with soap and you can get out of the bathroom.'
- elseif daystart >= 10 and daystart < 30:
- 'You got into the bathroom and sat down in the warm water, you have become a little accustomed to his new body and calmly soap all these curves and bulges and flushed the soap.'
- else
- 'You got into the bathroom and went into the warm water stolidly staring at his smooth legs sticking out of the water. You lathered his body and then washed soap rubbing his hands over his curves of the female body.'
- end
- if $loc = 'vanrPar':
- dynamic $brother_voyeurism
- end
- if btwarn > 0:
- if btwarn = 1: $weightwarn = 'losing'
- if btwarn = 2: $weightwarn = 'gaining'
- '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
- killvar '$weightwarn' & btwarn = 0
- end
- if normbuffpick = 1:
- ''
- '<b>You notice that your muscles are starting to show through your skin.</b>'
- act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
- end
- if leghair > 0 and stanok > 0 or lobok > 0:
- act 'Get razor':dynamic $brit
- end
- if obdysh = 1:vannmastrand = rand(0, 5)
- if horny >= 90:
- act 'Direct water on pussy':
- cla
- *clr
- if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'
- horny = 0
- minut += 30
- mastr += 1
- orgasm += 1
- manna += 15
- willpower += 15
- '<center><img src="images/pics/wash7.jpg"></center>'
- 'You sent a water faucet on pussy and tight jet of warm water began to caress you. Soon you feel like a warm wave covers your entire body and you began to shudder in orgasm.'
- act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
- end
- elseif horny >= 40 and horny < 90:
- act 'Direct water on pussy':
- cla
- *clr
- if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'
- horny += 5
- minut += 30
- manna += 10
- willpower += 10
- '<center><img src="images/pics/wash7.jpg"></center>'
- 'You sent a water faucet on pussy and tight jet of warm water began to caress you. At first it was not even bad, but then sleep and arousal, even as it was not nice. So you stopped masturbating.'
- act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
- end
- end
- if horny >= 50:
- act 'Masturbate':gt 'selfplay'
- end
- act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
- end
- }
- $brit = {
- cla
- 'You rinse the razor blade which looks in good enough shape for <b><<stanok>></b> more shaves.'
- if leghair > 0 and stanok > 0:
- act 'Shave your legs (0:15)':
- cla
- *clr
- minut += 15
- leghair = -5
- horny += 5
- stanok -= 1
- '<center><img src="images/pics/shave.jpg"></center>'
- if daystart < 10:'You have decided to shave your pussy and picking up a razor realized that you do not know how to shave. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you''re used to. But finally it was done with shaving and you flushed with foam pussy stroking your hand and wondering sensations.'
- if daystart >= 10 and daystart < 30:'You lathered her soft feet and took in hand razor. You have grown accustomed to his new body and shaved legs calmly knowing that hairy legs with your new body is not beautiful. Finally shaving was done with and you flushed foam stroking his smooth as silk legs.'
- if daystart >= 30:'You lathered his feet and took a razor. Habitual movements you shaved hair on the legs and washed shaving foam.'
- !!'You lathered up and shaved hair with them.'
- act 'Postpone machine':dynamic $brit
- end
- end
- if lobok > 0 and stanok > 0:
- act 'Shave pubis (0:15)':
- cla
- *clr
- minut += 15
- lobok = -5
- horny += 5
- stanok -= 1
- if obdysh = 1 and obbritinvent = 0:
- britrand = rand(0, 5)
- if britrand = 5:gt 'vann', 'brit1'
- end
- '<center><img src="images/pics/shave3.jpg"></center>'
- if daystart < 10:'You have decided to shave pubis, lathered his foam and picking up a razor realized that he did not imagine how it shaved. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you''re used to. But finally it was done with shaving and you flushed with foam pussy stroking her hand and wondering sensations.'
- if daystart >= 10 and daystart < 30:'You foam lathered his groin, trying not to miss a single crease on her pussy. Then neat movements began shave pussy trying not to cut. Finally you did it and you flushed foam pubic hair and pussy.'
- if daystart >= 30:'You lathered crotch and took a razor habitual movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'
- !!'You lathered pubis, then shaved all the hair from it.'
- act 'Postpone machine':dynamic $brit
- end
- end
- act 'Get out and get dressed':gt $locM, $metkaM
- }
- $tampon = {
- if sanpad > 0 and mesec > 0 and isprokp = 0 and isprok = 0 and tanga = 1:
- act 'Use a sanitary napkin (0:05)':
- cla
- *clr
- sanpad -= 1
- isprokp = 1
- minut += 5
- manna -= 5
- '<center><img src="images/pics/wash3.jpg"></center>'
- 'You use a sanitary napkin.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if tampon > 0 and mesec > 0 and isprok = 0 and isprokp = 0:
- act 'Use a tampon (0:05)':
- cla
- *clr
- tampon -= 1
- isprok = 1
- minut += 5
- manna -= 5
- '<center><img src="images/pics/wash3.jpg"></center>'
- 'You use a tampon.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- }
- $quickwash = {
- if spdirty > 0:
- act 'Quick wash (0:15)':
- cla
- *clr
- if clrbelo > 0 and tanga = 1:
- clrbelo -= 1
- dirtbelo += 1
- elseif clrbelo = 0 and tanga = 1:
- tanga = 0
- dirtbelo += 1
- end
-
- cumspclnt = 20
- gs 'cum_cleanup'
- sweat -= 1
- minut += 15
- '<center><img src="images/pics/wash5.jpg"></center>'
- 'You gave yourself a catlick, thus removing any traces of cum.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- }
- $wearpan = {
- if tanga = 0 and clrbelo > 0:
- act 'Wear Underwear':
- cla
- tanga = 1
- clrbelo -= 1
- gt $locM, $metkaM
- end
- end
- }
- $basin = {
- if tanga = 1:
- act 'Remove Underwear':
- cla
- tanga = 0
- dirtbelo += 1
- gt $locM, $metkaM
- end
- end
- if spdirtyv > 0 or spdirtyb > 0:
- act 'Clean your face from sperm (0:10)':
- cla
- *clr
- mop = 1
- cumspclnt = 9
- gs 'cum_cleanup'
- cumspclnt = 13
- gs 'cum_cleanup'
- sweat -= 1
- minut += 10
- '<center><img src="images/etogame/facesp.jpg"></center>'
- 'You clean your face and got rid of any trace of cum.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if body_write > 0 or face_write > 0:
- act 'Wash writing off your body':
- cla
- body_write = 0
- face_write = 0
- minut = minut + 5
- gs'stat'
-
- !'You need a picture'
- 'You wiped off indecent inscriptions.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if mop ! 1:
- act 'Wash off cosmetics (0:10)':
- cla
- mop = 1
- cumspclnt = 9
- gs 'cum_cleanup'
- cumspclnt = 11
- gs 'cum_cleanup'
- minut += 10
- 'You washed off your makeup.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- }
- $pirManage = {
- cls
- cla
- *nl
- if pirsA > 0:
- if pirsA = 1:
- '<a href="exec:pirsA = 2 & dynamic $pirManage">Remove tongue barbell</a>.'
- else
- '<a href="exec:pirsA = 1 & dynamic $pirManage">Insert tongue barbell</a>.'
- end
- end
- if pirsB > 0:
- if pirsB = 1:
- '<a href="exec:pirsB = 2 & dynamic $pirManage">Remove lip ring</a>.'
- else
- '<a href="exec:pirsB = 1 & dynamic $pirManage">Insert lip ring</a>.'
- end
- end
- if pirsC > 0:
- if pirsC = 1:
- '<a href="exec:pirsC = 2 & dynamic $pirManage">Remove ear piercings</a>.'
- else
- '<a href="exec:pirsC = 1 & dynamic $pirManage">Insert ear piercings</a>.'
- end
- end
- if pirsD > 0:
- if pirsD = 1:
- '<a href="exec:pirsD = 2 & dynamic $pirManage">Remove nose ring</a>.'
- else
- '<a href="exec:pirsD = 1 & dynamic $pirManage">Insert nose ring</a>.'
- end
- end
- if pirsE > 0:
- if pirsE = 1:
- '<a href="exec:pirsE = 2 & dynamic $pirManage">Remove eyebrow stud</a>.'
- else
- '<a href="exec:pirsE = 1 & dynamic $pirManage">Insert eyebrow stud</a>.'
- end
- end
- if pirsF > 0:
- if pirsF = 1:
- '<a href="exec:pirsF = 2 & dynamic $pirManage">Remove nipple piercings</a>.'
- else
- '<a href="exec:pirsF = 1 & dynamic $pirManage">Insert nipple piercings</a>.'
- end
- end
- if pirsN > 0:
- if pirsN = 1:
- '<a href="exec:pirsN = 2 & dynamic $pirManage">Remove navel piercing</a>.'
- else
- '<a href="exec:pirsN = 1 & dynamic $pirManage">Insert navel piercing</a>.'
- end
- end
- if pirsG > 0:
- if pirsG = 1:
- '<a href="exec:pirsG = 2 & dynamic $pirManage">Remove labia piercings</a>.'
- else
- '<a href="exec:pirsG = 1 & dynamic $pirManage">Insert labia piercings</a>.'
- end
- end
- if pirsGL > 0:
- if pirsGL = 1:
- '<a href="exec:pirsGL = 2 & dynamic $pirManage">Remove clit piercing</a>.'
- else
- '<a href="exec:pirsGL = 1 & dynamic $pirManage">Insert clit piercing</a>.'
- end
- end
-
- act'<b>Back</b>':gt $locM, $metkaM
- }
- if $ARGS[0] = 'private':
- if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings.'
- !WD: heal chafe
- if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
- if tampon > 0:
- 'You have <b><<tampon>></b> tampons.'
- else
- '<b><font color="red">You have no tampons.</font></b>'
- end
- if dirtbelo > 0 and BuyHous = 0 and $loc = 'vanrPar':
- 'In the bathroom you find the laundry Mom washed for you.'
- clrbelo += dirtbelo
- dirtbelo = 0
- end
- if dirtbelo > 0 and poroshok > 0 and $loc ! 'vanrPar':
- act 'Wash clothes':
- cla
- *clr
- minut += dirtbelo * 5
- clrbelo += dirtbelo
- poroshok -= 1
- dirtbelo = 0
- manna = manna - 10
- '<center><img src="images/etogame/stir.jpg"></center>'
- 'You soaked clothes in the basin and poured in washing powder, then you wash clothes, until they are finally clean.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if shampoo > 0 or $loc = 'vanrPar':
- if $loc = 'vanrPar':
- if shampoo < 1:shampoo = 1
- 'You are using your parents'' shampoo.'
- else
- 'You have enough shampoo for <b><<shampoo>></b> uses.'
- end
- dynamic $shower
- dynamic $bath
- elseif shampoo = 0 and $loc = 'tanvanr':
- shampoo = 1
- 'You can use Tanyas shampoo.'
- else
- 'You''ve run out of shampoo and will have to buy some more before you can wash yourself.'
- end
- if pain['killer'] = 0 and painkiller > 0:
- 'You have <<painkiller>> painkillers.'
- act 'Take a painkiller':
- pain['killer'] += 1
- painkiller -= 1
- 'You take a painkiller.'
- end
- end
- if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
- if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $locM, $metkaM">Inject silicone into breast implants</a>'
- if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $locM, $metkaM">Drain silicone from breast implants</a>'
- if breastpump > 0:'<a href="exec:dynamic $milk_me">Use breast pump</a></center>'
- dynamic $bteeth
- dynamic $tampon
- if clrbelo <= 4: clrbelo = 5
- dynamic $wearpan
- dynamic $basin
- if spdirtyc > 0:
- act 'Wipe the cum off your clothes (0:10)':
- cla
- cumspclnt = 6
- gs 'cum_cleanup'
- minut += 10
- gs 'stat'
- '<center><img src="images/etogame/frotsp.jpg"></center>'
- 'You remove the traces of cum from your clothes.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if leghair > 0 and stanok > 0:
- act 'Shave your legs (0:15)':
- cla
- *clr
- minut += 15
- leghair = -5
- horny += 5
- stanok -= 1
- '<center><img src="images/pics/shave.jpg"></center>'
- '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.'
- act 'Return to showering':gt $locM, $metkaM
- end
- end
- if lobok > 0 and stanok > 0:
- act 'Shave pubis (0:15)':
- cla
- *clr
- minut += 15
- lobok = -5
- horny += 5
- stanok -= 1
- '<center><img src="images/pics/shave3.jpg"></center>'
- 'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
- act 'Return to showering':gt $locM, $metkaM
- end
- end
- if analplug = 1 and analplugin = 1:
- act 'Remove the butt plug (0:05)':
- cla
- *clr
- minut += 5
- analplugIN = 0
- if anus < 30:anus += 1
- '<center><img src="images/body/analplug.jpg"></center>'
- 'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check
- act 'Finish':gt $locM, $metkaM
- end
- elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
- act 'Insert your butt plug (0:05)':
- cla
- *clr
- minut += 5
- analplugIN = 1
- if anus < 10:anus += 5
- if anus >= 10 and anus < 20:anus += rand(1, 2)
- if anus >= 20 and anus < 30:anus += rand(0, 1)
- '<center><img src="images/body/analplug.jpg"></center>'
- if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
- if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if klisma = 1 and klismaday ! daystart:
- act 'Give yourself an enema (0:05)':
- cla
- *clr
- cumspclnt = 7
- gs 'cum_cleanup'
- minut += 5
- klismaday = daystart
- klismaday1 = 1
- '<center><img src="images/picv/klisma.jpg"></center>'
- 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if vibrator = 1 and vibratorIN = 1:
- act 'Remove the vibrator (0:05)':
- cla
- *clr
- minut += 5
- vibratorIN = 0
- if vagina < 30:vagina += 1
- '<center><img src="images/etogame/vibrator.jpg"></center>'
- '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.'
- act 'Finish':gt $locM, $metkaM
- end
- elseif vibrator = 1 and vibratorIN = 0 and vagina ! 0:
- act 'Insert the vibrator in your vagina (0:05)':
- cla
- *clr
- minut += 5
- vibratorIN = 1
- if vagina < 30:vagina += 2
- '<center><img src="images/etogame/vibrator.jpg"></center>'
- 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if mosolmaz > 0 and mosol > 0:
- act 'Rub ointment onto your pussy (0:05)':
- cla
- minut += 5
- mosolmaz -= 1
- mosol -= 5
- 'You take a tube of cream and rub it onto your itchy vulva.'
- act 'Finish':gt $locM, $metkaM
- end
- end
- if pregtest > 0:
- act 'Do a pregnancy test (0:05)':
- cla
- minut += 5
- pregtest -= 1
- gs 'stat'
- if pregchem > 30:
- knowpreg = 1
- 'The test showed two strips. You are pregnant.'
- else
- 'The test showed one band. Not pregnant.'
- end
- act 'Finish':gt $locM, $metkaM
- end
- end
- end
- if $ARGS[0] = 'misery':
- $stirkad = {
- cla
- *clr
- minut += dirtbelo * 5
- suhbelo += dirtbelo
- poroshok -= 1
- dirtbelo = 0
- manna -= 10
- '<center><img src="images/etogame/stir.jpg"></center>'
- 'You soak the dirty linen in a basin and pour the powder on them. You wash the clothes until they are finally clean.'
- if $curloc = 'vanr':
- act 'Hang the laundry out to dry':gt 'korr'
- elseif $curloc = 'vanr2x':
- act 'Hang the laundry out to dry':gt'korr2x'
- end
- }
- if stiralka > 0:
- if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
- husband += 5
- poroshok -= 2
- husporday = daystart
- 'Washing machine washed smelly socks husband and his prossannye and properdannye truselya.'
- end
- if dirtbelo > 0 and poroshok >= dirtbelo:
- clrbelo += dirtbelo
- poroshok -= dirtbelo
- dirtbelo = 0
- 'The washing machine washed your laundry'
- elseif poroshok < dirtbelo:
- 'You ran out of powder for washing machine.'
- end
- end
- if dirtbelo>0:'The laundry basket currently has <font color="red"><b><<dirtbelo>></b></font> pieces of dirty laundry.'
- if poroshok > 0:
- if dirtbelo = 0:$stirka = ''
- if dirtbelo > 0:$stirka = '<a href="exec:dynamic $stirkad">You can wash clothes</a>'
- 'Under the sink there''s detergent powder, which is enough for <b><<poroshok>></b> washes. <<$stirka>>'
- else
- '<b><font color="red">You have no detergent powder and nothing to wash clothes with.</font></b>'
- end
- if clrbelo > 0:
- 'A cupboard contains <font color="blue"><b><<clrbelo>></b></font> pairs of clean underwear. '
- else
- '<b><font color="red">You do not have any clean underwear.</font></b> '
- end
- if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
- act 'Wash your husbands clothes (2 units of washing powder) (1:00)':
- cla
- *clr
- husband += 5
- poroshok -= 2
- minut += 60
- husporday = daystart
- manna -= 25
- '<center><img src="images/etogame/stir.jpg"></center>'
- 'You spend an hour washing your husbands smelly socks and his prossannye and properdannye truselya.'
- act 'Move away from the bath':gt $curloc
- end
- end
- if husband > 0 and husbanday > 0 and huspolday ! daystart:
- act 'Clean the apartment (1:00)':
- cla
- *clr
- husband += 5
- minut += 60
- huspolday = daystart
- manna -= 25
- !!'<center><img src="images/pics/cook.jpg"></center>'
- 'You take a rag and start cleaning the apartment.'
- act 'Leave':gt $curloc
- end
- end
- end
- if $ARGS[0] = 'buffpick':
- '<center><img src="images/body/fit2.jpg"></center>'
- 'While drying off and getting dressed you examine the sleek muscles that are showing through your skin.'
- 'As you do so you think about how you look and decide:'
- act 'You like how you look.': normbuffpick = 2 & mirror_steam = hour & gt $locM, $metkaM
- act 'You don''t like how you look.': nrmbfpckct += 1 & normbuffpick = 0 & mirror_steam = hour & gt $locM, $metkaM
- end
- --- din_van ---------------------------------
|