# HotelRoom

CLOSE ALL
if $ARGS[0] = 'normal':
	*clr & cla
	$metkaM = 'normal'
	$locM = 'HotelRoom'
	$metka = 'normal'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$location_type = 'private'
	$menu_loc = 'HotelRoom'
	$menu_arg = 'normal'
	menu_off = 0
	hotelWiFi = 1
	gs 'themes', 'indoors'
	gs 'stat'
	'<center><b><font color = maroon>Your normal hotel room</font></b></center>'
	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
	'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:gt ''mirror'',''start''">mirror</a>. The door to the <a href="exec:gt ''hotelroom'',''shower1''">bathroom</a> is to the right.'
	'Your hotel room also has a <a href="exec:gt ''HotelRoom'',''tv''">TV</a>'+iif(komp = 1, ' and your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	*nl
	'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt'hotelHole'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt'HotelRoom','normal'
		end
	end
	if money >= 100: act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
	act 'Drink some water (0:01)': gs 'beverage', 'bev_wat'
	dynamic $fatdel
	dynamic $lekarstvo
	dynamic $vitamin
end

if $ARGS[0] = 'better':
	*clr & cla
	$metkaM = 'better'
	$locM = 'HotelRoom'
	$metka = 'better'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$menu_loc = 'HotelRoom'
	$menu_arg = 'better'
	menu_off = 0
	hotelWiFi = 1
	$location_type = 'private'
	gs 'themes', 'indoors'
	gs 'stat'	
	'<center><b><font color = maroon>Your luxury room</font></b></center>'
	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'
	'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:gt ''mirror'',''start''">mirror</a>. The door to the <a href="exec:gt ''hotelroom'',''shower1''">bathroom</a> is to the right.'
	'Your hotel room also has a small flat-screen <a href="exec:gt ''HotelRoom'',''tv''">TV</a>'+iif(komp = 1, ' and your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	*nl
	'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt'hotelHole'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt'HotelRoom','better'
		end
	end
	if money >= 100: act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
	act 'Drink some water (0:05)': gs 'beverage', 'bev_wat'
	act 'Have a coffee (0:05)': gs 'beverage', 'bev_cof'
	dynamic $fatdel
	dynamic $lekarstvo
	dynamic $vitamin
end

if $ARGS[0] = 'best':
	*clr & cla	
	$metkaM = 'best'
	$locM = 'HotelRoom'
	$metka = 'best'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$menu_loc = 'HotelRoom'
	$menu_arg = 'best'
	menu_off = 0
	hotelWiFi = 1
	$location_type = 'private'
	gs 'themes', 'indoors'
	gs 'stat'	
	'<center><b><font color = maroon>Your royal suite</font></b></center>'
	'<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
	'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 <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) stands near the entrance of the room. Next to the door, you can find a <a href="exec:gt ''mirror'',''start''">mirror</a>. The door to the <a href="exec:gt ''hotelroom'',''shower1''">bathroom</a> is to the right.'
	'Your hotel room also has a huge flat-screen <a href="exec:gt ''HotelRoom'',''tv''">TV</a>'+iif(komp = 1, ' and your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	*nl
	'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt'hotelHole'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt'HotelRoom','best'
		end
	end
	if money >= 100:act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
	act 'Drink some water (0:01)': gs 'beverage', 'bev_wat'
	act 'Have a coffee (0:05)': gs 'beverage', 'bev_cof'
	act 'Make some tea (0:05)': gs 'beverage', 'bev_tea'
	dynamic $fatdel
	dynamic $lekarstvo
	dynamic $vitamin
end

if $ARGS[0] = 'shower1':
	*clr & cla
	minut += 1
	hotelShampoo = 1
	$metkaM = 'shower1'
	$locM = 'HotelRoom'
	$metka = 'shower1'
	$loc = 'HotelRoom'	
	$location_type = 'bathroom'
	gs 'themes', 'indoors'
	gs'stat'
	
	'<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
	if hotelroom = 1:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal1.jpg"></center>'&'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'
	elseif hotelroom = 2:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'&'A nice looking and spacious bathroom, with separate bath tub.'
	elseif hotelroom = 3:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'&'A very luxurious and spacious bathroom, fit for a king.'
	end
	
	act 'Return to your room':
		hotelShampoo = 0
		if hotelroom = 1:
			gt'HotelRoom','normal'
		elseif hotelroom = 2:
			gt'HotelRoom','better'
		elseif hotelroom = 3:
			gt'HotelRoom','best'
		end
	end
	
	gs 'din_van', 'private', 'hotelroom', iif(hotelroom = 1, '', 'bath')
end

if $ARGS[0] = 'tv':
	*clr & cla
	gs'stat'

	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv<<hotelroom>>.jpg"></center>'
	'You turn on the TV and make yourself comfortable on the bed.'

	act 'Get up from the bed':gt $locM, $metkaM
	act 'Watch TV (1:00)': gt 'hotelroom', 'watch_tv'
end

if $ARGS[0] = 'watch_tv':
	*clr & cla
	minut += 60
	pcs_mood += rand(10,20)
	gs'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv0,'+rand(0,4)+'.jpg"></center>'
	'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'

	act 'Get up from the bed':gt $locM, $metkaM
	act 'Watch TV (1:00)': gt 'hotelroom', 'watch_tv'
end

--- HotelRoom ---------------------------------