glife/locations/bdsm_dressing.qsrc

# bdsm_dressing
$loc_arg = $ARGS[0]
$loc = 'bdsm_dressing'
$locM_arg = $ARGS[0]
$locM = 'bdsm_dressing'
$location_type = 'private'
$loc = 'bdsm_dressing'
$loc_arg = ''
$menu_loc = 'bdsm_dressing'
$menu_arg = ''
!! Role cleared here and set when re-entering to allow for sub and dom usage
$bdsmclub['role'] = ''
menu_off = 0
cls
gs 'stat'
'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/dressingroom.jpg"></center>'
'A huge dressing room. Mostly used by submissives to dress as staff and because of this, it is a safe space and games are not allowed.'
'It contains several <a href="exec:gt ''wardrobe'', ''start''">wardrobes</a> (where you can choose outfits and organize your clothing).'
'There are whole cabinets filled with designer clothing belonging to various club members and plenty of <a href="exec:gt ''mirror'',''start''">mirrors</a> you can use.'
*nl
'It is here where you must set your role for your visit, you can also change it here but must be wearing the correct clothing for your role or you will only be able to leave.'
'Submissives must wear either maid or submissive sex shop clothing or be naked.'
'Dominants must wear clothing of minimum "expensive" quality.'
if ($clothingworntype = 'gm_maid' or PCloStyle2 = 1) or PCloStyle3 = 2 or $clothingworntype = 'nude':
	act 'Enter the club''s foyer (submissive role)':
		$bdsmclub['role'] = 'sub'
		gt 'bdsm_hallway', 'foyer'
	end
end
if PCloQuality >= 5 and bdsmclub['payday'] + 30 > daystart and bdsmclub['domtraining'] = 2:
	act 'Enter the club''s foyer (dominant role)':
		$bdsmclub['role'] = 'dom'
		gt 'bdsm_hallway', 'foyer'
	end
end

if bdsmclub['payday'] + 30 <= daystart:
	*nl
	'You do not have a paid subscription so you cannot enter the club as a dominant, you can go direct to the office and pay from here.'
	act 'Go to office and pay subscription': gt 'bdsm_mansion', 'office'
end

act 'Go to the Foyer (no role set)': gt 'bdsm_hallway', 'foyer'
act 'Leave the club':gt 'city_suburbs', 'start'

--- bdsm_dressing ---------------------------------