AddedFlavour/locations/mod_addedflavour_A69_Events.qsrc

# mod_addedflavour_A69_Events
	if $ARGS[0] = 'A69-JuniorCupArrivalEv-1':
		*clr & cla
		menu_off = 1
		minut += rand(1,2)
		gs 'mod_addedflavour_A19_Functions' , 'config'
		gs 'mod_addedflavour_A69_Functions' , 'config'
		gs 'mod_addedflavour_Volleyball' , 'SetupTournament'
		gs 'mod_addedflavour_Volleyball' , 'SetupLeagues'
		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/') + '/big69.jpg"></center>'
		*nl
		if hour = 15:
			'<font color="<<$npc_fontcolor[''A69'']>>">"You finally got here then <<$pcs_firstname>>!  We did say the bus left at 3pm; not to be here at any time including 3pm...  Anyway, glad you are here now and as you are the last one we will get moving soon."</font>'
			act 'Leave for the Junior Cup' : gt 'mod_addedflavour_A69_Events' , 'A69-JuniorCupArrivalEv-2' , 'Late'
		else
			'<font color="<<$npc_fontcolor[''A69'']>>">"Good to see you here ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; we are still waiting on one or two people but we will get moving soon."</font>'
			act 'Wait on the Bus' : gt 'mod_addedflavour_A69_Events' , 'A69-JuniorCupArrivalEv-2'
		end
	end
	
	if $ARGS[0] = 'A69-JuniorCupArrivalEv-2':
		*clr & cla
		minut += ((1020 - ((hour * 60) + minut)) + rand(5,20))
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Volleyball/TeamBus.jpg"></center>'
		*nl
		if $ARGS[1] = 'Late':
			'You rush onto the Bus and sit in the first available seat you come across.  The Bus gets moving as soon as you have sat down and within moments you are seeing the Community Centre disappear out of view'
		else
			'You get on the Bus and find a good seat for you to set yourself up in and get comfortable for the long journey into the City.  You see more and more people pile on as you wait before everyone is accounted for and the Coach tells the Driver to depart.'
		end
		*nl
		'The journey goes on for over an hour but the time passes briskly allowing you to think on about the Event itself.  You don''t have all the information yet but you understand that you will be facing at least Seven other teams in a tournament and that the competition will be over the weekend, but you are sure that Mr Nikolaevich will tell you more when you arrive.'
		act 'Arrive at Hotel' : gt 'mod_addedflavour_A69_Events' , 'A69-JuniorCupArrivalEv-3'
	end
	
	if $ARGS[0] = 'A69-JuniorCupArrivalEv-3':
		*clr & cla
		minut += rand(10,15)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Volleyball/Hotel.jpg"></center>'
		*nl
		'Before long your Bus has arrived at the Hotel and pulled in outside for you all to start filing off.  Once everyone is ready your Coach guides you all into the Main Hall for a quick talk about the rules.'
		act 'Listen to Coach' : gt 'mod_addedflavour_A69_Events' , 'A69-JuniorCupArrivalEv-4'
	end
	
	if $ARGS[0] = 'A69-JuniorCupArrivalEv-4':
		*clr & cla
		minut += rand(3,5)
		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/') + '/big69.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Right everyone; bring it in and listen.  First things first, the rules for the Hotel.  Each Team has been given the use of a wing of the hotel which is exclusively for them for which we have been given the Western Wing of the Ground Floor.  A Wing basically contains a Room with Ensuite for each Team Member and the coach with Team Members pairing up to share, with a Common Room at the end which will act as the hub for all of our free time outside of our respective rooms.  During the event all Teams will be restricted to their Wing alone, the only exception being the Main Hall where any Team can collect items or gather for Games at the Stadium.'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"As for the Event itself we are in one of two leagues of four teams which we will play out tomorrow with each team playing each other; then the top two of each league will play in a knockout Tournament on Sunday to decide the Winner.  If you want more information then you can find it here.  Right now though you all have free run of our Wing of the Hotel, just remember there is a 9pm curfew as you all need to assemble here at 8am tomorrow morning.'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Oh and before I forget, you will find your name on the door of your assigned room.  It is all pre-determined and you share with who I say you share with.'
		act 'Go find your Room' : gt 'mod_addedflavour_A69_Events' , 'A69-JuniorCupArrivalEv-5'
	end
	
	if $ARGS[0] = 'A69-JuniorCupArrivalEv-5':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/hotel/HotelBedroom.jpg"></center>'
		*nl
		'You reach the corridor and find you have been assigned Room 107.  Walking straight in you are greeted with a well laid out room with all your amenties covered for.  You are quite happy with how it turned out as it could have been a shithole after all but once you get off the initial high you zone in on the second bed.'
		*nl
		'<i>Oh yeah...  I am sharing with someone.  Oh Shit... I hope to god it is not Christina...</i>'
		*nl
		'With typical karmic timing you hear the door opening behind you.'
		*nl
		'<i>Please don''t be Christina.  Please don''t be Christina...</i>'
		act 'Greet your Room Share' : gt 'mod_addedflavour_A69_Events' , 'A69-JuniorCupArrivalEv-6'
	end
	
	if $ARGS[0] = 'A69-JuniorCupArrivalEv-6':
		*clr & cla
		modVar_AF_EventProgress['A19-ConfidenceEv'] = 1
		gs 'stat'
		'<center><b><font color="<<$npc_fontcolor[''A19'']>>">Avelina Starov</font></b></center>'
		'<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
		'The door opens and to your elated surprise it is not Christina; but instead it is Lina!'
		*nl
		'"Oh hi Lina, I didn''t expect to be sharing with you; if I was to guess I would have figured you would have gone with Christina"'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"Yes, well, I expected so as well but it seems that Mr Nikolaevich has decided to separate us... he has put Lariska with her instead..."</font>'
		*nl
		'"... well no worry!  I''m glad I get to share with you.  Barely think I''ve ever had the chance to spend any time with you anyway."'
		*nl
		'<font color="<<$npc_fontcolor[''A19'']>>">"...  well anyway, I''ll get unpacked..."</font>'
		*nl
		'"... Ok, I guess I''ll do the same."'
		act 'Go about your day' : gs 'mod_addedflavour_A69_Functions' , 'CupHotelSetup' , 'start' & gt 'mod_addedflavour_city_hotel_Bedr' , 'start' , 1
	end
	
	if $ARGS[0] = 'A69-EventGather':
		*clr & cla
		menu_off = 1
		minut += (60 - minut)
		minut += rand(1,2)
		gs 'stat'
		'<center><b>Hotel Entry Hall</b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/hotel/HotelEntryway.jpg"></center>'
		*nl
		'You mill around waiting as the rest of your Team all appear as well.  With everyone in place you Coach brings you all to his attention...'
		if week = 6:
			act 'Listen' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-1'
		elseif week = 7:
			act 'Listen' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-1'
		end
	end
	
	if $ARGS[0] = 'A69-Saturday-1':
		*clr & cla
		menu_off = 1
		minut += rand(1,2)
		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/') + '/big69.jpg"></center>'
		*nl
		if $ARGS[1] = 'Late':
			'<font color="<<$npc_fontcolor[''A69'']>>">"<<$pcs_firstname>>!  Did you forget the time we were to turn up here?  Well you are here now so let''s continue..."</font>'
			*nl
		end
		'<font color="<<$npc_fontcolor[''A69'']>>">"Now; soon we will all be going to the Stadium for the League Matches.  To remind you:  We are in League A and will have one match with each other team in the league over the course of the day.  They have a court setup for each League so all we need to worry about is that we will have a match then the other in League will have theirs, giving us a rest.  Then at the end of the day we will know if we have progressed to the Knockout Tournament tomorrow."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Whatever happens though, just enjoy yourselves out there.  Play well of course!  But do enjoy it; we are lucky to even make it to the Junior Cup."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Anyway, let''s all get on the Bus"</font>'
		act 'Get on the Bus' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-2'
	end
	
	if $ARGS[0] = 'A69-Saturday-2':
		*clr & cla
		minut += rand(3,5)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Volleyball/TeamBus.jpg"></center>'
		*nl
		'You all pile on and within minutes you are off to the stadium with the other Teams shortly behind you.'
		act 'Arrive' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-3'
	end
	
	if $ARGS[0] = 'A69-Saturday-3':
		*clr & cla
		minut += rand(10,15)
		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/') + '/big69.jpg"></center>'
		*nl
		'It doesn''t take long to get to the venue and once there your Coach gets your attention once more...'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Welcome everyone to the Gazprom Arena!..."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"...''s smaller adjacent Volleyball Stadium...  Now, let''s get inside..."</font>'
		*nl
		'With the completion of your Coach''s rousing speech you all head into the Stadium proper.'
		act 'Head-In' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-4'
	end
	
	if $ARGS[0] = 'A69-Saturday-4':
		*clr & cla
		minut += (540 - ((hour * 60) + minut))
		modVar_AF_EventProgress['A69-LeagueMatches'] = 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/stadium/StadiumFront.jpg"></center>'
		*nl
		'Your Team manages to spend the remaining time getting comfortable until finally you are heading to your first match...'
		act 'Play Volleyball!' : gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueA_Games[0] , $modArr_AF_VLeagueA_Games[1] & gt 'mod_addedflavour_Volleyball' , 'MatchBuildup'
	end
	
	if $ARGS[0] = 'A69-Saturday-5':
		*clr & cla
		minut += rand(3,6)
		KILLVAR '$modVar_AF_Row'
		$modVar_AF_Row[] = '<<$modArr_AF_VLeagueA_Games[0]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueA_Games[1]>>'
		if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[0])] += 1
		modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[0])] += modVar_AF_MatchPointsA
		modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[0])] += modVar_AF_MatchPointsB
		if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[1])] += 1
		modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[1])] += modVar_AF_MatchPointsB
		modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[1])] += modVar_AF_MatchPointsA
		modVar_AF_EventProgress['A69-LeagueMatches'] = 2
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/stadium/StadiumFront.jpg"></center>'
		*nl
		'With the game over you head to the Rest Area to get your energy back and check out the other games'
		act 'Prepare for next match' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-6' , 'NextMatch'
	end
	
	if $ARGS[0] = 'A69-Saturday-6':
		*clr & cla
		if $ARGS[1] = 'NextMatch':
			minut += (660 - ((hour * 60) + minut))
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueA_Games[2] , $modArr_AF_VLeagueA_Games[3] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[2])] += 1
			modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[2])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[2])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[3])] += 1
			modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[3])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[3])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueA_Games[2]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueA_Games[3]>>'
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueB_Games[0] , $modArr_AF_VLeagueB_Games[1] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[0])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[0])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[0])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[1])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[1])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[1])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueB_Games[0]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueB_Games[1]>>'
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueB_Games[2] , $modArr_AF_VLeagueB_Games[3] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[2])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[2])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[2])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[3])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[3])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[3])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueB_Games[2]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueB_Games[3]>>'
			pcs_mood += 5
			pcs_health += 10
			pcs_hydra += 30
		end
		gs 'stat'
		'<b>Games Played:</b>'
		*nl
		'<<$modVar_AF_Row[0]>>'
		'<<$modVar_AF_Row[1]>>'
		'<<$modVar_AF_Row[2]>>'
		'<<$modVar_AF_Row[3]>>'
		*nl
		'During the down time you get something to drink and mill around with your Team-mates.  Soon enough it is time for the next match!'
		act 'Check Tournament Information' : $loc = 'mod_addedflavour_A69_Events' & $loc_arg = 'A69-Saturday-6' & gt 'mod_addedflavour_A69_Functions' , 'TournamentInformation'
		act 'Play Volleyball!' : gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueA_Games[4] , $modArr_AF_VLeagueA_Games[5] & gt 'mod_addedflavour_Volleyball' , 'MatchBuildup'
	end
	
	if $ARGS[0] = 'A69-Saturday-7':
		*clr & cla
		minut += rand(3,6)
		KILLVAR '$modVar_AF_Row'
		$modVar_AF_Row[] = '<<$modArr_AF_VLeagueA_Games[4]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueA_Games[5]>>'
		if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[4])] += 1
		modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[4])] += modVar_AF_MatchPointsA
		modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[4])] += modVar_AF_MatchPointsB
		if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[5])] += 1
		modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[5])] += modVar_AF_MatchPointsB
		modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[5])] += modVar_AF_MatchPointsA
		modVar_AF_EventProgress['A69-LeagueMatches'] = 3
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/stadium/StadiumFront.jpg"></center>'
		*nl
		'With the game over you head to the Rest Area to get your energy back and check out the other games'
		act 'Prepare for next match' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-8' , 'NextMatch'
	end
	
	if $ARGS[0] = 'A69-Saturday-8':
		*clr & cla
		if $ARGS[1] = 'NextMatch':
			minut += (780 - ((hour * 60) + minut))
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueA_Games[6] , $modArr_AF_VLeagueA_Games[7] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[6])] += 1
			modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[6])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[6])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[7])] += 1
			modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[7])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[7])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueA_Games[6]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueA_Games[7]>>'
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueB_Games[4] , $modArr_AF_VLeagueB_Games[5] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[4])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[4])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[4])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[5])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[5])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[5])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueB_Games[4]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueB_Games[5]>>'
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueB_Games[6] , $modArr_AF_VLeagueB_Games[7] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[6])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[6])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[6])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[7])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[7])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[7])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueB_Games[6]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueB_Games[7]>>'
			pcs_mood += 5
			pcs_health += 10
			pcs_hydra += 30
		end
		gs 'stat'
		'<b>Games Played:</b>'
		*nl
		'<<$modVar_AF_Row[0]>>'
		'<<$modVar_AF_Row[1]>>'
		'<<$modVar_AF_Row[2]>>'
		'<<$modVar_AF_Row[3]>>'
		*nl
		'During the down time you get something to drink and mill around with your Team-mates.  Soon enough it is time for the next match!'
		act 'Check Tournament Information' : $loc = 'mod_addedflavour_A69_Events' & $loc_arg = 'A69-Saturday-8' & gt 'mod_addedflavour_A69_Functions' , 'TournamentInformation'
		act 'Play Volleyball!' : gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueA_Games[8] , $modArr_AF_VLeagueA_Games[9] & gt 'mod_addedflavour_Volleyball' , 'MatchBuildup'
	end
	
	if $ARGS[0] = 'A69-Saturday-9':
		*clr & cla
		minut += rand(3,6)
		KILLVAR '$modVar_AF_Row'
		$modVar_AF_Row[] = '<<$modArr_AF_VLeagueA_Games[8]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueA_Games[9]>>'
		if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[8])] += 1
		modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[8])] += modVar_AF_MatchPointsA
		modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[8])] += modVar_AF_MatchPointsB
		if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[9])] += 1
		modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[9])] += modVar_AF_MatchPointsB
		modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[9])] += modVar_AF_MatchPointsA
		modVar_AF_EventProgress['A69-LeagueMatches'] = 4
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/stadium/StadiumFront.jpg"></center>'
		*nl
		'With the game over you head to the Rest Area to get your energy back and check out the other games'
		act 'Check Results' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-10' , 'NextMatch'
	end
	
	if $ARGS[0] = 'A69-Saturday-10':
		*clr & cla
		if $ARGS[1] = 'NextMatch':
			minut += (900 - ((hour * 60) + minut))
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueA_Games[10] , $modArr_AF_VLeagueA_Games[11] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[10])] += 1
			modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[10])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[10])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueA_Wins[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[11])] += 1
			modArr_AF_VLeagueA_PointsFor[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[11])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueA_PointsAgainst[arrpos('$modArr_AF_VLeagueA_TeamName',$modArr_AF_VLeagueA_Games[11])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueA_Games[10]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueA_Games[11]>>'
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueB_Games[8] , $modArr_AF_VLeagueB_Games[9] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[8])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[8])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[8])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[9])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[9])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[9])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueB_Games[8]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueB_Games[9]>>'
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_VLeagueB_Games[10] , $modArr_AF_VLeagueB_Games[11] , 'Simulate'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[10])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[10])] += modVar_AF_MatchPointsA
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[10])] += modVar_AF_MatchPointsB
			if modVar_AF_MatchPointsB > modVar_AF_MatchPointsA : modArr_AF_VLeagueB_Wins[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[11])] += 1
			modArr_AF_VLeagueB_PointsFor[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[11])] += modVar_AF_MatchPointsB
			modArr_AF_VLeagueB_PointsAgainst[arrpos('$modArr_AF_VLeagueB_TeamName',$modArr_AF_VLeagueB_Games[11])] += modVar_AF_MatchPointsA
			$modVar_AF_Row[] = '<<$modArr_AF_VLeagueB_Games[10]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_VLeagueB_Games[11]>>'
			pcs_mood += 5
			pcs_health += 10
			pcs_hydra += 30
		end
		gs 'stat'
		'<b>Games Played:</b>'
		*nl
		'<<$modVar_AF_Row[0]>>'
		'<<$modVar_AF_Row[1]>>'
		'<<$modVar_AF_Row[2]>>'
		'<<$modVar_AF_Row[3]>>'
		*nl
		'During the down time you get something to drink and mill around with your Team-mates.  Soon enough all the matches are completed and it is time to check the results!'
		act 'Check Results!' : gt 'mod_addedflavour_A69_Events' , 'A69-Saturday-11'
	end
	
	if $ARGS[0] = 'A69-Saturday-11':
		*clr & cla
		minut += rand(3,6)
		gs 'mod_addedflavour_Volleyball' , 'SortLeagues'
		if arrpos('$modArr_AF_VLeagueA_TeamName','Pavlovsk Falcons') = 0:
			$modVar_AF_TempStr = '1st'
			modVar_AF_Temp = 1
		elseif arrpos('$modArr_AF_VLeagueA_TeamName','Pavlovsk Falcons') = 1:
			$modVar_AF_TempStr = '2nd'
			modVar_AF_Temp = 1
		elseif arrpos('$modArr_AF_VLeagueA_TeamName','Pavlovsk Falcons') = 2:
			$modVar_AF_TempStr = '3rd'
			modVar_AF_Temp = 2
		elseif arrpos('$modArr_AF_VLeagueA_TeamName','Pavlovsk Falcons') = 3:
			$modVar_AF_TempStr = '4th'
			modVar_AF_Temp = 2
		end
		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/') + '/big69.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Well, with all the games completed it turns out that we came <<$modVar_AF_TempStr>> in our league!"</font>'
		*nl
		if modVar_AF_Temp = 1:
			'<font color="<<$npc_fontcolor[''A69'']>>">"That means we have qualified for the Knockout Tournament Tomorrow!  It also means we will be heading back to the Hotel and staying another night so let''s head back."</font>'
			act 'Head Back to the Hotel':
				*clr & cla
				minut += rand(10,15)
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Volleyball/TeamBus.jpg"></center>'
				*nl
				'You head back to the Hotel with the rest of your Team in high spirits after your success...'
				act 'Reach the Hotel' : gt 'mod_addedflavour_city_hotel_Hall' , 'start'
			end
		elseif modVar_AF_Temp = 2:
			'<font color="<<$npc_fontcolor[''A69'']>>">"Unfortunately that means we have not qualified for the Knockout Tournament so for us the Cup is over.  Anyone is welcome to stay in the city of come back with us to Pavlovsk."</font>'
			act 'Stay in the City' : gt 'mod_addedflavour_city_vstadium' , 'start'
			act 'Head back to Pavlovsk' : minut += rand(65,80) & gt 'pav_residential'
		end
	end
	
	if $ARGS[0] = 'A69-Sunday-1':
		*clr & cla
		menu_off = 1
		minut += rand(1,2)
		KILLVAR '$modArr_AF_Knockout_Games'
		if arrpos('$modArr_AF_VLeagueA_TeamName','Pavlovsk Falcons') = 0:
			$modArr_AF_Knockout_Games[] = $modArr_AF_VLeagueB_TeamName[1]
			$modArr_AF_Knockout_Games[] = $modArr_AF_VLeagueB_TeamName[0]
			$modArr_AF_Knockout_Games[] = $modArr_AF_VLeagueA_TeamName[1]
		elseif arrpos('$modArr_AF_VLeagueA_TeamName','Pavlovsk Falcons') = 1:
			$modArr_AF_Knockout_Games[] = $modArr_AF_VLeagueB_TeamName[0]
			$modArr_AF_Knockout_Games[] = $modArr_AF_VLeagueB_TeamName[1]
			$modArr_AF_Knockout_Games[] = $modArr_AF_VLeagueA_TeamName[0]
		end
		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/') + '/big69.jpg"></center>'
		*nl
		if $ARGS[1] = 'Late':
			'<font color="<<$npc_fontcolor[''A69'']>>">"<<$pcs_firstname>>!  8am! I said 8am! Anyway..."</font>'
			*nl
		end
		'<font color="<<$npc_fontcolor[''A69'']>>">"Now; the first match is us up against <<$modArr_AF_Knockout_Games[0]>>.  Then the other match which is <<$modArr_AF_Knockout_Games[1]>> versus <<$modArr_AF_Knockout_Games[2]>>."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"So lets get to the stadium, do our best, and come out of all this with our heads held high.  We have already done very well to get this far after all.  And Remember, they''ll be some time before the first match to <b>collect your thoughts</b> if you need to."</font>'
		act 'Get on the Bus' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-2'
	end
	
	if $ARGS[0] = 'A69-Sunday-2':
		*clr & cla
		minut += rand(3,5)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Volleyball/TeamBus.jpg"></center>'
		*nl
		'You all pile on and within minutes you are off to the stadium with the other three Teams shortly behind you.'
		act 'Arrive' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-3'
	end
	
	if $ARGS[0] = 'A69-Sunday-3':
		*clr & cla
		minut += rand(10,15)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/stadium/StadiumFront.jpg"></center>'
		*nl
		'It doesn''t take long to get to the venue and soon enough your Coach is guiding you into the Rest Area.'
		act 'Head-In' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-4'
	end
	
	if $ARGS[0] = 'A69-Sunday-4':
		*clr & cla
		minut += (540 - ((hour * 60) + minut))
		modVar_AF_EventProgress['A69-KnockoutMatches'] = 1
		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/') + '/big69.jpg"></center>'
		*nl
		'Your Team manages to spend the remaining time getting comfortable until finally you are heading to your first match...'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Seriously though everyone; you are fantastic for getting this far, fantastic trying so hard and fantastic for what you are about to do.  Don''t forget that and you will achieve something here today!"</font>'
		act 'Play Volleyball!' : gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , 'Pavlovsk Falcons' , $modArr_AF_Knockout_Games[0] & gt 'mod_addedflavour_Volleyball' , 'MatchBuildup'
	end
	
	if $ARGS[0] = 'A69-Sunday-5':
		*clr & cla
		minut += rand(10,15)
		pcs_hydra += 30
		modVar_AF_EventProgress['A69-KnockoutMatches'] = 2
		gs 'stat'
		'<b>Games Played:</b>'
		*nl
		'Pavlovsk Falcons <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_Knockout_Games[0]>>'
		if modVar_AF_MatchPointsA < modVar_AF_MatchPointsB:
			$modArr_AF_Knockout_Games[] = $modArr_AF_Knockout_Games[0]
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_Knockout_Games[1] , $modArr_AF_Knockout_Games[2] , 'Simulate'
			'<<$modArr_AF_Knockout_Games[1]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_Knockout_Games[2]>>'
			if modVar_AF_MatchPointsA < modVar_AF_MatchPointsB : $modArr_AF_Knockout_Games[] = $modArr_AF_Knockout_Games[2]
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : $modArr_AF_Knockout_Games[] = $modArr_AF_Knockout_Games[1]
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_Knockout_Games[3] , $modArr_AF_Knockout_Games[4] , 'Simulate'
			'<<$modArr_AF_Knockout_Games[3]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_Knockout_Games[4]>>'
			*nl
			if modVar_AF_MatchPointsA < modVar_AF_MatchPointsB : '<center><b><<$modArr_AF_Knockout_Games[4]>> wins the Junior Cup</b></center>'
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : '<center><b><<$modArr_AF_Knockout_Games[3]>> wins the Junior Cup</b></center>'
			act 'Talk to your Coach' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-6'
		elseif modVar_AF_MatchPointsA > modVar_AF_MatchPointsB:
			gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , $modArr_AF_Knockout_Games[1] , $modArr_AF_Knockout_Games[2] , 'Simulate'
			'<<$modArr_AF_Knockout_Games[1]>> <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_Knockout_Games[2]>>'
			if modVar_AF_MatchPointsA < modVar_AF_MatchPointsB : $modArr_AF_Knockout_Games[] = $modArr_AF_Knockout_Games[2]
			if modVar_AF_MatchPointsA > modVar_AF_MatchPointsB : $modArr_AF_Knockout_Games[] = $modArr_AF_Knockout_Games[1]
			$modVar_AF_Music = 'VolleyballFinal'
			act 'Play Volleyball!' : gs 'mod_addedflavour_Volleyball' , 'MatchSetup' , 'Tournament' , 'Pavlovsk Falcons' , $modArr_AF_Knockout_Games[3] & gt 'mod_addedflavour_Volleyball' , 'MatchBuildup'
		end
	end
	
	if $ARGS[0] = 'A69-Sunday-6':
		*clr & cla
		minut += rand(1,2)
		modVar_AF_EventProgress['A69-KnockoutMatches'] = 3
		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/') + '/big69.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Well, we unfortunately didn''t win.  Still, you all should be very proud of your achievements here; you are part of the very few that even make it this far into a competition and for that you should be pleased with yourselves.  Anyway, any of you are welcome to stay here in the city or come back with us on the Bus to Pavlovsk."</font>'
		act 'Stay in the City' : gt 'mod_addedflavour_city_vstadium' , 'start'
		act 'Head back to Pavlovsk' : minut += rand(65,80) & gt 'pav_residential'
	end
	
	if $ARGS[0] = 'A69-Sunday-7':
		*clr & cla
		minut += rand(3,6)
		modVar_AF_EventProgress['A69-KnockoutMatches'] = 3
		gs 'stat'
		'<b>Games Played:</b>'
		*nl
		'Pavlovsk Falcons <b><<modVar_AF_MatchPointsA>></b> - <b><<modVar_AF_MatchPointsB>></b> <<$modArr_AF_Knockout_Games[3]>>'
		if modVar_AF_MatchPointsA < modVar_AF_MatchPointsB:
			*nl
			'<center><b><<$modArr_AF_Knockout_Games[3]>> wins the Junior Cup</b></center>'
			act 'Talk to your Coach' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-6'
		elseif modVar_AF_MatchPointsA > modVar_AF_MatchPointsB:
			*nl
			'<center><b>Pavlovsk Falcons wins the Junior Cup</b></center>'
			act 'Talk to your Coach' : gt 'mod_addedflavour_A69_Events' , 'A69-Sunday-8'
		end
	end
	
	if $ARGS[0] = 'A69-Sunday-8':
		*clr & cla
		minut += rand(1,2)
		modVar_AF_EventProgress['A69-KnockoutMatches'] = 3
		modVar_AF_EventOpen['A69-JuniorCupWinners'] = 1
		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/') + '/big69.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Fantastic Job Everyone!!!  You are the 2017 winners of the Junior Cup!!!"</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Now before you all go mad we have a bus driver quite looking forward to getting home so you can celebrate on the bus or I will understand if you want to stay here in the city!"</font>'
		act 'Stay in the City' : gt 'mod_addedflavour_city_vstadium' , 'start'
		act 'Head back to Pavlovsk' : minut += rand(65,80) & gt 'pav_residential'
	end
	
	if $ARGS[0] = 'A69-HotelSex-1':
		*clr & cla
		menu_off = 1
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'After making sure you weren''t seen you open his Hotel Door and run in before he even has a chance to refuse you.  Landing square on his bed wakes him up well enough but he is still a bit groggy...'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"<<$pcs_nickname>>!  What...  what are you doing in here?  What time is... Wait!  No-one saw you did they?"</font>'
		act 'Respond' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-2'
	end
	
	if $ARGS[0] = 'A69-HotelSex-2':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Of course no-one saw me; they are all in their curfew that you imposed!  The curfew you imposed for this very reason I am sure..."'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"I did it so you all could get some sleep for the early start tomorrow!"</font>'
		*nl
		'"Sure you did!  It couldn''t possible be to allow what I am about to do now..."'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"... what are you about do... oh..."</font>'
		act 'Suck him off' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-3'
	end
	
	if $ARGS[0] = 'A69-HotelSex-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'While retaining you overall control of the situation you pull away the duvet and put his cock straight into your mouth.  You suck hard and enthusiastically in order to rouse it quickly to its peak.'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', we have to be quiet but don''t you stop..."</font>'
		act 'Remove your clothes' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-4'
	end
	
	if $ARGS[0] = 'A69-HotelSex-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'All the while keeping his hardening shaft lodged between your eager lips, you start removing your clothes.  Then the feeling hits you and you know you need to get naked as soon as possible.'
		act 'Get more of his attention' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-5'
	end
	
	if $ARGS[0] = 'A69-HotelSex-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/teacher/Mikhail/A69-HotelSex-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'There is no denying his desire now, he wants you and shows it with his hands preparing you for what is to come.'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"I don''t how I could ever deny you.  I want you now.  I want your body on my cock until I blow."</font>'
		act 'Get more of his attention' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-6'
	end
	
	if $ARGS[0] = 'A69-HotelSex-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/teacher/Mikhail/A69-HotelSex-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'In one swift movement you release his cock from your oral grasp and swing a leg over, kissing his glands with your vaginal lips.'
		*nl
		'"I don''t know.  I''m not sure you are really interested in me.  It took a lot of convincing to get this far..."'
		*nl
		'You can see the moment in his eyes where he understands you are waiting for him to act and meets it by grabbing your ass and pulling you down on his hard shaft.'
		act 'Get some fucking' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-7'
	end
	
	if $ARGS[0] = 'A69-HotelSex-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You ride his cock hard; enjoying the feel of it as it surges up into you before retreating to do so again.  The whole act is amplified by the awareness that you could be caught at any time...'
		act 'Let him take control' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-8'
	end
	
	if $ARGS[0] = 'A69-HotelSex-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Just as you are losing yourself to the moment he pulls you over and lays you down on the bed, not allowing any time for his cock to be outside of your enticing pussy.'
		*nl
		'He hammers into you hard causing your whole body to shake with every thrust.  All he can think about is the act of fucking you with all his might.'
		act 'Change Position' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-9'
	end
	
	if $ARGS[0] = 'A69-HotelSex-9':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You could feel how close he was to reaching his peak when he pulled out to turn you over onto your front, obviously wanting to get more time out of your body.  Not that you are complaining; with every thrust you are surging to your own pleasurable peak...'
		act 'Cum Hard' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-10'
	end
	
	if $ARGS[0] = 'A69-HotelSex-10':
		*clr & cla
		$orgasm_or = 'yes'
		gs 'arousal' , 'vaginal' , 5
		gs 'arousal', 'end'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'There is only so long you can take being pounded into until your own orgasm explodes onto the scene, and sure it does!'
		*nl
		'You do your best to contain your own audible elation while your body shakes with primal delight!  The feeling of which is triggering the oncoming of his own so he pulls out and lays you down to greet it...'
		act 'Take his cum' : gt 'mod_addedflavour_A69_Events' , 'A69-HotelSex-11'
	end
	
	if $ARGS[0] = 'A69-HotelSex-11':
		*clr & cla
		minut += rand(1,3)
		gs 'boyStat', 'A69'
		sexpartkno = 1
		spafinloc = 12
		gs 'Cum_Manage'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/school/teacher/Mikhail/A69-HotelSex-11' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You lay back, drowning in your own satisfaction, as he rains his cum into your waiting mouth.'
		*nl
		'<font color="<<$npc_fontcolor[''A69'']>>">"Damn ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; that was amazing.  Don''t get me wrong I am damn glad we didn''t get caught but that was mind-blowing.  Quickly now, you need to get back to your room!"</font>'
		*nl
		'You regain your composure quickly and head back to your room to get to sleep...'
		act 'Get back to your room' : gt 'mod_addedflavour_city_hotel_Bedr' , 'start' , 1
	end
	
	if $ARGS[0] = 'A69-TeamResearch':
		*clr & cla
		minut += rand(175,190)
		modArr_AF_VBallT_PlayerSkill[arrpos('$modArr_AF_VBallT_PlayerName','<<$pcs_firstname>> <<$pcs_lastname>>')] += ((100 - modArr_AF_VBallT_PlayerSkill[arrpos('$modArr_AF_VBallT_PlayerName','<<$pcs_firstname>> <<$pcs_lastname>>')]) / 2)
		modVar_AF_EventLock['A69-JuniorCupResearch'] = daystart
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Volleyball/Research.jpg"></center>'
		*nl
		'You spend a considerable amount of time studying your opponents; getting to know their skill levels, how they play and how best to position yourself to exploit it...'
		act 'Return' : gt $loc, $loc_arg
	end

--- mod_addedflavour_A69_Events ---------------------------------