# vipclub
if $ARGS[0] = 'start':
	$sexloc = 'vipclub'
    $location_type = 'public_indoors'
	$menu_loc = 'vipclub'
	$menu_arg = 'start'
	menu_off = 0
	gs 'stat'
	gs 'stat'
	'<center><b>Vip-room</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/vipclub.jpg"></center>'
	'The VIP area is divided into several rooms without doors. As you pass by some, you see scenes so depraved that even a porn director would blush at the sight.'

	act 'Leave':gt 'club', 'inside'

	if hour >= 15 or hour <= 3:
		act 'Cocktails':
			cla
			menu_off = 1
			minut += 15
			gs 'drugs', 'alcohol', 'rum'
			pcs_horny += rand(10, 20)
			*nl
			'You enjoy a tasty cocktail, for some reason you also feel like it''s gotten hot in here.'
			act 'Continue': gt 'vipclub', 'start'
		end

		if money >= 3000:
			gs 'willpower', 'cuni', 'self', 'easy'
			if will_cost <= pcs_willpwr:
				act 'Order a woman (3,000 <b>₽</b>) (<<will_cost>> Willpower)':
					gs 'willpower', 'cuni', 'self', 'easy'
					gs 'willpower', 'pay', 'self'
					money -= 3000
					menu_off = 1
					picrand = rand(13, 17)
					girl += 1
					lesbian += 1
					gs 'dinSex', 'std_trigger'
					xgt 'lezbsex', 'var'
				end
			else
				act 'Order a woman (3,000 <b>₽</b>) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end

		if money >= 3000:
			gs 'willpower', 'sex', 'self', 'easy'
			if will_cost <= pcs_willpwr:
				act 'Order a man (3,000 <b>₽</b>) (<<will_cost>> Willpower)':
					gs 'willpower', 'sex', 'self', 'easy'
					gs 'willpower', 'pay', 'self'
					money -= 3000
					menu_off = 1
					picrand = 38
					guy += 1
					gs 'dinSex', 'std_trigger'
					xgt 'sex', 'var'
				end
			else
				act 'Order a man (3,000 <b>₽</b>) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end

		if money >= 5000:
			gs 'willpower', 'cuni', 'self'
			if will_cost <= pcs_willpwr:
				act 'Order one of each (5,000 <b>₽</b>) (<<will_cost>> Willpower)':
					cla & *clr
					gs 'willpower', 'cuni', 'self'
					gs 'willpower', 'pay', 'self'
					menu_off = 1
					girl += 1
					lesbian += 1
					money -= 5000
					gs 'dinSex', 'std_trigger_oral'

					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip1.jpg"></center>'
					'You have a wonderful idea and a couple of minutes later find yourself in a room with two staff members, one man and one woman. You have them start on the couch, with the man stting while she knelt beside of him and gave him a blowjob. You raptly watched the two professional lovers, getting more and more excited by the display.'

					gs 'arousal', 'voyeur_sex', 5
					gs 'stat'
					
					act 'Further':
						cla
						*clr
						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip2.jpg"></center>'
						'The guy turns the woman around and begins fucking her from behind. Deciding you''ve waited long enough you undress and slide your wet pussy in front of her face. She understands your unspoken commands, and immediately begins licking you in all the right places.'

						gs 'arousal', 'cuni', 10, 'dom'
						gs 'stat'
					
						act 'Further':
							cla
							*clr
							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip3.jpg"></center>'
							'She pulls out a double-sided dildo and inserts it into your greedy hole. Then she begins sucking on it, and you are surprised by how good she is at pleasuring you this way.'

							gs 'arousal', 'vaginal_dildo', 10, 'dom'
							gs 'stat'
							
							act 'Further':
								cla
								*clr
								pcs_horny = 0
								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip4.jpg"></center>'
								'Then she turns around and puts it in her pussy, you both begin grinding in an attempt to get the most pleasure possible. At the same time, she goes back to giving a blowjob to the man you hired. You have an explosive orgasm and can''t wait to see what these two will do next for you.'

								$orgasm_or = 'yes'
								gs 'arousal', 'vaginal_dildo', 10, 'dom'
								gs 'stat'
						
								act 'Further':
									cla
									*clr
									'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip5.jpg"></center>'
									'The man, feeling a bit left out at this point, turns her around again. This time however, he seems to think her ass is as lonely as he felt, and begins to fuck her there. He was apparently right, because she''s moaning louder than she had before.'

									act 'Further':
										cla
										*clr
										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip6.jpg"></center>'
										'Soon enough you see her convulsing slightly in orgasmic bliss, and the man grunts to let her know he''s cumming as well. You lick the drool off the side of your lips as you watch him cum all over her chest and into her mouth.'

										act 'Finish':gt 'vipclub', 'start'

										act 'Lick her breasts':
											cla
											*clr
											spafinloc = 12
											gs 'cum_manage'
											'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip7.jpg"></center>'
											'You lick the delicious droplets of cum from her chest and face, trying not to miss any of the tasty treat.'
											
											gs 'arousal', 'end'
											gs 'stat'

											act 'Finish':gt 'vipclub', 'start'
										end
									end
								end
							end
						end
					end
				end
			else
				act 'Order one of each (5,000 <b>₽</b>) (<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
end

--- vipclub ---------------------------------