# HotelRoom
CLOSE ALL
if $ARGS[0] = 'normal':
$metkaM = 'normal'
$locM = 'HotelRoom'
$metka = 'normal'
$loc = 'HotelRoom'
$location_type = 'private'
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 = 'better'
$locM = 'HotelRoom'
$metka = 'better'
$loc = 'HotelRoom'
$location_type = 'private'
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 = 'best'
$locM = 'HotelRoom'
$metka = 'best'
$loc = 'HotelRoom'
$location_type = 'private'
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':
$location_type = 'bathroom'
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 = 'shower1'
$locM = 'HotelRoom'
$metka = 'shower1'
$loc = 'HotelRoom'
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.'
gs 'din_van', 'private'
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
pcs_willpwr += RAND(5,10)
pcs_mood += RAND(10,20)
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 ---------------------------------