# 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)
	'<center><b><font color = maroon>Your normal hotel room</font></b></center>'
	'<center>You have paid to stay for <<hotelroom1day>> more nights in the room.</center>'
	'<center><img src="images/nigma/gor/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 ''hotelroom'',''bed''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">closet</a> for your clothes 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 $locM,$metkaM
		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)
	'<center><b><font color = maroon>Your luxury room</font></b></center>'
	'<center>You paid <<hotelroom1day>>d. accommodation.</center>'
	'<center><img src="images/nigma/gor/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 ''hotelroom'',''bed''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">closet</a> for your clothes 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 $locM,$metkaM
		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)
	'<center><b><font color = maroon>Your royal suite</font></b></center>'
	'<center>You paid <<hotelroom1day>>d. accommodation.</center>'
	'<center><img src="images/nigma/gor/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 ''hotelroom'',''bed''">double bed</a> takes up most of the room. A modern <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">closet</a> for your clothes 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 $locM,$metkaM
		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)

	'<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
	if hotelroom = 1:'<center><img src="images/nigma/gor/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 src="images/nigma/gor/hotel/hotel.room.better1.jpg"></center>'&'A nice looking and spacious bathroom, with separate bath tub.'
	if hotelroom = 3:'<center><img src="images/nigma/gor/hotel/hotel.room.best1.jpg"></center>'&'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 <b><<stanok>></b> more shavings.'

	dynamic $shower
	dynamic $bath

	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage piercings</a>'

	if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $curloc">Inject silicone into breast implants.</a>'
	if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $curloc">Drain silicone from breast implants.</a>'

	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'

			'<center><img src="images/etogame/frotsp.jpg"></center>'
			'You wash all traces of semen from your clothes.'

			act 'Finish':gt $locM, $metkaM
		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
			'<center><img src="images/picV/klisma.jpg"></center>'
			'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'

			act 'Finish':gt $curloc
		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

			'<center><img src="images/etogame/vibrator.jpg"></center>'
			'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 'vanr'
		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

			'<center><img src="images/etogame/vibrator.jpg"></center>'
			'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'

			act 'Finish':gt 'vanr'
		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

			'<center><img src="images/body/analplug.jpg"></center>'

			'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 $curloc
		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)

			'<center><img src="images/body/analplug.jpg"></center>'

			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 $curloc
		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 $curloc
		end
	end

	if pregtest > 0:
		act 'Do a pregnancy test':
			cla
			pregtest -= 1

			gs 'stat'

			if preg = 1:
				knowpreg = 1
				'The test shows two strips. You are pregnant.'
				'You think the father is <<$father>>.'
			else
				'The test shows one band. You''re not pregnant'
			end

			act 'Finish':gt $curloc
		end
	end
end

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

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

	'<center><img src="images/nigma/gor/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


if $ARGS[0] = 'bed':
	$metka = $ARGS[0]
	$loc = $CURLOC
	gs'stat'
	if $clothingworntype ! 'nude':'<center><img src="images/pics/bed.jpg"></center>'
	if $clothingworntype = 'nude':'<center><img src="images/pics/son.jpg"></center>'
	'You''re lying on the bed. Your alarm is currently set at <<timer>> hours, <<timerM>> minutes. (<<$budilnikInfo>>)'

	act 'Switch your alarm on':gt'budilnik','start'

	!if son < 10:
	act 'Undress and go to bed':
		if disable_autosave = 0:
			if StoryLine = 0:
				SAVEGAME 'autosave.sav'
			else
				SAVEGAME 'autosave_alt.sav'
			end
		end

		cls
		notathomesleep += 1
		health = health + 5
		hapri = 0
		InSleep = 1
		:loopson
		minut = minut + 1
		stime = stime + 1
		if stime = 60:stime = 0 & son = son + 3
		clr
		cls
		gs'stat'

		'<center><img src="images/pics/son.jpg"></center>'
		if analplugIN = 1:analplugIN = 0 & 'Before going to bed, you take out your butt plug with a wistful sigh.'
		if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed, you take out your vibrator with some regret. It felt great, but there''s no way you can sleep with it in.'
		if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'When you''re about to go to bed, you realize you should probably remove your make-up first. It''s very bad for your skin if you don''t remove it before going to bed.'
		'You quickly fall asleep. You have a good night''s rest, not having any dreams.'

		if hour = timer and minut = timerM and budilnikOn = 1:
			manna = manna - 10

			'Alarum'

			act 'Get out of bed and get dressed (0:15)':
				cla
				!numdress = odedosna
				InSleep = 0
				minut += 15
				tanga = 1
				!$clothingworntype ! 'nude'
				if hotelroom=1:gt'hotelroom','normal'
				if hotelroom=2:gt'hotelroom','better'
				if hotelroom=3:gt'hotelroom','best'
			end
			exit
		end

		if son > 23 and dosip = 0:
			'You have a good night''s sleep, and wake up fully rested.'

			act 'Get out of bed and get dressed (0:15)':
				cla
				!numdress = odedosna
				InSleep = 0
				minut += 15
				tanga = 1
				!$clothingworntype ! 'nude'
				if hotelroom=1:gt'hotelroom','normal'
				if hotelroom=2:gt'hotelroom','better'
				if hotelroom=3:gt'hotelroom','best'
			end
			exit
		end

		jump 'loopson'
	end
	act 'Get up from the bed':
		cla
		if hotelroom=1:gt'hotelroom','normal'
		if hotelroom=2:gt'hotelroom','better'
		if hotelroom=3:gt'hotelroom','best'
	end
end

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

