glife/locations/MLanding

# MLanding
$location_type = 'private'

if $ARGS[0] = 'west':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/wlanding.jpg"></center>'
	act 'Go to the east wing landing':gt 'MLanding', 'east'
	act 'Go downstairs to the foyer':gt 'MHall', 'foyer'
	act 'Visit the master bedroom':gt 'MWestbed', 'master'
	act 'Visit guest bedroom A':gt 'MWestbed', 'guest'
	act 'Visit the games room':gt 'MGames'

	if rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/sex/maid_sex_b1.gif"></center>'
		'A maid is being helped with the vacuum cleaning by a man in casual clothing, you think about reporting him, but he''s a bit busy right now.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return': gt 'MLanding', 'west'
	end
end

if $ARGS[0] = 'east':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/elanding.jpg"></center>'
	act 'Go to the west wing landing':gt 'MLanding', 'west'
	act 'Go downstairs to the foyer':gt 'MHall', 'foyer'
	act 'Go downstairs to the west wing hallway':gt 'MHall', 'west'
	act 'Visit guest bedroom B':gt 'MEastbed', 'guestB'
	act 'Visit guest bedroom C':gt 'MEastbed', 'guestC'
	act 'Visit guest bedroom D':gt 'MEastbed', 'guestD'
	act 'Go to the bathroom': gt 'MBathrooms', 'bath'
	act 'Go to the living room': gt 'MLiving'
end

--- MLanding ---------------------------------