glife/locations/HotelRoom

# 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 room number is</font></b></center>'
	'<center>You paid <<hotelroom1day>>d. accommodation.</center>'
	'<center><img src="images/nigma/gor/hotel/hotel.room.normal.jpg"></center>'
	'Bright and beautiful bathroom, with modern furnishings unpretentious, is dominated by <a href="exec:GT ''hotelroom'',''bed''">Double</a>. At the entrance stands a modern <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">cupboard</a> Clothing. Against the wall and table <a href="exec:GT ''mirror'',''start''">mirror</a>. A little further, you notice the door to <a href="exec:GT ''hotelroom'',''shower1''">San-node</a>'
	'Opposite the bed is a simple <a href="exec:GT ''hotelroom'',''tv''">TV</a>.'
	act'The Hall':
		if $clothingworntype ! 'nude':
			gt'hotelHole'
		else
			msg'<b><font color = red>You need to get dressed.</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 suite</font></b></center>'
	'<center>You paid <<hotelroom1day>>d. accommodation.</center>'
	'<center><img src="images/nigma/gor/hotel/hotel.room.better.jpg"></center>'
	'Bright and beautiful bathroom, with modern and stylish furniture, is dominated by <a href="exec:GT ''hotelroom'',''bed''">Double</a>. At the entrance stands a modern <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">cupboard</a> Clothing. Against the wall and table <a href="exec:GT ''mirror'',''start''">mirror</a>. A little further, you notice the door to <a href="exec:GT ''hotelroom'',''shower1''">San-node</a>'
	'Opposite the bed on the wall hangs a small, flat <a href="exec:GT ''hotelroom'',''tv''">TV</a>.'
	act'The Hall':
		if $clothingworntype ! 'nude':
			gt'hotelHole'
		else
			msg'<b><font color = red>You need to get dressed.</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>'
	'Classy normer, that would satisfy even the fastidious monarch. Even odd, where such a luxury in a small town? Rooms are simply luxury pyshit, expensive appliances and stylish furniture, is dominated by <a href="exec:GT ''hotelroom'',''bed''">Double</a>. At the entrance stands a modern <a href="exec:GT ''loker'',''start''">cupboard</a> Clothing. Against the wall and table <a href="exec:GT ''mirror'',''start''">mirror</a>. A little further, you notice the door to <a href="exec:GT ''hotelroom'',''shower1''">San-node</a>'
	'Opposite the bed hangs a huge plasma <a href="exec:GT ''hotelroom'',''tv''">TV</a>.'
	act'The Hall':
		if $clothingworntype ! 'nude':
			gt'hotelHole'
		else
			msg'<b><font color = red>You need to get dressed.</font></b>'
			gt $locM,$metkaM
		end
	end
end

if $args[0] = 'shower1':
act 'Logout':
	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>Bathtub</font></b></center>'
if hotelroom=1:'<center><img src="images/nigma/gor/hotel/hotel.room.normal1.jpg"></center>'&'Tight and very unpretentious Head.'
if hotelroom=2:'<center><img src="images/nigma/gor/hotel/hotel.room.better1.jpg"></center>'&'Clean and tidy san-node.'
if hotelroom=3:'<center><img src="images/nigma/gor/hotel/hotel.room.best1.jpg"></center>'&'Luxurious, really kingship-node.'


if stanok > 0:'Your razor will suffice for <<stanok>> time.'

act 'Wash the shower 15 min':
	cls
	dynamic $showerdin
	minut += 15
	horny = horny + 1
	hapri = 0
	mop = 1
	sweat = -3
	if frost > 0:frost = 0
	gs'stat'

	'<center><img src="images/pics/dush.jpg"></center>'
	'You got into the shower and began to lather his body sponge. After washed soap and washed her hair with shampoo. Rinse the shampoo you become completely clean.'

	act 'Get out of the bath':gt $locM, $metkaM
end
act 'Wash in the bathroom 1 h':
	cls
	dynamic $showerdin
	minut += 60
	sweat = -3
	horny = horny + 3
	hapri = 0
	mop = 1
	manna = manna + 10
	if frost > 0:frost = 0
	skinvan = skinvan + 1
	if skinvan >= 20:skinvan = 0 & skin = skin + 1
	gs'stat'

	'<center><img src="images/pics/wash4.jpg"></center>'
	'Including water, You got into the bathroom and went into the warm water. Ponaslazhdatsya pleasant warmth you lathered his body sponge and hair shampoo. Then you`re all washed with water.'

	act 'Get out of the bath':gt $locM, $metkaM

	if horny >= 90:
		act 'To direct the water to the pussy':
			cla
			*clr
			horny = 0
			minut = minut + 30
			mastr = mastr + 1
			orgasm = orgasm + 1
			manna = manna + 15
			willpower = willpower + 15

			'<center><img src="images/pics/wash7.jpg"></center>'
			'You sent a water tap in the pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'

			act 'Exit the bathroom and get dressed':gt $locM, $metkaM
		end
	elseif horny >= 40 and horny < 90:
		act 'To direct the water to the pussy':
			cla
			*clr
			horny = horny + 5
			minut = minut + 30
			manna = manna + 10
			willpower = willpower + 10

			'<center><img src="images/pics/wash7.jpg"></center>'
			'You sent a water tap in the pussy and tight jet of warm water began to caress you. At first it was not very bad, but then the excitement subsided and became even as it is not nice. So you stop masturbating.'

			act 'Exit the bathroom and get dressed':gt $locM, $metkaM
		end
	end

	if horny >= 50:
		act 'Masturbate':
			gt'selfplay'
		end
	end
end

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

if tampon > 0 and mesec > 0 and isprok = 0:
	act 'Change swab':
		cla
		*clr
		tampon = tampon - 1
		isprok = 1
		minut = minut + 5
		manna = manna - 5
		gs'stat'

		'<center><img src="images/picb/tampon.jpg"></center>'
		'You have changed the swab.'

		act 'Finish':gt $locM, $metkaM
	end
end

dynamic $wearpan
dynamic $basin

if cumfrot > 0:
	act 'Scour semen from clothing':
		cla
		cumfrot = 0
		minut = minut + 15
		gs'stat'

		'<center><img src="images/etogame/frotsp.jpg"></center>'
		'You zamyli semen stains on your clothes.'

		act 'Finish':gt $locM, $metkaM
	end
end

if leghair > 0 and stanok > 0:
	act 'Shaving legs 15 min':
		cla
		*clr
		minut = minut + 15
		leghair = -5
		horny = horny + 5
		stanok = stanok - 1

		'<center><img src="images/pics/shave.gif"></center>'
		'You lathered his feet and took a razor. You deftly shaved hair on the legs washed and shaving foam.'

		act 'Takeout machine':gt $locM, $metkaM
	end
end

if lobok > 0 and stanok > 0:
	act 'Shaved 15 min':
		cla
		*clr
		minut = minut + 15
		lobok = -5
		horny = horny + 5
		stanok = stanok - 1

		'<center><img src="images/pics/shave3.gif"></center>'
		'You lathered pubis and taking a razor deft movements began to shave the pubic area and shave the hair around the pussy. Finally shaving was over and you washed the foam from the pussy.'

		act 'Takeout machine':gt $locM, $metkaM
	end
end

if analplug = 1 and analplugin = 1:
	act 'Remove the butt plug 5 min':
		cla
		*clr
		minut = minut + 5
		analplugIN = 0

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

		if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'

		act 'Logout':gt $locM, $metkaM
	end
elseif analplug = 1 and analplugin = 0 and klismaday1 = 1 and plugday ! daystart:
	act 'Paste anal plug 5 min':
		cla
		*clr
		plugday = daystart
		minut = 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/pic/analplug.jpg"></center>'

		if butpluguse > 0:'You tilt and habitual movement inserted itself anal plug.'
		if butpluguse = 0:butpluguse = 1 & 'You tried to relax as much as possible, and the priest began to insert themselves cork, biting her lip from feeling, that your ass is about to burst you gently pushed into the thickest part of your ass and finally tube into place.'

		act 'Logout':gt $locM, $metkaM
	end
end

if klisma = 1 and klismaday ! daystart:
	act 'Make yourself an enema 5 min':
		cla
		*clr
		minut = minut + 5
		klismaday = daystart
		klismaday1 = 1

		'<center><img src="images/picV/klisma.jpg"></center>'
		'You set yourself an enema and clean the intestines, now your ass ready for anal sex.'

		act 'Logout':gt $locM, $metkaM
	end
end

if pregtest > 0:
	act 'Make a pregnancy test':
		cla
		pregtest -= 1
		gs'stat'

		if preg = 1: 
			knowpreg = 1
			'The test showed the two strips. Are you pregnant.'
			'You think, his father <<$father>>.'
		else
			'The test showed a strip.'
		end

		act 'Further':gt $locM, $metkaM
	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 turned on the TV and settled comfortably 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 see the central channel lying on the couch. See almost nothing, solid advertising and cheesy program.'

	act 'Watch TV 1 h':dynamic $din_wath_tv_h2
	act 'Off to bed':gt $locM, $metkaM
}

act 'Watch TV 1 h':dynamic $din_wath_tv_h2
act 'Off to 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. Alarm clock wound on <<timer>> hours, <<timerM>> minutes. (<<$budilnikInfo>>)'

	act 'Start the Service':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 took out a butt plug.'
		if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed, you took out a vibrator.'
		if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'Makeup smeared in the face, you think, that is harmful to the appearance of sleep with makeup, skin ages faster from this.'
		'You sleep and you do not dream.'

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

			'Alarum'

			act 'Get out of bed and get dressed (15 minutes)':
				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 woke up on, that slept'

			act 'Get out of bed and get dressed (15 minutes)':
				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 'Off to bed':
		cla
		if hotelroom=1:gt'hotelroom','normal'
		if hotelroom=2:gt'hotelroom','better'
		if hotelroom=3:gt'hotelroom','best'
	end
end

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