# vanrPar
act 'Leave the room':gt 'korrPar'
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
minut += 1
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Bath'
! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
'
'
'Bathroom cramped and very unpretentious.'
if stanok > 0:'Your razor will suffice for <> time.'
act 'Wash in the shower (0:15)':
cls
dynamic $showerdin
minut += 15
horny += 1
hapri = 0
mop = 1
sweat = -3
if frost > 0:frost = 0
gs 'stat'
'
'
'You got into the shower and began to lather your body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean.'
act 'Out of the bath':gt $locM, $metkaM
end
act 'Wash in the bathroom (1:00)':
cls
dynamic $showerdin
minut += 60
sweat = -3
horny += 3
hapri = 0
mop = 1
manna += 10
if frost > 0:frost = 0
skinvan += 1
if skinvan = 20:skinvan = 0 & skin += 1
gs 'stat'
'
'
'Turn on the water, you got into the bathroom and went into the warm water. Ponaslazhdatsya pleasant warmth you lathered his body sponge and hair shampoo. Then all you have washed off with water.'
act 'Out of the bath':gt $locM, $metkaM
if horny >= 90:
act 'Direct water on pussy':
cla
*clr
horny = 0
minut += 30
mastr += 1
orgasm += 1
manna += 15
willpower += 15
'
'
'You sent a water faucet on pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
act 'Get out and get dressed':gt $locM, $metkaM
end
elseif horny >= 40 and horny < 90:
act 'Direct water on pussy':
cla
*clr
horny += 5
minut += 30
manna += 10
willpower += 10
'
'
'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 out and get dressed':gt $locM, $metkaM
end
end
if horny >= 50:
act 'Masturbate':gt 'selfplay'
end
end
end
if tampon > 0 and mesec > 0 and isprok = 0:
act 'Use a tampon (0:05)':
cla
*clr
tampon -= 1
isprok = 1
minut += 5
manna -= 5
gs 'stat'
'
'
'You use a tampon.'
act 'Finish':gt $curloc
end
end
if mop ! 1:
act 'Wash off cosmetics (0:15)':
cla
mop = 1
cumface = 0
minut += 15
gs 'stat'
'
'
'You washed off your makeup.'
act 'Finish':gt $curloc
end
end
if cumfrot > 0:
act 'Wipe the cum off your clothes (0:10)':
cla
cumfrot = 0
minut += 10
gs 'stat'
'
'
'You remove traces of cum from your clothes.'
act 'Finish':gt $curloc
end
end
if cumlip > 0 or cumface > 0:
act 'Clean your face from sperm (0:05)':
cla
*clr
mop = 1
cumlip = 0
cumface = 0
sweat -= 1
minut += 5
'
'
'You clean your face and got rid of any trace of cum.'
act 'Finish':gt $curloc
end
end
if leghair > 0 and stanok > 0:
act 'Shave your legs (0:15)':
cla
*clr
minut += 15
leghair = -5
horny += 5
stanok -= 1
'
'
'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
act 'postpone machine':gt $curloc
end
end
if lobok > 0 and stanok > 0:
act 'Shave pubis (0:15)':
cla
*clr
minut += 15
lobok = -5
horny += 5
stanok -= 1
'
'
'You lathered crotch and took a razor deft movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'
act 'postpone machine':gt $curloc
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
'
'
'You bent over and took out the butt plug.' !!0.2.6: Removed unneccessary var check
act 'Finish':gt $curloc
end
elseif analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
act 'Insert a butt plug (0:05)':
cla
*clr
plugday = daystart
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)
'
'
if butpluguse > 0:'You bent over and inserted the butt plug.'
if butpluguse = 0: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 'Finish':gt $curloc
end
end
if klisma = 1 and klismaday ! day:
act 'Give yourself an enema (0:05)':
cla
*clr
minut += 5
klismaday = day
klismaday1 = 1
'
'
'You put yourself an enema and clean intestines, now your ass is ready for anal sex.'
act 'Finish':gt $curloc
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
'
'
'You bend over the sink and take the vibrator out of your pussy.'
act 'Finish':gt $curloc
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
'
'
'You bend over the sink and inserted the vibrator in your pussy.'
act 'Finish':gt $curloc
end
end
if pregtest > 0:
act 'Do a pregnancy test':
cla
pregtest -= 1
gs 'stat'
if preg = 1:
'The test showed the two strips. you are pregnant.'
'you think, that the father <<$father>>.'
else
'The test showed one band.'
end
act 'Further':gt $curloc
end
end
--- vanrPar ---------------------------------