glife/locations/HotelRoom

# HotelRoom
CLOSE ALL
if $ARGS[0] = 'normal':
$metkaM = 'normal'
$locM = 'HotelRoom'
$metka = 'normal'
$loc = 'HotelRoom'
$location_type = 'private'
clr
gs 'stat'
	cla
	*clr
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<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''">wardrobe</a> (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a>) 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>.'
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			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'
	end
end



if $ARGS[0] = 'better':
$metkaM = 'better'
$locM = 'HotelRoom'
$metka = 'better'
$loc = 'HotelRoom'
$location_type = 'private'
clr
gs 'stat'
	cla
	*clr
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<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''">wardrobe</a> (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a>) 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>, right across the bed.'
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			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'
	end
end

if $ARGS[0] = 'best':
$metkaM = 'best'
$locM = 'HotelRoom'
$metka = 'best'
$loc = 'HotelRoom'
$location_type = 'private'
clr
gs 'stat'
	cla
	*clr
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<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''">wardrobe</a> (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a>) 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>, right across the bed.'
	act'Go to the hotel lobby':
		if $clothingworntype ! 'nude':
			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'
	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'

	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end

	'<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.'
	if 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.'
	if 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.'
	if hotshamday ! daystart:
		'You take the little bottle of shampoo on the shelf and place it in your pocket'
		shampoo += 1
		hotshamday = daystart
	end
	

	gs 'din_van', 'private'

end

if $ARGS[0] = 'tv':
gs'stat'

if hotelroom=1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv1.jpg"></center>'
if hotelroom=2:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv2.jpg"></center>'
if hotelroom=3:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv3.jpg"></center>'
'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'

	'<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 '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 ---------------------------------