glife/locations/bdsm_mansion.qsrc

# bdsm_mansion

!!{variables for BDSM mansion
	bdsmclub['unlocked'] = 1 - club unlocked
	bdsmclub['intro'] = 1 - intro interview complete
	bdsmclub['subtraining'] - sub training counter
	bdsmclub['domtraining'] - dom training counter
	bdsmclub['annatraining'] = 1 - bypass train if you have been trained by Anna
	bdsmclub['training_daystart'] = daystart - check to stop further training on same day
	bdsmclub['payday'] = daystart - subscription paid for dom access due every 30 days
	$bdsmclub['role'] = 'sub' or 'dom' - access used and maintained during that visit as either a sub or a dom
}

if $ARGS[0] = 'taxi':
	$loc_arg = 'start'
	$loc = 'bdsm_mansion'
	$location_type = 'public_outdoors'
	$menu_loc = 'bdsm_mansion'
	$menu_arg = 'start'
	menu_off = 0
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/club.jpg"></center>'
	if hour < 16 and hour > 2:
		bdsmclub['unlocked'] = 1
		'The taxi brings you in a gated community outside of town and drops you off at the closed wrought iron gate. You attempt to enter the secret club but the guard tells you it is closed. You show your card and he tells you to come back after 16:00.'
		act 'Leave':gt 'city_suburbs', 'start'
	else
		'The taxi brings you in a gated community outside of town and drops you off at the closed wrought iron gate. From the booth comes a guard, you show him the business card. Without saying anything, he opens the gate and points you towards the door. You walk alone a marble tiled walkway past the neatly clipped shrubs and flower beds. An other guard meets you, and leads you into the mansion through the main door.'
		act 'Enter club':gt 'bdsm_mansion', 'intro'
	end
end


if $ARGS[0] = 'start':
	$loc_arg = 'start'
	$loc = 'bdsm_mansion'
	$location_type = 'public_outdoors'
	$menu_loc = 'bdsm_mansion'
	$menu_arg = 'start'
	menu_off = 0
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/club.jpg"></center>'
	'You are standing a large mansion in the suburbs of St Petersberg.'
	if bdsmclub['unlocked'] = 1:
		'You know this to be a BDSM club for rich people and you have access.'
		act 'Go to the elite settlement':gt 'city_suburbs', 'start'
		if hour < 16 and hour > 2:
			*nl
			'The club is closed until 16:00.'
			act 'Leave':gt 'city_suburbs', 'start'
		else
			if bdsmclub['training_daystart'] ! daystart:
				if bdsmclub['subtraining'] < 3:
					act 'Get submissive training': gt 'bdsm_training', 'sub'
				end
				if bdsmclub['domtraining'] < 1:
					if bdsmclub['payday'] + 30 > daystart:
						act 'Get Dominant training': gt 'bdsm_training', 'dom'
					else
						act 'Get Dominant training (unavailable until subscription is paid)': gt 'bdsm_mansion', 'start'
					end
				end
				act 'Enter the club':gt 'bdsm_hallway', 'foyer'
			end
		end
		gs 'taxi'		
	else
		act 'Go to the elite settlement':gt 'city_suburbs', 'start'
	end
end

if $ARGS[0] = 'intro':
	*clr & cla
	menu_off = 1
	bdsmclub['intro'] = 1
	bdsmclub['training_daystart'] = daystart
	gs 'stat'
	*clr & cla
	minut += 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
	'You''re standing in an office, at a table in front of you sits a woman in a strict business suit. Her strict gaze as looks right through you. You show her the card, she briefly says.'
	'"Candidate? Passport."'
	'Your hand trembles as you reach out your passport.'
	'The woman points you to a chair, turns to the computer and starts clicking on the keys. She nods a few times, but says nothing. Then takes the phone and speaks to someone called Vladimir Viktorovich, discussing you. "There''s candidacy, but a bit young, can you check and sort the paperwork? She hangs up, after a few minutes from the office comes a strapping man in a perfectly fitting suit and glasses with gold rim. He says, "Hello." And sits down next to you.'
	'"What''s your name? <<$pcs_nickname>>? Fine. How old are you?"'
	'You answer the questions.'
	'"Tell me, are you sure you want this?"'
	'You understand, all of the questions he is asking and why.'
	'"Sure!" You tell him firmly.'
	'"Well... everything here seems to be in order, there are no issues. Let''s sign some papers. A mere formality, to formally record, that you have grasped everything.'
	'The man puts a sheet of paper on the table.'
	'"Read aloud and sign."'
	'You take the sheet and read "The application for voluntary informed consent" a long, binding document filled with legal terms, confirming your consent to voluntarily participate in actions of a sexual nature, which may be humiliating or degrading in nature and be accompanied by mild corporal punishment. You are not a lawyer, but you understand, this covers them if something goes wrong and takes every step to prevent that.'
	'"I agree."'
	'"Well," the woman puts her hands together and looks at you. Due to the nature of this club I have to carry out a visual inspection to confirm physical suitability.'
	'"I do not know," you shrug. "What does that mean?"'
	'"Simple you remove all your clothing and I have a good look, its a perk of the job. Besides we record this interview and it helps discourage talk about the club reaching people it should not."'
	act 'Hesitate':
		*clr & cla
		minut += 10
		bdsmclub['intro'] = 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r1_2.jpg"></center>'
		'The woman''s eyes light up. She stands up behind the desk and orders you.'
		'"Stand up!"'
		'You jump, than understand, why you did. The imperious voice of this Lady holds you in awe.'
		'"Undress!"'
		'"But..."'
		'"Undress, now! Or I''ll have security do it for you!" She has her hand on the table, her finger hovering over a small red button which you have to assume will summon the security guard.'
		'You look to Vladimir you were just talking to, but he just stands there, expressionless. You undress.'
		'"Sign!"'
		'You sign the document. The man places the paper in a folder and leaves.'
		'"Listen carefully..."'
		act 'Listen':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
			'She explains that there are two ways to visit the club, either as a submissive where you will be subject to sexualization and humiliation, but its free. Or you can pay a monthly fee of 10,000<b>₽</b> and visit as a Dominant, in this case you will be able to sexualize and humiliate the submissives.'
			'For each role there is something of a dress code in that subs must dress either in submissive fetishwear, as a maid or be naked. A dominant simply has to be dressed in expensive quality clothing.'
			'There is also a required training aspect.'
			if bdsmclub['annatraining'] = 1:
				'You tell Mistress Electra that you have been training with Anna'
				'"OMG! She told me to look out for you and I clean forgot. I''m so sorry, I''ll mark your training for both roles as complete."'
				'Due to some contract law you can''t use the club today but you will be able to from tomorrow.'
			else
				'Before you can use the club you must either have paid your monthly subscription and I will run you through the rules for Dominants.'
				'Or You can do my complimentary submissive training over 4 days of your choice (not Tuesdays or Thursdays) and then you can enjoy the free submissive experience.'
			end
			'"When you arrive at the club you must go to the dressing room and change into suitable clothing for your role, that role remains while in the club but for those wanting to experience all that we have to offer you can switch my changing into the appropriate clothing in the dressing room, but remember you cannot enter as a Dom unless your subscription is paid in advance."'
			'"We are do here, you may leave."'
			act 'Leave': gt 'bdsm_mansion', 'start'
		end
	end
end

if $ARGS[0] = 'office':
	*clr & cla
	$menu_loc = 'bdsm_mansion'
	$menu_arg = 'office'
	menu_off = 0
	gs 'stat'
	if week = 2 or week = 4:
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/anna.jpg"></center>'
		'You enter the club and Anna is sitting at her desk overseeing admissions.'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
		'You enter the club and Mistress Elektra is sitting at her desk overseeing admissions.'
	end
	act 'Return to dressing room':gt 'bdsm_dressing'
	if money < 10000 and karta  < 10000:
		*nl
		'You cannot afford the 10,000 rubes required to extend your club membership.'
	else
		if money > 10000:
			act 'Pay 10,000 <b>₽</b> to extend your membership and return to the dressing room':
				bdsmclub['payday'] = daystart
				bdsmclub['training_daystart'] = daystart
				money -= 10000
				gt 'bdsm_dressing'
			end
		end
		if karta > 10000:
			act 'Pay 10,000 <b>₽</b> to extend your membership and return to the dressing room':
				bdsmclub['payday'] = daystart
				bdsmclub['training_daystart'] = daystart
				money -= 10000
				gt 'bdsm_dressing'
			end
		end
	end
end

if $ARGS[0] = 'reception':
	$location_type = 'event'
	$menu_loc = 'bdsm_mansion'
	$menu_arg = 'reception'
	menu_off = 0
	*clr & cla
	gs 'stat'
	if week = 2 or week = 4:
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/anna.jpg"></center>'
		'You go to the reception, Anna is sitting at her desk filling paperwork.'
	else
		'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
		'You go to the reception, Mistress Elektra is sitting at her desk looking a little bored.'
	end
	act 'Go to the Foyer': gt 'bdsm_hallway', 'foyer'
	act 'Go to the garage': gt 'bdsm_garden', 'garage'
end


--- bdsm_mansion ---------------------------------