CherryPop/locations/mod_cherrypop_escorts.qsrc

# mod_cherrypop_escorts

if $ARGS[0] = 'sign':
	'<h2><font color=#e44563>CherryPop agency</font></h2>'
	''
	'<h3>Escorts - sign up form</h3>'
	''
	'You fill in you data: age, weight, measurements, breast size, feet size, eye colour, hair colour, hair length.. almost complete description of yourself.'
	'Now is time to take some pictures and upload them.'
	''
		if stage = 1:
			prudeLvl = 1
			$epic1 = '<img height="250" src="images\pc\activities\phone\selfies\bedroom\clothed\25.jpg" /> <img height="250" src="images\pc\activities\phone\selfies\livingroom\clothed\16.jpg" /> '
			$epic1

		elseif stage = 2:
			'<i>Showing more skin can surely bring me some interest!</i>'
			''
			prudeLvl = 2
			$epic2 = '<img src="images\pc\activities\phone\selfies\livingroom\underwear\8.jpg" height="250" /> <img src="images\pc\activities\phone\selfies\bedroom\underwear\6.jpg" height="250" /> '
			$epic2

		elseif stage = 3:
			'<i>Those guys will surely love my titties!</i>'
			''
			prudeLvl = 3
			$epic3 = '<img src="images\pc\activities\phone\selfies\bedroom\titflash\10.jpg" height="250" /> <img src="images\pc\activities\phone\selfies\bedroom\titflash\4.jpg" height="250" /> '
			$epic3

		elseif stage = 4:	
			'<i>The more they see the more they will want me!</i>'
			''
			prudeLvl = 4
			$epic4 = '<img height="250" src="images\pc\activities\phone\selfies\bedroom\nude\11.jpg" /> <img height="250" src="images\pc\activities\phone\selfies\livingroom\assflash\2.jpg" /> '
			$epic4

		elseif stage = 5:	
			'You decide the best approach is to be as provocative as possible.'
			''
			prudeLvl = 5
			$epic5 = '<img height="250" src="images\pc\activities\phone\selfies\bedroom\nude\3.jpg" /> <img height="250" src="images\pc\activities\phone\selfies\bedroom\pussyflash\10.jpg" /> '
			$epic5

		end

	if stage = 0: act 'Take clothed photos':stage = 1 && gt 'mod_cherrypop_escorts', 'sign'
	if stage = 1: act 'Take photos in underwear':stage = 2 && gt 'mod_cherrypop_escorts', 'sign'
	if stage = 2: act 'Take photos of your breasts':stage = 3 && gt 'mod_cherrypop_escorts', 'sign'
	if stage = 3: act 'Take photos of your labia and asscheeks':stage = 4 && gt 'mod_cherrypop_escorts', 'sign'
	if stage = 4: act 'Take photos of your pussy and ass':stage = 5 && gt 'mod_cherrypop_escorts', 'sign'
	if stage > 0: act 'That''s good enough':stage = 0 && gt 'mod_cherrypop_escorts', 'sign:done'
end

if $ARGS[0] = 'sign:done':
	baseDeviantRisk = (pcs_apprnc * 60 + pcs_horny * 5 + pcs_health * 2 + pcs_mood * 2 + bimbolevel * 2000 + prudeLvl * 3000) / 375
	eprofile = 1

	'<b>Form sent!</b>'
	''
	'Your form has been sent and account has been created for you.'
	'You can check it out on the CherryEscort <a href="exec:gt ''mod_cherrypop_escorts'', ''eprofile''">profile</a> page!'

	act 'CherryEscort Profile':gt 'mod_cherrypop_escorts', 'eprofile'
	act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
end

if $ARGS[0] = 'eprofile':
	eclientChance = rand (0, 100)
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	'<h2><font color=#e44563>CherryPop agency</font></h2>'
	'presents..:'
	'<b>Escort <<$pcs_firstname>> <<$pcs_lastname>></b>'
	if cherrypopDeflowered = 1:'<i><<$pcs_firstname>> is also one of our Deflowered Virgins - you missed your chance guys!</i>'
	'<left><img height=250 src="<<FUNC(''$face_image'')>>"></left>'
	''
	if age < 20:'She is <<age>> year old teenage girl eager to be your companion!'
	if age >= 20:'She is <<age>> year old woman eager to be your companion!'
	'<<$pcs_firstname>> has <<pcs_weight>> kg, her measurements are <<pcs_bust>>-<<pcs_waist>>-<<pcs_hips>> and her breasts are considered EU <<$titsize>>.'
	''
	if showePhotos = 0:'Photos of <<$pcs_firstname>> (<a href="exec:showePhotos = 1 && gt ''mod_cherrypop_escorts'', ''eprofile''">show</a>/hide):'
	if showePhotos = 1:
		'Photos of <<$pcs_firstname>> (show/<a href="exec:showePhotos = 0 && gt ''mod_cherrypop_escorts'', ''eprofile''">hide</a>):'
		''
		$epic1 + $epic2 + $epic3 + $epic4 + $epic5 + $epic6
	end
	''
	if showeStats = 0:'<<$pcs_firstname>>s statistics (<a href="exec:showeStats = 1 && gt ''mod_cherrypop_escorts'', ''eprofile''">show</a>/hide):'
	if showeStats = 1:
		'Photos of <<$pcs_firstname>> (show/<a href="exec:showeStats = 0 && gt ''mod_cherrypop_escorts'', ''eprofile''">hide</a>):'
		''
		'Number of clients met: '+eclients
		'Cumulated reward: '+epayCum
		if eclients > 0:'Average reward per client: '+(epayCum/eclients)
	end


	act 'Check for potential clients':gt 'mod_cherrypop_escorts', 'checkclient'
	if epay > 0:act 'Collect your pay':gt 'mod_cherrypop_escorts', 'epay'
	act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
end

if $ARGS[0] = 'epay':
	cla
	clr
	*clr
	minut += 5
	elektro += 1
	gs 'stat'

	'You contact the agency and they immediately send the money to your bank account.'
	karta += epay
	epay = 0
	act 'Go back to your profile':gt 'mod_cherrypop_escorts', 'eprofile'
end

if $ARGS[0] = 'checkclient':
	!gentle
		!CG1
			if eclientChance > 0 and eclientChance < 100:
				$clientName = 'Boris Pavlov'
				$cimg = 'CG1'
				$escType = 1
				'<left><a href="exec:gt ''mod_cherrypop_escorts'', ''client''"><img src="mod\cherrypop\characters\CG1.jpg" height="150" />
<<$clientName>></a></left>'
			end
			if eclientChance > 0 and eclientChance < 100:
				$clientName = 'Jurij Gaspov'
				$cimg = 'CG2'
				$escType = 1
				'<left><a href="exec:gt ''mod_cherrypop_escorts'', ''client''"><img src="mod\cherrypop\characters\CG2.jpg" height="150" />
<<$clientName>></a></left>'
			end
 
	!normal

	!rough

	act 'Go back to your profile':gt 'mod_cherrypop_escorts', 'eprofile'
end



if $ARGS[0] = 'client':
	'<img src="mod\cherrypop\characters\CG1.jpg" height="150" />'
	$clientName
	''
	'<b>Clients requirements:</b>'
	if rand(0,100) > (30 - vMod): 
		'- regular sex' && cV = 1
	else
		'- no specific requirements'
	end
	if rand(0,100) > (60 - aMod): '- anal sex' && cA = 1 
	if rand(0,100) > (80 - bMod): '- BDSM practiques' && cB = 1
	if rand(0,100) > (90 - eMod): '- no limits, no safe word' && cE = 1

!!	act 'Go meet the client':gt 'mod_cherrypop_escorts', 'client:meet'
	act 'Back to list of clients':gt 'mod_cherrypop_escorts', 'checkclient'
end

--- mod_cherrypop_escorts ---------------------------------