# mod_addedflavour_city_hotel_Bedr
	if strpos($ARGS[0],'start') ! 0:
		CLOSE ALL
		*clr & cla
		if ARGS[1] >= 1:
			modVar_AF_RoomIteration = ARGS[1]
		else
			modVar_AF_RoomIteration = $MID($ARGS[0],6)
		end
		$locM = 'mod_addedflavour_city_hotel_Bedr'
		$locM_arg = 'start<<modVar_AF_RoomIteration>>'
		$loc = 'mod_addedflavour_city_hotel_Bedr'
		$loc_arg = 'start<<modVar_AF_RoomIteration>>'
		$menu_loc = 'mod_addedflavour_city_hotel_Bedr'
		$menu_arg = 'start<<modVar_AF_RoomIteration>>'
		menu_off = 0
		$location_type = 'private'
		modVar_AF_EventOpen['A69-HotelSneak'] = 0
		$loc_arg = 'start<<modVar_AF_RoomIteration>>'
		gs 'themes', 'indoors'
		gs 'mod_addedflavour_charsche' , 'chkschedule'
		gs 'mod_addedflavour_A69_Functions' , 'JuniorCupDirector'
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_city_hotel_Bedr_<<modVar_AF_RoomIteration>>' , 'Any'
		'<center><b>Hotel Room (Occupants - <<$modArr_AF_CityHotelRoomOccupant[''B<<modVar_AF_RoomIteration>>'']>>)</b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/hotel/HotelBedroom.jpg"></center>'
		*nl
		'This room is your standard Two-Bed Hotel Room with all the amenities you would expect with an adjacent bathroom.'
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',19)] = 'mod_addedflavour_city_hotel_Bedr_1':
			*nl
			if $charsche_character_CurActDesc[arrpos('charsche_charlist',19)] = 'Sleeping':
				'<b>Avelina is here sleeping in her bed</b>'
			elseif $charsche_character_CurActDesc[arrpos('charsche_charlist',19)] = 'Resting':
				'<b>Avelina is here lounging on one of the chairs</b>'
			elseif $charsche_character_CurActDesc[arrpos('charsche_charlist',19)] = 'Watch TV':
				'<b>Avelina is here watching the Television</b>'
				if sound = 0 : PLAY 'mod/addedflavour/sound/TV.mp3'
			end
			gs 'mod_addedflavour_A19_Functions' , 'HotelEvents'
		elseif $charsche_character_CurActLoc[arrpos('charsche_charlist',19)] = 'mod_addedflavour_city_hotel_BaRm_1':
			if sound = 0 : PLAY 'mod/addedflavour/sound/ShowerMuffled.mp3'
		end
		*nl
		'<b>Activities:</b>'
		'Some Chairs are available to <a href="exec: $loc = ''mod_addedflavour_city_hotel_Bedr_<<modVar_AF_RoomIteration>>'' & gt ''mod_addedflavour_SFLA_Events'' , ''relax'' , 30 ">Lounge</a> around on'
		act 'Rest (0:30)' : $loc = 'mod_addedflavour_city_hotel_Bedr_<<modVar_AF_RoomIteration>>' & gt 'mod_addedflavour_SFLA_Events' , 'relax' , 30
		'There is a <a href="exec: $loc = ''mod_addedflavour_city_hotel_Bedr_<<modVar_AF_RoomIteration>>'' & gt ''mod_addedflavour_SFLA_Events'' , ''watchtv'' ">Television</a> in the Room'
		act 'Watch some Television (0:30)' : $loc = 'mod_addedflavour_city_hotel_Bedr_<<modVar_AF_RoomIteration>>' & gt 'mod_addedflavour_SFLA_Events' , 'watchtv'
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',19)] ! 'mod_addedflavour_city_hotel_BaRm_1':
			act '<b>Go to Bathroom</b>' : minut += 1 & gt 'mod_addedflavour_city_hotel_BaRm' , 'start' , modVar_AF_RoomIteration
		end
		if hour < 21 and hour >= 6:
			act '<b>Go To Hotel Corridor</b>' : minut += 1 & gt 'mod_addedflavour_city_hotel_Korr' , 'start'
		elseif trenersex > 0 and hour = 22 and minut <= 30:
			act '<b>Sneak into the Hotel Corridor</b>' : modVar_AF_EventOpen['A69-HotelSneak'] = 1 & minut += 1 & gt 'mod_addedflavour_city_hotel_Korr' , 'start'
		end
	end
	
	if $ARGS[0] = 'PeepSex':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_city_hotel_Bedr_<<ARGS[1]>>' , 'Sex'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 1:
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/hotel/HotelFun1' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
			*nl
			modVar_AF_Temp = modArr_AF_SFLA_SharedActPeopleArray[0]
			modVar_AF_Temp2 = modArr_AF_SFLA_SharedActPeopleArray[1]
			$modVar_AF_TempStr = $npc_firstname['A<<modVar_AF_Temp>>'] + ' and ' + $npc_firstname['A<<modVar_AF_Temp2>>']
			'It appears that <<$modVar_AF_TempStr>> are having some fun together...  probably best to leave them at it and pull the door to...  it is quite mesmerising though...'
		else
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/hotel/HotelFun2' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
			*nl
			modVar_AF_Temp = modArr_AF_SFLA_SharedActPeopleArray[0]
			$modVar_AF_TempStr = $npc_firstname['A<<modVar_AF_Temp>>']
			'Whoa, it looks like <<$modVar_AF_TempStr>> is having some private fun.  At least it would be private if she hadn''t left the door ajar...  Probably best I shut this discreetly.'
		end
		act 'Return' : gt 'mod_addedflavour_city_hotel_Korr' , 'start'
	end

--- mod_addedflavour_city_hotel_Bedr ---------------------------------