AddedFlavour/locations/mod_addedflavour_city_hotel_CoRm.qsrc

# mod_addedflavour_city_hotel_CoRm
	if $ARGS[0] = 'start':
		CLOSE ALL
		*clr & cla
		$locM = 'mod_addedflavour_city_hotel_CoRm'
		$locM_arg = 'start'
		$loc = 'mod_addedflavour_city_hotel_CoRm'
		$loc_arg = 'start'
		$menu_loc = 'mod_addedflavour_city_hotel_CoRm'
		$menu_arg = 'start'
		menu_off = 0
		$location_type = 'private'
		gs 'themes', 'indoors'
		gs 'mod_addedflavour_charsche' , 'chkschedule'
		gs 'mod_addedflavour_A69_Functions' , 'JuniorCupDirector'
		gs 'stat'
		'<center><b>Hotel Common Room</b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/hotel/HotelCommonRoom.jpg"></center>'
		*nl
		'Here is the Common Room (converted from the Executive Suite) intended to be a place set aside for Pavlovsk Falcon Members to keep themselves occupied.'
		*nl
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_city_hotel_CoRm' , 'Any'
		'<b>People Present:</b>'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			peoplepresentloopcount = 0
			:peoplepresentloop
			if peoplepresentloopcount >= arrsize('modArr_AF_SFLA_SharedActPeopleArray'):
				jump 'peoplepresentloopend'
			end
			peoplepresentid = modArr_AF_SFLA_SharedActPeopleArray[peoplepresentloopcount]
			$peoplepresentname = '<<$npc_firstname[''A<<peoplepresentid>>'']>>'
			peoplepresentcharpos = arrpos('charsche_charlist',peoplepresentid)
			if $charsche_character_CurActDesc[peoplepresentcharpos] = 'Resting':
				'<<$peoplepresentname>> is lounging around and doing nothing in particular'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Yoga':
				'<<$peoplepresentname>> is doing some Yoga'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Working Out':
				'<<$peoplepresentname>> is Working Out in the Gym Space'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Watch TV':
				'<<$peoplepresentname>> is Watching the Television'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Eating':
				'<<$peoplepresentname>> is eating some food'
			end
			peoplepresentloopcount += 1
			jump 'peoplepresentloop'
			:peoplepresentloopend
		else
			'You don''t see anyone here'
		end
		*nl
		'<b>Activities:</b>'
		'A Space is set aside for <a href="exec: gs ''exercise'' , ''workout'' ">Personal Exercise</a>.'
		act 'Exercise' : gs 'exercise' , 'workout'
		'A Sofa to <a href="exec: gt ''mod_addedflavour_SFLA_Events'' , ''relax'' , 30">Relax</a> on'
		act 'Relax (0:30)' : gt 'mod_addedflavour_SFLA_Events' , 'relax' , 30
		'A Table set aside to hold all the <a href="exec: gt ''mod_addedflavour_SFLA_Events'' , ''eatlightmeal'' , ''NoUse'' ">Food</a> and <a href="exec: gt ''mod_addedflavour_SFLA_Events'' , ''drinkwater'' ">Drink</a> available to the Team'
		act 'Eat some Food' : gt 'mod_addedflavour_SFLA_Events' , 'eatlightmeal' , 'NoUse'
		act 'Drink some Water' : gt 'mod_addedflavour_SFLA_Events' , 'drinkwater'
		act '<b>Go To Hotel Corridor</b>' : minut += 1 & gt 'mod_addedflavour_city_hotel_Korr' , 'start'
	end

--- mod_addedflavour_city_hotel_CoRm ---------------------------------