# HotelRoom

CLOSE ALL
if $ARGS[0] = 'normal':
	*clr & cla
	$locM_arg = 'normal'
	$locM = 'HotelRoom'
	$loc_arg = 'normal'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$location_type = 'private'
	$menu_loc = 'HotelRoom'
	$menu_arg = 'normal'
	menu_off = 0
	hotelWiFi = 1
	gs 'themes', 'indoors'
	gs 'stat'
	gs 'internet_mobile', 'get_access', 'free'

	'<center><b><font color = maroon>Your normal hotel room</font></b></center>'
	'<center>You have paid to stay for <<hotelRoomDays[$hotel] - 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(mc_inventory['tech_computer'] = 1, ' and your <a href="exec: gt ''Komp'',''start''">computer</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	
	if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
	gs 'music_actions', 'music_icon'

	*nl
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt $hotel
			killvar '$hotel'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt'HotelRoom','normal'
		end
	end

	if hotelRoom[$hotel] ! 0:
		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'
		if $hotel = 'pav_hotel': gs 'prostitution_functions', 'prostitute_outfit_at_home'
		gs 'wardrobe', 'default_clothing_options'
		dynamic $fatdel
		dynamic $lekarstvo
		dynamic $vitamin
	end
end

if $ARGS[0] = 'better':
	*clr & cla
	$locM_arg = 'better'
	$locM = 'HotelRoom'
	$loc_arg = 'better'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$menu_loc = 'HotelRoom'
	$menu_arg = 'better'
	menu_off = 0
	hotelWiFi = 1
	$location_type = 'private'
	gs 'themes', 'indoors'
	gs 'stat'	
	gs 'internet_mobile', 'get_access', 'free'
	'<center><b><font color = maroon>Your luxury room</font></b></center>'
	'<center>You have paid to stay for <<hotelRoomDays[$hotel] - 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(mc_inventory['tech_computer'] = 1, ' and your <a href="exec: gt ''Komp'',''start''">computer</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	
	if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
	gs 'music_actions', 'music_icon'
	
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt $hotel
			killvar '$hotel'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt'HotelRoom','better'
		end
	end

	if hotelRoom[$hotel] ! 0:
		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'
		if $hotel = 'pav_hotel': gs 'prostitution_functions', 'prostitute_outfit_at_home'
		dynamic $fatdel
		dynamic $lekarstvo
		dynamic $vitamin
	end
end

if $ARGS[0] = 'best':
	*clr & cla	
	$locM_arg = 'best'
	$locM = 'HotelRoom'
	$loc_arg = 'best'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$menu_loc = 'HotelRoom'
	$menu_arg = 'best'
	menu_off = 0
	hotelWiFi = 1
	$location_type = 'private'
	gs 'themes', 'indoors'
	gs 'stat'	
	gs 'internet_mobile', 'get_access', 'free'
	'<center><b><font color = maroon>Your royal suite</font></b></center>'
	'<center>You have paid to stay for <<hotelRoomDays[$hotel] - 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(mc_inventory['tech_computer'] = 1, ' and your <a href="exec: gt ''Komp'',''start''">computer</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	
	if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
	gs 'music_actions', 'music_icon'

	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt $hotel
			killvar '$hotel'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt'HotelRoom','best'
		end
	end

	if hotelRoom[$hotel] ! 0:
		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'
		if $hotel = 'pav_hotel': gs 'prostitution_functions', 'prostitute_outfit_at_home'
		dynamic $fatdel
		dynamic $lekarstvo
		dynamic $vitamin
	end
end

if $ARGS[0] = 'therapist':
	*clr & cla
	$hotel = 'pav_hotel'
	$locM_arg = 'therapist'
	$locM = 'HotelRoom'
	$loc_arg = 'therapist'
	$loc = 'HotelRoom'
	$prevloc = $loc
	$menu_loc = 'HotelRoom'
	$menu_arg = 'therapist'
	menu_off = 0
	hotelWiFi = 1
	$location_type = 'private'
	gs 'themes', 'indoors'
	gs 'stat'	
	gs 'internet_mobile', 'get_access', 'free'

	'<center><b><font color = maroon>Your husband''s hotel room</font></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/therapist/room.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(mc_inventory['tech_computer'] = 1, ' and your <a href="exec: gt ''Komp'',''start''">computer</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
	
	if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your bed.'
	gs 'music_actions', 'music_icon'
	
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			hotelWiFi = 0
			gt 'pav_hotel'
			killvar '$hotel'
		else
			msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
			gt 'HotelRoom', 'therapist'
		end
	end

	if hotelRoom[$hotel] ! 0:
		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'
		dynamic $fatdel
		dynamic $lekarstvo
		dynamic $vitamin
	end
end

if $ARGS[0] = 'shower1':
	*clr & cla
	minut += 1
	hotelmc_inventory['shampoo'] =  1
	$locM_arg = 'shower1'
	$locM = 'HotelRoom'
	$loc_arg = '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[$hotel] = 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[$hotel] = 2 or therapistQW['hotel_key'] = 3:
		'<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[$hotel] = 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

	if hotelRoom[$hotel] = 0 and therapistQW['hotel_key'] ! 3:
		act 'Return to lobby (It is past checkout time)':
			hotelWiFi = 0
			gt $hotel
			killvar '$hotel'
		end
	else
		act 'Return to your room':
			hotelmc_inventory['shampoo'] =  0
			if hotelRoom[$hotel] = 1:
				gt 'HotelRoom', 'normal'
			elseif hotelRoom[$hotel] = 2:
				gt 'HotelRoom', 'better'
			elseif hotelRoom[$hotel] = 3:
				gt 'HotelRoom', 'best'
			elseif therapistQW['hotel_key'] = 3:
				gt 'HotelRoom', 'therapist'
			end
		end
	end
	
	gs 'din_van', 'private', 'hotelroom', iif(hotelRoom[$hotel] = 1, '', 'bath')
end

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

	if therapistQW['hotel_key'] = 3:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv2.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv<<hotelroom>>.jpg"></center>'
	end
	'You turn on the TV and make yourself comfortable on the bed.'

	if hotelRoom[$hotel] = 0 and therapistQW['hotel_key'] ! 3:
		act 'Return to lobby (It is past checkout time)':
			hotelWiFi = 0
			gt $hotel
			killvar '$hotel'
		end
	else
		act 'Get up from the bed': gt $loc, $loc_arg
		act 'Watch TV (1:00)': gt 'hotelroom', 'watch_tv'
	end
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.'

	if hotelRoom[$hotel] = 0 and therapistQW['hotel_key'] ! 3:
		act 'Return to lobby (It is past checkout time)':
			hotelWiFi = 0
			gt $hotel
			killvar '$hotel'
		end
	else
		act 'Get up from the bed': gt $loc, $loc_arg
		act 'Watch TV (1:00)': gt 'hotelroom', 'watch_tv'
	end
end

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