# mod_wlife_okoro_sex

if $ARGS[0] = 'leon_hotel_cuni':
	*clr & cla
	minut += 4
	wl_temp = 1
	gs 'boystat', 'A909'
	$orgasm_or = 'custom'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/partners/french/leon/hotel/start_1.mp4"></video></center>'	
	'Waiting for him to undress would take too much time, your cunt needs attention now. You '+iif(CloPantsShortness = 0, 'pull up your skirt', 'pull down your pants')+' and sit down on a small table. "<i>Magnifique</i>," he says as he steps closer staring at the moistures glistening between your legs.'
	'You snap your finger to get his attention. "Lick it," you order him with a lasciviously tone. For a moment he looks confused, but when you stick out your tongue and wiggle it around a bit he grins and kneels between your legs.'
	'The first touch of his tongue on your sensitive clit is like an electric shock and your fingers claw around the edge of the table.'
	$orgasm_txt = 'You never came so hard and fast in your life. It can''t be a minute or two before you throw your head back, nearly hitting the wall behind you, pushing your hips forward against his hungry mouth and letting out a scream of pleasure.'
	gs 'arousal', 'cuni', -6, 'prostitution'
	gs 'stat'
		
	act 'Return the favor': gt 'mod_wlife_okoro_sex', 'leon_hotel_bj_0'	
end

if $ARGS[0] = 'leon_hotel_bj_0':
	*clr & cla
	minut += 4
	gs 'boystat', 'A909'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/partners/french/leon/hotel/start_2.mp4"></video></center>'	
	'You push him into a nearby chair and drop down between his legs without explaining what you''re going to do, but there''s no need for it anyway. He understands perfectly and the second he lifts his ass a centimeter of the chair you grab his belt and pull his pants down, but not all the way down. His cock stops you as it draws your gaze, when it jumps to attention. Hard, big and thick it pulls your mouth towards it like a magnet. You lick around the sensitive tip before you take nearly half of it into your mouth and eagerly start to bob your head up and down.'
	'After two minutes of slobbering over his cock, you pull back for a moment to rest your jaw. "Like it?" you grin and stroke his cock as you ponder what you should do next. He takes the change to shift position a bit and for a second your eyes spot the dark asshole below his balls'+iif($wl_fetish['rimjob'] = 'yes', '. It looks really inviting and maybe he would like it if you use your tongue to toy with it a bit.', iif($wl_fetish['rimjob'] = 'blocked', ', but you would never do anything with it. Especially not with your tongue.', '. It''s not as if it''s something you like to do, but maybe he would like it if you give him a rimjob.'))
	gs 'arousal', 'bj', -6, 'prostitution'
	gs 'stat'
		
	act 'Continue the blowjob': gt 'mod_wlife_okoro_sex', 'leon_hotel_bj_1'
				
	gs 'mod_wlife_functions', 'will_rimming', 'self', iif($wl_fetish['rimjob'] = 'yes', 'easy', 'hard')
	if $wl_fetish['rimjob'] ! 'blocked' and $wl_fetish['rimjob'] ! '' and will_cost <= pcs_willpwr:
		act 'Lick his ass (<<will_cost>> Willpower)':
			gs 'willpower', 'pay', 'self'
			gt 'mod_wlife_okoro_sex', 'leon_hotel_rj'
		end
	elseif $wl_fetish['rimjob'] ! 'blocked' and $wl_fetish['rimjob'] ! '' and will_cost > pcs_willpwr:
		act 'Lick his ass (<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 $ARGS[0] = 'leon_hotel_bj_1':
	*clr & cla
	minut += 4
	gs 'arousal', 'bj', -6, 'prostitution', 'deepthroat'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/partners/french/leon/hotel/start_bj.mp4"></video></center>'
	iif($wl_fetish['rimjob'] ! 'blocked' and $wl_fetish['rimjob'] ! '', 'There won''t be any asslicking today, you decide and discard the idea. Instead you', 'You')+' help him take the rest of his clothes of and return to the task at hand.'
	'"Oh... <<$wl_names[''okoro'']>>," Léon whispers with his eyes closed, clearly enjoining the way you work his cock with your mouth. It''s not an easy task. The size, especially the girth, stretches your mouth and your jaw and throat soon start to hurt, when you try to force the whole length into your mouth. You barely manage it a few times, holding it as deep inside as possible. Only when tears start to form in your eyes while huge amounts of saliva run down his cock, you come up for air and switch back to a more doable blowjob.'
	'You continue for a few minutes until Léon suddenly says, "stop," before lifting you off the ground as if you are light as a feather and carries you towards the bed.'
	
	act 'Let him take control': gt 'mod_wlife_okoro_sex', 'leon_hotel_pussy'
end

if $ARGS[0] = 'leon_hotel_rj':
	*clr & cla
	minut += 4
	gs 'arousal', 'rimming_give', iif($wl_fetish['rimjob'] = 'yes', -6, -1), 'prostitution'
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/partners/french/leon/hotel/start_rj.mp4"></video></center>'
	'You signal to him to move his legs up and after a moment hesitation he does so and your target is clearly visible. You don''t wait and move forward'+iif($wl_fetish['rimjob'] = 'yes', ' eagerly', ', even if it''s not something you like to do')+'. Your tongue connects with the sensitive flesh of his anus and teases out of Léon a satisfied moan. You look up to him with your mouth buried between his asscheeks and '+iif($wl_fetish['rimjob'] = 'yes', 'force your tongue against his asshole.', 'continue licking his taboo flesh.')
	'You continue for a few minutes until Léon suddenly says, "stop," before lifting you off the ground as if you are light as a feather and carries you towards the bed.'
	
	act 'Let him take control': gt 'mod_wlife_okoro_sex', 'leon_hotel_pussy'
end

if $ARGS[0] = 'leon_hotel_pussy':
	*clr & cla
	minut += 6
	if pcs_horny < 50: pcs_horny = 50
	$orgasm_or = 'custom'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/partners/french/leon/hotel/end_0.mp4"></video></center>'
	'"Fuck," you shout and your eyes grow wide as he plunges his cock in one swift move as deep as he possibly into your dripping cunt. A jolt of pain shoots through your body, but it''s quickly replaced with an intense feeling of pleasure. What he does in the next few minutes drives you nearly insane. He doesn''t fuck you hard like the last time. Instead he uses long slow strokes. First, his cock fills you to the brim, before he slowly pulls out until only the tip is barely inside you. But you only experience this agonizing feeling of emptiness for half a second before he slowly pushes his meat back inside.'
	$orgasm_txt = 'You don''t know how long he fucks you in this teasing kind of way, but you never complain. Instead you moan like a bitch in heat, when he is fully inside you and squeal in frustration, when he isn''t. Still you manage to orgasm and the slow buildup makes it even more intense. You completely lose control of your faculties and your mind goes blank.'
	
	gs 'arousal', 'vaginal', -12, 'prostitution'
	gs 'stat'
	
	act 'Continue':
		*clr & cla
		minut += 8
		cumnostd = 1
		$orgasm_or = 'custom'
		wl_stats['unprotected'] += 1
		if pcs_horny < 100: pcs_horny = 100
		gs 'cum_call', 'vaginal', 'A909'
		'<center><video autoplay loop src="mod/wlife/images/prostitution/partners/french/leon/hotel/end_1.mp4"></video></center>'
		'He''s still fucking you, when your senses return, but he somehow switched positions. How you managed to keep yourself in the cowgirl position is beyond your comprehension, because the last few seconds... or was it minutes... are a total blur. It''s as if he manages to make you cum and then kept you in your orgasmic state with faster and harder strokes and already you feel another orgasm approaching fast.'
		$orgasm_txt = '"Fuck, what are you doing to me," you blurt out in Russian as your eyes roll upwards and your consciousness is again pushed aside by primal pleasure as you cum for the '+iif(wl_temp = 1, 'third', 'second')+' time. Your vaginal muscles contract around his dick and what''s left of your consciousness registers his sperm shooting deep inside your womb. "Yes, cum inside me, fill me up," you scream deliriously.'
		gs 'arousal', 'vaginal', -2, 'prostitution'
		gs 'arousal', 'end'
		gs 'stat'
				
		act 'Freshen up and get dressed':
			*clr & cla
			minut += 10
			money += 2000
			cumspclnt = 20
			gs 'cum_cleanup'
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/objects/box.jpg"></center>'
			'"<<$wl_names[''okoro'']>>," Léon says, when you leave the bathroom. He takes your hand and softly pulls you towards a white box that sits on the bed. "<i>Un petit cadeau</i>," he says in French and adds in horrible English. "A gift." Inside is a dress and it''s not what a loving husband would give his wife. This is slutty and definitively something you could wear, when you work at the gas station.'
			'"Thanks," you say as you take it out of the box. Only now you see the 2.000 <b>₽</b> that were lying on top of it. The money falls to the ground, but Léon quickly picks it up and pushes it inside your pockets. "Thanks," you say again as you smile at him. He then points at the dress, then at you several times until you understand, what he wants. He wants for you to try it on. You see no reason why not and oblige. After modeling the outfit for him, you say goodbye to him and leave the hotel.'
			
			*nl
			'<center>Click on the outfit he has bought for you.</center>.' 
			i = 0
			j = 0
			
			$wl_shop = '<center><table><tr>'
			
			:wl_jump_okorooutfit
			i += 1
								
			gs 'clothing_attributes', 'average', i
			if i < 523 and (average[i] = 1 or CloStyle ! 4 or CloBimbo ! 0 or CloInhibit > pcs_inhib): 
				jump 'wl_jump_okorooutfit'
			elseif i < 523:
				j += 1
				$wl_shop += '<td><a href="exec: average[<<i>>] = 1 & averageH[<<i>>] = 50 & averageB[<<i>>] = pcs_hips & gt ''mod_wlife_okoro_sex'', ''hotel_leave''"><img title="Click on the picture to choose this outfit." height="250" src="images/pc/clothing/2average/<<i>>.jpg"></a></td>'
				if j = 4: j = 0 & $wl_shop += '</tr><tr>'
				jump 'wl_jump_okorooutfit'
			elseif $wl_shop = '<center><table><tr>':
				money += 2000
				gs 'stat'
				'Developer Note: It seems you have run into a problem, it could be that you already own all possible prostitution outfits that are available from this shop and Léon couldn''t have bought you one. You get an additional 2000 <b>₽</b>.'
				act 'Look for a pair of high heels': gt 'mod_wlife_okoro_sex', 'hotel_leave'	
			else
				$wl_shop += '</tr></table></center>'
				$wl_shop += '<br>Click on the outfit he bought you.'
				$wl_shop
			end
		end
	end
end

if $ARGS[0] = 'hotel_leave':
	if home_owned[6] = 1 and wl_status['hotel'] = 1 and hotelroom = 1:
		gt 'mod_wlife_hotelroom', 'room'
	else
		gt 'pav_train'
	end
end

--- mod_wlife_okoro_sex ---------------------------------