AddedFlavour/locations/mod_addedflavour_A19_Events.qsrc

# mod_addedflavour_A19_Events
	if $ARGS[0] = 'A19-TalkEv':
		*clr & cla
		menu_off = 1
		minut += rand(3,6)
		modVar_AF_EventProgress['A19-ConfidenceEv'] = 2
		modArr_AF_VBallT_PlayerSkill[arrpos('$modArr_AF_VBallT_PlayerName','Avelina Starov')] += 10
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Talk-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Lina, I really feel we have to talk."'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"What is it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '?"</font>'
		*nl
		'"You.  Everytime I see you you just seem so unsure of yourself, so withdrawn..."'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"Listen, I have heard this all before; that I follow Christina everywhere, that I lack confidence.  But it ignores that I am happy, that Christina gives me something I can''t achieve on my own."</font>'
		*nl
		'"And I believe you Lina, all of it except for one thing.  You see I can see the potential in you; and I don''t mean that in the nonsense movie way, I mean that in the way I can see how you behave when you are not filtering everything through what you think others will expect of you.  I am saying that that something that defines you for you is definitely something you can achieve for yourself, and if Christina or anyone else help you in that endeavour then all the better for it!"'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"...you really think that..."</font>'
		*nl
		'"Absolutely; and I''m not saying you can do it just because I told you to, I''m saying that you can do it because you have the power to yourself and if anyone else can help then to take it with open arms."'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"...thank you ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '...I will...it is nice to hear someone say that to me."</font>'
		act 'Go back about your business' : gt 'mod_addedflavour_city_hotel_Bedr' , 'start' , 1
	end
	
	if $ARGS[0] = 'A19-FlirtEv-1':
		*clr & cla
		menu_off = 1
		minut += rand(5,8)
		modVar_AF_EventProgress['A19-ConfidenceEv'] = 3
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Flirt-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<i>I might only be here for a few days max but I can''t really leave my clothes in my bag...</i>'
		*nl
		'Seizing the initiative you bend down and start pulling all the clothes out of your bag so you can put them in the drawers provided.'
		act 'Focus on the work' : gt 'mod_addedflavour_A19_Events' , 'A19-FlirtEv-2'
	end
	
	if $ARGS[0] = 'A19-FlirtEv-2':
		*clr & cla
		minut += rand(2,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Flirt-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Unbeknownst to you, your activity has caught the attention of your roommate.  It seems your rhythmic swaying is illiciting a response in her that you weren''t even aware of...'
		act 'Go back about your business' : gt 'mod_addedflavour_city_hotel_Bedr' , 'start' , 1
	end
	
	if $ARGS[0] = 'A19-DildoEv-1':
		*clr & cla
		menu_off = 1
		minut += rand(4,7)
		modVar_AF_EventProgress['A19-ConfidenceEv'] = 4
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="' + iif(version_minor >= 8 and version_revision >= 2 and version_patch >= 2,'images/characters/shared/photos/','images/pc/npc_headshots/') + 'big19.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"Good Morning ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Baggsy the Shower first!"</font>'
		*nl
		'Before you even have a chance to argue she is away leaving you in her dust.  After looking around for something to do in the mean time you zone in on her bag which she has still not tidied away...'
		act 'Tidy her clothes away' : gt 'mod_addedflavour_A19_Events' , 'A19-DildoEv-2'
	end
	
	if $ARGS[0] = 'A19-DildoEv-2':
		*clr & cla
		minut += rand(2,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-FindDildo-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You start getting her clothes out and into the Bedside Drawers.  While it is a tad impertinent you still wonder to yourself as to why she hasn''t already done this herself.'
		act 'Go back about your business' : gt 'mod_addedflavour_A19_Events' , 'A19-DildoEv-3'
	end
	
	if $ARGS[0] = 'A19-DildoEv-3':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-FindDildo-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<i>Whoa! Av! E! Lina!  Who''d have thought you would bring this with you</i>'
		*nl
		'You think to yourself as how best to approach her with the subject; after all she is bound to know that you have found it.  Maybe the gentle approach is best...'
		*nl
		'As it happens, you think you can hear her coming back now'
		act 'Gently raise the Subject' : gt 'mod_addedflavour_A19_Events' , 'A19-DildoEv-4'
	end
	
	if $ARGS[0] = 'A19-DildoEv-4':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-FindDildo-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Hey Avelina!  I have a present for you!"'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"Really... Thank you ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '"</font>'
		*nl
		'"Here you go!"'
		*nl
		'You then put her dildo straight into her outstretched hand...'
		act 'See her reaction' : gt 'mod_addedflavour_A19_Events' , 'A19-DildoEv-5'
	end
	
	if $ARGS[0] = 'A19-DildoEv-5':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-FindDildo-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"... whats this...WAIT!! YOU FOUND IT!!!"</font>'
		*nl
		'"Ha!  You''re damn right I found it!  You didn''t think I wouldn''t find that little bundle of fun?"'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"I... I don''t know what I was thinking bringing it..."</font>'
		*nl
		'"I''m sure you did!  I''d jump at the chance to have a little naughty fun on this trip."'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"... really?  You don''t think less of me?"</font>'
		*nl
		'"Of course not.  There is nothing wrong with what goes on in the privacy of ones personal space."'
		act 'Leave her thinking about it' : gt 'mod_addedflavour_city_hotel_Bedr' , 'start' , 1
	end
	
	if $ARGS[0] = 'A19-SexEv-1':
		*clr & cla
		menu_off = 1
		minut += rand(2,5)
		modVar_AF_EventProgress['A19-ConfidenceEv'] = 5
		modArr_AF_VBallT_PlayerSkill[arrpos('$modArr_AF_VBallT_PlayerName','Avelina Starov')] += 10
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Talk-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You sit down next to Lina.'
		*nl
		'"What is it you want Lina?"'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"I wanted to hear about how you thought the Matches went today."</font>'
		*nl
		'Jumping at the chance to go over each match with someone who will just listen to you, you jump into a long speech on the subject.  Although, you don''t quite realise it at first, while Lina may be listening enough to get the jist of it she is more enraptured with your body...'
		*nl
		'"Say Lina, you wouldn''t at all be interested in a little fun would you?"'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"well...  if you are interested..."</font>'
		act 'Put on a show' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-2'
	end
	
	if $ARGS[0] = 'A19-SexEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You stand up in front of her and start taking off your clothes.  You take time in your act though, making sure to emphasize the contours of your body and always making some sort of eye contact to indicate that it is all for her.'
		*nl
		'Soon you have reached the climax of your show and stand naked before her.  You look into her eyes and see a confidence and desire rarely seen in her before; and so you gift her a beckoning look to draw a reaction from her.'
		act 'Give yourself to her' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-3'
	end
	
	if $ARGS[0] = 'A19-SexEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Oral_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You lay back on the Drawers; your legs spread wide in anticipation.  With your final indication Lina''s courage finally wins out and she launches herself at your vagina.'
		*nl
		'Her eagerness is all over her display let alone in the attention she is giving your pussy.  You think to accelerate this to its inevitable peak!'
		*nl
		'"Mmmmm... Lina.  How about we get some use in your little friend?"'
		*nl
		'Lina takes a moment before realising exactly what you mean.  It doesn''t take long for her to be all set up with her rubber phallus pointed at your flesh opening...'
		act 'Take her <i>cock</i>' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-4'
	end
	
	if $ARGS[0] = 'A19-SexEv-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'She guides her cock-shaped plaything into you; initially cautious as much with herself as your reaction, but eventually gains confidence to power further.'
		act 'Get Pounded' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-5'
	end
	
	if $ARGS[0] = 'A19-SexEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With each minute her confidence rises along with the power of her thrusts.  Soon the room is filled with the sounds of her elation and your satisfaction.'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"<<$pcs_nickname>>; I want to feel your body completely, more than this toy can give."</font>'
		*nl
		'"Then get it off and let''s get real!"'
		*nl
		'With the electricity still surging in the air she has removed her toy and thrown her body at your own.'
		act 'Feel her for real' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-6'
	end
	
	if $ARGS[0] = 'A19-SexEv-6':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With you both being completely naked and pressed up against each other, she takes charge of the moment and starts grinding her vagina into your own.'
		*nl
		'The feeling is ecstatic; not just the orgasmic surge but the idea that it is with an unrestrained Lina.'
		act 'Grind to a Peak' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-7'
	end
	
	if $ARGS[0] = 'A19-SexEv-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'The feeling is too much for the pair of you to contain and you both reach an orgasmic climax together, the feeling connecting you two together in ways you could not have anticipated before.'
		*nl
		'As you regain your senses you look deeply at each other.  With you not wanting to create any doubt in her mind you regain control of the moment.'
		act 'Kiss her' : gt 'mod_addedflavour_A19_Events' , 'A19-SexEv-8'
	end
	
	if $ARGS[0] = 'A19-SexEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/girl/lina/A19-Sex-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; that was absolutely magical."</font>'
		*nl
		'"It was amazing, Lina.  I''m happy I have gotten to share myself with you like this."'
		*nl
		'You kiss her, letting the naked exposure of your bodies be merely circumstantial.'
		*nl
		'"To get serious Lina, I will understand if you just want to keep this as something that happened on this trip; but whatever you decide I will certainly never forget it."'
		*nl
		'Lina just smiles at you, choosing not to reveal her thoughts just yet...'
		act 'Regain your composure' : gt 'mod_addedflavour_city_hotel_Bedr' , 'start' , 1
	end

--- mod_addedflavour_A19_Events ---------------------------------