glife/locations/BelSex

# BelSex

if $ARGS[0] = '' or $ARGS[0] = 'sex':
	CLOSE ALL
	gs'stat'
	dick = npc_dick['A113']
	gs 'boyStat', 113
	$boydesc = $npc_usedname['A113']
	silavag = npc_sexskill['A113']
	if sashaBeliSex = 0:sashaBeliSex = 1 & guy += 1

	if BelSexTime = 0:
		belact = rand(1,3)
		'You suck his tongue when he kisses you, doing your best to please him in any way you can... because who knows what he''ll do if you don''t. He crudely paws your ass, grabbing your ass cheeks and slapping them every which way.'
		
		gs 'arousal', 'kiss', 15, 'sub', 'prostitution'
		gs 'arousal', 'foreplay', 15, 'sub', 'prostitution'
		gs 'stat'
		
		if rand(1,100) <= 70:
			'Vadim puts his large hands on your shoulders and forces you downwards. Even though you''re trying to cooperate and drop to your knees as soon as you realize what he wants, he''s still kind of rough with you while forcing you down. "Start sucking, <<$pcs_nickname>>."'
			act'Get down on your knees':BelSexTime = 1 & gt 'BelSex'
		else
			'Vadim tugs at your clothes, indicating that he wants them off you. You quickly obey and assist him in taking your clothes off. He nods approvingly, definitely liking what he sees. "Very nice, girl... but you''d look even better with my dick in you."'
			act'Kiss him again':BelSexTime = 10 & gt 'BelSex'
			act'Get down on your knees':BelSexTime = 1 & gt 'BelSex'
		end
	end

	if BelSexTime = 1:
		bj_temp += 1
		belact -= 1
		mrapic = rand(0,12)
		!'<<mrapic>>'
		'<center><img src="images/shared/sex/blowjob/bj<<mrapic>>.gif"></center>'
		'You take Vadim''s <<dick>> cm cock in your mouth and begin to suck him off, feeling him push it further and further down your throat.'

		gs 'arousal', 'bj', 15, 'sub', 'prostitution'
		gs 'stat'
		
		if belact <= 0:
			'<<$boydesc>> groans, and firms his grip on your hair.'
			act'Open your mouth':
				cls
				sexpartkno = 1
				spafinloc = 12
				sexvolume = 5
				gs 'cum_manage'
				sexpartkno = 1
				spafinloc = 11
				sexvolume = 35
				gs 'cum_manage'
				gs'stat'
				mrapic=rand(0,10)
				!'<<mrapic>>'
				'<center><img src="images/shared/sex/cum/mouth/cum<<mrapic>>.gif"></center>'
				'Vadim indicates that he''s going to reach his orgasm soon: "Open your mouth, <<$pcs_nickname>>. You''re taking it in your mouth."'
				'You meekly nod: "Yes Mr. Bely" and do as he says, opening your mouth as wide as you can. He jerks himself off over your face, and you soon feel his warm jets of sperm landing on your cheeks. He adjusts his aim a bit so some of it ends up in your mouth as well. You decide to just sit there with your eyes closed and your mouth open until he tells you otherwise, doing your best to ignore the taste of it.'
				gs 'arousal', 'end'
				gs 'stat'
				act'Get up':BelSexTime = 1000 & gt 'BelSex'
			end
		end
		if belact > 0:
			if rand(1,100) <= 30:
				 'Vadim puts his large hands on your shoulders and forces you downwards. Even though you''re trying to cooperate and drop to your knees as soon as you realize what he wants, he''s still kind of rough with you while forcing you down. "Start sucking, <<$pcs_nickname>>."'
				act'Suck him off':BelSexTime = 1 & gt 'BelSex'
			else
				'Vadim paws at your ass for a second before telling you: "Get on your back, <<$pcs_nickname>>. I''m going to fill you up."'
				act'Lie down on your back':BelSexTime = 10 & gt 'BelSex'
			end 
		end
	end

	if BelSexTime = 10:
		belact -= 1
		sex_temp += 1
		mrapic = rand(0,7)
		!'<<mrapic>>'
		'<center><img src="images/characters/pavlovsk/vadim/sex/mitka<<mrapic>>.gif"></center>'
		''
		dynamic $sexstart4
		
		gs 'arousal', 'vaginal', 15, 'sub', 'prostitution'
		gs 'stat'
		
		if belact <= 0:
			dynamic $sexcum
			act'Up':BelSexTime = 1000 & gt 'BelSex'
		end
		if belact > 0:
			tiperand = rand(1,100)
			if tiperand <= 30:
				'Vadim puts his large hands on your shoulders and forces you downwards. Even though you''re trying to cooperate and drop to your knees as soon as you realize what he wants, he''s still kind of rough with you while forcing you down. "Start sucking, <<$pcs_nickname>>."'
				act'Take him in your mouth':BelSexTime = 1&gt 'BelSex'
			elseif tiperand <= 90:
				'Vadim wipes the sweat off his forehead, clearly worked up from fucking you. Nevertheless, he''s not done with you and tells you to spread your legs further for him.'
				act'Spread your legs':BelSexTime = 10 & gt 'BelSex'
			else
				'Vadim tells you to get on your hands and knees next: "It''s your asshole next, <<$pcs_nickname>>. Assume the position."'
				act'Get fucked from behind':BelSexTime = 100 & gt 'BelSex'
			end 
		end
	end

	if BelSexTime = 100:
		belact -= 1
		anal_temp += 1
		mrapic = rand(0,12)
		!'<<mrapic>>'
		'<center><img src="images/shared/sex/anal/doggy/anal<<mrapic>>.gif"></center>'
		''
		dynamic $analsex2
		
		gs 'arousal', 'anal', 15, 'sub', 'prostitution'
		gs 'stat'
		
		if belact <= 0:
			spafinloc = 3
			gs 'cum_manage'
			'You can tell <<$boydesc>> is close to his orgasm, and seconds later he firmly grabs your hips. His movements become more erratic, and you feel his cock spasming inside you as he shoots his cum deep inside your asshole. The cum feels kind of warm inside you, and it slowly dribbles out once he pulls his cock out of you.'
			
			act'Get up':BelSexTime = 1000 & gt 'BelSex'
		end
		if belact > 0:
			tiperand = rand(1,100)
			if tiperand <= 30:
				'Vadim puts his large hands on your shoulders and forces you downwards. Even though you''re trying to cooperate and drop to your knees as soon as you realize what he wants, he''s still kind of rough with you while forcing you down. "Start sucking, <<$pcs_nickname>>."'
				act'Suck him off':BelSexTime = 1 & gt 'BelSex'
			elseif tiperand <= 90:
				'Vadim paws at your ass for a second before telling you: "Get on your back, <<$pcs_nickname>>. I''m going to fill you up."'
				act'Spread your legs':BelSexTime = 10 & gt 'BelSex'
			else
				'Vadim is giving you a rough asspounding, and he wipes the sweat from his forehead while he catches his breath. When you think he''s done and you try to get up, he pushes you back down: "I''m not done with your ass yet, <<$pcs_nickname>>. Stay down."'
				act'Get fucked from behind':BelSexTime = 100 & gt 'BelSex'
			end  
		end
	end

	if BelSexTime = 1000:
		belact -= 1
		if sex_temp > 0:stat['vaginal'] += 1 & sex_temp = 0
		if bj_temp > 0:bj_temp = 0 & stat['bj'] += 1
		if anal_temp > 0:anal_temp = 0 & stat['anal'] += 1
		'When Vadim is done with you, you get up and take a quick shower to wash his cum off your body.'
		act 'Take a 15 minute shower':
			cls
			dynamic $showerdin
			minut += 15
			pcs_horny = pcs_horny + 1
			pcs_hairbsh = 1
			pcs_makeup = 1
			if frost > 0:frost = 0
			gs'stat'
			'<center><img src="images/shared/home/bathroom/dush.gif"></center>'
			'You get into the nice and hot water stream of the shower, and lather your body up with a soapy sponge. Taking extra measures to make sure you wash all of his cum off your body, you then shampoo up your hair and rinse that out as well. You''re squeaky clean now.'
			act 'Get out of the bathroom':
				cls
				BelSexTime = 0
				money += 500
				gs'stat'
				'<<$boydesc>> gives you 500 <b>₽</b> and compliments you on a job well done. He then escorts you to the exit.'
				if $clothingworntype = 'swimwear': gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
				
				gs 'arousal', 'end'
				gs 'stat'
			
				act'Exit to the streets of Pavlovsk':gt'pavResidential'
			end
		end
	end
	gs'stat'
end

if $ARGS[0] = 'outing':
	daybelisex=daystart
	'You see the by now familiar old Mitsubishi Pajero driving through the streets, with Vadim Bely and his gang. Your heart skips a beat as you notice one of them pointing at you, and soon they pull over.'
	'The tinted window slides down, and you find yourself staring directly into Vadim''s face. "Slut, get in. It''s time you work off your debts."'
	act'Get into the jeep':
		cls
		minut+=5
		gs'stat'
		'You open the door and take a seat in the back, as Vadim drives through the city.'
		if month>=4 and month<=8:
			tiperand=rand(0,1)
			if tiperand=0:
				'As the car leaves the city and goes off-road at some point, one of the more silent criminals feels the need to explain: "We have a little picnic planned for today. We know just the place... nice and quiet. You''ll be able to entertain us there without interruptions."'
				'The way he says it puts a shiver down your spine.'
				'Finally, a few minutes after the car has left the main roads, you stop somewhere. You have absolutely no idea where you are. The criminals get out of the car and Vadim does the same, telling you to get out and follow them.'
				act'Get out of the car':gt'belpicknick'
			end
			if tiperand=1:
				'The car pulls over in the driveway of a large mansion, surrounded by a high metal fence. Vadim says a few words into a microphone and the gates swing open. He drives the car to the entrance of the house, as the gates close automatically behind you. He then tells you to follow them, as the men get out of the car.'
				act'Do as they say':gt'belgang'
			end
		else
			'The car pulls over in the driveway of a large mansion, surrounded by a high metal fence. Vadim says a few words into a microphone and the gates swing open. He drives the car to the entrance of the house, as the gates close automatically behind you. He then tells you to follow them, as the men get out of the car.'
			act'Do as they say':gt'belgang'
		end
	end
end

if $ARGS[0] = 'drive':
	daybelisex=daystart
	'You see the by now familiar old Mitsubishi Pajero driving through the streets, with Vadim Bely behind the wheel. He pulls over next to you, and as the window rolls down you see Vadim''s smug face.'
	'"<<$pcs_nickname>>, get in the car. We''re going for a drive." It looks like he won''t take no for an answer.'
	act'Get into the jeep':
		cls
		minut+=5
		gs'stat'
		'Afraid of what might happen if you decline, you meekly nod: "Yes mister Bely", and enter the jeep. The next few minutes you drive around town seemingly at random, and you''re not sure where he''s taking you.'
		tiperand=rand(1,100)
		if tiperand<=30:
			'As Vadim drives the car through the streets of Pavlovsk, he unbuttons his pants and pulls out his hard cock.
			"Go on <<$pcs_nickname>>, start sucking. I don''t have much time, make it quick."'
			act'Suck his cock while he drives':
				cls
				gs 'boyStat', 113
				$boydesc = $npc_usedname['A113']
				spafinloc = 12
				sexpartkno = 1
				gs 'cum_manage'
				swallow+=1
				money+=500
				gs'stat'
				mrapic=rand(0,5)
				!'<<mrapic>>'
				'<center><img src="images/shared/sex/blowjob/carbj<<mrapic>>.gif"></center>'
				'You shift your hips a bit and lean over, taking the head of his dick in your mouth and begin to suck obediently. The fat man doesn''t last long at all, and within minutes you feel his nasty cum squirting into your mouth. Since you''re in his car you can''t just spit it out somewhere, and see no other option but to swallow it. When he recovers, he pulls over and shoves you out onto the street. Throwing 500 <b>₽</b> on top of your prone body, he then races off as you quickly get up and pocket the money, hoping no one saw you get kicked out of the car.'
				
				gs 'arousal', 'bj', 5, 'prostitution'
				gs 'arousal', 'end'
				gs 'stat'
				
				act'Dust yourself off':gt 'pavResidential'
			end
		else
			'Within minutes, you approach a five-storey apartment. Vadim parks the car in front of it and says: "Get out and follow me", not waiting for a response.'
			act'Look around':
				cls
				minut+=5
				gs'stat'
				'The apartment is actually in decent shape. The minimal amount of furniture and decorations don''t make it look very hospitable though, and you assume this might just be one of the places Vadim rented for business or pleasure, not for living in. Noticing you''re spending too much time looking around and aren''t following him swiftly enough, he grabs you by your hair and pulls your face to his, roughly shoving his tongue in your mouth. You can smell the tabacco on his breath, and do your best to ignore the taste as he kisses you.'
				act'Kiss him':gt 'BelSex', 'sex'
			end
		end
	end
end

if $ARGS[0] = 'pay':
	'As you walk through Pavlovsk, a shabby Mitsubishi Pajero stops near you. Vadim Bely steps out, along with several of his henchmen. He gives you a smile that you know is 100% fake, and behaves amicably while he asks: "<<$pcs_nickname>>, well well! How are you? I hope you have good news for me?"'
	if money>=belgangPay:
		act'Give him the money':
			cls
			gs'stat'
			'You have the money, and give it over to Vadim while his henchmen keep watch. Again, that awkward smile. "It''s all there, right? I would hate to have to come back for the rest."'
			'You nod at him and reassure him: "It''s all there, mister Bely. You can count it if you want."'
         	'He takes a moment to count it, and nods approvingly. "Very good, it''s the full amount. Please doing business, <<$pcs_nickname>>. Take care of yourself."'
			'He signals his crew to get back in the jeep. You barely manage to dodge the spray of pebbles and dirt the spinning tires spew your way, as they drive off as fast as they can, probably on their way to another ''business appointment''.'
			belgangQW=9999
			money-=belgangPay
			gs'stat'
			act 'Continue':gt 'pavResidential'
		end
	else
		act'You don''t have the money':
			cls
			gs'stat'
			'You have tears in your eyes as you look down at your shoes, not daring to look him in the eye. "I''m... I''m sorry, mister Bely. I simply don''t have that kind of money. If you can give me some more time, I wi-"'
			'He frowns, he abruptly cuts you off. You can see the disapproval in his eyes when you glance up. "That is very unfortunate <<$pcs_nickname>>, I had such high hopes for you", he says. "I guess we will have to find an alternative way for you to pay off your debts."'
			'He then directs his attention to two of his henchmen: "She''s coming with us."'
			'Too scared to resist, you simply let it happen when two men grab you by your arms and pull you into the Mitsubishi. Vadim gets back behind the wheel and within minutes, you''re out of town. You notice you''re being taken to the city, and you wonder what plans they have with you there.'
			act'In the city...':
				cls
				gs'stat'
				minut+=60
				belgangQW=10000
				workDolg=belgangPay
				workDolg -= money
				money = 0
				belgangPay=0
				'The car pulls over in front of the sauna. After one of the criminals made sure the coast is clear, two of the men pull you out of the car and escort you to a room inside the sauna building. Vadim follows to them, and asks to be left alone with you for a minute. After the other guys leave the room, he explains: "Until you pay off your debts, we own you. You will live here and work here, until you pay off your debts. Any expenses you incur while you are here will be added to your debt. Understood?"'
				'Silence fills the room as he waits for you to acknowledge what he just said. Mortified about what might happen if you don''t, you nod. He decides to paint the picture anyway: "If you try to escape or refuse to work, we''ll put a bullet in your head, chop you up and bury you in the woods in pieces. And that would be a waste, with a pretty face such as yours." He pinches your cheeks and then slaps your face; not hard enough to be painful, but it certainly drives the message home. You can tell he''s dead serious.'
				'After looking you in the eyes for a few more seconds to make sure you get the message, he turns around and leaves. You are all alone now.'
				act 'Look around':gt'saunaroom'
			end	
		end
	end
end

--- BelSex ---------------------------------