# BDSM
$metka = $ARGS[0]
$loc = $CURLOC
$location_type = 'event'
cla
clr
*clr
gs 'stat'
'You make your way to a room where a makeshift decor has been setup to shoot a porn movie.'

act 'Begin participating in the shooting':
	cla
	*clr

	if pcs_haircol = 0:'<center><img src="images/studia/brunette_2.jpg"></center>'
	if pcs_haircol = 1:'<center><img src="images/studia/brown_2.jpg"></center>'
	if pcs_haircol = 2:'<center><img src="images/studia/redhead_2.jpg"></center>'
	if pcs_haircol = 3:'<center><img src="images/studia/blonde_2.jpg"></center>'

	'You started filming a scene with two actors'

	act 'Shoot a scene with blowjob':
			cla
			*clr
			guy += 2
			stat['bj'] += 2
			gang += 1

			if pcs_haircol = 0:'<center><img src="images/studia/brunette_3.jpg"></center>'
			if pcs_haircol = 1:'<center><img src="images/studia/brown_3.jpg"></center>'
			if pcs_haircol = 2:'<center><img src="images/studia/redhead_3.jpg"></center>'
			if pcs_haircol = 3:'<center><img src="images/studia/blonde_3.jpg"></center>'

			'You purse your lips and start sucking on the first cock while vigorously pistoning the other shaft with your hand. You alternate sucking and pistoning each cock with gusto, going as far as trying to swallow both simultaneously all while making eye contact with the lense in the hope enticing your viewers.'

			act 'Get into doggy-style':
				cla
				*clr
				stat['anal'] += 1
				pcs_ass += 1

				if pcs_haircol = 0:'<center><img src="images/studia/brunette_4.jpg"></center>'
				if pcs_haircol = 1:'<center><img src="images/studia/brown_4.jpg"></center>'
				if pcs_haircol = 2:'<center><img src="images/studia/redhead_4.jpg"></center>'
				if pcs_haircol = 3:'<center><img src="images/studia/blonde_4.jpg"></center>'

				'One of the actors bends on all fours and unceremoniously jams his rod up your ass. He then proceeds to pound your butt into submission while you continue sucking away on your 2nd costars juicy man meat...'

				act 'Sit on top...':
					cla
					*clr

					if pcs_haircol = 0:'<center><img src="images/studia/brunette_5.jpg"></center>'
					if pcs_haircol = 1:'<center><img src="images/studia/brown_5.jpg"></center>'
					if pcs_haircol = 2:'<center><img src="images/studia/redhead_5.jpg"></center>'
					if pcs_haircol = 3:'<center><img src="images/studia/blonde_5.jpg"></center>'

				'You change positions. Your fellow porn actor lies down and you proceed to impale your anal cavity on his rigid rod. The third actor shoves his cock in your face and you immediately return to your hooverish ways...'

				act 'Continue movements':
					cla
					*clr

					if pcs_haircol = 0:'<center><img src="images/studia/brunette_6.jpg"></center>'
					if pcs_haircol = 1:'<center><img src="images/studia/brown_6.jpg"></center>'
					if pcs_haircol = 2:'<center><img src="images/studia/redhead_6.jpg"></center>'
					if pcs_haircol = 3:'<center><img src="images/studia/blonde_6.jpg"></center>'

					'Your male costars exchange roles fucking your face and ass. You slather away unpreoccupied by the taste of your own ass.'

					act 'Prepare for double penetration':
						cla
						*clr
						stat['vaginal'] += 1
						pcs_vag += 1

						if pcs_haircol = 0:'<center><img src="images/studia/brunette_7.jpg"></center>'
						if pcs_haircol = 1:'<center><img src="images/studia/brown_7.jpg"></center>'
						if pcs_haircol = 2:'<center><img src="images/studia/redhead_7.jpg"></center>'
						if pcs_haircol = 3:'<center><img src="images/studia/blonde_7.jpg"></center>'

						'Your juicy pussy is being jackhammered to heaven when you feel something large probing your backdoor. Your ass tingles with arousal as it stretches to accommodate your new invader.-'

						act 'Enjoy':
							cla
							*clr

							if pcs_haircol = 0:'<center><img src="images/studia/brunette_8.jpg"></center>'
							if pcs_haircol = 1:'<center><img src="images/studia/brown_8.jpg"></center>'
							if pcs_haircol = 2:'<center><img src="images/studia/redhead_8.jpg"></center>'
							if pcs_haircol = 3:'<center><img src="images/studia/blonde_8.jpg"></center>'

							'You let yourself be manhandled and stretched by the two brutes fucking you into pleasure numbing submission with their large pleasure rods. They roll you over and spread your legs farther apart giving the camera an excellent view of dripping quim and orgasming rosebud.'

							act 'Time to finish...':
								cla
								*clr
								facial += 1
								swallow += 1

								if pcs_haircol = 0:'<center><img src="images/studia/brunette_9.jpg"></center>'
								if pcs_haircol = 1:'<center><img src="images/studia/brown_9.jpg"></center>'
								if pcs_haircol = 2:'<center><img src="images/studia/redhead_9.jpg"></center>'
								if pcs_haircol = 3:'<center><img src="images/studia/blonde_9.jpg"></center>'

								'Reaching their limits the men pull out of you in earnest. You quickly kneel and open your mouth licking your lips as you await your favorite tasty treat. The actors jackoff furiously as jets of hot cum start raining down on your face. You must have worked them pretty good as your face is rapidly drenched in cock juice that starts to drip down your chin and on to your chest!'

								act 'Get paid':
									cla
									clr
									*clr
									minut = minut + 480
									film = film + 1
									BDSMfilm = BDSMfilm + 1
									money = money + pcs_apprnc * 125
									actr = 0
									gs 'stat'

									'<center><img src="images/studia/dvd-disс.jpg"></center>'
									'You spent 9 hours for the filming'
									'and received <<pcs_apprnc * 125>> <b>₽</b> in cash'

									act 'Leave the studio':gt 'down'
								end
							end
						end
					end
				end
			end
		end
	end
end

--- BDSM ---------------------------------

