# mod_addedflavour_SFLA_Bedr1
	if $ARGS[0] = 'start' or $ARGS[0] = '':
		CLOSE ALL
		$locM = 'mod_addedflavour_SFLA_Bedr1'
		$locM_arg = 'start'
		$loc = 'mod_addedflavour_SFLA_Bedr1'
		$loc_arg = 'start'
		$menu_loc = 'mod_addedflavour_SFLA_Bedr1'
		$menu_arg = 'start'
		menu_off = 0
		$location_type = 'private'
		gs 'themes', 'indoors'
		gs 'mod_addedflavour_charsche' , 'chkschedule'
		gs 'stat'
		*clr & cla
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_Bedr1' , 'Sex'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 : gt 'mod_addedflavour_SFLA_SexFunctions' , 'npcsex' , modArr_AF_SFLA_SharedActPeopleArray[0] , modArr_AF_SFLA_SharedActPeopleArray[1]
		if sound = 0 : gs 'mod_addedflavour_SFLA_Functions' , 'soundgen'
		if modVar_AF_SFLA_AptRProg['Bedr1'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
			$modVar_AF_TempStr = 'Lv2'
		else
			$modVar_AF_TempStr = 'Lv1'
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_Bedr1' , 'Any'
		if arrsize ('modArr_AF_SFLA_SharedActPeopleArray') = 1 and $charsche_character_CurActDesc[arrpos('charsche_charlist',700)] ! 'Sleeping':
			gs 'mod_addedflavour_SFLA_SexFunctions' , 'chksextriggers' , 700 , 'Bedr1Alone'
		end
		'<center><b><font color="<<$npc_fontcolor[''A700'']>>">Kazumi''s Room</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Bedr1<<$modVar_AF_TempStr>>.jpg"></center>'
		gs 'mod_addedflavour_SFLA_Functions' , 'SFLA-UpgradeRoom-Check' , 'Bedr1'
		if modVar_AF_SFLA_AptRProg['Bedr1'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
			'You are in Kazumi''s Room which is modern looking with a large bed in the centre.'
		else
			'You are in Kazumi''s Room which is functional but with very little amenities.'
		end
		*nl
		gs 'mod_addedflavour_SFLA_Functions' , 'ShowSchedule' , 700
		gs 'mod_addedflavour_SFLA_Functions' , 'SFLA-PeoplePresent-Display' , 'mod_addedflavour_SFLA_Bedr1'
		act '<b>Go To Living Room</b>' : minut += 1 & gt 'mod_addedflavour_SFLA_Sitr' , 'start'
	end

--- mod_addedflavour_SFLA_Bedr1 ---------------------------------