# MEastbed

if $ARGS[0] = 'guestB':
    $location_type = 'private'
	$locclass = 'bedr'
	$loc = 'MEastbed'
	$loc_arg = 'guestB'
	$menu_loc = 'MEastbed'
	$menu_arg = 'guestB'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/bedb.jpg"></center>'
	'Guest bedroom B'
	act 'Go to the east wing landing': gt 'MLanding', 'east'
	if rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand1.mp4"></video></center>'
		'A submissive woman is cleaning up her dom''s cum from another woman''s chest.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'stat'
	
		act 'Return':gt 'MEastbed', 'guestB'
	elseif rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand5.mp4"></video></center>'
		'You see three submissive women on the bed, they are tied and gagged.'
		
		gs 'arousal', 'voyeur', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestB'
	elseif rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/mis_1.mp4"></video></center>'
		'A well dressed woman is very much enjoying giving a blowjob, she must be a sub.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestB'
		if $BDSMrole = 's':
			act 'Join them':
				*clr & cla
				gs 'npcgeneratec', 0, 'Dominant man from the Club', rand(18,45)
				gs 'boyStat', $npclastgenerated
				gs 'cum_call', 'mouth_swallow', 'Dominant man from the Club'
				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/sex/snowball.jpg"></center>'
				'Seeing you watching them, the couple beckons you over. You obey them and come over and kneel down next to the well dressed woman. She offers the cock to you and you dutifully suck it and soon the two of you are trading it back and forth.'
				'The man begins to grunt getting close, when he does the woman takes the cock completely to herself no longer sharing, after another minute or so the man cums in her mouth.'
				'She rises up a bit and pulls your head back, pulling your mouth open. Then she spits the man''s cum into your mouth. Then they dismiss you and as you''re leaving you swallow the cum.'
				
				gs 'arousal', 'bj', 5, 'sub', 'group'
				gs 'arousal', 'end'
				gs 'stat'
		
				act 'Return':gt 'MEastbed', 'guestB'
			end
		end
	end
end

if $ARGS[0] = 'guestC':
    $location_type = 'private'
	$locclass = 'bedr'
	$loc = 'MEastbed'
	$loc_arg = 'guestC'
	$menu_loc = 'MEastbed'
	$menu_arg = 'guestC'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/bedc.jpg"></center>'
	'Guest bedroom C'
	act 'Go to the east wing landing':gt 'MLanding', 'east'
	if rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand2.mp4"></video></center>'
		'A submissive woman on a leash is being fucked by her dom.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestC'
		if $BDSMrole = 's':
			act 'Join them':
				*clr & cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/sex/bedmff.jpg"></center>'
				'As you watch the man notices you and motions you over. Obeying you walk over to him. While he keeps fucking the woman on the bed he says. "Straddle her face and look at me."'
				'You do as you are told and the woman''s tongue plunges into your pussy at once as she starts tongue fucking you. The man pulls you forward and kisses you as he keeps fucking the other woman.'
				'You orgasm before he does and when he does, he does deep inside or her. Once finished they get dressed.'
				
				$orgasm_or = 'yes'
				gs 'arousal', 'cuni', 5, 'sub', 'lesbian'
				gs 'arousal', 'end'
				gs 'stat'
		
				act 'Return':gt 'MEastbed', 'guestC'
			end
		end
	elseif rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand8.mp4"></video></center>'
		'A man and two women are having a threesome, you can''t tell who is sub or dom, but they are so carried away in their act that you don''t suppose that''s important right now.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestC'
	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_pun1.mp4"></video></center>'
		'A submissive woman has been tied and gagged with a body massager strapped to her pussy. Poor thing, hopefully someone will let her go soon.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestC'
	end
end

if $ARGS[0] = 'guestD':
    $location_type = 'private'
	$locclass = 'bedr'
	$loc = 'MEastbed'
	$loc_arg = 'guestD'
	$menu_loc = 'MEastbed'
	$menu_arg = 'guestD'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/bedd.jpg"></center>'
	'Guest bedroom D'
	act 'Go to the east wing landing':gt 'MLanding', 'east'
	if rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand4.mp4"></video></center>'
		'A submissive woman is gagged and tied to a stool and the bedstead and her dom is fucking her roughly.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
	elseif rand (0,100) < 3:
		menu_off = 1
		*clr & cla
		gs 'stat'
		'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand6.mp4"></video></center>'
		'A submissive woman is tied up and gagged, her domme is fucking her with a strap-on.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
		if $BDSMrole = 's':
			act 'Watch':
				*clr & cla
				'<center><video autoplay loop src="images/locations/city/suburb/bdsm_club/sex/bedrand6.mp4"></video></center>'
				'You keep watching them. At the rough treatment the sub occasionally cries out through the gag. Which only seems to annoy her domme, who gives her a smack each time and tell her to take it like a good whore.'
				'Noticing you the domme turns and pulls out of her sub. "You come over here and show my worthless sub how to take it like a good whore."'

				act 'Obey':
					*clr & cla
					pcs_ass += 1
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/sex/fffdomstrap.jpg"></center>'
					'You undress and walk over to her while she unties her sub. As you get to the bed she grabs you and pushes you down face first on the bed. She crawls up on top of you and rubs the strap-on against your asshole.'
					'With only the lube from her subs pussy juices she shoves it in your ass, sliding it balls deep in you. Then she starts to furiously fuck you as she tells her sub this is how she should take it.'
					'After a long time she beings to pant and sweat from her efforts in fucking you. Finally rolling off you to take a break, she looks at you. "You may go." You get up and get dressed leaving them in the room.'
					
					$orgasm_or = 'yes'
					gs 'arousal', 'anal_strap', 5, 'sub', 'lesbian', 'rough'
					gs 'arousal', 'end'
					gs 'stat'
					
					act 'Return':gt 'MEastbed', 'guestD'
				end
			end
		end
	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_pun2.mp4"></video></center>'
		'A submissive woman appears to have broken the dress code and is being punished.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
	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_b7.mp4"></video></center>'
		'A submissive woman is having her face fucked by a dom in a suit.'
		
		gs 'arousal', 'voyeur_sex', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
	end
end

--- MEastbed ---------------------------------