glife/locations/sofia.qsrc

# sofia

!! file of the interactions with Sofia, Katja''s uni roommate who is studying to become a nurse. She comes from a small town where she and her boyfriend Maxim were the king and queen of the local school.
!! They both study at the university of St. Petersburg where he studies law. She knows nobody else other than her boyfriend since she goes home every weekend (leaves Thursday night) to her parents so she doesn''t have much opportunity to meet people.
!! She believes that she and Maxim have true love and are destined to be together. He on the other hand just wants to fuck as many beautiful girls as possible, and does so behind her back all the time.
!! He even encourages her to go home at the weekend so she won''t meet other people and therefore learn how big of a cheater he actually is.
!! Her quest will be about convincing her that Maxim is no good and to start living her life for herself.
!! Her defining characteristic is that she talks a lot (mostly about how great Maxim is)
!! She has never had sex with a woman (or anybody other than Maxim) but is latent bisexual with male preference. She does have a lot of sexual experience including anal sex and maybe even more kinks, but only with Maxim.

!! The variables governing Sofia''s quest
!! sofiaQW['know'] = 1: The player has met Sofia (So far only through Katja''s quest, but will add an introduction to the Nurse class)
!! sofiaQW['QWstage'] = 1: The player has had her first discussion with Katja about Sofia.

if $ARGS[0] = 'not_spying':
	sofiaQW['spying_day'] = daystart
	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_hall.jpg"></center>'
	'As you''re about to open the door, the noises get louder and leave no question in your mind that somebody is having sex in the room.'
	act 'Take a peek': gt 'sofia', 'spying'
	act 'Leave': gt 'uni_dorm', 'second_floor'
end

if $ARGS[0] = 'spying':
	if sofiaQW['spying_day'] ! daystart: sofiaQW['spying_day'] = daystart
	if sofiaQW['maxim_know'] = 1:
		$sexpartner = 'Maxim'
	else
		if sofiaQW['spying_times'] = 0:
			$sexpartner = 'the boy'
		else
			$sexpartner = 'her boyfriend'
		end
	end
	sofiaQW['spying_times'] += 1
	gt 'sofia', 'spying_sex<<rand(1,6)>>'
end

if $ARGS[0] = 'spying_sex_introdesc':
	if $sexpartner = 'the boy':
		'You open the door carefully as quietly as you can, just far enough for you to see Sofia and a boy on her bed.'
	elseif $sexpartner = 'her boyfriend':
		'You open the door carefully as quietly as you can, just far enough for you to see Sofia and the same boy as last time, presumably her boyfriend, on her bed.'
	else
		'You open the door carefully as quietly as you can, just far enough for you to see Sofia and Maxim on her bed.'
	end
end

if $ARGS[0] = 'spying_sex1':
	gs 'arousal', 'voyeur_sex', 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/sofia/dorm/spying_sex1.jpg"></center>'
	if spyscenefirst = 0:
		spyscenefirst = 1
		gs 'sofia', 'spying_sex_introdesc'
	end
	'Sofia is on all fours giving <<$sexpartner>> a loud and sloppy blowjob. His cock is '+iif( npc_dick['A261'] < pcs_vag, 'not that impressive.', 'average-sized.')+''
	act 'Leave before you get caught': 
		gs 'arousal', 'end'
		killvar 'spyscenefirst'
		killvar '$sexpartner'
		gt 'uni_dorm', 'second_floor'
	end
	act 'Continue to watch': 
		if rand(0,3)= 0:
			cla
			gs 'arousal', 'end'
			killvar 'spyscenefirst'
			killvar '$sexpartner'
			'Sofia suddenly stops and pops his cock out of her mouth. "Did you hear that?" she asks.'
			'You quickly close the door and head for the elevator before you''re seen.'
			act 'Take the elevator': gt 'uni_dorm', 'elevator'
		else
			gt 'sofia', 'spying_sex2' 
		end
	end
end

if $ARGS[0] = 'spying_sex2':
	gs 'arousal', 'voyeur_sex', 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/sofia/dorm/spying_sex2.jpg"></center>'
	if spyscenefirst = 0:
		spyscenefirst = 1
		gs 'sofia', 'spying_sex_introdesc'
	end
	'Sofia sits with her back to the headrest, moaning loudly as <<$sexpartner>> goes down on her.'
	act 'Leave before you get caught': 
		gs 'arousal', 'end'
		killvar 'spyscenefirst'
		killvar '$sexpartner'
		gt 'uni_dorm', 'second_floor'
	end
	act 'Continue to watch':
		if rand(0,3)= 0:
			cla
			gs 'arousal', 'end'
			killvar 'spyscenefirst'
			killvar '$sexpartner'
			'<<$sexpartner>> suddenly stops. "Did you hear that?" he asks.' 
			'You quickly close the door and head for the elevator before you''re seen.'
			act 'Take the elevator': gt 'uni_dorm', 'elevator'
		else
			gt 'sofia', 'spying_sex3' 
		end
	end
end

if $ARGS[0] = 'spying_sex3':
	gs 'arousal', 'voyeur_sex', 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/sofia/dorm/spying_sex3.jpg"></center>'
	if spyscenefirst = 0:
		spyscenefirst = 1
		gs 'sofia', 'spying_sex_introdesc'
	end
	'Sofia gets on her back and props herself up with her arms, biting her lip as <<$sexpartner>> moves in between her legs. He gropes her perky breasts as he slides his '+iif( npc_dick['A261'] < pcs_vag, 'not so impressive', 'average')+' cock into her pussy and starts fucking her hard.'
	act 'Leave before you get caught':
		killvar 'spyscenefirst'
		killvar '$sexpartner'
		gt 'uni_dorm', 'second_floor'
	end
	act 'Continue to watch':
		if rand(0,3)= 0:
			cla
			gs 'arousal', 'end'
			killvar 'spyscenefirst'
			killvar '$sexpartner'
			'<<$sexpartner>> suddenly stops. "Did you hear that?" he asks.'
			'You quickly close the door and head for the elevator before you''re seen.'
			act 'Take the elevator': gt 'uni_dorm', 'elevator'
		else
			gt 'sofia', 'spying_sex4' 
		end
	end
end

if $ARGS[0] = 'spying_sex4':
	gs 'arousal', 'voyeur_sex', 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/sofia/dorm/spying_sex4.jpg"></center>'
	if spyscenefirst = 0:
		spyscenefirst = 1
		gs 'sofia', 'spying_sex_introdesc'
	end
	'Sofia is on all fours moaning loudly as <<$sexpartner>> pounds her hard doggystyle with his '+iif( npc_dick['A261'] < pcs_vag, 'not so impressive', 'average')+' cock.'
	act 'Leave before you get caught':
		gs 'arousal', 'end'
		killvar 'spyscenefirst'
		killvar '$sexpartner'
		gt 'uni_dorm', 'second_floor'
	end
	act 'Continue to watch':
		if rand(0,3)= 0:
			cla
			gs 'arousal', 'end'
			killvar 'spyscenefirst'
			killvar '$sexpartner'
			'<<$sexpartner>> suddenly stops. "Did you hear that?" he asks.' 
			'You quickly close the door and head for the elevator before you''re seen.'
			act 'Take the elevator': gt 'uni_dorm', 'elevator'
		else
			gt 'sofia', 'spying_sex5' 
		end
	end
end

if $ARGS[0] = 'spying_sex5':
	gs 'arousal', 'voyeur_sex', 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/sofia/dorm/spying_sex5.jpg"></center>'
	if spyscenefirst = 0:
		spyscenefirst = 1
		gs 'sofia', 'spying_sex_introdesc'
	end
	'Sofia is bouncing up and down on <<$sexpartner>>''s '+iif( npc_dick['A261'] < pcs_vag, 'not so impressive', 'average')+' cock, riding him hard cowgirl style while moaning loudly.'
	act 'Leave before you get caught':
		gs 'arousal', 'end'
		killvar 'spyscenefirst'
		killvar '$sexpartner'
		gt 'uni_dorm', 'second_floor'
	end
	act 'Continue to watch':
		if rand(0,3)= 0:
			cla
			gs 'arousal', 'end'
			killvar 'spyscenefirst'
			killvar '$sexpartner'
			'Sofia suddenly stops. "Did you hear that?" she asks.'
			'You quickly close the door and head for the elevator before you''re seen.'
			act 'Take the elevator': gt 'uni_dorm', 'elevator'
		else
			gt 'sofia', 'spying_sex6' 
		end
	end
end

if $ARGS[0] = 'spying_sex6':
	gs 'arousal', 'voyeur_sex', 3
	'<center><img <<$set_imgh>> src="images/characters/city/university/girl/sofia/dorm/spying_sex6.jpg"></center>'
	if spyscenefirst = 0:
		spyscenefirst = 1
		gs 'sofia', 'spying_sex_introdesc'
	end
	'Sofia sits on all fours on the bed, presenting her big round ass to <<$sexpartner>>, who jerks his '+iif( npc_dick['A261'] < pcs_vag, 'not so impressive', 'average')+' cock over it.'
	'He finally squirts a small amount of cum over her ass while yelling very loudly, as if he was letting loose a fire hose of it.'
	'Sofia does cheer him on, so you''re not sure if she''s aware of how little cum he actually delivered.'
	act 'Leave before you get caught': 
		gs 'arousal', 'end'
		killvar 'spyscenefirst'
		killvar '$sexpartner'
		gt 'uni_dorm', 'second_floor'
	end
end

--- sofia ---------------------------------