glife-shopfix/locations/MEastbed

# MEastbed

if $ARGS[0] = 'guestB':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
    $location_type = 'private'
	cls
	gs 'stat'
	'<center><img 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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand1.gif"></center>'
		'A submissive woman is cleaning up her dom''s cum from another woman''s chest.'
		
		gs 'arousal', 'voyeur', 5
		gs 'stat'
	
		act 'Return':gt 'MEastbed', 'guestB'
	elseif rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand5.gif"></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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/mis_1.gif"></center>'
		'A well dressed women is very much enjoying giving a blowjob, she must be a switch.'
		
		gs 'arousal', 'voyeur', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestB'
		if $BDSMrole = 's':
			act 'Join them':
				cla
				*clr
				gs 'npcgeneratec', 0, 'pcs_dom from the Club', rand(18,45)
				gs 'boyStat', $npclastgenerated
				sexpartkno = 1
				sexvolume = 5
				spafinloc = 12
				gs 'cum_manage'
				'<center><img 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':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
    $location_type = 'private'
	cls
	gs 'stat'
	'<center><img 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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand2.gif"></center>'
		'A submissive woman on a leash is being fucked by her dom.'
		
		gs 'arousal', 'voyeur', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestC'
		if $BDSMrole = 's':
			act 'Join them':
				cls
				gs 'stat'
				'<center><img 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. He keeps fucking the woman on the bed he says."Straddle her face and look at me."'
				'You do as you was told and the womans 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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand8.gif"></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', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestC'
	elseif rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_pun1.gif"></center>'
		'A submissive women 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', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestC'
	end
end

if $ARGS[0] = 'guestD':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
    $location_type = 'private'
	cls
	gs 'stat'
	'<center><img 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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand4.gif"></center>'
		'A submissive woman is gagged and tied to a stool and the bedstead and her dom is fucking her roughly.'
		
		gs 'arousal', 'voyeur', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
	elseif rand (0,100) < 3:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand6.gif"></center>'
		'A submissive women is tied up and gagged, her domme is fucking her with a strap-on.'
		
		gs 'arousal', 'voyeur', 5
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
		if $BDSMrole = 's':
			act 'watch':
				cla
				*clr
				'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand6.gif"></center>'
				'You keep watching them, at the rough treatment the sub occasionally cries out through the gag, which only seems to annoy her dom, which gives her a smack each time and tell her to take it like a good whore.'
				'Noticing you the dom 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':
					cls
					pcs_ass += 1
					gs 'stat'
					'<center><img src="images/locations/city/suburb/bdsm_club/sex/fffdomstrap.jpg"></center>'
					'You undress and walk over to her as 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 still 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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_pun2.gif"></center>'
		'A submissive women 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:
		cls
		gs 'stat'
		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_b7.gif"></center>'
		'A submissive women is having her face fucked by a dom in a suit.'
		
		gs 'arousal', 'voyeur', 5
		gs 'arousal', 'end'
		gs 'stat'
		
		act 'Return':gt 'MEastbed', 'guestD'
	end
end

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