CherryPop/locations/mod_cherrypop_start.qsrc

# mod_cherrypop_start

	if $ARGS[0] = 'start':
	
		$numstr[1] = 'one'
		$numstr[2] = 'two'
		$numstr[3] = 'three'
		$numstr[4] = 'four'
		$numstr[5] = 'five'
		$numstr[6] = 'six'
		$numstr[7] = 'seven'
		$numstr[8] = 'eight'
		$numstr[9] = 'nine'
		$numstr[10] = 'ten'
		
		
		cla
		clr
		*clr
		minut += 5
		elektro += 3
		internet -= 1

		gs 'stat'
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'<left><img <<$set_imgh>> src="mod\cherrypop\cherrypophp.jpg"></left>'
		''
		'A fashionable high class agency website. From the look of it, it seems to be targetted to a wealthy, older aged men.'
		
		if profile = 1:act 'Check your profile':gt 'mod_cherrypop_start', 'profile'
		if aboutUs = 1:act 'Go to Virgins section':gt 'mod_cherrypop_start', 'virgins'
		if aboutUs = 1:act 'Go to Celebrities section':gt 'mod_cherrypop_start', 'celebrities'
		if aboutUs = 1:act 'Go to Dominas section':gt 'mod_cherrypop_start', 'dominas'
		if aboutUs = 1:act 'Go to Escorts section':gt 'mod_cherrypop_start', 'escorts'
		act 'About us':gt 'mod_cherrypop_start', 'aboutUs'
		act 'Leave this website':gt 'komp', 'brows'
	end

	if $ARGS[0] = 'aboutUs':
		cla
		clr
		*clr
		minut += 5
		elektro += 1
		internet -= 1
		aboutUs = 1
		gs 'stat'
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'<left><img <<$set_imgh>> src="mod\cherrypop\cherrypophp.jpg"></left>'
		''
		'<h3>About us</h3>'
		''
		'CherryPop Agency is a company that runs a business mediating various relations, mostly between young attractive girls and wealthy men.'
		'By further reading you realize that it''s scope of business is quite wide - high class escort, celebrities, dominas, virgins..'
		
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'celebrities':
		cla
		clr
		*clr
		minut += 5
		elektro += 1
		internet -= 1
		aboutUs = 1
		gs 'stat'
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'<left><img <<$set_imgh>> src="mod\cherrypop\cherrypophp.jpg"></left>'
		''
		'<h3>Celebrities</h3>'
		''
		'Dou you have a favourite porn star, instagram model or maybe an actress? Did you every dreamed to meet her? Now you can!'
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'dominas':
		cla
		clr
		*clr
		minut += 5
		elektro += 1
		internet -= 1
		aboutUs = 1
		gs 'stat'
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'<left><img <<$set_imgh>> src="mod\cherrypop\cherrypophp.jpg"></left>'
		''
		'<h3>Dominas</h3>'
		''
		'Are you a man of power, of control? Do you need a relief from this burden, letting someone else take it over?'
		'Does it make you shiver if that someone else is a beautyful yet strict lady?'
		'Let us know!'
		''
		''
		'<i>Currently not hiring new dominas.</i>'
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'escorts':
		cla
		clr
		*clr
		minut += 5
		elektro += 1
		internet -= 1
		aboutUs = 1
		gs 'stat'
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'<left><img <<$set_imgh>> src="mod\cherrypop\cherrypophp.jpg"></left>'
		''
		'<h3>Escorts</h3>'
		''
		'Are you a busy man with no time for regular dating, yet your needs have to be taken care of?'
		'Do you need someone to accompany you to a meeting or an event, maybe with some bonus afterwards?'
		''
		'Our beautiful and young escorts will fulfill all your fantasies and tend to all your needs!'
		''	
		''
		'<b>Are you a young woman with good looks and body, eager to make quick and generous pay? Contact us!</b>'
		''
		'1) You will fill in form stating all your data - and also with photos of yourself. Remember - the more sexier they''ll be, the better your chance to find a customer and maximise your price!'
		'2) When we have all the data, we will create profile page for you, enabling potential customers to find you.'
		'3) You need to check your profile periodically to look whether a customer sent you a message asking for your services'
		'4) When you confirm an offer, we will arrange for a payment and send you details of the meeting.'
		'5) Once we receive feedback from the customer regarding the Act, we will process the payment to your account.'
		''
		if eprofile = 0:act 'Sign up':stage = 0 && gt 'mod_cherrypop_escorts', 'sign' 
		if eprofile = 1:act 'Your CherryEscort profile':gt 'mod_cherrypop_escorts', 'eprofile' 
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'virgins':
		cla
		clr
		*clr
		minut += 5
		elektro += 1
		internet -= 1
		aboutUs = 1
		gs 'stat'
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'<left><img <<$set_imgh>> src="mod\cherrypop\cherrypophp.jpg"></left>'
		''
		'<h3>Virgins</h3>'
		''
		'Have you always desired for a yet untouched girl to be her first time with you, but never got the chance? We can make that happen for you!'
		'Are you a virgin girl and want to make quick and generous pay? Contact us!'
		act 'How does it work?':
			''
			'<b>Are you a virgin and want to make quick and generous pay? Contact us!</b>'
			''
			'1) You will fill in form stating all your data - and also with photos of yourself. Remember - the more sexier they''ll be, the better your chance to find a buyer or to maximise your price!'
			'2) When we have all the data, we will create profile page for you, enabling potential buyers to start bidding.'
			'3) You need to check your profile periodically and when you are content with a bid, you can confirm it. Remember - the longer you let them bid, the higher the bid gets, but also they may loose interest in you - new girls arrive daily!'
			'4) When you confirm a bid, we will contact the winning buyer and process the payment with him.'
			'5) Once we have the payment, we will arrange a meeting for you two where the actual Act will happen. Remember - you need to dress up sexy and be willing to do what the buyer paid for!'
			'6) Once we receive feedback from the buyer regarding the Act, we will process the payment to your account.'
			''
			if profile = 0:'Do you like it? <a href="exec:gt ''mod_cherrypop_start'', ''virgins_sign''">Sign up!</a>'
			if profile = 1:'Do you like it? Sign up! <i>(You already have an account)</i>'
		end
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'virgins_sign':
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		''
		'<h3>Virgins - 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.'
		'<i>I should be careful. Sooner or later someone I know in Pavlovsk will see them..</i>'
		''

		if stage = 1:
			prudeLvl = 1
			$mod_cherrypop_imagelinks['profile_1'] = '<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" /> '
			$mod_cherrypop_imagelinks['profile_2']

		elseif stage = 2:
			'<i>Showing more skin can surely bring me some interest!</i>'
			''
			prudeLvl = 2
			$mod_cherrypop_imagelinks['profile_2'] = '<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" /> '
			$mod_cherrypop_imagelinks['profile_2']

		elseif stage = 3:
			'<i>Those guys will surely love my titties!</i>'
			''
			prudeLvl = 3
			
			$mod_cherrypop_imagelinks['profile_3'] = '<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" /> '
			$mod_cherrypop_imagelinks['profile_3']

		elseif stage = 4:	
			'<i>The more they see the more they will want me!</i>'
			''
			prudeLvl = 4
			$mod_cherrypop_imagelinks['profile_4'] = '<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" /> '
			$mod_cherrypop_imagelinks['profile_4']

		elseif stage = 5:	
			'You decide the best approach is to be as provocative as possible.'
			''
			prudeLvl = 5
			$mod_cherrypop_imagelinks['profile_5'] = '<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" /> '
			$mod_cherrypop_imagelinks['profile_5']

		elseif stage = 6:	
			'<i>When they see it they will fight to be the one to break it!</i>'
			''
			prudeLvl = 6 
			$mod_cherrypop_imagelinks['profile_6'] = '<img height="250" src="<<$pcs_vag_image>>" />'
			$mod_cherrypop_imagelinks['profile_6']

		end

		if stage = 0: act 'Take clothed photos':stage = 1 && gt 'mod_cherrypop_start', 'profile'
		if stage = 1: act 'Take photos in underwear': gs 'fame', $modFameLoc, 'prostitute', 5 && stage = 2 && gt 'mod_cherrypop_start', 'virgins_sign'
		if stage = 2: act 'Take photos of your breasts': gs 'fame', $modFameLoc, 'prostitute', 10 && stage = 3 && gt 'mod_cherrypop_start', 'virgins_sign'
		if stage = 3: act 'Take photos of your labia and asscheeks': gs 'fame', $modFameLoc, 'prostitute', 15 &&stage = 4 && gt 'mod_cherrypop_start', 'virgins_sign'
		if stage = 4: act 'Take photos of your pussy and ass': gs 'fame', $modFameLoc, 'prostitute', 20 && stage = 5 && gt 'mod_cherrypop_start', 'virgins_sign'
		if stage = 5: act 'Take a detail of your hymen': gs 'fame', $modFameLoc, 'prostitute', 25 && stage = 6 && gt 'mod_cherrypop_start', 'virgins_sign'
		if stage > 0: act 'That''s good enough': stage = 0 && gt 'mod_cherrypop_start', 'virgins_sign_done'
	end

	if $ARGS[0] = 'virgins_sign_done':
		baseBid = pcs_apprnc * 500 + pcs_horny * 50 + pcs_health * 10 + pcs_mood * 20 + bimbolevel * 3000 + prudeLvl * 2000
		baseDeviantRisk = (pcs_apprnc * 60 + pcs_horny * 5 + pcs_health * 2 + pcs_mood * 2 + bimbolevel * 2000 + prudeLvl * 3000) / 375
		profile = 1
		startPoint = totminut
		cherrypopGetRef = 1

		bdr1 = rand (10000, 99999)
		bdr2 = rand (10000, 99999)
		bdr3 = rand (10000, 99999)
		bdr4 = rand (10000, 99999)
		bdr5 = rand (10000, 99999)
		bdr6 = rand (10000, 99999)
		bdr7 = rand (10000, 99999)
		bdr8 = rand (10000, 99999)
		bdr9 = rand (10000, 99999)

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



		act 'YourCherry Profile':gt 'mod_cherrypop_start', 'profile'
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'profile':
		cla
		clr
		*clr
		minut += 5
		elektro += 1
		internet -= 1
		gs 'stat'
		
		if $start_type = 'tg':
			$modFameLoc = 'city'
		elseif $start_type = 'sgs':
			$modFameLoc = 'pav'
		else
			$modFameLoc = 'pav'
		end

		gs 'mod_cherrypop_start', 'agency_maintext'

		if showPhotos = 0:'Photos of <<$pcs_firstname>> (<a href="exec:showPhotos = 1 && gt ''mod_cherrypop_start'', ''profile''">show</a>/hide):'
		if showPhotos = 1:
			'Photos of <<$pcs_firstname>> (show/<a href="exec:showPhotos = 0 && gt ''mod_cherrypop_start'', ''profile''">hide</a>):'
			''
			$mod_cherrypop_imagelinks['profile_1'] + $mod_cherrypop_imagelinks['profile_2'] + $mod_cherrypop_imagelinks['profile_3'] + $mod_cherrypop_imagelinks['profile_4'] + $mod_cherrypop_imagelinks['profile_5'] + $mod_cherrypop_imagelinks['profile_6'] 
		end
		
		speedMult = 1

		if auctionPhase = 0:
			''
			'<<$pcs_firstname>> has not yet supplied her virginity referral. Hang on gentlemen!'
			currPrice += baseBid
		elseif auctionPhase = 1:
			gs 'mod_cherrypop_start', 'auction_bids'
		elseif auctionPhase = 2 and cherrypopDeflowered = 0:
			'<b><<$pcs_firstname>>''s auction is now ended!</b>'
			'Her virginity has been auctioned for '+currPrice+' RUB, raised from starting bid of '+baseBid+' RUB.'
			'The lucky owner of her hymen is buyer No '+buyer+'.'
			gs 'fame', $modFameLoc, 'prostitute', 20 
		elseif auctionPhase = 2 and cherrypopDeflowered = 1:
			gs 'mod_cherrypop_start', 'meeting_done'
		end

		if dbg = 0:
			'<a href="exec:dbg = 1 && gt ''mod_cherrypop_start'', ''profile''">Debug ON</a>/Debug OFF'
			''
		end
		if dbg = 1: gs 'mod_cherrypop_start', 'debug_info'
		

		if auctionPhase = 0 and cherrypopReferral = 1:act 'Send them your virginity referral':auctionPhase = 1 && gt 'mod_cherrypop_start', 'profile'
		if auctionPhase = 1:act 'Grant the auction to the highest bidder':auctionPhase = 2 && gt 'mod_cherrypop_start', 'profile'
		if auctionPhase = 2 and cherrypopDeflowered = 0:act 'Contact the agency for arranging a meeting':gt 'mod_cherrypop_start', 'meeting'
		if auctionPhase = 2 and cherrypopDeflowered = 1 and cherrypopPaid = 0:
			if bankAccount = 0:
				'You have to open a bank account in order to collect your pay!'
			else
				act 'Get your pay':gt 'mod_cherrypop_start', 'pay'
			end
		end


		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'
	end

	if $ARGS[0] = 'agency_maintext':
		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		'presents..:'
		''
		if cherrypopDeflowered = 0:'<b>Virgin <<$pcs_firstname>> <<$pcs_lastname>></b>'
		if cherrypopDeflowered = 1:'<b>Deflowered virgin <<$pcs_firstname>> <<$pcs_lastname>></b>'
		'<left><img height=250 src="<<FUNC(''$face_image'')>>"></left>'
		''
		if cherrypopDeflowered = 0:
			if age < 20:'She is <<age>> year old teenage girl who wants sell her virginity!'
			if age >= 20:'She is <<age>> year old woman who wants sell her virginity!'
			'<<$pcs_firstname>> has <<pcs_weight>> kg, her measurements are <<pcs_bust>>-<<pcs_waist>>-<<pcs_hips>> and her breasts are considered EU <<$titsize>>.'
			if auctionPhase = 0:'She honestly confirms that her virginity is intact and is willing to undergo an independent medical test to confirm it for the final buyer.'
			if auctionPhase = 1:'She honestly confirms that her virginity is intact and already underwent an independent medical test. Her referral is at disposal to the final buyer.'
		elseif cherrypopDeflowered = 1:
			if age < 20:'She is <<age>> year old teenage girl who sold her virginity!'
			if age >= 20:'She is <<age>> year old woman who sold her virginity!'
			'<<$pcs_firstname>> has <<pcs_weight>> kg, her measurements are <<pcs_bust>>-<<pcs_waist>>-<<pcs_hips>> and her breasts are considered EU <<$titsize>>.'
		end
		''
	end
	
	if $ARGS[0] = 'auction_bids':
		''
		'<<$pcs_firstname>>''s starting bid is '+baseBid+' RUB.'
		randTime = rand(15, 180) * speedMult
		if (startPoint + randTime * 5) <= totminut and bidders = 0:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b1t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr1+' has placed a bid of '+currPrice+' RUB.'
			lastBid = startPoint + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 1:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b2t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr2+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 2:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b3t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr3+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime
		
		elseif (lastBid + randTime) <= totminut and bidders = 3:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b4t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr4+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 4:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b5t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr5+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 5:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b6t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr6+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 6:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b7t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr7+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 7:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b8t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr8+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif (lastBid + randTime) <= totminut and bidders = 8:
			bidders += 1
			currPrice += rand(baseBid / 4, baseBid / 2) * pcs_apprnc / 100
			$b9t = day+'.'+month+'.'+year+' '+hour+':'+minut+': Bidder No '+bdr9+' has placed a bid of '+currPrice+' RUB.'
			lastBid = totminut + randTime

		elseif bidders = 9:
			'It seems noone else is going to bid.'
			'<i>Maybe it is time to end the auction you greedy little harlot?</i>'
		end

		if $b1t <> '': $b1t && buyer = bdr1
		if $b2t <> '': $b2t && buyer = bdr2
		if $b3t <> '': $b3t && buyer = bdr3
		if $b4t <> '': $b4t && buyer = bdr4
		if $b5t <> '': $b5t && buyer = bdr5
		if $b6t <> '': $b6t && buyer = bdr6
		if $b7t <> '': $b7t && buyer = bdr7
		if $b8t <> '': $b8t && buyer = bdr8
		if $b9t <> '': $b9t && buyer = bdr9

		deviantRisk = baseDeviantRisk + ((baseDeviantRisk / 2 / 9) * bidders)
		buyerCh = deviantRisk + rand(0, 10) - rand(0, 10)

		'<b>Your price is now '+currPrice+' RUB.</b>'
		''
		'You can either end the auction now or wait for further bids.'
	end

	if $ARGS[0] = 'meeting_done':
		'<b><<$pcs_firstname>>''s auction is ended!</b>'
		'Her virginity has been auctioned for '+currPrice+' RUB, raised from starting bid of '+baseBid+' RUB.'
		'The lucky buyer has sucessfully deflowered her and <<$pcs_firstname>> is now officialy not a virgin anymore.'
		''
		gs 'fame', $modFameLoc, 'prostitute', 10
		gs 'fame', $modFameLoc, 'sex', 50
		gs 'mod_cherrypop_start', 'text_counters'
		if showDetPhotos = 0:'<b>Her buyer was so kind that he shared some details of the act with us!</b> (<a href="exec:showDetPhotos = 1 && gt ''mod_cherrypop_start'', ''profile''">show</a>/hide):'
		if showDetPhotos = 1:
			'<b>Her buyer was so kind that he shared some details of the act with us</b> (show/<a href="exec:showDetPhotos = 0 && gt ''mod_cherrypop_start'', ''profile''">hide</a>):'
			''
			gs 'mod_cherrypop_start', 'creampie_feedback'
			gs 'mod_cherrypop_start', 'cumface_feedback'
			gs 'mod_cherrypop_start', 'bellycum_feedback'
			gs 'mod_cherrypop_start', 'analpie_feedback'

			if mod_creampie > 1 and mod_cumface > 1 and mod_analpie > 1:
				''
				'Just look at this happy ex-virgin. Glowing. Sticky. Happy. Lots of cum. On her first night, <<$pcs_firstname>> took <<$numstr[mod_creampie]>> creampies, <<$numstr[mod_analpie]>> loads up her bum and <<$numstr[mod_cumface]>> on her face. Thoroughly fucked and soaked in cum, a happy whore dripping with pride. Among other things. We all wish the best for her in the future, and looking forward to more of her works. I believe she found her calling.'
			end
			
			if nipPierce:
				gs 'fame', $modFameLoc, 'prostitute', 20
				gs 'fame', $modFameLoc, 'sex', 20
				''
				'He pierced her nipples, turning the decent virgin to a total slut during single session!'
				''
				'<left><img <<$set_imgh>> src="<<$mod_cherrypop_images[''piercing'']>>"></left>'
			end
			if analPlugInserted = 1:
				gs 'fame', $modFameLoc, 'prostitute', 50
				gs 'fame', $modFameLoc, 'sex', 50
				''
				'When they were done, he gave her a wonderful buttplug to remind her of her first time!'
				''
				'<left><img <<$set_imgh>> src="images\locations\shared\brothel\spreadAssWithPlugFromBehind.jpg"></left>'
			end
			if doublePlugged = 1:
				gs 'fame', $modFameLoc, 'prostitute', 50
				gs 'fame', $modFameLoc, 'sex', 50
				''
				'When they were done, he gave her a wonderful buttplug and vaginal vibrator to remind her of her first time!'
				''
				$doublePlugged
			end
		end	
	end

	if $ARGS[0] = 'pay':
		minut += 2
		if buyerFeedback = 1: $buyerFeedbackT = 'Perfect'
		if buyerFeedback = 2: $buyerFeedbackT = 'Good'
		if buyerFeedback = 3: $buyerFeedbackT = 'So-so'
		if buyerFeedback = 4: $buyerFeedbackT = 'Bad'
		if buyerFeedback = 5: $buyerFeedbackT = 'Very bad'

		payRew = (currPrice / 100 * 50) / 10 * (12 - (buyerFeedback * 2))

		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		''
		'<<$pcs_firstname>>, let us congratulate you on getting yourself sucessfully deflowered for money!'
		''
		'We confirm that we have received the feedback from the buyer.'
		'The feedback was: <b>'+$buyerFeedbackT+'</b>'
		''
		'Based on this feedback and the winning bid you are rewarded a pay of '+payRew+' RUB.'
		'The whole amount will be sent to your bank account.'
		''
		'Thank you again for your cooperation. In case you decide to utilize your talents further, check the Escorts section of our website.'

		karta += payRew
		cherrypopPaid = 1

		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'	
	end

	if $ARGS[0] = 'meeting':
		minut += 2

		'<h2><font color=#e44563>CherryPop agency</font></h2>'
		''
		'<<$pcs_firstname>>, let us congratulate you on getting your virginity sucessfully auctioned!'
		''
		'Bellow you will find a meeting information specified by your buyer.'
		''
		'Few notes for the meeting:'
		'1) Dress sexy but not too provocative'
		'2) Do your hair and wear a nice make up'
		'3) Mind your manners, be nice and polite'
		'4) Keep the deal and be willing'
		'5) Reserve at least 24 hours for the meeting'
		''
		'<b>Remember - the buyers feedback is important for the height of your pay!</b>'
		'Good luck and enjoy the unique moment of loosing your virginity!'

		act 'See the meeting details':gt 'mod_cherrypop_start', 'meeting_details'
		act 'Back to homepage':gt 'mod_cherrypop_start', 'start'	
	end

	if $ARGS[0] = 'meeting_details':
		minut += 3

		if buyerCh <= 40:
			buyer = 1
		elseif buyerCh > 40 and buyerCh <= 60:
			buyer = 2
		elseif buyerCh > 60 and buyerCh <= 80:
			buyer = 3
		elseif buyerCh > 80 and buyerCh <= 90:
			buyer = 4
		elseif buyerCh > 90 and buyerCh <= 95:
			buyer = 5
		elseif buyerCh > 95 and buyerCh <= 100:
			buyer = 6
		else
			buyer = 7
		end
		'<h3>The Meeting</h3>'
		''
		'<b>To fulfill the meeting instructions you need to:</b>'

		if pcs_sweat < 40 and (cumloc[1] = 0 or cumloc[4] = 0 or cumloc[8] = 0 or cumloc[9] = 0 or cumloc[10] = 0 or cumloc[15] = 0 or cumloc[16] = 0 or cumloc[17] = 0) and cumloc[11] = 0 and (pcs_leghair <= 3 or pcs_pubes <= 3) and pcs_hairbsh = 1 and pcs_makeup >= 1 and pcs_lipbalm >= 1 and (CloThinness <= 5 and CloBra = 0) and CloThinness >= 2:
			checkOK = 1
		else
			if pcs_sweat >= 40:'- have a shower.'
			if (cumloc[1] > 0 or cumloc[4] > 0 or cumloc[8] > 0 or cumloc[9] > 0 or cumloc[10] > 0 or cumloc[15] > 0 or cumloc[16] > 0 or cumloc[17] > 0):'- wash yourself.'
			if cumloc[11] > 0:'- wash your face'
			if (pcs_leghair > 3 or pcs_pubes > 3):'- shave your pubes and legs.'
			if pcs_hairbsh <> 1:'- brush your hair.'
			if pcs_makeup < 1:'- put on some makeup.'
			if pcs_lipbalm < 1:'- apply some lipbalm.'
			if (CloThinness > 5 and CloBra > 0):'- wear a more sexy outfit.'
			if CloThinness < 2:'- wear a less provocative outfit.'
			checkOK = 0
		end
		
		! kind man - restaurant, hotel, sex
		if buyer = 1:
			'The buyer wants to meet you at the high class restaurant in the city. His driver will pick you up whenever you are.'
			if checkOK = 1:act 'Go there':gt 'mod_cherrypop_buyers', 'buyer1'
		! hotel, regular sex
		elseif buyer = 2:
			'The buyer wants to meet you in a hotel. His driver will pick you up whenever you are.'
			'There is also a special request regarding your clothing. You should be dressed as a school girl, wearing short skirt and no bra.'
			if checkOK = 1 and PCloStyle2 = 4:act 'Go there':gt 'mod_cherrypop_buyers', 'buyer2'
		! cheap hotel, unpleasant sex
		elseif buyer = 3:
			'The buyer wants to meet you in the motel near the highway. He will pick you up.'
			if checkOK = 1:act 'Go there':gt 'mod_cherrypop_buyers', 'buyer3'
		! home, rough violent rape
		elseif buyer = 4:
			'The buyer wants to meet you in the residential district in the city. He will pick you up.'
			if checkOK = 1:act 'Go there':gt 'mod_cherrypop_buyers', 'buyer4'
		! home, bdsm raper
		elseif buyer = 5:
			'The buyer does not specify the location of the act, but he will pick you up with his car.'
			'There is also a special request regarding your clothing. You should be dressed as a school girl, wearing short skirt and no bra.'
			if checkOK = 1 and PCloStyle2 = 4:act 'Go there':gt 'mod_cherrypop_buyers', 'buyer5'
		! somewhere?, gangbang bdsm
		elseif buyer = 6:
			'The buyer does not specify the location of the act, but he will pick you up with his car.'
			if checkOK = 1:act 'Go with him':gt 'mod_cherrypop_buyers', 'buyer6'
		! abduction storyline connection
		elseif buyer = 7:
			'The buyer does not specify the location of the act, but he will pick you up with his car.'
			if checkOK = 1:act 'Go with him':gt 'mod_cherrypop_buyers', 'buyer7'
		end

		act 'Keep it for later':gt 'mod_cherrypop_start', 'meeting'
	end

	if $ARGS[0] = 'set_image':
		
		if $ARGS[1] = 'cumface':
			if pcs_haircol = 0: 
				$mod_cherrypop_images['cumface'] += 'images/pc/body/cum/cumface/brown/'+rand(1, 31)+'.jpg'
			elseif pcs_haircol = 1: 
				$mod_cherrypop_images['cumface'] += 'images/pc/body/cum/cumface/black/'+rand(1, 23)+'.jpg'
			elseif pcs_haircol = 2: 
				$mod_cherrypop_images['cumface'] += 'images/pc/body/cum/cumface/red/'+rand(1, 19)+'.jpg'
			elseif pcs_haircol = 3: 
				$mod_cherrypop_images['cumface'] += 'images/pc/body/cum/cumface/blonde/'+rand(1, 25)+'.jpg'
			elseif pcs_haircol > 3: 
				$mod_cherrypop_images['cumface'] += 'images/pc/body/cum/cumface/custom/'+rand(1, 20)+'.jpg'
			end
		end
		if $ARGS[1] = 'swallow': $mod_cherrypop_images['swallow'] = ''
		if $ARGS[1] = 'creampie': $mod_cherrypop_images['creampie'] = 'images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg'
		if $ARGS[1] = 'bellycum': $mod_cherrypop_images['bellycum'] = 'images/pc/body/cum/cumbelly/cumbelly'+rand(1,13)+'.jpg'
		if $ARGS[1] = 'analpie': $mod_cherrypop_images['analpie'] = 'images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg'
		if $ARGS[1] = 'piercing': $mod_cherrypop_images['piercing'] = 'images/pc/body/piercings/f'+rand(1,7)+'.jpg'
	end

	if $ARGS[0] = 'debug_info':
		'Debug ON/<a href="exec:dbg = 0 && gt ''mod_cherrypop_start'', ''profile''">Debug OFF</a>'
		''
		'pcs_apprnc '+pcs_apprnc
		'bimbolevel '+bimbolevel
		'pcs_horny '+pcs_horny
		'pcs_health '+pcs_health
		'pcs_mood '+pcs_mood
		''
		'baseBid '+baseBid
		'baseDeviantRisk '+baseDeviantRisk
		'deviantRisk '+deviantRisk
		''
		'totminut '+totminut
		'startPoint '+startPoint
		'lastBid '+lastBid
		''
		'buyerCh '+buyerCh
		''
		'checkOK '+checkOK
		'pcs_sweat '+pcs_sweat
		'pcs_leghair '+pcs_leghair
		'pcs_pubes '+pcs_pubes
		'pcs_lipbalm '+pcs_lipbalm
		'pcs_makeup '+pcs_makeup
		'pcs_hairbsh '+pcs_hairbsh
		'CloSkirtShortness '+CloSkirtShortness
		'CloThinness '+CloThinness
		'CloBra '+CloBra
		'$clothingworntype '+$clothingworntype
		''
	end
	
	if $ARGS[0] = 'creampie_feedback':
		if mod_creampie = 1:	
			gs 'fame', $modFameLoc, 'prostitute', 25
			gs 'fame', $modFameLoc, 'sex', 25
		elseif mod_creampie > 1:
			gs 'fame', $modFameLoc, 'prostitute', 25
			gs 'fame', $modFameLoc, 'sex', 25
			''
			'She enjoyed her first creampie so much that she begged for more. And her buyer happily obliged, dropping his load <<$numstr[mod_creampie]>> times in her during the night. It won''t take long to see her pushing a pram this way. God bless her!'
		end
		''
		'She allowed him to cum inside her deflowered pussy, creating a wonderful, post-virginal creampie!'
		''
		'<left><img <<$set_imgh>> src="<<$mod_cherrypop_images[''creampie'']>>"></left>'
	end
	
	if $ARGS[0] = 'cumface_feedback':
			if mod_cumface > 0:
			gs 'fame', $modFameLoc, 'prostitute', 30
			gs 'fame', $modFameLoc, 'sex', 30

			if mod_creampie > 0:
				if swall = 0:
					'Getting some batter in her owen wasn''t enough for this little slut, she asked for more'+iif(mod_cumface > 1, ', and more than once, she was fed <<$numstr[mod_cumface]>> times. It''s a shame that she could get none of it into her mouth. But she seems eager to practice.','What a shame it was all spilled on her face. Maybe it''s her skincare routine?.')
				!! TODO: Try to find some images where girl shows off - for all hair colour?
				elseif swall = 1:
					'She was a real little cumhungry slut and she begged for seconds.'+iif(mod_cumface > 1, ' And thirds. Well, she was really hunger, she asked to be fed <<$numstr[mod_cumface]>> times, and her buyer was happy to oblige.','')+' And look how she glows, she certainly found her happy meal. If you are lucky, next time you can be her McDonald''s.'
				elseif swall = 2:
					'All that fucking and sucking left her hungry and thirsty. But the ungrateful little harlot spat it all out, she still has to learn to enjoy the taste. We are sure that she will, in no time.'+iif(mod_cumface > 1, ' And she seems eager to learn to like it, she asked for more <<$numstr[mod_cumface]>> times. Someone is a determined little whore.', '')
				end
			else
				if swall = 0:
					'She didn''t allow him to cum inside her, but he sprayed her face with nice mask of cum!'
				!! TODO: Try to find some images where girl shows off - for all hair colour?
				elseif swall = 1:
					'She didn''t allow him to cum inside her, but he pumped his cum inside her mouth and she swallowed it whole!'
				elseif swall = 2:
					'She didn''t allow him to cum inside her, but he pumped his cum inside her mouth! Too bad the inexperienced harlot has spit it out instead of swallowing!'
				end
			end
			''
				'<left><img <<$set_imgh>> src="<<$mod_cherrypop_images[''cumface'']>>"></left>'
			''
		end
	end
	
	if $ARGS[0] = 'bellycum_feedback':
		if mod_bellycum > 0:
			gs 'fame', $modFameLoc, 'prostitute', 20
			gs 'fame', $modFameLoc, 'sex', 20
			if mod_creampie > 0:
				'She must have enjoyed it a lot, after taking a full creampie, she must have been a twisting, wet little thing, as you can see the next one couldn''t land deep enough. But we don''t worry, we are sure she will get her next creampie very soon.'+iif(mod_creampie > 1, ' And if you doubt us, she took <<$numstr[mod_creampie-1]>> more loads up her little cunt during the date with her buyer. She is very determined.', '')
			else
				''
				'She didn''t allow him to cum on her face or anywhere inside her, so he painted her belly with his cum instead!'
			end
		end
		''
		'<left><img <<$set_imgh>> src="<<$mod_cherrypop_images[''bellycum'']>>"></left>'
		''
	end
	
	if $ARGS[0] = 'analpie_feedback':
		if mod_analpie > 0:
			gs 'fame', $modFameLoc, 'prostitute', 30
			gs 'fame', $modFameLoc, 'sex', 30
			
			if mod_creampie > 0:
				if mod_cumface = 1 and swall = 1:
					''
					'A real professional in the making, she went the extra mile and took a load in both of her holes, and gulped down a healthy serving to replace all the protein she lost with the work out. How does the saying go? "Young, fun, and full of cum." Looking forward to her future works.'
				elseif mod_cumface = 1 and swall = 2:
					''
					'She finished happy and ready to be displayed at Ponchkoff. Some girls are like good donuts. Filled to the brim with cream and thoroughly glazed.'
				else
					''
					'She really got into the spirit of things, and took a load everywhere. She worked hard for her money, she deserves an applause.'
				end
				
			else
				''
				'She didn''t allow him to cum inside her deflowered pussy, so he pumped her in the ass instead!'
			end
			''
			'<left><img <<$set_imgh>> src="<<$mod_cherrypop_images[''analpie'']>>"></left>'
		end
	end
	
--- mod_cherrypop_start ---------------------------------