AddedFlavour/locations/mod_addedflavour_SFLA_Events.qsrc

# mod_addedflavour_SFLA_Events

	if $ARGS[0] = 'SFLA-AptLive-Notice':
		*clr & cla
		minut += rand(1,3)
		modVar_AF_EventProgress['SFLA-AptLive'] = 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/island/university/Notice.jpg"></center>'
		*nl
		'<i>Looking closer it is an Advert for an additional tenant for a Shared Apartment.  Female Only.  Looks like if I''m interested then I am to go the apartment at the City Centre.  Sounds interesting...</i>'
		act 'Return' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-1':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/FrontDoor.jpg"></center>'
		*nl
		'Fortunately the place is easy to find as its just a short trip one of the streets leaving the City Centre.  Soon the Front Door of the Apartment is visible and so you walk up to it.  A Slight nervousness washes over you when you realise that this is a bigger plunge into the unknown then you realised; maybe it is too much...'
		act 'Knock on the door' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-2'
		act 'Bottle it!' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-2':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/FrontDoor.jpg"></center>'
		*nl
		'After waiting a few moments you hear someone coming down the stairs behind the door.  Holding your nerve with every echoing step you wait for the door to open, and sure enough it does.'
		act 'See who greets you' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-3'
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-3':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Elizabeth/Interaction 26.jpg"></center>'
		*nl
		'A beautiful girl opens the door and steps out into the street to greet you.'
		*nl
		'"Hello, I''m hear about renting a room.  I saw your advert pinned up at the University, have I got the right place?"'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Yes, you very much have!  Come on in and I''ll introduce you to everyone.  Good job they all happen to be in!"</font>'
		*nl
		'You detect an accent to her Russian indicating she is foreign but her ability to speak Russian is good enough to hide it well.  In the mean time she has guided you up the communal stairs and into the Apartment itself.'
		act 'Enter the apartment' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-4'
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-4':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Elizabeth/Interaction 1.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Come in and sit down and I''ll get down with the introductions!"</font>'
		*nl
		'You walk in and sit yourself down on one of the free chairs with the girl doing the same.  You see that there is two more girls sitting on the larger sofa.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Well let''s get started!  As you may have guessed already, I''m not from around here; and to make it more interesting neither is anyone else in the Apartment.  This might all be a bit strange so I''ll explain the situation.  We have all come from abroad to study at the University while also learning Russian.  You don''t need to worry though as we are all reasonably proficient at it, you see we were all reasonable at speaking it before coming here and we have all just done a six month course at the Institute of Foreign Language to ingratitate ourselves; it''s where we all met!"</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"As for who we are, I''ll introduce ourselves one by one, starting with myself.  My name is Elizabeth Clarke and I''m from Bath in the UK, and this here is..."</font>'
		*nl
		'She gestures towards one of the girls on the sofa.'
		act 'Look over' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-5'
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-5':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Janina/Interaction 3.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Janina Wahls, and she is from Darmstadt in Germany."</font>'
		*nl
		'"Hello"'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Hi there, nice to meet you."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"And sitting along side her is..."</font>'
		act 'Look towards' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-6'
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-6':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Kazumi/Interaction 7.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Kobayashi Kazumi all the way from Kagoshima in Japan."</font>'
		*nl
		'"Hi"'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"And hello to you!  You can call me Kaz for short!"</font>'
		*nl
		'You look back over to Elizabeth.'
		act 'Let her finish' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-7'
	end	
	
	if $ARGS[0] = 'SFLA-JoinAptEv-7':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Elizabeth/Interaction 1.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"And here we all are!  As you may have figured out, we are very eager to have a native Russian here living with us, not just to test out our Russian but also so we can have you registered as living here."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Rent per person would be <<1000 * difficulty>>₽ a week in addition to any sundries bought for the Apartment such as food and what not.  All finances however go through the House Account but everyone''s contribution is individually tracked so don''t worry about one person not pulling their weight!  After that it is basically the same as any other Apartment I guess."</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"So after all that I suppose the ultimate question is; are you interested in staying here with us?"</font>'
		act 'Yes!' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-JoinAptEv-8'
	end
	
	if $ARGS[0] = 'SFLA-JoinAptEv-8':
		*clr & cla
		modVar_AF_EventProgress['SFLA-AptLive'] = 2
		modVar_AF_EventLock['SFLA-AptInvEv'] = daystart
		modVar_AF_EventOpen['SFLA-AptInvEv-PhoneCall'] = daystart
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Elizabeth/Interaction 1.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Well that''s fantastic!  In which case if you give us your details then I''ll pop them with everyone else whose interested and we''ll get in touch to let you know.  But you needn''t be worried, you are by far the best choice we have had so far!  So just remember that you will need a Bank Account setup so you can pay to the House Account which will include a deposit of 1,000₽.</font>'
		*nl
		'You hand her all of your details before thanking all of them for meeting you.  Then you head out back into the City Centre.'
		act 'Return' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-ShoppingEv':
		*clr & cla
		menu_off = 1
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'torgcentr' , 'Shopping'
		minut += 20
		pcs_mood += 15
		gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Shopping' , $modVar_AF_SFLA_SharedActPeopleAbv
		*nl
		'<<$modVar_AF_SFLA_SharedActPeople>> hit the shopping centre like a typhoon; bouncing from shop to shop and generally having a fantastic time together.  You try on clothes, compliment eachothers dress sense and talk about how certain pieces of furniture would look in the apartment.  Overall you enjoy the experience immensely!'
		act 'Stop the chaos' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-AptGuest-Consider':
		*clr & cla
		'<center><b><font color="maroon">Spare Room</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/SpRmLv2.jpg"></center>'
		*nl
		'You stand here looking at the room you worked so hard to renovate, thinking about how you could have someone come visit knowing that they could use this room to sleep in...'
		if Storyline = 1 and npc_rel['A34'] >= 75:
			act 'Invite Kolka' : gt 'mod_addedflavour_A34_Events' , 'SFLA-AptGuest-ConsiderKolka'
		end
		act 'Nah, can''t be bothered' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-AptLive-MoveIn':
		*clr & cla
		gs 'mod_addedflavour_SFLA_Functions' , 'configureSFLA'
		modVar_AF_EventProgress['SFLA-AptLive'] = 3
		Karta -= 1000
		modVar_AF_SFLA_AptContributions['PCS'] = 1000
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/system/phone.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Hi there, is that ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '?"</font>'
		*nl
		'"Yes that''s me."'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Fantastic!  It''s me, Elizabeth!  Just messaging to let you know that you have the Room, you can move in immediately!"</font>'
		*nl
		'"That''s brilliant!  I''ll get the deposit paid in now."'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Perfect!  See you soon!"</font>'
		act 'Put phone away' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-AptLive-KickOut':
		*clr & cla
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact'  , 700 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , 5
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact'  , 701 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , 5
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact'  , 702 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , 5
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/KickoutTalk.jpg"></center>'
		*nl
		'You are startled as you walk into the Lounge to see that Elizabeth, Kazumi and Janina are all here, seemingly waiting for you...'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', sit down.  We need to talk."</font>'
		*nl
		'You do so, fully aware of all three of them staring at you as you do...'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"We need to discuss your debt.  You owe the house over 5000₽ and it is getting too much.  We need to know you can pay it now; well can you?"</font>'
		*nl
		if karta >= ((modVar_AF_SFLA_AptContributions['PCS'] - modVar_AF_SFLA_AptContributions['PCS']) - modVar_AF_SFLA_AptContributions['PCS']):
			act 'Yes, I will pay' :
				*clr & cla
				karta -= ((modVar_AF_SFLA_AptContributions['PCS'] - modVar_AF_SFLA_AptContributions['PCS']) - modVar_AF_SFLA_AptContributions['PCS'])
				modVar_AF_SFLA_AptContributions['PCS'] = 0
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/KickoutTalk.jpg"></center>'
				*nl
				'"Yes, yes of course I will pay it right now!  I don''t know how it got to this point, I guess I just lost focus on the finances and let it slip my mind...  Everyone, I''m so sorry, I hope you can forgive me?"'
				*nl
				'Elizabeth turns to look at the others prompting you to do the same.'
				*nl
				'<font color="<<$npc_fontcolor[''A700'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ' I am so glad, I just knew it was a misunderstanding."</font>'
				*nl
				'<font color="<<$npc_fontcolor[''A702'']>>">"I knew this was a storm in a teacup.  ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ' can be trusted and I''m happy we got this all sorted out."</font>'
				*nl
				'<font color="<<$npc_fontcolor[''A701'']>>">"Well, I think we are all in agreement; all is forgiven!  Now lets hug this out and forget it ever happened."</font>'
				*nl
				'You go over and get the group hug you''ve been craving since this whole ordeal began; a single tear managing to break the emotional wall you put up becoming the only indication of how bad you fealt that it got this far.'
				act 'Recover' : gt $loc, $loc_arg
			end
		end
		act 'No, I can''t' :
			*clr & cla
			modVar_AF_EventProgress['SFLA-AptLive'] = 4
			gs 'stat'
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/KickoutTalk.jpg"></center>'
			*nl
			'"No... I can''t... I don''t have enough money..."'
			*nl
			'The look of shame from everyone as they look back at you is unbearable, but you sit back and await their onslaught.'
			*nl
			'<font color="<<$npc_fontcolor[''A702'']>>">"I fucking knew she was a wrong''un from the start, just using us!"</font>'
			*nl
			'Kazumi can''t even bring herself to address you, so she just looks down and retreats into herself...'
			*nl
			'<font color="<<$npc_fontcolor[''A701'']>>">"I can''t believe you would do this to us.  This wasn''t just something you could ignore; we will now be lumbered with this debt of yours!  You know what, just get out."</font>'
			*nl
			'"What...."'
			*nl
			'<font color="<<$npc_fontcolor[''A701'']>>">"I said get out now!  We will have to sort this out together but you... you are nothing to us now.  Whatever good you might have brung has been erased by what you have done."</font>'
			*nl
			'<font color="<<$npc_fontcolor[''A702'']>>">"Yes, get the fuck out ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!!  Piss off back to whatever backwater shithole you crawled out of, maybe you can find someone elses life to parasite off of."</font>'
			*nl
			'You stand up, your emotions in complete lockdown.  Kazumi just looks at you, herself unable to talk to you, before running to her room.  And so you walk out the door which in turn is promptly slammed behind you.  Once again, you are alone...'
			act 'Walk into the street' : gt 'city_center'
		end
	end
	
	if $ARGS[0] = 'SFLA-AptLive-BaRm':
		menu_off = 0
		'<b>Shelf Contents:</b>'
		if modVar_AF_SFLA_AptPerishables['Razor'] > 0:
			'A <a href="exec: gt ''mod_addedflavour_SFLA_Events'' , ''shave_options'' ">Razor</a> that is good for <b><<modVar_AF_SFLA_AptPerishables[''Razor'']>></b> shaves.  ' + iif(stanok >= 25 and modVar_AF_SFLA_AptPerishables['Razor'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''razor'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Razor</a>','<font color="gray">Replace Razor</font>')
		elseif modVar_AF_SFLA_AptPerishables['Razor'] = 0:
			'A faint outline indicates there was once a Razor here.  ' + iif(stanok >= 25,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''razor'' , ''add'' , ''PCS'' ">Replace Razor</a>','<font color="gray">Replace Razor</font>')
		end
		if modVar_AF_SFLA_AptPerishables['Ointment'] > 0:
			'A Tube of Chafing Ointment with roughly <b><<modVar_AF_SFLA_AptPerishables[''Ointment'']>></b> applications remaining.  ' + iif(mosolmaz >= 10 and modVar_AF_SFLA_AptPerishables['Ointment'] <= 2,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''ointment'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Ointment</a>','<font color="gray">Replace Ointment</font>')
		elseif modVar_AF_SFLA_AptPerishables['Ointment'] = 0:
			'A faint outline indicates there was once a Tube of Chafing Ointment here.  ' + iif(mosolmaz >= 10 and modVar_AF_SFLA_AptPerishables['Ointment'] <= 2,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''ointment'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Ointment</a>','<font color="gray">Replace Ointment</font>')
		end
		if modVar_AF_SFLA_AptPerishables['Tampon'] > 0:
			'A Box of Tampons with <b><<modVar_AF_SFLA_AptPerishables[''Tampon'']>></b> tampons contained within.  ' + iif(tampon >= 20 and modVar_AF_SFLA_AptPerishables['Tampon'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''tampon'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Add Tampons</a>','<font color="gray">Add Tampons</font>')
		elseif modVar_AF_SFLA_AptPerishables['Tampon'] = 0:
			'An empty Box of Tampons.  ' + iif(tampon >= 20 and modVar_AF_SFLA_AptPerishables['Tampon'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''tampon'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Add Tampons</a>','<font color="gray">Add Tampons</font>')
		end
		if modVar_AF_SFLA_AptPerishables['Sanpad'] > 0:
			'A Container of Sanitary Pads with <b><<modVar_AF_SFLA_AptPerishables[''Sanpad'']>></b> contained within.  ' + iif(sanpad >= 20 and modVar_AF_SFLA_AptPerishables['Sanpad'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''sanpad'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Add Sanitary Pads</a>','<font color="gray">Add Sanitary Pads</font>')
		elseif modVar_AF_SFLA_AptPerishables['Sanpad'] = 0:
			'An empty Container of Sanitary Pads.  ' + iif(sanpad >= 20 and modVar_AF_SFLA_AptPerishables['Sanpad'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''sanpad'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Add Sanitary Pads</a>','<font color="gray">Add Sanitary Pads</font>')
		end
		if modVar_AF_SFLA_AptPerishables['Deodorant'] > 0:
			'A Deodorant with about <b><<modVar_AF_SFLA_AptPerishables[''Deodorant'']>></b> remaining.  ' + iif(deodorant >= 40 and modVar_AF_SFLA_AptPerishables['Deodorant'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''deodorant'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Deodorant</a>','<font color="gray">Replace Deodorant</font>')
		elseif modVar_AF_SFLA_AptPerishables['Deodorant'] = 0:
			'A used-up Deodorant Spray.  ' + iif(deodorant >= 40 and modVar_AF_SFLA_AptPerishables['Deodorant'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''deodorant'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Deodorant</a>','<font color="gray">Replace Deodorant</font>')
		end
		if modVar_AF_SFLA_AptPerishables['Shampoo'] > 0:
			'A Shampoo Bottle with about <b><<modVar_AF_SFLA_AptPerishables[''Shampoo'']>></b> uses remaining.  ' + iif(shampoo >= 30 and modVar_AF_SFLA_AptPerishables['Shampoo'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''shampoo'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Shampoo</a>','<font color="gray">Replace Shampoo</font>')
		elseif modVar_AF_SFLA_AptPerishables['Deodorant'] = 0:
			'A used-up Shampoo Bottle.  ' + iif(shampoo >= 30 and modVar_AF_SFLA_AptPerishables['Shampoo'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''shampoo'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Replace Shampoo</a>','<font color="gray">Replace Shampoo</font>')
		end
		if modVar_AF_SFLA_AptPerishables['Painkillers'] > 0:
			'A Bottle of ' + iif(pain['total'] > 0 and pain['killer'] = 0,'<a href="exec: gs ''mod_addedflavour_SFLA_Events'' , ''takepainkiller'' ">Painkillers</a>','Painkillers') + ' with <b><<modVar_AF_SFLA_AptPerishables[''Painkillers'']>></b> tablets contained within.  ' + iif(painkiller >= 50 and modVar_AF_SFLA_AptPerishables['Painkillers'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''painkillers'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Add Painkillers</a>','<font color="gray">Add Painkillers</font>')
		elseif modVar_AF_SFLA_AptPerishables['Painkillers'] = 0:
			'An empty Bottle of Painkillers.  ' + iif(painkiller >= 50 and modVar_AF_SFLA_AptPerishables['Painkillers'] <= 10,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''painkillers'' , ''add'' , ''PCS'' & gt $loc , $loc_arg ">Add Painkillers</a>','<font color="gray">Add Painkillers</font>')
		end
		*nl
		if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:*clr & cla & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Manage your piercings</a>'
		if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $loc_arg">Inject silicone into your breast implants.</a>'
		if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $loc_arg">Drain silicone from your breast implants.</a>'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 0:
			if modVar_AF_SFLA_AptRProg['BaRm'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
				act 'Soak in the bath (0:30)' : gs 'mod_addedflavour_SFLA_Events' , 'bath'
				act 'Take a shower (0:15)' : gs 'mod_addedflavour_SFLA_Events' , 'shower'
			else
				act 'Take a shower (0:15)' : gs 'mod_addedflavour_SFLA_Events' , 'shower'
			end
		end
		if pcs_breath ! 1 or cumloc[12] = 1:
			gs 'mod_addedflavour_SFLA_Events' , 'bteeth'
		end
		gs 'mod_addedflavour_SFLA_Events' , 'itampon'
		gs 'mod_addedflavour_SFLA_Events', 'prvt_pee'
		gs 'mod_addedflavour_SFLA_Events' , 'change_clothes'
		'<a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<bmi_calc>>.<br><<$bmi_desc>></center>''">Check weight on the scales</a>'
		gs 'mod_addedflavour_SFLA_Events', 'basin'
		gs 'mod_addedflavour_SFLA_Events', 'brit'
		gs 'mod_addedflavour_SFLA_Events', 'enema'
		if modVar_AF_SFLA_AptPerishables['Ointment'] > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
			gs 'mod_addedflavour_SFLA_Events' , 'aointment'
		end
		gs 'mod_addedflavour_SFLA_Events', 'preg'
		if breastpump > 0 and bp_unbox >= 1:
			act 'Use breast pump':
				gt 'lact_bp', 'bp_milking'
			end
		elseif breastpump > 0 and bp_unbox <= 0:
			'<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
		elseif breastpump <= 0:
			gs 'lact_bp', 'massage'
		end
	end
	
	if $ARGS[0] = 'takepainkiller':
		pain['killer'] += 1
		painkiller -= 1
		pcs_hydra += 20
		gs 'stat'
		*nl
		'<b>You take a painkiller and gulp it down with a glass of water.</b>'
	end
	
	if $ARGS[0] = 'shave_options':
		menu_off = 1
		*clr & cla
		gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
		if shave_img_hgt = 0:shave_img_hgt = 100
		!! images handled using FUNC(''$pube_image'')
		'<h3><center><b><font color="maroon">Shaving optons</b></h3><br><center><font color="maroon">Here you can choose your style for pubic hair and which body parts you wish to shave.</font></center>'
		'<br><center><table border=0 cellspacing=<<shave_img_hgt/25>> cellpadding=5>'
		*P '<TR><TD><center><a href="exec:view''images/pc/body/pussy/hair/pussy.jpg''"><img Height = <<shave_img_hgt>> src="images/pc/body/pussy/hair/pussy.jpg"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],2)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],2)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],3)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],3)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],4)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],4)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],5)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],5)>>"></a></center></TD>'
		'<TR><TD><center>'
		if pubestyle ! 1:
			'<a href="exec:pubestyle = 1 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Clean Shave</a>'
		else
			'Clean Shave'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 2 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 2 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">V-shaped</a>'
		else
			'V-shaped'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 3 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 3 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Triangle-shaped</a>'
		else
			'Triangle-shaped'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 4 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 4 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Landing-strip</a>'
		else
			'Landing-strip'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 5 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 5 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Heart-shaped</a>'
		else
			'Heart-shaped'
		end
		'</center></TD>'
		*P '<TR><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],6)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],6)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],7)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],7)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],8)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],8)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],9)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],9)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',26,pcs_pubecol[2],10)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',26,pcs_pubecol[2],10)>>"></a></center></TD>'
		'<TR><TD><center>'
		if pubestyle ! 6 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 6 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Flame-shaped</a>'
		else
			'Flame-shaped'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 7 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 7 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Cross-Shaped</a>'
		else
			'Cross-Shaped'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 8 and pcs_pubes > 20:
			'<a href="exec:pubestyle = 8 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Trimmed</a>'
		else
			'Trimmed'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 9 and pcs_pubes > 25:
			'<a href="exec:pubestyle = 9 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Small Bush</a>'
		else
			'Small Bush'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 10 and pcs_pubes > 35:
			'<a href="exec:pubestyle = 10 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Full Bush</a>'
		else
			'Full Bush'
		end
		*P '<TR><TD><center><a href="exec:view''<<FUNC(''$pube_image'',5,pcs_pubecol[2],11)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',5,pcs_pubecol[2],11)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],12)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],12)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],13)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],13)>>"></a></center></TD><TD><center><a href="exec:view''<<FUNC(''$pube_image'',16,pcs_pubecol[2],14)>>''"><img Height = <<shave_img_hgt>> src="<<FUNC(''$pube_image'',16,pcs_pubecol[2],14)>>"></a></center></TD>'
		*nl
		'<TR><TD><center>'
		if pubestyle ! 11 and pcs_pubes > 10:
			'<a href="exec:pubestyle = 11 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Lazy</a>'
			'(don''t immediately shave stubble)'
		else
			'Lazy'
			'(don''t immediately shave stubble)'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 12 and pcs_pubes > 15:
			'<a href="exec:pubestyle = 12 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Mini Bush</a>'
		else
			'Mini Bush'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 13 and pcs_pubes > 20:
			'<a href="exec:pubestyle = 13 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Bushy Strip</a>'
		else
			'Bushy Strip'
		end
		'</center></TD><TD><center>'
		if pubestyle ! 14 and pcs_pubes > 20:
			'<a href="exec:pubestyle = 14 & '+iif(shave_menu = 3,'shave_menu = 1', 'shave_menu = 2')+' & gt ''mod_addedflavour_SFLA_Events'', ''shave_options''">Rectangle</a>'
		else
			'Rectangle'
		end
		'</center></TD><TR><center>'
		'The razor will last for <b><<modVar_AF_SFLA_AptPerishables[''Razor'']>></b> more shaves.'
		*nl
		'<center><b>Change your shaving routine:</b></center>'
		'<center><font color="grey">Note: Choosing to never shave, or to shave legs only, will remove your chosen shave style.<br> You can only choose a style if you currently have enough hair to support it.</font></center>'
		*nl
		!if shave_menu = 0:nothing
		!if shave_menu = 1:legs and pussy
		!if shave_menu = 2:pussy only
		!if shave_menu = 3:legs only
		if shave_menu = 0:
			$shave_chosen = 'doesn''t include any shaving options.'
			$shave_time = ''
			'Never shave | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave everything.''">Everything</a>','<a href="exec:shave_menu = 1 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Everything</a>')+' | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave your pussy.''">Pussy only</a>','<a href="exec:shave_menu = 2 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Pussy only</a>')+' | <a href="exec:shave_menu = 3 & pubestyle = 0 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Legs only</a>'
		elseif shave_menu = 1:
			$shave_chosen = 'involves shaving your legs and maintaining your current pubic style.'
			$shave_time = 'It takes 15 minutes to complete this routine.'
			'<a href="exec:shave_menu = 0 & pubestyle = 0 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Never shave</a> | Everything | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave your pussy.''">Pussy only</a>','<a href="exec:shave_menu = 2 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Pussy only</a>')+' | <a href="exec:shave_menu = 3 & pubestyle = 0 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Legs only</a>'
		elseif shave_menu = 2:
			$shave_chosen = 'involves not shaving your legs and maintaining your current pubic style.'
			$shave_time = 'It takes 10 minutes to complete this routine.'
			'<a href="exec:shave_menu = 0 & pubestyle = 0 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Never shave</a> | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave everything.''">Everything</a>','<a href="exec:shave_menu = 1 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Everything</a>')+' | Pussy only | <a href="exec:shave_menu = 3 & pubestyle = 0 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Legs only</a>'
		elseif shave_menu = 3:
			$shave_chosen = 'involves shaving your legs and not maintaining any chosen pubic style.'
			$shave_time = 'It takes 5 minutes to complete this routine.'
			'<a href="exec:shave_menu = 0 & pubestyle = 0 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Never shave</a> | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave everything.''">Everything</a>','<a href="exec:shave_menu = 1 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Everything</a>')+' | '+iif(pubestyle = 0,'<a href="exec: msg ''You must choose a shave style before you can choose to shave your pussy.''">Pussy only</a>','<a href="exec:shave_menu = 2 & gs ''mod_addedflavour_SFLA_Events'', ''shave_options''">Pussy only</a>')+' | Legs only'
		end
		*nl
		'<center>Your current routine <<$shave_chosen>> <br><<$shave_time>></center>'
		'</table></center>'
	
		act 'Return':menu_off = 0 & gt $loc, $loc_arg
		act 'Set image height for this view':
			shave_img_hgt = input("Enter height in pixels you want for images on this page<br>(default 100, min 50, max 500)")
			if shave_img_hgt < 50:
				shave_img_hgt = 50
			elseif shave_img_hgt > 500:
				shave_img_hgt = 500
			end
			gt 'mod_addedflavour_SFLA_Events', 'shave_options'
		end
	end
	
	if $ARGS[0] = 'pirManage':
		cla
		menu_off = 1
		'<center>Piercing Management</center>'
		*nl
		if pirsA > 0:
			if pirsA < 10000:
				'<center><a href="exec:*clr & cla & pirsA = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove tongue piercing</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirTongue">Insert tongue piercing</a>.</center>'
			end
			*nl
		end
		if pirsB > 0:
			if pirsB < 10000:
				'<center><a href="exec:*clr & cla & pirsB = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove lip piercing</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirLip">Insert lip piercing</a>.</center>'
			end
			*nl
		end
		if pirsC > 0:
			if pirsC < 10000:
				'<center><a href="exec:*clr & cla & pirsC = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove ear piercings</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirEars">Insert ear piercings</a>.</center>'
			end
			*nl
		end
		if pirsD > 0:
			if pirsD < 10000:
				'<center><a href="exec:*clr & cla & pirsD = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove nose piercing</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirNose">Insert nose piercing</a>.</center>'
			end
			*nl
		end
		if pirsE > 0:
			if pirsE < 10000:
				'<center><a href="exec:*clr & cla & pirsE = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove eyebrow piercing</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirBrow">Insert eyebrow piercing</a>.</center>'
			end
			*nl
		end
		if pirsF > 0:
			if pirsF < 10000:
				'<center><a href="exec:*clr & cla & pirsF = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove nipple piercings</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirNips">Insert nipple piercings</a>.</center>'
			end
			*nl
		end
		if pirsN > 0:
			if pirsN < 10000:
				'<center><a href="exec:*clr & cla & pirsN = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove navel piercing</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirNavel">Insert navel piercing</a>.</center>'
			end
			*nl
		end
		if pirsG > 0:
			if pirsG < 10000:
				'<center><a href="exec:*clr & cla & pirsG = 10000 & pierWearCount -= 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' ">Remove pussy piercings</a>.</center>'
			else
				'<center><a href="exec:dynamic $pirPubic">Insert pussy piercings</a>.</center>'
			end
			*nl
		end
	
		act 'Continue': menu_off = 0 & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'pir_title':
		*clr & cla
		'<center><b>Available piercings - select one by clicking the image</b></center>'
		*nl
	end
	
	if $ARGS[0] = 'pirTongue':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:looptongue_pir
			if dyneval('RESULT = PirsA<<i>>_owned') = 1:*p '<a href="exec:pirsA = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/a<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 4:jump 'looptongue_pir'
	end
	
	if $ARGS[0] = 'pirLip':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:looplip_pir
			if dyneval('RESULT = PirsB<<i>>_owned') = 1:*p '<a href="exec:pirsB = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/b<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 7:jump 'looplip_pir'
	end
	
	if $ARGS[0] = 'pirEars':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:loopears_pir
			if dyneval('RESULT = PirsC<<i>>_owned') = 1:*p '<a href="exec:pirsC = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/c<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 24:jump 'loopears_pir'
	end
	
	if $ARGS[0] = 'pirNose':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:loopnose_pir
			if dyneval('RESULT = PirsD<<i>>_owned') = 1:*p '<a href="exec:pirsD = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/d<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 7:jump 'loopnose_pir'
	end
	
	if $ARGS[0] = 'pirBrow':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:loopbrow_pir
			if dyneval('RESULT = PirsE<<i>>_owned') = 1:*p '<a href="exec:pirsE = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/e<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 2:jump 'loopbrow_pir'
	end
	
	if $ARGS[0] = 'pirNips':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:loopnipple_pir
			if dyneval('RESULT = PirsF<<i>>_owned') = 1:*p '<a href="exec:pirsF = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/f<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 7:jump 'loopnipple_pir'
	end
	
	if $ARGS[0] = 'pirNavel':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:loopnavel_pir
			if dyneval('RESULT = PirsN<<i>>_owned') = 1:*p '<a href="exec:pirsN = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/n<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 4:jump 'loopnavel_pir'
	end
	
	if $ARGS[0] = 'pirPubic':
		gs 'mod_addedflavour_SFLA_Events' , 'pir_title'
		i = 1
		:looppubic_pir
			if dyneval('RESULT = PirsG<<i>>_owned') = 1:*p '<a href="exec:pirsG = <<i>> & pierWearCount += 1 & gt ''mod_addedflavour_SFLA_Events'' , ''pirManage'' "><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/piercings/g<<i>>.jpg"	height="250" ></a>'
			i += 1
		if i <= 10:jump 'looppubic_pir'
	end
	
	if $ARGS[0] = 'bteeth':
		act 'Brush your teeth (0:03)':
			menu_off = 1
			*clr & cla
			minut += 3
			cumspclnt = 2
			gs 'cum_cleanup'
			pcs_breath = 1
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/brushteeth.jpg"></center>'
			*nl
			'You brush your teeth and now they are clean and minty fresh.'
			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'itampon':
		if modVar_AF_SFLA_AptPerishables['Sanpad'] > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprokp = 0 and isprok = 0 and $pantyworntype ! 'none' and knowpreg = 0:
			act 'Use a sanitary pad (0:02)':
				menu_off = 1
				*clr & cla
				gs 'mod_addedflavour_SFLA_Functions' , 'sanpad' , 'use' , 'PCS'
				isprokp = 1
				minut += 2
				pcs_mood -= 5
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/wash3.jpg"></center>'
				*nl
				'You use a sanitary pad.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if modVar_AF_SFLA_AptPerishables['Tampon'] > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprok = 0 and isprokp = 0 and knowpreg = 0:
			act 'Use a tampon (0:02)':
				menu_off = 1
				*clr & cla
				gs 'mod_addedflavour_SFLA_Functions' , 'tampon' , 'use' , 'PCS'
				isprok = 1
				minut += 2
				pcs_mood -= 5
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/wash3.jpg"></center>'
				*nl
				'You use a tampon.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'change_clothes':
		act 'Change clothes and toys':
			cla
			act 'Return':menu_off = 0 & gt $loc, $loc_arg
			gs 'mod_addedflavour_SFLA_Events' , 'wearpan'
			gs 'mod_addedflavour_SFLA_Events' , 'removepan'
			gs 'mod_addedflavour_SFLA_Events' , 'toymanage'
		end
	end
	
	if $ARGS[0] = 'wearpan':
		if $pantyworntype = 'none':
			act 'Wear panties (0:02)':
				minut += 2
				gs 'stat'
				gt 'panties', 'view_panty_list', 'bathroom'
			end
		end
		if $braworntype = 'none':
			act 'Wear a bra (0:02)':
				minut += 2
				gs 'stat'
				gt 'bras', 'view_bra_list', 'bathroom'
			end
		end
	end
	
	if $ARGS[0] = 'removepan':
		if $pantyworntype ! 'none' and $braworntype ! 'none':
			act 'Remove underwear (0:02)':
				minut += 2
				gs 'stat'
				gs 'underwear', 'remove'
				gt $loc, $loc_arg
			end
		end
		if $pantyworntype ! 'none':
			act 'Remove panties (0:02)':
				minut += 2
				gs 'stat'
				gs 'panties', 'remove'
				gt $loc, $loc_arg
			end
		end
		if $braworntype ! 'none':
			act 'Remove bra (0:02)':
				minut += 2
				gs 'stat'
				gs 'bras', 'remove'
				gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'toymanage':
		if analplug = 1 and analplugin = 1:
			act 'Remove your butt plug (0:05)':
				menu_off = 1
				cla
				*clr
				minut += 5
				analplugIN = 0
				if pcs_ass < 30:pcs_ass += 1
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/analplug.jpg"></center>'
				*nl
				'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
			act 'Insert your butt plug (0:05)':
				menu_off = 1
				cla
				*clr
				minut += 5
				analplugIN = 1
				if pcs_ass < 10:pcs_ass += 5
				if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
				if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/body/analplug.jpg"></center>'
				*nl
				if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
				if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if vibrator = 1 and vibratorIN = 1:
			act 'Remove the vibrator (0:05)':
				menu_off = 1
				cla
				*clr
				minut += 5
				vibratorIN = 0
				if pcs_vag < 30:pcs_vag += 1
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/accessories/toys/vibrator.jpg"></center>'
				*nl
				'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
			act 'Insert the vibrator in your vagina (0:05)':
				menu_off = 1
				cla
				*clr
				minut += 5
				vibratorIN = 1
				if pcs_vag < 30:pcs_vag += 2
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/accessories/toys/vibrator.jpg"></center>'
				*nl
				'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
				act 'Finish':gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'prvt_pee':
		if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart): 
			act 'Go pee (0:04)':
				*clr & cla
				menu_off = 1
				pee_hour = hour
				pee_day = daystart
				minut += 4
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/pee/pee-private/' + rand(1,19) + '.jpg"></center>'
				!!Get random pee-private picture
				rand_pee = rand(0,7)
				if rand_pee = 0:
					'You take a seat on the toilet and begin peeing, glad to feel the pressure released.'
				elseif rand_pee = 1:
					'After sitting on the toilet you finally release your bladder. A shiver runs down your spine as the stream flows out of you. "Wow," you think, "I had to go more than I thought."'
				elseif rand_pee = 2:
					'Settling into the toilet seat you pull out your phone and begin checking for messages and doing other things to occupy the time until the stream slows to a trickle and finally stops.'
				elseif rand_pee = 3:
					'You plop down onto the porcelain throne and begin to unleash a torrent of urine into the bowl. As you wait for nature to finish it''s business you begin to daydream a bit as your mind wanders off.'
				elseif rand_pee = 4:
					'While relaxing your bladder and beginning to pee you decide to reflect on your recent interactions with the people in your life. "What do they think of me? Do they talk behind my back?" You continue contemplating until your body signals that the flow has ended.'
				elseif rand_pee = 5:
					'You nearly piss yourself as you rush to seat yourself onto the toilet. Unable to hold back the flood anymore, your body releases a seemingly endless stream as you moan quietly in relief, thankful that you made it in time.'
				elseif rand_pee = 6:
					'After situating yourself on the toilet, you relax and begin peeing. The urine tickles your labia as it sprays out of you into the toilet bowl.'
				else
					'As you begin to sit down you nearly jump back to your feet as the cold toilet seat stings your bare bottom. You shake your head and sigh before settling back onto the icy seat and doing your business.'
				end
		!!If PC is on her period and using tampon, then the following options should appear as well as the standard "Finish and wipe" act:
		!!This may require an addition check to see if the PC has a purse since I think they need that to carry tampons with them.
				if isprok = 1 and modVar_AF_SFLA_AptPerishables['Tampon'] > 0:
					act 'Change tampon (0:02)':
						*clr & cla
						gs 'mod_addedflavour_SFLA_Functions' , 'tampon' , 'use' , 'PCS'
						minut += 2
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
						'Reaching down and taking the string between your fingers, you slowly pull the used tampon from your vagina. You wrap it in toilet paper to be thrown in the trash bin. Opening your purse, you retrieve a fresh one before unpackaging it and carefully inserting it into you.'
						gs 'mod_addedflavour_SFLA_Events', 'prvt_pee_end'
					end
				end
		!!If PC is on her period and using pad, then the following options should appear as well as the standard "Finish and wipe" act:
		!!This may require an addition check to see if the PC has a purse since I think they need that to carry pads with them.
				if isprokp = 1 and modVar_AF_SFLA_AptPerishables['Tampon'] > 0:
					act 'Change pad (0:02)':
						*clr & cla
						gs 'mod_addedflavour_SFLA_Functions' , 'sanpad' , 'use' , 'PCS'
						minut += 2
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
						'Checking your pad, you decide it''s time for a new one. You carefully peel it off of your panties before folding it into thirds and setting it aside to be thrown away. Digging in your bag, you pull out a fresh pad, unpackage it, peel off the adhesive strip, and place it into your underwear. Finally, you wrap the wings around the sides of the gusset to make sure it is nice and secure.'
						gs 'mod_addedflavour_SFLA_Events', 'prvt_pee_end'
					end
				end
				gs 'mod_addedflavour_SFLA_Events', 'prvt_pee_end'
			end
		end
	end
	
	if $ARGS[0] = 'prvt_pee_end':
		act 'Finish and wipe':
			*clr & cla
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/pc/pee/wiping/' + rand(1,9) + '.jpg"></center>'
			rand_pee = rand(0,2)
			if rand_pee = 0:
				'Gathering some toilet paper from the roll, you reach down wipe your vagina clean from the last drops of pee leaking from you before dropping the paper into the toilet.'
			elseif rand_pee = 1:
				'Wrapping some toilet paper around your hand, you reach around and give your pussy and ass a quick wipe before letting the paper drop into the bowl.'
			else
				'You take a wad of toilet paper in your fist before using it to gently pat your vagina dry. You toss the used material in the toilet and flush it down.'
			end
			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'basin':
		if cumloc[12] = 1:
			act 'Rinse your mouth (0:05)':
				menu_off = 1
				cla
				cumspclnt = 2
				gs 'cum_cleanup'
				minut += 5
				gs 'stat'
				*nl
				'You rinse your mouth and get rid of the taste of cum.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if cumloc[13] = 1:
			act 'Wash the cum from your hands (0:05)':
				menu_off = 1
				cla
				cumspclnt = 9
				gs 'cum_cleanup'
				minut += 5
				gs 'stat'
				*nl
				'You wash your hands and get rid of any trace of cum.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if cumloc[11] = 1 and cumloc[16] = 0:
			act 'Wash the cum from your face (0:05)':
				menu_off = 1
				*clr & cla
				pcs_makeup = 1
				cumspclnt = 9
				gs 'cum_cleanup'
				cumspclnt = 11
				gs 'cum_cleanup'
				if pcs_sweat > 19 : pcs_sweat -= 5
				minut += 5
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/facesp.jpg"></center>'
				*nl
				'You clean your face and get rid of any trace of cum.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		elseif cumloc[11] = 0 and cumloc[16] = 1:
			act 'Wash the cum out of your hair (0:10)':
				menu_off = 1
				cla
				cumspclnt = 9
				gs 'cum_cleanup'
				cumspclnt = 5
				gs 'cum_cleanup'
				pcs_hairbsh = 0
				if pcs_sweat > 19 : pcs_sweat -= 5
				minut += 10
				gs 'stat'
				*nl
				'You clean your hair and get rid of any trace of cum.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		elseif cumloc[11] = 1 and cumloc[16] = 1:
			act 'Wash the cum from your face and hair (0:10)':
				menu_off = 1
				*clr & cla
				pcs_makeup = 1
				cumspclnt = 9
				gs 'cum_cleanup'
				cumspclnt = 12
				gs 'cum_cleanup'
				pcs_hairbsh = 0
				if pcs_sweat > 19 : pcs_sweat -= 5
				minut += 10
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/facesp.jpg"></center>'
				*nl
				'You clean your face and hair and get rid of any trace of cum.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if cumloc[2] = 1 or cumloc[5] = 1 or cumloc[6] = 1 or cumloc[7] = 1:
			act 'Wash the cum off your clothes (0:10)':
				menu_off = 1
				*clr & cla
				cumspclnt = 9
				gs 'cum_cleanup'
				cumspclnt = 6
				gs 'cum_cleanup'
				minut += 10
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/sex/cum/frotsp.jpg"></center>'
				'You spend ten minutes wiping and rinsing the cum stains out of your clothes. In the end, all that remains of the stains are some damp spots that should dry up in a few minutes.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if body_write > 0 or face_write > 0:
			act 'Wash the writings off your body (0:10)':
				menu_off = 1
				*clr & cla
				body_write = 0
				face_write = 0
				minut += 10
				gs'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/wash1.jpg"></center>'
				*nl
				'You wash off the indecent inscriptions on your body.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if pcs_makeup ! 1:
			act 'Wash off cosmetics (0:10)':
				menu_off = 1
				cla
				pcs_makeup = 1
				cumspclnt = 9
				gs 'cum_cleanup'
				cumspclnt = 11
				gs 'cum_cleanup'
				minut += 10
				*nl
				'You wash off your makeup.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if false_lashes >= 1:
			act 'Remove false lashes (0:05)':
				menu_off = 1
				cla
				'You carefully peel off the glued-on strip, careful to protect your natural lashes.'
				lashsavechance = rand(0,4)
				if lashsavechance = 4:
					'These lashes still look to be in pretty good shape; you could probably use them again.'
					if pcs_lashes = 4:fakelashesmink += 1
					if pcs_lashes = 3:fakelashesplain += 1
				end
				pcs_lashes = pcs_naturallashes
				false_lashes = 0
				minut += 5
				gs 'body_shape', 'basebeautycalc', 1
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
		if modVar_AF_SFLA_AptPerishables['Deodorant'] > 0 and deodorant_on = 0:
			act 'Apply deodorant (0:01)':
				*clr & cla
				menu_off = 1
				minut += 1
				gs 'mod_addedflavour_SFLA_Functions' , 'deodorant' , 'use' , 'PCS'
				gs 'sweat', 'deo'
				iif(func('body_din','pregnancyVisibility') = 1, '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/deodorant_preg.jpg"></center>', '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/deodorant.jpg"></center>')
				'You apply deodorant to your armpits. It will keep you feeling fresh and clean for longer.'
				act 'Continue': menu_off = 0 & gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'brit':
		if shave_menu = 1  and modVar_AF_SFLA_AptPerishables['Razor'] > 1:
			if pcs_leghair > 3 or (pubestyle = 1 and pcs_pubes > 3) or (((pubestyle >= 2 and pubestyle <= 9) or pubestyle >= 12) and pcs_pubes > 19) or (pubestyle = 10 and pcs_pubes > 29) or (pubestyle = 11 and pcs_pubes > 10):
				act 'Shave yourself (0:15)':
					menu_off = 1
					*clr & cla
					minut += 15
					pcs_leghair = 0
					if pubestyle = 1:
						pcs_pubes = 1
					elseif (pubestyle >= 2 and pubestyle <= 9) or pubestyle >= 12:
						pcs_pubes = 16
					elseif pubestyle = 10 and pcs_pubes > 29:
						pcs_pubes = 26
					elseif pubestyle = 11 and pcs_pubes > 10:
						pcs_pubes = 0
					end
					pcs_horny += 5
					gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
					'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave3.jpg"></center>'
					*nl
					if daystart < 10 and StoryLine = 0 and ntstart = 0:
						'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
						'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
					elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
						pcs_mood += 10
						'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
					elseif pubestyle = 1 or pubestyle = 11:
						'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
					elseif (pubestyle >= 2 and pubestyle <= 8) or pubestyle <= 12:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time cleaning up the area around your neatly trimmed and styled patch of pussy hair as well.'
					elseif pubestyle = 9:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your small neat bush as well.'
					elseif pubestyle = 10:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your	bush as well.'
					end
					gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
				end
				if pcs_leghair > 3:
					act'Shave your legs (0:05)':
						menu_off = 1
						*clr & cla
						minut += 5
						pcs_leghair = 0
						pcs_horny += 5
						gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave.jpg"></center>'
						*nl
						if daystart < 10 and StoryLine = 0 and ntstart = 0:
							'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
							'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
						elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
							pcs_mood += 10
							'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
						else
							'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
						end
						gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
					end
				end
			else
				'<br>You don''t need to shave.'
			end
		elseif shave_menu = 2 and modVar_AF_SFLA_AptPerishables['Razor'] > 0:
			if pcs_pubes > 3:
				if pubestyle = 1 or (pubestyle = 11 and pcs_pubes > 10):
					act 'Shave your pussy (0:10)':
						menu_off = 1
						*clr & cla
						minut += 10
						pcs_pubes = 0
						pcs_horny += 5
						gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave3.jpg"></center>'
						*nl
						'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
						gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
					end
				elseif ((pubestyle >= 2 and pubestyle <= 8) or pubestyle >= 12) and pcs_pubes > 19:
					act 'Trim your pubic hair (0:10)':
						menu_off = 1
						*clr & cla
						minut += 10
						pcs_pubes = 16
						pcs_horny += 5
						gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave4.jpg"></center>'
						*nl
						'You spend some time carefully shaving your pubic hair to your desired shape, and then trim it to make it neat and tidy.'
						gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
					end
				elseif pubestyle = 9 and pcs_pubes > 19:
					act 'Trim your pubic hair (0:10)':
						menu_off = 1
						*clr & cla
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave4.jpg"></center>'
						*nl
						if pcs_pubes >= 20:
							'You carefully shave away the hair at the edges of your pussy, trimming it all away until there is only a neatly styled bush left at the top.'
						else
							'You carefully shave away the stubble at the edges of your pussy, careful to only trim and maintain the neatly styled bush you have at the top.'
						end
						minut += 10
						pcs_pubes = 16
						pcs_horny += 5
						gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
						gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
					end
				elseif pubestyle = 10 and pcs_pubes >= 29:
					act 'Trim back your bush (0:10)':
						menu_off = 1
						*clr & cla
						minut += 10
						pcs_pubes = 26
						pcs_horny += 5
						gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave4.jpg"></center>'
						*nl
						'You spend some time trimming back your thick bush of pubic hair, tidying it up and keeping your bikini line nice and clean.'
						gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
					end
				end
			end
		elseif shave_menu = 3 and modVar_AF_SFLA_AptPerishables['Razor'] > 0:
			if pcs_leghair > 3:
				act 'Shave your legs (0:05)':
					menu_off = 1
					*clr & cla
					minut += 5
					pcs_leghair = 0
					pcs_horny += 5
					gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , 'PCS'
					'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/shave.jpg"></center>'
					*nl
					if daystart < 10 and StoryLine = 0 and ntstart = 0:
						'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
						'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
					elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
						pcs_mood += 10
						'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
					else
						'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
					end
					gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
				end
			end
		end
	end
	
	if $ARGS[0] = 'enema':
		if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
			act 'Give yourself an enema (0:05)':
				menu_off = 1
				cla
				*clr
				cumspclnt = 7
				gs 'cum_cleanup'
				minut += 5
				klismaday = daystart
				klismaday1 = 1
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/klisma.jpg"></center>'
				*nl
				'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'aointment':
		act 'Rub ointment onto your pussy (0:05)':
			cla
			mosal_time = (daystart * 100) + hour
			minut += 5
			gs 'mod_addedflavour_SFLA_Functions', 'ointment' , 'use' , 'PCS'
			mosol -= 5
			'You take a tube of cream and rub it onto your itchy vulva.'
			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'preg':
		if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
			act 'Do a pregnancy test (0:05)':
				cla
				minut += 5
				pregtest -= 1
				gs 'stat'
				 if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
					cla
					knowpreg = 1
					thinkpreg = 1
					*nl
					'The test shows two strips. You are pregnant. As you look at the test in your hand, you are?'
					act 'Horrified':gt 'mod_addedflavour_SFLA_Events', 'HorrifiedReact1'
					act 'Concerned':gt 'mod_addedflavour_SFLA_Events', 'ConcernedReact1'
					act 'Excited':gt 'mod_addedflavour_SFLA_Events', 'ExcitedReact1'
				elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
					cla
					knowpreg = 1
					thinkpreg = 1
					*nl
					'The test shows two strips. You are pregnant. As you look at the test in your hand, you are?'
					act 'Excited':gt 'mod_addedflavour_SFLA_Events', 'ExcitedReact1'
					act 'Aroused':gt 'mod_addedflavour_SFLA_Events', 'ArousedReact1'
				elseif pcs_pregtalk = 1 and pregchem > 120 and knowpreg = 0:
					*nl
					knowpreg = 1
					thinkpreg = 1
					'The test shows two strips. You are pregnant.'
				elseif pcs_pregtalk = 1 or (knowpreg = 1 and preg = 1):
					*nl
					knowpreg = 1
					thinkpreg = 1
					'The test shows two strips. You are pregnant.'
				else
					knowpreg = 0
					*nl
					'The test shows one band. You are not pregnant.'
				end
				act 'Finish':menu_off = 0 & gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'HorrifiedReact1':
		menu_off = 1
		cla
		pcs_pregtalk = 1
		minut += 10
		*nl
		'You stare in disbelief at the test in your hand. The two strips displayed can only mean one thing: you are pregnant. You sink to the floor, mind spinning. Tears well in your eyes. How could this happen?'
			if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
				'You don''t even know how this is possible. You''ve never even had sex with anyone.'
				'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
				'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
			elseif rape > 0 and stat['vaginal'] > 1:
				'It’s bad enough that you were raped, but possibly getting pregnant from it as well? It’s completely unfair.'
				'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
				'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
			else
				'This is the worst possible thing that could have happened to you. You feel like you''re going to vomit from the stress.'
				'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
				'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
			end
		act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'ConcernedReact1':
		menu_off = 1
		cla
		pcs_pregtalk = 1
		minut += 10
		*nl
		'Your mind races as you gaze at the test in your hand. The two strips clearly show that you''re pregnant. You know this isn''t the worst thing that could happen to you, but your life is definitely going to change. Are you even ready for that kind of change?'
			if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
				'The worst part about this whole situation is that you don''t even know how this happened. How can you get pregnant without having sex?'
				'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
			elseif rape > 0 and stat['vaginal'] > 1:
				'The worst part about this whole situation is that this isn''t even your fault. This was forced on you.'
				'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
			else
				'On some level, you''re aware that this is a consequence of your own actions, but you''re not quite ready to come to terms with that.'
				'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
			end
		act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'ExcitedReact1':
		menu_off = 1
		cla
		pcs_pregtalk = 1
		minut += 10
		*nl
		'You''re overcome with glee as you look at the pregnancy test in your hand. Its two strips confirm that your wish has been granted: you are pregnant. You giggle as you clutch the pregnancy test, excited to share the news with everyone you know.'
			if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
				'You''re not sure how this happened, but you''re not going to complain. Who cares if a miracle made it happen?'
				'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
			elseif rape > 0 and stat['vaginal'] > 1:
				'You don’t even care about the circumstances that got you pregnant. It was absolutely worth it for this moment.'
				'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
			else
				'Every time you had sex, you hoped the act would make you into a mother.'
				'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
			end
		act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'ArousedReact1':
		menu_off = 1
		cla
		pcs_pregtalk = 1
		minut += 10
		*nl
		'You rub your thighs together as you stare at the pregnancy test in your hand. The two strips displayed confirm that you’ve been knocked up. You excitedly recount every load of cum blast into your fertile womb, wondering which one found purchase. You gently rub your clit in a circular motion as you think about the fact that, in a few months, everyone who sees your large, pregnant belly will know what a slut you are.'
			if rape > 0 and stat['vaginal'] > 1 and incest['exp'] = 0:
				'You pick up speed as you recall your rapist forcefully pumping you full of his wonderful semen without any concern for your desires. You loved having your agency stripped away as a complete stranger decided to make you a mother.'
			elseif incest['exp'] > 0:
				'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
				'The taboo knowledge that you could have gotten pregnant from incest turns you on even more.'
			else
				'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
			end
			'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
		act 'Finish' :menu_off = 0 & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'dryoff':
		if modVar_AF_EventLock['SFLA-ShowerPeek'] ! daystart:
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'SFLA' , 'Any'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
				KILLVAR 'SFLADryOffPeepOptions'
				SFLADryOffLoopCount = 0
				:SFLADryOffLoopStart
				if SFLADryOffLoopCount >= arrsize('modArr_AF_SFLA_SharedActPeopleArray') : jump 'SFLADryOffLoopend'
				modVar_AF_Temp = modArr_AF_SFLA_SharedActPeopleArray[SFLADryOffLoopCount]
				if ($charsche_character_CurActLoc[arrpos('charsche_charlist',modVar_AF_Temp)] = 'mod_addedflavour_SFLA_Kit' and npc_horny['A<<modVar_AF_Temp>>'] >= 20) or npc_horny['A<<modVar_AF_Temp>>'] >= 50 : SFLADryOffPeepOptions[] = modVar_AF_Temp
				SFLADryOffLoopCount += 1
				jump 'SFLADryOffLoopStart'
				:SFLADryOffLoopend
				if arrsize('SFLADryOffPeepOptions') > 0:
					modVar_AF_Rand = rand(1,arrsize('SFLADryOffPeepOptions')) - 1
					gt 'mod_addedflavour_SFLA_Events' , 'SFLA-ShowerPeekEv-1' , SFLADryOffPeepOptions[modVar_AF_Rand]
				end
			end
		end
		act 'Get out and dry off' : mirror_steam = hour & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'wash':
		menu_off = 1
		if hypnoAddict = 0:
			cumspclnt = 1
		else
			cumspclnt = 18
		end
		gs 'cum_cleanup'
		body_write = 0
		face_write = 0
		pcs_hairbsh = 0
		pcs_makeup = 1
		if frost > 0:frost = 0
		lactation['lactmess'] = 0
		if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
		if modVar_AF_SFLA_AptPerishables['Shampoo'] > 0:
			gs 'mod_addedflavour_SFLA_Functions' , 'shampoo' , 'use' , 'PCS'
		else
			pcs_mood -= 5
		end
		if false_lashes >= 1:
			if rand(0,4) <= 2:
				'You''re careful enough that your false lashes make it through relatively unscathed.'
			else
				'Unfortunately, your false lashes don''t make it through the shower.'
				false_lashes = 0
				pcs_lashes = pcs_naturallashes
				gs 'body_shape', 'basebeautycalc', 1
			end
		end
	end
	
	if $ARGS[0] = 'shower':
		menu_off = 1
		*clr & cla
		minut += 15
		gs 'mod_addedflavour_SFLA_Events' , 'wash'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="images/shared/home/bathroom/dush.mp4"></center>'
		*nl
		'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you.'
		*nl
		if daystart < 10 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:
			pcs_horny += rand(6,10)
			'It''s really arousing to see your new body with all its smooth curves, breasts with large nipples, wide hips, and smooth legs. You begin to lather your body noticing how soft and tender it feels. Once you''re sure you didn''t miss a single spot on your feminine body you begin to wash yourself off, continuing to experience new and strange sensations.'
		elseif daystart < 30 and (StoryLine = 0 or (StoryLine = 1 and csb_start = 1)) and ntstart = 0:
			pcs_horny += rand(2,6)
			'You have already gotten used to your feminine body and its softness doesn''t surprise you very much anymore. But you still let your hands wander a bit over your soft curves before you begin to wash yourself in earnest.'
		else
			pcs_horny += rand(0,2)
			'' + iif(modVar_AF_SFLA_AptPerishables['Shampoo'] > 0,'Using the Shared Shampoo you soap yourself trying not to miss any spot and then wash off.', 'With no shampoo within reach you just use water to clean yourself.')
		end
		*nl
		if modVar_AF_SFLA_AptPerishables['Shampoo'] = 0:
			'The Shampoo Bottle is no more; looks like you better buy a new one.'
		elseif modVar_AF_SFLA_AptPerishables['Shampoo'] <= 10:
			'The Shampoo Bottle is starting to run low and only has about <<modVar_AF_SFLA_AptPerishables[''Shampoo'']>> uses remaining; maybe you should buy a new one, or maybe just let one of the others buy some.'
		end
		if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the shower.'
		if btwarn > 0:
			if btwarn = 1: $weightwarn = 'losing'
			if btwarn = 2: $weightwarn = 'gaining'
			'<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
			killvar '$weightwarn' & btwarn = 0
		end
		if lactation['active'] > 0 and pain['nipples'] < 60 and lactation['pc_aware'] <= 0:
			if pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts <= 0:
				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk.<br>Using the breast pump regularly probably made you lactate!'
				lactation['induced'] = 1
			elseif pcs_usedbreastpumponherself <= 0 and pcs_massagedherbreasts > 0:
				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk. Regularly massaging your breasts probably made you lactate!<br>'
				lactation['induced'] = 1
			elseif pcs_usedbreastpumponherself > 0 and pcs_massagedherbreasts > 0:
				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. It is milk. All that pumping and massaging your breasts probably caused you to lactate!<br>'
				lactation['induced'] = 1
			else
				'During showering you clean your breasts and something catches your eye. White drops come from your nipples. To your surprise it is milk. You started lactating!<br>'
				if thinkpreg = 1 or knowpreg = 1:
					'This is probably happening because you are pregnant.'
				else
					'You should have this checked out by a doctor. You could be pregnant.'
				end
				lactation['induced'] = 0
			end
			pcs_usedbreastpumponherself = 0
			pcs_massagedherbreasts = 0
			lactation['pc_aware'] = 1
		end
		gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
		if pcs_horny >= 40:
			act 'Use the shower head on your pussy':
				menu_off = 1
				*clr & cla
				'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
				*nl
				'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
				if pcs_inhib < 30:inhib_exp += rand(1,3)
				pcs_mood += 15
				$orgasm_or = 'yes'
				gs 'arousal', 'masturbate', 10
				gs 'arousal', 'end'
				if hypnoAddict ! 0:
					'You unconsciously avoid spraying water into your vagina.'
				else
					cumspclnt = 8
					gs 'cum_cleanup'
				end
				gs 'mod_addedflavour_SFLA_Events' , 'wash'
			end
		end
		act 'Take a selfie':
			gs 'telefon', 'Phone_selfie_image_bathing', 'shower'
		end
		gs 'mod_addedflavour_SFLA_Events' , 'brit'
	end
	
	if $ARGS[0] = 'bath':
		menu_off = 1
		*clr & cla
		minut += 30
		pcs_sweat = 7 + rand(0,4)
		pcs_mood += 20
		gs 'mod_addedflavour_SFLA_Events' , 'wash'
		if bath_daystart ! daystart:
			bath_daystart = daystart
			pcs_skin += rand(1,2)
			pcs_willpwr += 1
		end
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/home/bathroom/wash4.jpg"></center>'
		*nl
		'While the bathtub fills up you get undressed and then dip a toe into the water. It has just the right temperature so you climb in and let yourself sink into the warm water.'
		*nl
		if daystart < 10 and StoryLine = 0 and ntstart = 0:
			pcs_horny += rand(6,10)
			'You stare at those smooth, soft legs sticking out of the water. You''re still not used to this new body and the look of all this roundness.'
			'Starting to soap yourself you unwittingly turn your attention to your breasts. They''re so soft and big, and when you touch them you feel an unfamiliar but pleasant sensation. You take your time getting familiar with your new body, then you begin to wash yourself in earnest.'
		elseif daystart < 30 and StoryLine = 0 and ntstart = 0:
			pcs_horny += rand(2,6)
			'You have become a little accustomed to your female body and casually soap up all these soft curves and rinse yourself off, rubbing your hands all over your feminine body to make sure you didn''t miss a spot.'
		else
			pcs_horny += rand(0,2)
			'You lean back and relax for a while. ' + iif(modVar_AF_SFLA_AptPerishables['Shampoo'] > 0,'Using the Shared Shampoo you soap yourself trying not to miss any spot and then wash off.', 'With no shampoo within reach you just use water to clean yourself.')
		end
		*nl
		if modVar_AF_SFLA_AptPerishables['Shampoo'] = 0:
			'The Shampoo Bottle is no more; looks like you better buy a new one.'
		elseif modVar_AF_SFLA_AptPerishables['Shampoo'] <= 10:
			'The Shampoo Bottle is starting to run low and only has about <<modVar_AF_SFLA_AptPerishables[''Shampoo'']>> uses remaining; maybe you should buy a new one, or maybe just let one of the others buy some.'
		end
		if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the bath.'
		if btwarn > 0:
			if btwarn = 1: $weightwarn = 'losing'
			if btwarn = 2: $weightwarn = 'gaining'
			'<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
			killvar '$weightwarn' & btwarn = 0
		end
		gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
		act '"Wash" your pussy':
			menu_off = 1
			*clr & cla
			minut += 10
			'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="images/shared/home/bathroom/wash7.mp4"></center>'
			*nl
			'You turn on the faucet, lift your legs and scoot your ass over to align your pussy with the jet of warm water. It feels really good and soon a warmth begins to grow in your abdomen.'
			if pcs_inhib < 30:inhib_exp += rand(1,3)
			pcs_mood += 15
			$orgasm_or = 'yes'
			gs 'arousal', 'masturbate', 10
			gs 'arousal', 'end'
			gs 'mod_addedflavour_SFLA_Events' , 'dryoff'
		end
		act 'Take a selfie':
			gs 'telefon', 'Phone_selfie_image_bathing', 'bath'
		end
		gs 'mod_addedflavour_SFLA_Events' , 'brit'
	end
	
	if $ARGS[0] = 'sunbathe':
		*clr & cla
		minut += 60
		menu_off = 1
		if pcs_sweat < 35 : gs 'sweat', 'add', 5
		if pcs_hydra >= 100:
			pcs_hydra -= 10
		else
			pcs_hydra -= 20
		end
		pcs_mood += 5
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Sunbathing.jpg"></center>'
		if modVar_AF_SFLA_AptPerishables['Sunlotion'] = 0:
			pcs_tan += 1
			'You take some time to stretch out and take in the sun.'
		else
			gs 'mod_addedflavour_SFLA_Functions' , 'sunlotion' , 'use' , 'PCS'
			pcs_tan += 3
			'You use the nearby Sun Tan Lotion to prepare your skin then lay back and take in the rays.'
		end
		gs 'stat'
		act 'Get up' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'relax':
		*clr & cla
		minut += ARGS[1]
		menu_off = 1
		relaxtemp = 0
		:relaxloop
		pcs_mood += 2
		pcs_sleep += 1
		relaxtemp += 10
		if relaxtemp < ARGS[1]:
			jump 'relaxloop'
		end
		if $loc = 'mod_addedflavour_SFLA_Sitr':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_Sitr' , 'Any'
			if arrsize ('modArr_AF_SFLA_SharedActPeopleArray') = 0:
				SFLA_SexTrigger_CharPos = arrpos('charsche_charlist',701)
				if strpos($charsche_character_CurActLoc[SFLA_SexTrigger_CharPos],'mod_addedflavour_SFLA') = 0:
					gs 'mod_addedflavour_SFLA_SexFunctions' , 'chksextriggers' , 701 , 'SitrAlone'
				end
			end
		end
		if $loc = 'mod_addedflavour_SFLA_Bedr4' and modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2 and modVar_AF_SFLA_AptState['GuestID'] = 34:
			gs 'mod_addedflavour_SFLA_SexFunctions' , 'chksextriggers' , 34
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Resting'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			if ARGS[1] >= 60:
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 3
			elseif ARGS[1] >= 30:
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
			else
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 1
			end
		end
		gs 'stat'
		if $loc = 'mod_addedflavour_SFLA_Sitr' or $loc = 'mod_addedflavour_city_hotel_CoRm':
			$modVar_AF_TempStr = 'RelaxSofa'
		elseif $loc = 'mod_addedflavour_SFLA_Bal':
			$modVar_AF_TempStr = 'RelaxBalcony'
		elseif $loc = 'city_park':
			$modVar_AF_TempStr = 'RelaxGrass'
		elseif $loc = 'city_island':
			$modVar_AF_TempStr = 'RelaxUrban'
		else
			$modVar_AF_TempStr = 'RelaxBed'
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , $modVar_AF_TempStr , $modVar_AF_SFLA_SharedActPeopleAbv
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			'<<$modVar_AF_SFLA_SharedActPeople>> settle in to idle around and generally do nothing together.  The cosy setting and pleasant company make it all worthwhile.'
		else
			'You settle in to just generally do bugger all, it''s fantastic.'
		end
		!! Workaround for Hotel Problem !!
		if $loc = 'mod_addedflavour_city_hotel_Bedr_1' : $loc = 'mod_addedflavour_city_hotel_Bedr' & $loc_arg = 'start1'
		act 'Get up' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'washingup':
		*clr & cla
		menu_off = 1
		washinguptemp = modVar_AF_SFLA_AptState['Washdishes']
		:SFLAwashinguploop
		gs 'mod_addedflavour_SFLA_Functions' , 'dishliquid' , 'use' , 'PCS'
		minut += 2
		modVar_AF_SFLA_AptState['Washdishes'] -= 5
		if modVar_AF_SFLA_AptState['Washdishes'] < 0 : modVar_AF_SFLA_AptState['Washdishes'] = 0
		if modVar_AF_SFLA_AptState['Washdishes'] > 0 and modVar_AF_SFLA_AptPerishables['Dishliquid'] > 0:
			jump 'SFLAwashinguploop'
		end
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/washingup.jpg"></center>'
		if modVar_AF_SFLA_AptPerishables['Dishliquid'] = 0: 
			'You dutifully wash the dishes but run out of Washing Up Liquid with <<modVar_AF_SFLA_AptState[''Washdishes'']>> dishes remaining'
		else
			'You dutifully wash all the dishes that have accumulated by the sink.'
		end
		modVar_AF_SFLA_AptContributions['PCS'] += (washinguptemp - modVar_AF_SFLA_AptState['Washdishes']) * 5
		pcs_mood -= 5
		gs 'stat'
		act 'Dry your hands': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'cookfullmeal':
		*clr & cla
		menu_off = 1
		minut += 45
		pcs_mood += 5
		gs 'mod_addedflavour_SFLA_Functions' , 'fullmeal' , 'use' , 'PCS'
		charsche_activity_Active[arrpos('$charsche_actlist','SFLAKitr - Dinner')] = 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/cookfullmeal<<rand(1,2)>>.jpg"></center>'
		'You cook a meal for the household using the ingrediants in the Fridge.  Once you are done you text everyone to let them know it is ready for 7pm tonight.'
		act 'Go back': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'housemeal':
		*clr & cla
		menu_off = 1
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_Kit' , 'Eating'
		modVar_AF_SFLA_AptState['Washdishes'] += arrsize('modArr_AF_SFLA_SharedActPeopleArray')
		frost = 0
		minut += rand(55,65)
		pcs_health += 15
		pcs_mood += 30
		pcs_energy += 100
		gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual-Insist' , 5
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Eating' , $modVar_AF_SFLA_SharedActPeopleAbv
		*nl
		'The Entire Household has turned up for the meal you have prepared.  <<$modVar_AF_SFLA_SharedActPeople>> are having a great time conversing while consuming your lovingly cooked meal and it feels you with joy to see it all come together.'
		act 'Finish up': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'dishwasher':
		*clr & cla
		menu_off = 1
		dishwashertemp = modVar_AF_SFLA_AptState['Washdishes']
		:dishwasherloop
		gs 'mod_addedflavour_SFLA_Functions' , 'washingup' , 'use' , 'PCS'
		modVar_AF_SFLA_AptState['Washdishes'] -= 10
		if modVar_AF_SFLA_AptState['Washdishes'] < 0 : modVar_AF_SFLA_AptState['Washdishes'] = 0
		if modVar_AF_SFLA_AptPerishables['Dishliquid'] < 0 : modVar_AF_SFLA_AptPerishables['Dishliquid'] = 0
		if modVar_AF_SFLA_AptState['Washdishes'] > 0:
			jump 'washinguploop'
		end
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/washingup.jpg"></center>'
		'You load all of the dirty dishes into the dishwasher.'
		gs 'stat'
		act 'Return': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'teabiscuits':
		*clr & cla
		menu_off = 1
		minut += 5
		gs 'mod_addedflavour_SFLA_Functions' , 'biscuits' , 'use' , 'PCS'
		pcs_health += 30
		pcs_mood += 20
		pcs_energy += 20
		if pcs_hydra >= 100:
			pcs_hydra += 30
		else
			pcs_hydra += 60
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		fat += 4
		frost = 0
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/DrinkTea.jpg"></center>'
		'You drank tea and enjoyed the tea biscuits. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
		act 'Finish up': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'drinktea':
		*clr & cla
		menu_off = 1
		frost = 0
		if alko > 0: alko -= 1
		minut += 5
		pcs_health += 10
		pcs_mood += 20
		pcs_energy += 10
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 50
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		pcs_breath = 0
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/DrinkTea.jpg"></center>'
		'You enjoy a relaxing cup of tea'
		gs 'stat'
		killvar '$_drink'
		act 'Finish up': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'eatlightmeal':
		*clr & cla
		menu_off = 1
		if $ARGS[1] ! 'NoUse' : gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'use' , 'PCS'
		if $loc = 'mod_addedflavour_SFLA_Kit' : modVar_AF_SFLA_AptState['Washdishes'] += 1
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Eating'
		frost = 0
		minut += 30
		pcs_health += 10
		pcs_mood += 20
		pcs_energy += 80
		gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Eating' , $modVar_AF_SFLA_SharedActPeopleAbv
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			'Seeing as other people are already eating here, you decide to join them.  <<$modVar_AF_SFLA_SharedActPeople>> sit down together at the Kitchen Table eating and catching up.'
		else
			'You cook and eat the light meal which you have made using many diet ingrediants.'
		end
		act 'Finish up': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'takefatburners':
		*clr & cla
		menu_off = 1
		minut += 2
		gs 'mod_addedflavour_SFLA_Functions' , 'fatburners' , 'use' , 'PCS'
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 50
		end
		fat -= 20
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Medication.jpg"></center>'
		*nl
		'You drink the fat burning capsule. These capsules are quick release and results can be seen soon.'
		gs 'stat'
		act 'Finish up': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'drinkwater':
		*clr & cla
		menu_off = 1
		frost = 1
		if alko > 0: alko -= 1
		minut += 1
		pcs_health += 10
		pcs_energy += 4
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 50
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/locations/shared/brothel/barorderwater.jpg"></center>'
		'You enjoy a drink of water'
		gs 'stat'
		act 'Finish up': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'fillbottle':
		minut += 1
		refillable_bottle = 4
		gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'takevitamins':
		*clr & cla
		menu_off = 1
		minut += 2
		vitaminday = daystart
		gs 'mod_addedflavour_SFLA_Functions' , 'vitamin' , 'use' , 'PCS'
		frost = 0
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 50
		end
		if KandidozOnce = 1:Kandidoz -= 2
		if GerpesOnce = 1:Gerpes -= 2
		if SifacOnce = 1 and Sifilis >= 10 : Sifilis -= rand(0, 1)
		pcs_skin += 1
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Medication.jpg"></center>'
		*nl
		'You took some vitamins.'
		gs 'stat'
		act 'Move away': gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'read':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/accessories/books/book.jpg"></center>'
		if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'
		if f_book > 0:
			if fantasybook <= 0:fantasybook = 5 & f_book -= 1
			'You still have <<f_book>> unread fantasy novels.'
		end
		if fantasybook > 0:
			act 'Read fantasy book. There are <<fantasybook * 100>> pages left (1:00)':
				*clr & cla
				fantasybook -= 1
				if fantasybook = 0:totalbook += 1
				minut += 60
				if pcs_nerd > 0:
					lastread = totminut
					lastreadday = daystart
					pcs_nerd += 1
					blizoruk += 1
				end
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/accessories/books/book.jpg"></center>'
				if pcs_nerd > 0:
					pcs_mood = 100
					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1
					'For an hour you enthusiastically read the book, completely immersed in the authors world.'
				else
					pcs_mood += 10
					'For an hour you read the book.'
				end
				act 'Close the book':gt $loc, $loc_arg
			end
		end
		if w_book > 0:
			if womanbook <= 0:womanbook = 5 & w_book -= 1
			'You still have <<w_book>> unread women''s novels.'
		end
		if womanbook > 0:
			act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
				*clr & cla
				womanbook -= 1
				if womanbook = 0:totalbook += 1
				minut += 60
				if pcs_nerd > 0:
					lastread = totminut
					lastreadday = daystart
					pcs_nerd += 1
					blizoruk += 1
				end
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/accessories/books/book.jpg"></center>'
				if pcs_nerd > 0:
					pcs_mood = 100
					pcs_horny += 10
					if pcs_stren > 1:stren_deg -= 1
					if pcs_vital > 5:vital_deg -= 1
					'For an hour you enthusiastically read the book, completely immersed in the story.'
				else
					pcs_mood += 10
					pcs_horny += 3
					'For an hour you read the book.'
				end
				act 'Close the book':gt $loc, $loc_arg
			end
		end
		act ' Close the book':gt $loc, $loc_arg
		if cookmag = 0 and fashmag = 0 and compmag = 0 and biomag = 0 and knitmag = 0 and fitmag = 0:
			'You have no magazines to read.'
		else
			act 'Read a magazine':
				*clr & cla
				gs 'stat'
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/shared/accessories/books/book.jpg"></center>'
				if cookmag = 1:
					act 'Read your cooking magazine':
						cla
						cookmag = 0
						pcs_mood += 5
						minut += 30
						'You relax for half an hour reading your cooking magazine.'
						act 'Return':gt $loc, $loc_arg
					end
				end
				if fashmag = 1:
					act 'Read your fashion magazine':
						cla
						fashmag = 0
						pcs_mood += 5
						minut += 30
						makupskl_exp += 1
						'You relax for half an hour reading your fashion magazine.'
						act 'Return':gt $loc, $loc_arg
					end
				end
				if compmag = 1:
					act 'Read your computing magazine':
						cla
						compmag = 0
						pcs_mood += 5
						minut += 30
						compskl_exp += 1 
						'You relax for half an hour reading your computing magazine.'
						act 'Return':gt $loc, $loc_arg
					end
				end
				if biomag = 1:
					act 'Read your biographical magazine':
						cla
						biomag = 0
						pcs_mood += 5
						minut += 30
						'You relax for half an hour reading your biographical magazine.'
						act 'Return':gt $loc, $loc_arg
					end
				end
				if knitmag = 1:
					act 'Read your knitting magazine':
						cla
						knitmag = 0
						pcs_mood += 5
						minut += 30
						if pcs_sewng <= 100: sewng_exp += rand(1,3)
						'You relax for half an hour reading your knitting magazine.'
						act 'Return':gt $loc, $loc_arg
					end
				end
				if fitmag = 1:
					act 'Read your fitness magazine':
						cla
						fitmag = 0
						pcs_mood += 5
						minut += 30
						'You relax for half an hour reading your fitness magazine.'
						act 'Return':gt $loc, $loc_arg
					end
				end
				act 'Return':gt $loc, $loc_arg
			end
		end
	end
	
	if $ARGS[0] = 'watchtv':
		*clr & cla
		menu_off = 1
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Watch TV'
		minut += 30
		if modVar_AF_SFLA_AptRProg['Sitr'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
			pcs_mood += 6
		else
			pcs_mood += 3
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'WatchTV' , $modVar_AF_SFLA_SharedActPeopleAbv
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			'Your flatmates are slumped in front of the ' + iif(modVar_AF_SFLA_AptRProg['Sitr'] >= modVar_AF_SFLA_AptRProg['Lv2Req'],'large plasma TV','small adequate TV') + ', watching intently.  Deciding you would like to join them you sit down alongside.  <<$modVar_AF_SFLA_SharedActPeople>> enjoy yourselves idly flipping between watching drivel and talking it.'
		else
			'You turn on the TV and settled comfortably on the couch.'
			*nl
			if modVar_AF_SFLA_AptRProg['Sitr'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
				'The huge plasma comes to life and you hear the crisp sound of some advert, it looks great in HD.'
			else
				'The ancient TV warms up and you''re greeted by adverts, the sound is adequate.'
			end
		end
		!! Workaround for Hotel Problem !!
		if $loc = 'mod_addedflavour_city_hotel_Bedr_1' : $loc = 'mod_addedflavour_city_hotel_Bedr' & $loc_arg = 'start1'
		act 'Stop watching TV' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'videogames':
		*clr & cla
		menu_off = 1
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_Sitr' , 'Playing Games'
		minut += 30
		pcs_mood += 10
		pcs_health -= 2
		gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Gaming' , $modVar_AF_SFLA_SharedActPeopleAbv
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			'Your flatmates are already playing Video Games so you get down and join in the fun.  <<$modVar_AF_SFLA_SharedActPeople>> have a joyous time playing together.'
		else
			'You get comfortable and settle into some Video Gaming.'
		end
		act 'Stop playing games' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'dancing':
		*clr & cla
		menu_off = 1
		if ARGS[1] = 0:
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'club' , 'Partying'
		else
			KILLVAR '$modVar_AF_SFLA_SharedActPeople'
			KILLVAR '$modVar_AF_SFLA_SharedActPeopleAbv'
			KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
			$modVar_AF_SFLA_SharedActPeople = 'You and <<$npc_nickname[''A<<ARGS[1]>>'']>>'
			if npc_gender['A<<ARGS[1]>>'] = 1:
				$modVar_AF_SFLA_SharedActPeopleAbv = 'FF'
			elseif npc_gender['A<<ARGS[1]>>'] = 0:
				$modVar_AF_SFLA_SharedActPeopleAbv = 'FM'
			end
			modArr_AF_SFLA_SharedActPeopleArray[] = ARGS[1]
		end
		minut += 15
		pcs_mood += 10
		modVar_AF_Temp = ((5 - difficulty) / 2) + 1
		gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Dancing' , modVar_AF_Temp
		gs 'stat'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 1:
			if modVar_AF_SexProg['A<<modArr_AF_SFLA_SharedActPeopleArray[0]>>'] > 0:
				$modVar_AF_TempStr = 'IntimateDancing'
			else
				$modVar_AF_TempStr = 'Dancing'
			end
		else
			$modVar_AF_TempStr = 'Dancing'
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , $modVar_AF_TempStr , $modVar_AF_SFLA_SharedActPeopleAbv
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 and $modVar_AF_TempStr = 'IntimateDancing':
			'You and <<$npc_nickname[''A<<modArr_AF_SFLA_SharedActPeopleArray[0]>>'']>> dance close together, feeling for eachothers presence and ignoring all else.'
		elseif arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			'<<$modVar_AF_SFLA_SharedActPeople>> all dance together with reckless abandon but having enormous fun with eachother in the process'
		else
			'You take to the dance floor and strut your funky stuff!'
		end
		act 'Stop dancing' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'exercise':
		!ARGS[1] = the ID of the NPC you exercise with
		*clr & cla
		menu_off = 1
		KILLVAR '$modVar_AF_SFLA_SharedActPeople'
		KILLVAR '$modVar_AF_SFLA_SharedActPeopleAbv'
		KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
		$modVar_AF_SFLA_SharedActPeople = 'You and <<$npc_nickname[''A<<ARGS[1]>>'']>>'
		if npc_gender['A<<ARGS[1]>>'] = 1:
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FF'
		elseif npc_gender['A<<ARGS[1]>>'] = 0:
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FM'
		end
		modArr_AF_SFLA_SharedActPeopleArray[] = ARGS[1]
		exercise_arrloc = arrpos('charsche_charlist',ARGS[1])
		exercise_timerem = charsche_character_CurActTime[exercise_arrloc]
		minut += exercise_timerem
		pcs_stam -= exercise_timerem
		pcs_health += (exercise_timerem / 2)
		if exercise_timerem >= 60:
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 3
		elseif exercise_timerem >= 30:
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		else
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 1
		end
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Exercise' , $modVar_AF_SFLA_SharedActPeopleAbv
		'You join your flatmate in whats remaining of their workout routine.  <<$modVar_AF_SFLA_SharedActPeople>> enjoy the time working out together and you feel better for it.'
		act 'Finish exercise' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'yoga':
		!ARGS[1] = the ID of the NPC you exercise with
		*clr & cla
		menu_off = 1
		KILLVAR '$modVar_AF_SFLA_SharedActPeople'
		KILLVAR '$modVar_AF_SFLA_SharedActPeopleAbv'
		KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
		$modVar_AF_SFLA_SharedActPeople = 'You and <<$npc_nickname[''A<<ARGS[1]>>'']>>'
		if npc_gender['A<<ARGS[1]>>'] = 1:
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FF'
		elseif npc_gender['A<<ARGS[1]>>'] = 0:
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FM'
		end
		modArr_AF_SFLA_SharedActPeopleArray[] = ARGS[1]
		yoga_arrloc = arrpos('charsche_charlist',ARGS[1])
		yoga_timerem = charsche_character_CurActTime[yoga_arrloc]
		minut += yoga_timerem
		pcs_mood += (yoga_timerem / 2)
		if yoga_timerem >= 60:
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 3
		elseif yoga_timerem >= 30:
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		else
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 1
		end
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Yoga' , $modVar_AF_SFLA_SharedActPeopleAbv
		'You sit and emulate the yoga pose your flatmate is performing.  <<$modVar_AF_SFLA_SharedActPeople>> feel much better come the end of it making it a rewarding experience.'
		act 'Finish session' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'jogging':
		!ARGS[1] = the ID of the NPC you exercise with
		*clr & cla
		menu_off = 1
		KILLVAR '$modVar_AF_SFLA_SharedActPeople'
		KILLVAR '$modVar_AF_SFLA_SharedActPeopleAbv'
		KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
		$modVar_AF_SFLA_SharedActPeople = 'You and <<$npc_nickname[''A<<ARGS[1]>>'']>>'
		if npc_gender['A<<ARGS[1]>>'] = 1:
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FF'
		elseif npc_gender['A<<ARGS[1]>>'] = 0:
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FM'
		end
		modArr_AF_SFLA_SharedActPeopleArray[] = ARGS[1]
		jogging_arrloc = arrpos('charsche_charlist',ARGS[1])
		jogging_timerem = charsche_character_CurActTime[jogging_arrloc]
		minut += jogging_timerem
		pcs_mood += (jogging_timerem / 2)
		if jogging_timerem >= 60:
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 3
		elseif jogging_timerem >= 30:
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 2
		else
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 1
		end
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Jogging' , $modVar_AF_SFLA_SharedActPeopleAbv
		'<<$modVar_AF_SFLA_SharedActPeople>> go for a pleasant jog around the park.  You don''t push hard enough to gain any physical benefit but it is nice to get out a breathe the fresh air with your flatmate.'
		act 'Finish session' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'computertime':
		*clr & cla
		menu_off = 1
		if $ARGS[1] = 'PCS':
			$modVar_AF_SFLA_SharedActPeopleAbv = 'F'
		else
			$modVar_AF_SFLA_SharedActPeopleAbv = 'FF'
			if $ARGS[1] = '700':
				modVar_AF_SFLA_NPCID = 700
			elseif $ARGS[1] = '701':
				modVar_AF_SFLA_NPCID = 701
			elseif $ARGS[1] = '702':
				modVar_AF_SFLA_NPCID = 702
			end
			$modVar_AF_SFLA_NPCName = '<<$npc_firstname[''A<<modVar_AF_SFLA_NPCID>>'']>>'
		end
		minut += 15
		pcs_mood += 5
		gs 'stat'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Generate' , 'Computer' , $modVar_AF_SFLA_SharedActPeopleAbv
		if $ARGS[1] = 'PCS':
			'You spend some time getting in some quality mind numbing.  You don''t achieve much but you still feel it is time well spent.'
		else
			'You and <<$modVar_AF_SFLA_NPCName>> sit back and idly surf the net; the two of you don''t feel like you got much out of it but it still felt like a good way to pass the time.'
		end
		*nl
		modVar_AF_Rand = rand(1,50)
		if modVar_AF_Rand = 1:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Razors.  Where as they usually cost 350₽, from this place they will only cost 250₽.  You reckon the current Razor has about <<modVar_AF_SFLA_AptPerishables[''Razor'']>> use''s left, might be worth replacing...'
				if karta >= 250:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Razor'] = 25
						modVar_AF_SFLA_AptContributions['PCS'] += 350
						karta -= 250
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Razor at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 2:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Ointment.  Where as they usually cost 372₽, from this place they will only cost 275₽.  You reckon the current Bottle of Ointment has about <<modVar_AF_SFLA_AptPerishables[''Ointment'']>> use''s left, might be worth replacing...'
				if karta >= 275:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Ointment'] = 10
						modVar_AF_SFLA_AptContributions['PCS'] += 372
						karta -= 275
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Ointment at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 3:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for Tampons on offer.  Where as they usually cost 200₽ for a box of 20, from this place they will only cost 120₽.  The box in the Bathroom has about <<modVar_AF_SFLA_AptPerishables[''Tampon'']>>''s left, might be worth getting more...'
				if karta >= 125:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Tampon'] += 20
						modVar_AF_SFLA_AptContributions['PCS'] += 200
						karta -= 125
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Box of Tampons at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 4:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for Sanitory Pads on offer.  Where as they usually cost 100₽ for a box of 20, from this place they will only cost 60₽.  The box in the Bathroom has about <<modVar_AF_SFLA_AptPerishables[''Sanpad'']>>''s left, might be worth getting more...'
				if karta >= 60:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Sanpad'] += 20
						modVar_AF_SFLA_AptContributions['PCS'] += 100
						karta -= 60
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Box of Sanitory Pads at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 5:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Deodorant.  Where as they usually cost 200₽ each, from this place it will only cost 110₽.  The Deodorant Spray in the Bathroom only has about <<modVar_AF_SFLA_AptPerishables[''Deodorant'']>> spray''s left you reckon, might be worth replacing...'
				if karta >= 60:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Deodorant'] = 40
						modVar_AF_SFLA_AptContributions['PCS'] += 200
						karta -= 110
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Bottle of Deodorant at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 6:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Shampoo.  Where as they usually cost 200₽ each, from this place it will only cost 90₽.  The Shampoo Bottle in the Bathroom only has about <<modVar_AF_SFLA_AptPerishables[''Shampoo'']>> use''s left you reckon, might be worth getting more...'
				if karta >= 90:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Shampoo'] += 30
						modVar_AF_SFLA_AptContributions['PCS'] += 200
						karta -= 90
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Bottle of Shampoo at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 7:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Painkillers.  Where as they usually cost 435₽ for a bottle of 50 pills, from this place it will only cost 310₽.  The Bottle in the Bathroom has about <<modVar_AF_SFLA_AptPerishables[''Painkillers'']>> pill''s left, might be worth getting more...'
				if karta >= 310:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Shampoo'] += 50
						modVar_AF_SFLA_AptContributions['PCS'] += 310
						karta -= 310
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Bottle of Painkillers at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 8:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Sun Tan Lotion.  Where as they usually cost 500₽ for a bottle, from this place it will only cost 365₽.  The Bottle on the Balcony has about <<modVar_AF_SFLA_AptPerishables[''Sunlotion'']>> use''s left, might be worth replacing...'
				if karta >= 365:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Sunlotion'] = 20
						modVar_AF_SFLA_AptContributions['PCS'] += 500
						karta -= 365
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Bottle of Sun Tan Lotion at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 9:
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheaper Dishwashing Liquid.  Where as they usually cost 500₽ for a bottle, from this place it will only cost 405₽.  The Bottle in the Kitchen has about <<modVar_AF_SFLA_AptPerishables[''Dishliquid'']>> use''s left, might be worth replacing...'
				if karta >= 410:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Dishliquid'] = 20
						modVar_AF_SFLA_AptContributions['PCS'] += 500
						karta -= 410
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Bottle of Dishwashing Liquid at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 10 or ($ARGS[1] ! 'PCS' and modVar_AF_Rand <= 10):
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for Tea Dunking Biscuits on offer.  Where as they usually cost 400₽ for a packet of 10, from this place it will only cost 300₽.  The Tin in the Kitchen has about <<modVar_AF_SFLA_AptPerishables[''Biscuits'']>> left, might be worth getting more (especially with Elizabeth in the house)...'
				if karta >= 300:
					act 'Buy it!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Biscuits'] += 10
						modVar_AF_SFLA_AptContributions['PCS'] += 400
						karta -= 300
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Packet of Biscuits at its bargain price!  And whats more it arrives at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			elseif modVar_AF_SFLA_NPCID = 701:
				modVar_AF_SFLA_AptPerishables['Biscuits'] += 20
				modVar_AF_SFLA_AptContributions['701'] += 500
				'After spending some time looking at the online shops Elizabeth grabs your arm causing you a moment of shock.'
				*nl
				'<font color="$npc_fontcolor[''A701'']"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Oh my Fucking GOD!!  They are selling imported Chocolate Hobnobs at Buy One get One Free!!!  AAHHHHHH!!!  I am buying that right now!"</font>'
				*nl
				'"Yes.... that''s lovely Lizzie.... I''m sure they''ll be nice...."'
				*nl
				'<font color="$npc_fontcolor[''A701'']">"NICE!!  JUST FUCKING NICE!!  They are going to be bloody fantastic!!"</font>'
				act 'Escape this madness... NOW!!' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand = 11 or ($ARGS[1] ! 'PCS' and modVar_AF_Rand <= 20):
			if $ARGS[1] = 'PCS':
				'After looking round the online shops though you notice an advert for cheap Microwaveable Meals.  Where as they usually cost 300₽ per meal, from this place it will only cost 195₽.  There is <<modVar_AF_SFLA_AptPerishables[''Lightmeal'']>> meals in the Fridge, might be worth getting more...'
				if karta >= 390:
					act 'Buy two!' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Lightmeal'] += 2
						modVar_AF_SFLA_AptContributions['PCS'] += 600
						karta -= 390
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'You purchase the Light meals at its bargain price!  And whats more they arrive at your front door instantly!  (almost as if, unlike real life, it was easier for it to arrive instantly than having to account for a delivery delay...)'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Ignore it and get off the Computer' : gt $loc, $loc_arg
			else
				'<font color="<<$npc_fontcolor[''A<<modVar_AF_SFLA_NPCID>>'']>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', look here.  This shop is selling Microwaveable Meals for 50% off if we buy 5; do you want to go halfsies on it?"</font>'
				if karta >= 375:
					act 'Sure, sounds good' :
						*clr & cla
						modVar_AF_SFLA_AptPerishables['Lightmeal'] += 2
						modVar_AF_SFLA_AptContributions['PCS'] += 750
						modVar_AF_SFLA_AptContributions['<<modVar_AF_SFLA_NPCID>>'] += 750
						karta -= 375
						gs 'stat'
						'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
						*nl
						'<font color="<<$npc_fontcolor[''A<<modVar_AF_SFLA_NPCID>>'']>>">"Brilliant!  Let''s order them now!"</font>'
						act 'Get off the Computer' : gt $loc, $loc_arg
					end
				end
				act 'Nah, I am a bit short of cash at the moment' : gt $loc, $loc_arg
			end
		elseif modVar_AF_Rand >= 20 and modVar_AF_Rand < 40:
			if week >= 5 and ((hour * 60) + minut) >= 1290 and $ARGS[1] ! 'PCS':
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact'  , modVar_AF_SFLA_NPCID , 'club' , 'Partying' , 120
				'<font color="<<$npc_fontcolor[''A<<modVar_AF_SFLA_NPCID>>'']>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; I think I''m going to go down the Night Club.  If you fancy joining me later it''ll be great seeing you down there!"</font>'
				*nl
				'"Maybe you will; I''ll need to get ready first but we''ll see."'
				*nl
				'You get a quick happy response from <<$npc_firstname[''A<<modVar_AF_SFLA_NPCID>>'']>> before being left behind in the gust of wind that is her leaving the Apartment...'
				act 'Get off the Computer' : gt $loc, $loc_arg
			else
				act 'Get off the Computer' : gt $loc, $loc_arg
			end
		else
			act 'Get off the Computer' : gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'SFLA-ClubActive-Alert':
		*clr & cla
		modVar_AF_Temp = modVar_AF_EventOpen['SFLA-ClubActive']
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/system/phone.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A<<modVar_AF_Temp>>'']>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  It''s <<$npc_firstname[''A<<modVar_AF_Temp>>'']>>!  We''re down the Night Club right now; how about you come join us!!"</font>'
		*nl
		'"Really?!  Maybe I will; if I can get some free time I''ll meet you down there!"'
		*nl
		'<font color="<<$npc_fontcolor[''A<<modVar_AF_Temp>>'']>>">"Brilliant!"</font>'
		modVar_AF_EventOpen['SFLA-ClubActive'] = 0
		act 'Put phone away' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-ShowerPeekEv-1':
		modVar_AF_EventLock['SFLA-ShowerPeek'] = daystart
		modVar_AF_Temp = ARGS[1]
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , modVar_AF_Temp , rand(5,(5 * (5 - difficulty)))
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Shower/Shower-React' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'You are mindlessly washing your body when you are sure you are picking the sounds of someone outside of the door...'
		if modVar_AF_SexProg['A<<modVar_AF_Temp>>'] > modVar_AF_SexProg['OralGate']:
			gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 2
			if modVar_AF_Inhib['Result'] = 1:
				*nl
				'<i>I suppose there is no harm if I was to make myself available to my eager watcher!</i>'
				act 'Make a show of your body' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-ShowerPeekEv-3' , modVar_AF_Temp
			end
			act 'Ignore it...' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-ShowerPeekEv-4' , modVar_AF_Temp
		else
			*nl
			'You are sure that the door is not locked but it could all be your imagination.'
			gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 1
			if modVar_AF_Inhib['Result'] = 1:
				act 'Embrace it!' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-ShowerPeekEv-2' , 'Embrace' , modVar_AF_Temp
			end
			act 'Dismiss it' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-ShowerPeekEv-2' , 'Dismiss'
		end
	end
	
	if $ARGS[0] = 'SFLA-ShowerPeekEv-2':
		if $ARGS[1] = 'Embrace':
			gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
			KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
			modArr_AF_SFLA_SharedActPeopleArray[] = ARGS[2]
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Sexy' , rand(2,5)
		elseif $ARGS[1] = 'Dismiss':
			pcs_mood -= rand(5,10)
			minut += rand(2,4)
		end
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Shower/Shower-' + iif($ARGS[1] = 'Dismiss','Unhappy','Happy') + 'React' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		if $ARGS[1] = 'Embrace':
			'You decide that if someone is brave enough to try and see your naked body with streams of water and mounds of foam washing over it, then the best thing is to embrace it!'
		elseif $ARGS[1] = 'Dismiss':
			'You decide to ignore it; after all it could easily just be nothing...'
		end
		act 'Get out and dry off' : mirror_steam = hour & gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-ShowerPeekEv-3':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Shower/Shower-Present<<rand(1,2)>>' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'You turn away so not to impact your voyeur''s confidence but in doing so thrust out your posterior.  Once in position your start swaying your ample features to better emphasize their beguiling allure.'
		*nl
		'Just as you are starting to wonder as to just how much of a presentation you will have to do until they get the hint when you hear the unmistakable sound of the Bathroom door opening...'
		*nl
		'<font color="<<$npc_fontcolor[''A<<ARGS[1]>>'']>>">"Why ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; that''s quite the invitation..."</font>'
		act 'Greet your guest' : gt 'mod_addedflavour_A<<ARGS[1]>>_Events' , 'A<<ARGS[1]>>-ShowerEv-1'
	end
	
	if $ARGS[0] = 'SFLA-ShowerPeekEv-4':
		minut += rand(2,5)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Shower/Shower-Caught' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'You decide to just ignore the sounds and carry on regardless; enjoying the pleasant feel of water flowing over your body.  That was until your voyeur made themselves known to you!'
		*nl
		'<font color="<<$npc_fontcolor[''A<<ARGS[1]>>'']>>">Come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  You think I am going to just let you get away with putting on a show like that without doing something!  Now finish up so others can use the Bathroom.</font>'
		*nl
		'You can hear <<$npc_firstname[''A<<ARGS[1]>>'']>> laughing at your expense as they shut the door behind them leaving you to finish up.'
		act 'Get out and dry off' : mirror_steam = hour & gt $loc, $loc_arg
	end

--- mod_addedflavour_SFLA_Events ---------------------------------