CherryPop/locations/mod_cherrypop_referral.qsrc

# mod_cherrypop_referral

if $ARGS[0] = 'cherrypopReferral':
	cls
	cherrypopGetRef = 0
	minut = minut + 15
	money -= 1000
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
	'You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a moment to realize that it is heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.'


	if pcs_vag = 0:
		cherrypopReferral = 1

		'He confirms that you are still a virgin, and tells you to get dressed again while he prepares your referral. While you put your clothes back on, he fills out the form at his desk and stamps it before handing it to you. This should be enough to prove your virgnity to the CherryPop agency.'
	else
		cherrypopReferral = 0

		'"I am sorry miss <<$pcs_lastname>> but I cannot give you a referral. You are not a virgin anymore."'
		'That''s bad. You could have earned such a money instead of giving your virginity to some tard for free!'
	end
	act 'Leave':gt 'pav_clinic'

end

--- mod_cherrypop_referral ---------------------------------