glife/locations/MWestbed.qsrc

# MWestbed
$location_type = 'private'

if $ARGS[0] = 'master':
    $location_type = 'private'
	$locclass = 'bedr'
	$loc = 'MWestbed'
	$metka = 'master'
	$menu_loc = 'MWestbed'
	$menu_arg = 'master'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> 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:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand3.mp4"></video></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:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand7.mp4"></video></center>'
		'A dominant woman is being pleasured by her sub.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'master'
	elseif rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/maid_pun4.mp4"></video></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':
		menu_off = 1
		*clr & cla
		pcs_horny += 5
		minut += 5
		gs 'pain', 4, 'asscheeks', 'spank'
		gs 'stat'
	    '<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/spank'+rand(1,2)+'.mp4"></video></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':
    $location_type = 'private'
	$locclass = 'bedr'
	$loc = 'MWestbed'
	$metka = 'guest'
	$menu_loc = 'MWestbed'
	$menu_arg = 'guest'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> 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:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><img <<$set_imgh>> 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:
		menu_off = 1
		*clr & cla
		gs 'stat'
	    '<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/crossdressfuck.mp4"></video></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_sex', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MWestbed', 'guest'
	end
end

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