glife-shopfix/locations/MWestbed

# MWestbed
$location_type = 'private'

if $ARGS[0] = 'master':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img src="images/locations/city/suburb/bdsm_club/masterbed.jpg"></center>'
	'Master bedroom'
	act 'Go to the west wing landing':gt 'MLanding', 'west'
	if rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand3.gif"></center>'
		'You see a submissive woman in lingerie and on a leash, she appears to have earned herself a treat from a dominant man in a suit.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'master'
	elseif rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand7.gif"></center>'
		'A dominant woman is being pleasured by her sub.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'master'
	elseif rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_pun4.gif"></center>'
		'Ooo, a spanking, someone''s been a bad girl.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'master'
	elseif rand (0,100) < 3 and $BDSMrole = 's':
		cls
		pcs_horny += 5
		minut += 5
		gs 'pain', 4, 'asscheeks', 'spank'
		gs 'stat'
	    '<center><img src="images/locations/city/suburb/bdsm_club/sex/spank'+rand(1,2)+'.gif"></center>'
	    'As you are walking into the bedroom you accidentally bump into a man walking out. Before you can even say a word he grabs you by the arm. "Watch where you are going little girl."'
	    'You meekly nod your head. "Sorry, I will be more careful in the future."'
	    '"You don''t sound very sorry, I think I need to teach you a lesson." With that he pulls you into the room and bares your ass, then he pulls off his belt and spanks you until tears are running down your face.'
		'Once he believes you learned your lesson he leaves, leaving you behind to rub your sore ass.'
		act 'Return':gt 'MWestbed', 'master'
	end
end

if $ARGS[0] = 'guest':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img src="images/locations/city/suburb/bdsm_club/beda.jpg"></center>'
	'Guest bedroom A'
	act 'Go to the west wing landing':gt 'MLanding', 'west'
	if rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_bound_d1.jpg"></center>'
		'A submissive woman is being tied to a bed by a dominant man.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'guest'
	elseif rand (0,100) < 3:
		cls
		gs 'stat'
	    '<center><img src="images/locations/city/suburb/bdsm_club/sex/crossdressfuck.gif"></center>'
	    'You peek in the room when you hear grunts coming from it.'
		'Inside you a man wearing womens clothes being fucked by his mistress wearing a strap-on.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'guest'
	end
end

--- MWestbed ---------------------------------