glife/locations/MEastbed

# MEastbed

if $ARGS[0] = 'guestB':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img src="images/BDSM_Club/Bedrooms/bedB.jpg"></center>'
	'Guest bedroom B'
	act 'Go to the east wing landing':gt 'MLanding', 'east'
	if rand (0,100) < 3:
		cls
		horny += 15
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/bedrand1.gif"></center>'
		'A submissive woman is cleaning up her dom''s cum from another woman''s chest.'
		act 'Return':gt 'MEastbed', 'guestB'
	elseif rand (0,100) < 3:
		cls
		horny += 5
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/bedrand5.gif"></center>'
		'You see three submissive women on the bed, they are tied and gagged.'
		act 'Return':gt 'MEastbed', 'guestB'
	elseif rand (0,100) < 3:
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/mis_1.gif"></center>'
		'A well dressed women is very much enjoying giving a blowjob, she must be a switch.'
		act 'Return':gt 'MEastbed', 'guestB'
	end
end

if $ARGS[0] = 'guestC':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img src="images/BDSM_Club/Bedrooms/bedC.jpg"></center>'
	'Guest bedroom C'
	act 'Go to the east wing landing':gt 'MLanding', 'east'
	if rand (0,100) < 3:
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/bedrand2.gif"></center>'
		'A submissive woman on a leash is being fucked by her dom.'
		act 'Return':gt 'MEastbed', 'guestC'
	elseif rand (0,100) < 3:
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/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.'
		act 'Return':gt 'MEastbed', 'guestC'
	elseif rand (0,100) < 3:
		cls
		horny += 15
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/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.'
		act 'Return':gt 'MEastbed', 'guestC'
	end
end

if $ARGS[0] = 'guestD':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><img src="images/BDSM_Club/Bedrooms/bedD.jpg"></center>'
	'Guest bedroom D'
	act 'Go to the east wing landing':gt 'MLanding', 'east'
	if rand (0,100) < 3:
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/bedrand4.gif"></center>'
		'A submissive woman is gagged and tied to a stool and the bedstead and her dom is fucking her roughly.'
		act 'Return':gt 'MEastbed', 'guestD'
	elseif rand (0,100) < 3:
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/bedrand6.gif"></center>'
		'A submissive women is tied up and gagged, her domme is fucking her with a strap-on.'
		act 'Return':gt 'MEastbed', 'guestD'
	elseif rand (0,100) < 3:
		cls
		horny += 5
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/maid_pun2.gif"></center>'
		'A submissive women appears to have broken the dress code and is being punished.'
		act 'Return':gt 'MEastbed', 'guestD'
	elseif rand (0,100) < 3:
		cls
		horny += 10
		gs 'stat'
		'<center><img src="images/BDSM_Club/Bedrooms/maid_b7.gif"></center>'
		'A submissive women is having her face fucked by a dom in a suit.'
		act 'Return':gt 'MEastbed', 'guestD'
	end
end

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