# HotelRoom
CLOSE ALL
if $ARGS[0] = 'normal':
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
FColor = RGB(0,0,0)
BColor = RGB(255,255,255)
LColor = RGB(106,90,205)
'Your normal hotel room'
'You have paid to stay for <> more nights in the room.'
'
'
'Your hotel room is not very large, but it has everything you need and is quite stylish. The large double bed takes up most of the room. A modern wardrobe (where you can organize your clothes or pick something to wear) stands near the entrance of the room. Next to the door, you can find a mirror. The door to the bathroom is to the right.'
'Your hotel room also has a TV.'
act'Go to the hotel lobby':
if $clothingworntype ! 'nude':
gt'hotelHole'
else
msg'You need to get dressed before leaving your hotel room.'
gt'hotelroom','normal'
end
end
end
if $ARGS[0] = 'better':
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
FColor = RGB(0,0,0)
BColor = RGB(255,255,255)
LColor = RGB(106,90,205)
'Your luxury room'
'You have paid to stay for <> more nights in the room.'
'
'
'Your hotel room is not very large, but it has everything you need and is quite stylish. The large double bed takes up most of the room. A modern wardrobe (where you can organize your clothes or pick something to wear) stands near the entrance of the room. Next to the door, you can find a mirror. The door to the bathroom is to the right.'
'Your hotel room also has a small flat-screen TV, right across the bed.'
act'Go to the hotel lobby':
if $clothingworntype ! 'nude':
gt'hotelHole'
else
msg'You need to get dressed before leaving your hotel room.'
gt'hotelroom','better'
end
end
end
if $ARGS[0] = 'best':
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
FColor = RGB(0,0,0)
BColor = RGB(255,255,255)
LColor = RGB(106,90,205)
'Your royal suite'
'You have paid to stay for <> more nights in the room.'
'
'
'Your hotel room is quite spacious, and is beautifully furnished. For a second, you wonder why a hotel in a town like Pavlovsk even has such a luxurious suite. The room is filled with expensive appliances. The gorgeous double bed takes up most of the room. A modern wardrobe (where you can organize your clothes or pick something to wear) stands near the entrance of the room. Next to the door, you can find a mirror. The door to the bathroom is to the right.'
'Your hotel room also has a huge flat-screen TV, right across the bed.'
act'Go to the hotel lobby':
if $clothingworntype ! 'nude':
gt'hotelHole'
else
msg'You need to get dressed before leaving your hotel room.'
gt'hotelroom','best'
end
end
end
if $args[0] = 'shower1':
act 'Return to your room':
if hotelroom = 1:gt'hotelroom','normal'
if hotelroom = 2:gt'hotelroom','better'
if hotelroom = 3:gt'hotelroom','best'
end
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
minut = minut + 1
gs'stat'
FColor = RGB(0,0,0)
BColor = RGB(255,255,255)
LColor = RGB(106,90,205)
'The bathroom of your hotel room'
if hotelroom = 1:'
'&'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'
if hotelroom = 2:'
'&'A nice looking and spacious bathroom, with separate bath tub.'
if hotelroom = 3:'
'&'A very luxurious and spacious bathroom, fit for a king.'
if stanok > 0:'A package of razors is on a shelf above the sink. Your razors will last for <> more shavings.'
dynamic $shower
dynamic $bath
if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'Manage piercings'
if fillimplant = 1 and siliconeBag >= 1:'Inject silicone into breast implants.'
if fillimplant = 1 and silicone >= 20:'Drain silicone from breast implants.'
dynamic $bteeth
dynamic $tampon
dynamic $quickwash
dynamic $wearpan
dynamic $basin
if spdirtyc > 0:
act 'Wipe the cum off your clothes (0:10)':
cla
cumspclnt = 6
gs 'cum_cleanup'
minut = minut + 15
gs'stat'
'
'
'You wash all traces of semen from your clothes.'
act 'Finish':gt 'hotelroom', 'shower1'
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
'
'
'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
act 'Finish':gt 'hotelroom', 'shower1'
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 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 'hotelroom', 'shower1'
end
elseif vibrator = 1 and vibratorIN = 0:
act 'Insert the vibrator in your vagina (0:05)':
cla
*clr
minut += 5
vibratorIN = 1
if vagina < 30:vagina += 2
''
'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
act 'Finish':gt 'hotelroom', 'shower1'
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 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 'hotelroom', 'shower1'
end
elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
act 'Insert a butt plug (0:05)':
cla
*clr
minut += 5
analplugIN = 1
if anus < 10: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 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 'hotelroom', 'shower1'
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 the tube of ointment and rub some of it onto your itchy vulva.'
act 'Finish':gt 'hotelroom', 'shower1'
end
end
if pregtest > 0:
act 'Do a pregnancy test':
cla
pregtest -= 1
gs 'stat'
if pregchem > 30:
knowpreg = 1
'The test shows two strips. You are pregnant.'
else
'The test shows one band. You''re not pregnant'
end
act 'Finish':gt 'hotelroom', 'shower1'
end
end
end
if $ARGS[0] = 'tv':
gs'stat'
if hotelroom=1:'
'
if hotelroom=2:'
'
if hotelroom=3:'
'
'You turn on the TV and make yourself comfortable on the bed.'
$din_wath_tv_h2 = {
cls
minut += 60
willpower += RAND(5,10)
manna += RAND(10,50)
gs'stat'
'+'.jpg)
'
'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
act 'Get up from the bed':gt $locM, $metkaM
}
act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
act 'Get up from the bed':gt $locM, $metkaM
end
--- HotelRoom ---------------------------------