glife/locations/BDSM_Club.qsrc

# BDSM_Club
if $ARGS[0] = 'Hos':
	*clr & cla
	menu_off = 1
	minut += 10
	lesbiday = daystart
	BDSMClub = 1
	gs 'drugs', 'alcohol', 'wine'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/hosjaika.jpg"></center>'
	'After a few visits to your Mistress you are getting a little closer. Seeing her this evening, you catch her a little tipsy. Instead of already familiar perversions, you just sit in the kitchen and drink wine, talking about life. In conversation, the Mistress mentions a BDSM club. Sounds interesting, you and the Mistress pour glass after glass and slowly you gather details from her. Turns out, the city has an elite BDSM-club, and the missus is in it. After much persuasion, she gives you a business card – a piece of cardboard with three-dimensional logo without inscriptions, and explains how to get to the Club.'
	act 'Leave':gt 'city_residential'
end

if $ARGS[0] = 'start':
	$loc_arg = 'start'
	$loc = 'BDSM_Club'
	$location_type = 'public_outdoors'
	$menu_loc = 'BDSM_Club'
	$menu_arg = 'start'
	menu_off = 0
	*clr & cla
	minut += 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/club.jpg"></center>'
	if BDSMtaxi = 1 and BDSMmeet = 0:
		'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 in the direction. You walk to a marble tiled walkway past the neatly clipped shrubs and flower beds. An other guard meets you, and leads you into the mansion through an inconspicuous side door.'
		act 'Enter club':gt 'BDSM_Club', 'in'
	elseif BDSMClubIn = 1 and BDSMday ! daystart:
		if BDSMpayDay < daystart - 30 and $BDSMrole = 's':
			act 'Enter the club':gt 'BDSM_Club', 's_start'
		elseif BDSMpayDay < daystart - 30 and $BDSMrole = 'd':
			act 'Enter the club':gt 'BDSM_Club', 'd_start'
		else
			act 'Enter the club':BDSMday = daystart & gt 'MHall', 'foyer'
		end
	elseif BDSMmeet = 1 and BDSMday ! daystart:
		if money < 10000:
			'You go to the Club entrance but don''t have enough money, you try to negotiate a deal to pay later, but the staff, realising you are not going to pay, call security. You are walked back to the gate.'
		elseif $clothingworntype ! 'gm_uniform' or PCloStyle2 ! 1:
			'You are not wearing a maid uniform and security refuse you entry.'
		else
			if $BDSMrole = 's':
				gt 'BDSM_training', 'start'
			else
				gt 'BDSM_training', 'd_start'
			end
		end
	elseif BDSMmeet > 1 and BDSMmeet < 4 and BDSMday ! daystart:
		if BDSMpayDay >= daystart - 30 or money >= 10000:
			gt 'BDSM_training', 'start'
		else
			'You are in a Club but don''t have enough money, you try to negotiate a deal to pay later, but the staff, realising you are not going to pay, call security. You are walked back to the gate.'
		end
	end

	gs 'taxi'
	act 'Elite settlement':gt 'city_suburbs', 'start'
end

if $ARGS[0] = 'in':
	*clr & cla
	menu_off = 1
	BDSMmeet += 1
	BDSMday = daystart
	gs 'stat'
	if BDSMmeet = 1:
		*clr & cla
		minut += 10
		$BDSMrole = ''
		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, take a videocamera from the draw and points it at you and clicks the button.'
		'"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. Who do you want to be? Top or bottom?'
		'"I do not know," you shrug. "What does that mean?"'
		'"Dominant or submissive?"'
		act 'Submissive':
			*clr & cla
			minut += 10
			$BDSMrole = 's'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_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.'
			'"No sitting lower in the presence of top. Understood?"'
			'"Yes."'
			'"Wrong! Try again!"'
			'"Yes, Mistress."'
			'The woman nods. "Undress!"'
			'"But..."'
			'"Undress, now! Or I''ll knock you out!" Mistress has her hand on the table.'
			'You look to the man 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.'
			'"Listen carefully..."'
			'She explains to you, that the club costs 20,000 <b>₽</b> per 30 days access, with a 10,000 ruble registration fee. For slaves there is a means for discount, if the slave is well behaved and earns enough merits, the membership will be automatically extended.'
			'Untrained slaves are not allowed in the Mansion, you will require training. You''ll have to report to me for that, I''m going to enjoy it.'
			'"Come back when you are ready for training. Be clean, have an enema. You must own a maid outfit, so you will be wearing it. Everything clear?'
			'"But... what if I don''t have a maid outfit?..." You whisper.'
			'"Find a branch of G & M and buy one, and don''t forget to bring the first installment of 10 thousand <b>₽</b>. We are not a charitable organization, nothing is free. However, if you prove yourself as a sub, you will be able to earn some tips in private sessions. But the main thing – do not talk. We have important clients, and don''t need advertising. Everything clear?"'
			'"Clear... Mistress..."'
			'As you are leaving, you think, where will you get the money for the down payment.'
			act 'Leave':gt 'BDSM_Club', 'start'
		end
		gs 'willpower', 'misc', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Dominant (<<will_cost>> Willpower)':
				*clr & cla
				minut += 10
				$BDSMrole = 'd'
				gs 'willpower', 'misc', 'resist', 'hard'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				!'<center><img <<$set_imgh>> src="images/bdsm_club/<<$BDSMrole>><<BDSMmeet>>_2.jpg"></center>'
				'The woman sighs disappointedly.'
				'"Pity, we are short on subs."'
				'"There is a registration fee of 10,000 <b>₽</b>. You should wear an expensive or formal clothing."'
				'"That seems reasonable" You reply.'
				'"If you find a submissive and come together, then they can earn you tips."'
				'"Before you can get started, you will have some orientation under the guidance of an experienced mistress." She points at herself, "The cost of this is covered by your registration fee. If you are satisfied, sign this document."'
				'You sign the document. The man places the paper in a folder.'
				'As you are leaving, you think, where will you get the money for the registration fee and if you can persuade someone to come here as a sub.'
				act 'Leave':gt 'BDSM_Club', 'start'
			end
		else
			act 'Dominant (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
end

if $ARGS[0] = 's_start':
	*clr & cla
	$menu_loc = 'BDSM_Club'
	$menu_arg = 's_start'
	menu_off = 0
	gs 'stat'
	'<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.'
	if money > 10000:
		BDSMpayDay = daystart
		BDSMday = daystart
		money -= 10000
		'You pay for another 30 days access to the club.'
		act 'Enter the club':gt 'MHall', 'foyer'
	else
		'You cannot afford the 10,000 rubes required to extend your club membership.'
		act 'Leave':gt 'BDSM_club', 'start'
	end
end

if $ARGS[0] = 'd_start':
	*clr & cla
	$menu_loc = 'BDSM_Club'
	$menu_arg = 'd_start'
	menu_off = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/city/suburb/bdsm_club/1_1.jpg"></center>'
	'Elektra is sitting at the admissions desk and greets you informally.'
	if money > 10000:
		BDSMpayDay = daystart
		BDSMday = daystart
		money -= 10000
		'You pay for another 30 days access to the club'
		act 'Enter the club':gt 'MHall', 'foyer'
	else
		'You cannot afford the 10,000 rubes required to extend your club membership.'
		act 'Leave':gt 'BDSM_club', 'start'
	end
end

if $ARGS[0] = 'reception':
	$location_type = 'event'
	$menu_loc = 'BDSM_Club'
	$menu_arg = 'reception'
	menu_off = 0
	*clr & cla
	gs 'stat'
	'<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.'
	act 'Go to west wing hall': gt 'MHall', 'west'
	act 'Go to the garage': gt 'MRear', 'garage'
end

if $ARGS[0] = 'office':
end

--- BDSM_Club ---------------------------------