# vanr act 'Go to the corridor':gt 'korr' $metka = $ARGS[0] $loc = $CURLOC $metkaM = $ARGS[0] $locM = $CURLOC $stirkad = { cla *clr set minut += dirtbelo * 5 set suhbelo += dirtbelo set poroshok -= 1 set dirtbelo = 0 set manna -= 10 '
' 'You soak the dirty linen in a basin and pour the powder on them. You wash the clothes until they are finally clean.' act 'Hang the laundry out to dry':gt 'korr' } '
Bathroom
' if remvanr = 0:'
' if remvanr = 1:'
' clr gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) set minut += 1 set housrA = 1 set elektro += 1 if stiralka > 0: if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2: husband += 5 set poroshok -= 2 husporday = day '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 tampon > 0: 'A box of tampons is on a shelf. There is enough for <> uses' else 'You have no tampons.' end if stanok > 0:'A package of razors is on a shelf above the sink. You have enough blades for <> shaves.' if dirtbelo>0:'The laundry basket currently has <> pieces of dirty laundry.' if poroshok > 0: if dirtbelo = 0:$stirka = '' if dirtbelo > 0:$stirka = 'You can wash clothes' 'Under the sink there''s detergent powder, which is enough for <> washes. <<$stirka>>' else 'You have no detergent powder and nothing to wash clothes with.' end if clrbelo > 0: *p 'A cupboard contains <> pairs of clean underwear. ' else *p 'You do not have any clean underwear. ' end if shampoo > 0: 'You have enough shampoo for <> washes. You can wash yourself.' else 'You''ve ran out of shampoo.' end if mosolmaz>0:'On a shelf is a tube of ointment protivomozolnoy, which will be enough for <> applications.' if stiralka > 0:'In the bathroom is a washing machine.' !'if tanga = 0 and clrbelo > 0: act 'Wear underwear': cla set tanga = 1 gt 'vanr' end end if tanga = 1: act 'Do not wear underwear': cla set tanga = 0 gt 'vanr' end end'! if tampon > 0 and mesec > 0 and isprok = 0: act 'Use a tampon (0:05)': cla *clr set tampon -= 1 set isprok = 1 set minut += 5 set manna -= 5 '
' 'You use a tampon.' act 'Finish':gt 'vanr' end end !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations !!Washing off cosmetics also removes cum from face !!clrbelo: Amount of clean panties available if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0: act 'Quick wash (0:15)': cla *clr dynamic $showerdin set sweat -= 1 set minut += 15 set clrbelo -= 1 set dirtbelo += 1 '
' 'You gave yourself a catlick, thus removing any traces of cum.' act 'Finish':gt 'vanr' end end if cumlip > 0 or cumface > 0: act 'Clean your face from sperm (0:05)': cla *clr set mop = 1 set cumlip = 0 set cumface = 0 set sweat -= 1 set minut += 5 '
' 'You clean your face and got rid of any trace of cum.' act 'Finish':gt 'vanr' end end if mop ! 1: act 'Wash off cosmetics (0:15)': cla set mop = 1 set cumface = 0 set minut += 15 'You washed off your makeup.' act 'Finish':gt 'vanr' end end !! if klisma = 1 and klismaday ! day: act 'Give yourself an enema (0:05)': cla *clr set minut += 5 set klismaday = day set klismaday1= 1 '
' 'You give yourself an enema and clean your intestines. Your ass is now ready for anal sex.' act 'Finish':gt $curloc end end if vibrator = 1 and vibratorIN = 0: act 'Insert the vibrator in your vagina (0:05)': cla *clr set minut += 5 set vibratorIN = 1 if vagina < 30:set vagina += 2 '
' 'You bend over the sink and inserted the vibrator in your pussy.' act 'Finish':gt 'vanr' end end if vibrator = 1 and vibratorIN = 1: act 'Remove the vibrator (0:05)': cla *clr set minut += 5 set vibratorIN = 0 if vagina < 30:set vagina += 1 '
' 'You bend over the sink and take the vibrator out of your pussy.' act 'Finish':gt 'vanr' end end if analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart: act 'Insert a butt plug (0:05)': cla *clr plugday = daystart set minut += 5 set analplugIN = 1 if anus < 10:set anus = anus + 5 if anus >= 10 and anus < 20:anus += rand(1, 2) if anus >= 20 and anus < 30:anus += rand(0, 1) '
' if butpluguse > 0:'You bent over and inserted the butt plug.' if butpluguse = 0:set butpluguse = 1 & '"If I don''t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.' act 'Exit':gt $curloc end end if analplug = 1 and analplugin = 1: act 'Remove the butt plug (0:05)': cla *clr set minut += 5 set analplugIN = 0 if anus < 30:set anus += 1 '
' 'You bent over and took out the butt plug.' !!0.2.6: Removed unneccessary var check act 'Finish':gt $curloc end end if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2: act 'Wash your husbands clothes (2 units of washing powder) (1:00)': cla *clr husband += 5 set poroshok -= 2 set minut += 60 husporday = day manna -= 25 '
' 'You spend an hour washing your husbands smelly socks and his prossannye and properdannye truselya.' act 'Move away from the bathroom':gt 'vanr' end end if husband > 0 and husbanday > 0 and huspolday ! day: act 'Clean the apartment (1:00)': cla *clr husband += 5 set minut += 60 huspolday = day manna -= 25 !!'
' 'You take a rag and start cleaning the apartment.' act 'Leave':gt 'vanr' end end if pregtest > 0: act 'Do a pregnancy test': pregtest -= 1 cla gs 'stat' if preg = 1: 'The test showed the two strips. you are pregnant.' !!'father - <<$father>>.' else 'The test showed one band.' end act 'further':gt $curloc end end --- vanr ---------------------------------