AddedFlavour/locations/mod_addedflavour_SFLA_Functions.qsrc

# mod_addedflavour_SFLA_Functions
	if $ARGS[0] = 'configurestart':
		modVar_AF_SFLA_DayTracker['Day'] = daystart
		modVar_AF_SFLA_AptPerishables['Razor'] = 5
		modVar_AF_SFLA_AptPerishables['Ointment'] = 5
		modVar_AF_SFLA_AptPerishables['Tampon'] = 5
		modVar_AF_SFLA_AptPerishables['Sanpad'] = 5
		modVar_AF_SFLA_AptPerishables['Deodorant'] = 5
		modVar_AF_SFLA_AptPerishables['Shampoo'] = 5
		modVar_AF_SFLA_AptPerishables['Painkillers'] = 5
		modVar_AF_SFLA_AptPerishables['Sunlotion'] = 5
		modVar_AF_SFLA_AptPerishables['Dishliquid'] = 5
		modVar_AF_SFLA_AptPerishables['Biscuits'] = 5
		modVar_AF_SFLA_AptPerishables['Lightmeal'] = 5
		modVar_AF_SFLA_AptPerishables['Fullmeal'] = 1
		modVar_AF_SFLA_AptPerishables['Fatburners'] = 5
		modVar_AF_SFLA_AptPerishables['Vitamin'] = 5
		modVar_AF_SFLA_AptContributions['PCS'] = 0
		modVar_AF_SFLA_AptContributions['700'] = 200
		modVar_AF_SFLA_AptContributions['701'] = -100
		modVar_AF_SFLA_AptContributions['702'] = 500
		modVar_AF_SFLA_AptState['Washdishes'] = 0
		modVar_AF_SFLA_AptState['Rent'] = 500 * difficulty
		modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 0
		modVar_AF_SFLA_AptState['GuestID'] = 0
		modVar_AF_LocBlock['SFLA_Bedr1'] = 0
		modVar_AF_LocBlock['SFLA_Bedr2'] = 0
		modVar_AF_LocBlock['SFLA_Bedr3'] = 0
		modVar_AF_RelLock['A700'] = npc_rel['A700']
		modVar_AF_RelLock['A701'] = npc_rel['A701']
		modVar_AF_RelLock['A702'] = npc_rel['A702']
		modVar_AF_RelLock['A34'] = npc_rel['A34']
		modVar_AF_RelLock['A144'] = npc_rel['A144']
		modVar_AF_NPCGreetingDay['A700'] = 0
		modVar_AF_NPCGreetingDay['A701'] = 0
		modVar_AF_NPCGreetingDay['A702'] = 0
		modVar_AF_NPCGreetingDay['A34'] = 0
		$modVar_AF_NPCLastKnownLocation['A700'] = ''
		$modVar_AF_NPCLastKnownLocation['A701'] = ''
		$modVar_AF_NPCLastKnownLocation['A702'] = ''
		modVar_AF_SexProg['A700'] = 0
		modVar_AF_SexProg['A701'] = 0
		modVar_AF_SexProg['A702'] = 0
		modVar_AF_SexProg['A703'] = 0
		modVar_AF_SexProg['TouchGate'] = 30
		modVar_AF_SexProg['KissGate'] = 40
		modVar_AF_SexProg['OralGate'] = 50
		modVar_AF_SexProg['VaginalGate'] = 60
		modVar_AF_SexProg['ThreesomeGate'] = 80
		modVar_AF_SexProg['A700XA701'] = 20
		modVar_AF_SexProg['A700XA702'] = 20
		modVar_AF_SexProg['A700XA703'] = 0
		modVar_AF_SexProg['A34XA700'] = 0
		modVar_AF_SexProg['A701XA702'] = 20
		modVar_AF_SexProg['A701XA703'] = 0
		modVar_AF_SexProg['A34XA701'] = 0
		modVar_AF_SexProg['A702XA703'] = 0
		modVar_AF_SexProg['A34XA702'] = 0
		modVar_AF_SFLA_AptRProg['Lv2Req'] = 12
		modVar_AF_SFLA_AptRProg['BaRm'] = 0
		modVar_AF_SFLA_AptRProg['BaRmTime'] = 1
		modVar_AF_SFLA_AptRProg['BaRmCost'] = 2000
		modVar_AF_SFLA_AptRProg['Bedr1'] = 0
		modVar_AF_SFLA_AptRProg['Bedr1Time'] = 1
		modVar_AF_SFLA_AptRProg['Bedr1Cost'] = 1000
		modVar_AF_SFLA_AptRProg['Bedr2'] = 0
		modVar_AF_SFLA_AptRProg['Bedr2Time'] = 1
		modVar_AF_SFLA_AptRProg['Bedr2Cost'] = 1000
		modVar_AF_SFLA_AptRProg['Bedr3'] = 0
		modVar_AF_SFLA_AptRProg['Bedr3Time'] = 1
		modVar_AF_SFLA_AptRProg['Bedr3Cost'] = 1000
		modVar_AF_SFLA_AptRProg['Bedr4'] = 0
		modVar_AF_SFLA_AptRProg['Bedr4Time'] = 1
		modVar_AF_SFLA_AptRProg['Bedr4Cost'] = 1000
		modVar_AF_SFLA_AptRProg['Kit'] = 0
		modVar_AF_SFLA_AptRProg['KitTime'] = 2
		modVar_AF_SFLA_AptRProg['KitCost'] = 2000
		modVar_AF_SFLA_AptRProg['Sitr'] = 0
		modVar_AF_SFLA_AptRProg['SitrTime'] = 1
		modVar_AF_SFLA_AptRProg['SitrCost'] = 2000
		modVar_AF_SFLA_AptRProg['SpRm'] = 0
		modVar_AF_SFLA_AptRProg['SpRmTime'] = 2
		modVar_AF_SFLA_AptRProg['SpRmCost'] = 3000
	end
	
	if $ARGS[0] = 'configureSFLA':
		gs 'mod_addedflavour_A700_Functions' , 'A700-FileRepository-Config' , 'Images'
		gs 'mod_addedflavour_A700_Functions' , 'A700-FileRepository-Config' , 'Videos'
		gs 'mod_addedflavour_A701_Functions' , 'A701-FileRepository-Config' , 'Images'
		gs 'mod_addedflavour_A701_Functions' , 'A701-FileRepository-Config' , 'Videos'
		gs 'mod_addedflavour_A702_Functions' , 'A702-FileRepository-Config' , 'Images'
		gs 'mod_addedflavour_A702_Functions' , 'A702-FileRepository-Config' , 'Videos'
		gs 'mod_addedflavour_SFLA_Functions' , 'ActivityImage-Config'
		gs 'mod_addedflavour_SFLA_Functions' , 'configurestart'
	end
	
	if $ARGS[0] = 'ActivityImage-Config':
		KILLVAR '$modArr_AF_Activity_ImagesLoc'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 1.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 2.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 3.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 4.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 5.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 6.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 7.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 8.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 9.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 10.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 11.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 12.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 13.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 14.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 15.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 16.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 17.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 18.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 19.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 20.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 21.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 22.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 23.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 24.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 25.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 26.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 27.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 28.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 29.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 30.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 31.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 32.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 33.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 34.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 35.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 36.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 37.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 38.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 39.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 40.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 41.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 42.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 43.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 44.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 45.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 46.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 47.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 48.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 49.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 50.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 51.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 52.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 53.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 54.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 55.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 56.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 57.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 58.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 59.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 60.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 61.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 62.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 63.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 64.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 65.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 66.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 67.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 68.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 69.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 70.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 71.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 72.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 73.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 74.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 75.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 76.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 77.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 78.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 79.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 80.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 81.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 82.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 83.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 84.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 85.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 86.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 87.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 88.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 89.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 90.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 91.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 92.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 93.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 94.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 95.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 96.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 97.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 98.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 99.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 100.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 101.jpg'
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 102' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 103' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 104' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 105' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 106' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 107' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 108' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 109' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 110' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 111' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 112' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 113' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 114' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 115' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 116' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		$modArr_AF_Activity_ImagesLoc[] = 'mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/Activity 117' + iif(modVar_AF_QSPVer = 1,'.gif','.webp')
		KILLVAR '$modArr_AF_Activity_ImagesDesc'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Jogging}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBalcony}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBalcony}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Jogging}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FFFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Jogging}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Jogging}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Yoga}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FFFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Computer}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FFFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBalcony}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBalcony}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Jogging}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{FFFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Jogging}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Computer}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxGrass}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Shopping}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Gaming}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Eating}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Yoga}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxSofa}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBed}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Yoga}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{RelaxBalcony}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Computer}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Yoga}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{WatchTV}{FFFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Computer}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Yoga}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{IntimateDancing}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Exercise}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Exercise}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FFFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FFF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Exercise}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FF}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{FFM}'
		$modArr_AF_Activity_ImagesDesc[] = '{Dancing}{F}'
		$modArr_AF_Activity_ImagesDesc[] = '{IntimateDancing}{FF}'
	end
	
	if $ARGS[0] = 'ActivityImage-Generate':
		KILLVAR '$ActivityImage_ImageChoice'
		KILLVAR 'ActivityImageChoiceOptions'
		$modVar_AF_TempStr = '{<<$ARGS[2]>>}'
		ActivityImageChoiceLoopCount = 0
		ActivityImageChoiceLoopErrorCount = 0
		:ActivityImageChoiceLoopStart
		if ActivityImageChoiceLoopCount >= arrsize('$modArr_AF_Activity_ImagesDesc') : jump 'ActivityImageChoiceLoopEnd'
		if ActivityImageChoiceLoopErrorCount >= 5000 : $modVar_AF_LoopErrorLoc = 'ActivityImageChoiceLoop' & jump 'ActivityImageChoiceErrorFail'
		if strpos($modArr_AF_Activity_ImagesDesc[ActivityImageChoiceLoopCount],'{<<$ARGS[1]>>}') > 0 and strpos($modArr_AF_Activity_ImagesDesc[ActivityImageChoiceLoopCount],'<<$modVar_AF_TempStr>>') > 0:
			ActivityImageChoiceOptions[] = ActivityImageChoiceLoopCount
		end
		ActivityImageChoiceLoopCount += 1
		ActivityImageChoiceLoopErrorCount += 1
		jump 'ActivityImageChoiceLoopStart'
		:ActivityImageChoiceLoopEnd
		if arrsize('ActivityImageChoiceOptions') = 0:
			if $modVar_AF_TempStr = '{FFFF}':
				$modVar_AF_TempStr = '{FFF}'
			elseif $modVar_AF_TempStr = '{FFF}':
				$modVar_AF_TempStr = '{FF}'
			elseif $modVar_AF_TempStr = '{FF}':
				$modVar_AF_TempStr = '{F}'
			elseif $modVar_AF_TempStr = '{FFFFM}':
				$modVar_AF_TempStr = '{FFFM}'
			elseif $modVar_AF_TempStr = '{FFFM}':
				$modVar_AF_TempStr = '{FFM}'
			elseif $modVar_AF_TempStr = '{FFM}':
				$modVar_AF_TempStr = '{FM}'
			else
				jump 'ActivityImageChoiceErrorFail'
			end
			ActivityImageChoiceLoopCount = 0
			jump 'ActivityImageChoiceLoopStart'
		end
		:ActivityImageChoiceErrorFail
		modVar_AF_Rand = rand(1,arrsize('ActivityImageChoiceOptions')) - 1
		ActivityImage_ImageArrPos = ActivityImageChoiceOptions[modVar_AF_Rand]
		$ActivityImage_ImageChoice = $modArr_AF_Activity_ImagesLoc[ActivityImage_ImageArrPos]
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ActivityImage_ImageChoice>>"></center>'
	end
	
	if $ARGS[0] = 'SFLA-AptLive-EndDay':
		modVar_AF_SFLA_DayTracker['Day'] = daystart
		if (daystart - week) >= modVar_AF_SFLA_DayTracker['Week']:
			modVar_AF_SFLA_DayTracker['Week'] = daystart
		end
		!Loop for NPC Contributions
		$modVar_AF_SFLA_CharID = '700'
		:NPCContribLoop
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Razor'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Razor'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Razor'] > 0 and modVar_AF_Rand = 10:
			gs 'mod_addedflavour_SFLA_Functions' , 'razor' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Ointment'] <= 2 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'ointment' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Ointment'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'ointment' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Ointment'] > 0 and modVar_AF_Rand = 10:
			gs 'mod_addedflavour_SFLA_Functions' , 'ointment' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Tampon'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'tampon' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Tampon'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'tampon' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Tampon'] > 0 and modVar_AF_Rand = 10:
			gs 'mod_addedflavour_SFLA_Functions' , 'tampon' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Sanpad'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'sanpad' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Sanpad'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'sanpad' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Sanpad'] > 0 and modVar_AF_Rand = 10:
			gs 'mod_addedflavour_SFLA_Functions' , 'sanpad' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Deodorant'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'deodorant' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Deodorant'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'deodorant' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Deodorant'] > 0 and modVar_AF_Rand >= 6:
			gs 'mod_addedflavour_SFLA_Functions' , 'deodorant' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Shampoo'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'shampoo' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Shampoo'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'shampoo' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Shampoo'] > 0 and modVar_AF_Rand >= 4:
			gs 'mod_addedflavour_SFLA_Functions' , 'shampoo' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Painkillers'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'painkillers' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Painkillers'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'painkillers' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Painkillers'] > 0 and modVar_AF_Rand >= 10:
			gs 'mod_addedflavour_SFLA_Functions' , 'painkillers' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Sunlotion'] <= 5 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'sunlotion' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Sunlotion'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'sunlotion' , 'add' , $modVar_AF_SFLA_CharID
		end
		if month < 10 and month >= 3:
			modVar_AF_Rand = rand(1,10)
			if modVar_AF_SFLA_AptPerishables['Sunlotion'] > 0 and modVar_AF_Rand >= 8:
				gs 'mod_addedflavour_SFLA_Functions' , 'sunlotion' , 'use' , $modVar_AF_SFLA_CharID
			end
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Dishliquid'] <= 2 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'dishliquid' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Dishliquid'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'dishliquid' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_SFLA_AptState['Washdishes'] += 1
		modVar_AF_Rand = rand(1,15)
		if modVar_AF_SFLA_AptState['Washdishes'] > modVar_AF_Rand:
			washinguptemp = modVar_AF_SFLA_AptState['Washdishes']
			:washinguploopNPC
			gs 'mod_addedflavour_SFLA_Functions' , 'dishliquid' , 'use' , $modVar_AF_SFLA_CharID
			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 'washinguploopNPC'
			end
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Biscuits'] <= 10 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'biscuits' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Biscuits'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'biscuits' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if $modVar_AF_SFLA_CharID = '701':
			modVar_AF_Rand = 10
		end
		if modVar_AF_SFLA_AptPerishables['Biscuits'] > 0 and modVar_AF_Rand >= 6:
			gs 'mod_addedflavour_SFLA_Functions' , 'biscuits' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Lightmeal'] <= 20 and modVar_AF_Rand >= 2:
			gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Lightmeal'] <= 20 and modVar_AF_Rand >= 6:
			gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'add' , $modVar_AF_SFLA_CharID
			gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'add' , $modVar_AF_SFLA_CharID
			gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Lightmeal'] = 0:
			gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'add' , $modVar_AF_SFLA_CharID
		end
		if charsche_activity_Active[arrpos('$charsche_actlist','SFLAKitr - Dinner')] = 0:
			if modVar_AF_SFLA_AptPerishables['Lightmeal'] > 0:
				gs 'mod_addedflavour_SFLA_Functions' , 'lightmeal' , 'use' , $modVar_AF_SFLA_CharID
			end
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Fatburners'] <= 5 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'fatburners' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Fatburners'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'fatburners' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Vitamin'] > 0 and modVar_AF_Rand >= 10:
			gs 'mod_addedflavour_SFLA_Functions' , 'vitamin' , 'use' , $modVar_AF_SFLA_CharID
		end
		if modVar_AF_SFLA_AptPerishables['Vitamin'] <= 5 and modVar_AF_Rand >= 9:
			gs 'mod_addedflavour_SFLA_Functions' , 'vitamin' , 'add' , $modVar_AF_SFLA_CharID
		elseif modVar_AF_SFLA_AptPerishables['Fatburners'] = 0 and modVar_AF_Rand >= 5:
			gs 'mod_addedflavour_SFLA_Functions' , 'vitamin' , 'add' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_AptPerishables['Vitamin'] > 0 and modVar_AF_Rand >= 8:
			gs 'mod_addedflavour_SFLA_Functions' , 'fatburners' , 'use' , $modVar_AF_SFLA_CharID
		end
		modVar_AF_Rand = rand(1,10)
		if modVar_AF_SFLA_DayTracker['Week'] = daystart:
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= modVar_AF_SFLA_AptState['Rent']
		end
		if modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] < -800:
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += (rand(100,200) * 10)
		end
		modVar_AF_RelLock['A<<$modVar_AF_SFLA_CharID>>'] = npc_rel['A<<$modVar_AF_SFLA_CharID>>']
		if $modVar_AF_SFLA_CharID = '700':
			$modVar_AF_SFLA_CharID = '701'
			jump 'NPCContribLoop'
		elseif $modVar_AF_SFLA_CharID = '701':
			$modVar_AF_SFLA_CharID = '702'
			jump 'NPCContribLoop'
		end
		!Updated NPC Inter-Relationships
		modVar_AF_SexProg['A700XA701'] += rand(1,(6 - difficulty))
		if modVar_AF_SexProg['A700XA701'] > 100 : modVar_AF_SexProg['A700XA701'] = 100
		modVar_AF_SexProg['A700XA702'] += rand(1,(6 - difficulty))
		if modVar_AF_SexProg['A700XA702'] > 100 : modVar_AF_SexProg['A700XA701'] = 100
		modVar_AF_SexProg['A701XA702'] += rand(1,(6 - difficulty))
		if modVar_AF_SexProg['A701XA702'] > 100 : modVar_AF_SexProg['A700XA701'] = 100
		if modVar_AF_SFLA_AptState['GuestID'] = 34 and modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2:
			if modVar_AF_SexProg['A34XA700'] <= modVar_AF_SexProg['TouchGate']:
				modVar_AF_SexProg['A34XA700'] += rand(1,(6 - difficulty))
				if modVar_AF_SexProg['A34XA700'] > modVar_AF_SexProg['TouchGate'] : modVar_AF_SexProg['A34XA700'] = modVar_AF_SexProg['TouchGate']
			else
				modVar_AF_SexProg['A34XA700'] += rand(1,(6 - difficulty))
				if modVar_AF_SexProg['A34XA700'] > 100 : modVar_AF_SexProg['A34XA700'] = 100
			end
			if modVar_AF_SexProg['A34XA702'] <= modVar_AF_SexProg['TouchGate']:
				modVar_AF_SexProg['A34XA702'] += rand(1,(6 - difficulty))
				if modVar_AF_SexProg['A34XA702'] > modVar_AF_SexProg['TouchGate'] : modVar_AF_SexProg['A34XA702'] = modVar_AF_SexProg['TouchGate']
			else
				modVar_AF_SexProg['A34XA702'] += rand(1,(6 - difficulty))
				if modVar_AF_SexProg['A34XA702'] > 100 : modVar_AF_SexProg['A34XA702'] = 100
			end
		end
		!Updated NPC Horny Rating
		npc_horny['A700'] += rand(5,(5 * (5 - difficulty)))
		npc_horny['A701'] += rand(5,(5 * (5 - difficulty)))
		npc_horny['A702'] += rand(5,(5 * (5 - difficulty)))
		if modVar_AF_SFLA_AptState['GuestID'] = 34 and modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2 : npc_horny['A34'] += rand(5,(5 * (5 - difficulty)))
		!Prompt Player Finances
		if modVar_AF_SFLA_AptState['GuestID'] = 34 and modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2:
			modVar_AF_SFLA_AptContributions['PCS'] -= 350
		end
		if modVar_AF_SFLA_DayTracker['Week'] = daystart:
			modVar_AF_SFLA_AptContributions['PCS'] -= modVar_AF_SFLA_AptState['Rent']
			$modVar_AF_PlayerWarning['SFLA-RentPaid'] = 1
		else
			$modVar_AF_PlayerWarning['SFLA-RentPaid'] = 0
		end
		if modVar_AF_SFLA_AptContributions['PCS'] < 0:
			$modVar_AF_PlayerWarning['SFLA-InDebt'] = 1
		else
			$modVar_AF_PlayerWarning['SFLA-InDebt'] = 0
		end
		!Stops Dinner Event from happening after day it is triggered
		if charsche_activity_Active[arrpos('$charsche_actlist','SFLAKitr - Dinner')] = 1 : charsche_activity_Active[arrpos('$charsche_actlist','SFLAKitr - Dinner')] = 0
	end
	
	if $ARGS[0] = 'SFLA-AptLive-PayIn':
		Karta -= ARGS[1]
		modVar_AF_SFLA_AptContributions['PCS'] += ARGS[1]
		gs 'stat'
	end
	
	if $ARGS[0] = 'SFLA-AptLive-PayOut':
		Karta += ARGS[1]
		modVar_AF_SFLA_AptContributions['PCS'] -= ARGS[1]
		gs 'stat'
	end
	
	if $ARGS[0] = 'whoelse':
		!!$ARGS[1] = location
		!!$ARGS[2] = action
		KILLVAR '$modVar_AF_SFLA_SharedActPeople'
		KILLVAR '$modVar_AF_SFLA_SharedActPeopleAbv'
		KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
		$modVar_AF_SFLA_SharedActPeople = 'You'
		$modVar_AF_SFLA_SharedActPeopleAbv = 'F'
		$modVar_AF_SFLA_SharedActPeopleAbvTemp = ''
		whoelseloopcount = 0
		:whoelseloop
		if whoelseloopcount >= arrsize('charsche_charlist'):
			jump 'whoelseloopend'
		end
		whoelseloopcharid = charsche_charlist[whoelseloopcount]
		if strpos($charsche_character_CurActLoc[whoelseloopcount],$ARGS[1]) > 0:
			if $charsche_character_CurActDesc[whoelseloopcount] = $ARGS[2]:
				$modVar_AF_SFLA_SharedActPeople = '<<$modVar_AF_SFLA_SharedActPeople>> and <<$npc_usedname[''A<<whoelseloopcharid>>'']>>'
				if npc_gender['A<<whoelseloopcharid>>'] = 1 and len($modVar_AF_SFLA_SharedActPeopleAbv) < 4:
					$modVar_AF_SFLA_SharedActPeopleAbv = '<<$modVar_AF_SFLA_SharedActPeopleAbv>>F'
				elseif len($modVar_AF_SFLA_SharedActPeopleAbvTemp) < 1:
					$modVar_AF_SFLA_SharedActPeopleAbvTemp = '<<$modVar_AF_SFLA_SharedActPeopleAbvTemp>>M'
				end
				modArr_AF_SFLA_SharedActPeopleArray[] = whoelseloopcharid
			elseif $ARGS[2] = 'Any':
				modArr_AF_SFLA_SharedActPeopleArray[] = whoelseloopcharid
			end
		end
		whoelseloopcount += 1
		jump 'whoelseloop'
		:whoelseloopend
		$modVar_AF_SFLA_SharedActPeopleAbv = '<<$modVar_AF_SFLA_SharedActPeopleAbv>><<$modVar_AF_SFLA_SharedActPeopleAbvTemp>>'
		KILLVAR '$modVar_AF_SFLA_SharedActPeopleAbvTemp'
	end
	
	if $ARGS[0] = 'npcrelcalc':
		!$ARGS[1] = Type of Interaction (means which metric is being affected) (e.g. Casual, Touch, Kiss, Sex)
		!ARGS[2] = Amount (Number to represent the amount of time and/or severity of gain)
		npcrelcalcloopcount = 0
		:npcrelcalcloop
		if npcrelcalcloopcount >= arrsize('modArr_AF_SFLA_SharedActPeopleArray'):
			jump 'npcrelcalcloopend'
		end
		npcrelcalcnpcid = modArr_AF_SFLA_SharedActPeopleArray[npcrelcalcloopcount]
		if $ARGS[1] = 'Casual':
			if npc_rel['A<<npcrelcalcnpcid>>'] < 90:
				npc_rel['A<<npcrelcalcnpcid>>'] += ARGS[2]
				modVar_AF_npcrelcalc_temp = modVar_AF_RelLock['A<<npcrelcalcnpcid>>'] + (9 - difficulty)
				if npc_rel['A<<npcrelcalcnpcid>>'] >= modVar_AF_npcrelcalc_temp : npc_rel['A<<npcrelcalcnpcid>>'] = modVar_AF_npcrelcalc_temp
				if npc_rel['A<<npcrelcalcnpcid>>'] > 90 : npc_rel['A<<npcrelcalcnpcid>>'] = 90
			end
		elseif $ARGS[1] = 'Casual-Insist':
			if npc_rel['A<<npcrelcalcnpcid>>'] < 90:
				npc_rel['A<<npcrelcalcnpcid>>'] += ARGS[2]
				if npc_rel['A<<npcrelcalcnpcid>>'] > 90 : npc_rel['A<<npcrelcalcnpcid>>'] = 90
				modVar_AF_RelLock['A<<npcrelcalcnpcid>>'] += ARGS[2]
				if (modVar_AF_RelLock['A<<npcrelcalcnpcid>>'] + ARGS[2]) > 90 : modVar_AF_RelLock['A<<npcrelcalcnpcid>>'] = 90
			end
		elseif $ARGS[1] = 'Dancing':
			if npc_rel['A<<npcrelcalcnpcid>>'] < 100 : npc_rel['A<<npcrelcalcnpcid>>'] += ARGS[2]
			if npc_rel['A<<npcrelcalcnpcid>>'] > 100 : npc_rel['A<<npcrelcalcnpcid>>'] = 100
		elseif $ARGS[1] = 'Sexy':
			if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > 0 and modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] < modVar_AF_SexProg['TouchGate']:
				modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] += ARGS[2]
				if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['TouchGate'] : modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] = modVar_AF_SexProg['TouchGate']
			end
		elseif $ARGS[1] = 'Touch':
			if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['TouchGate'] and modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] < modVar_AF_SexProg['KissGate']:
				modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] += ARGS[2]
				if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['KissGate'] : modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] = modVar_AF_SexProg['KissGate']
			end
		elseif $ARGS[1] = 'Kiss':
			if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['KissGate'] and modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] < modVar_AF_SexProg['OralGate']:
				modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] += ARGS[2]
				if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['OralGate'] : modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] = modVar_AF_SexProg['OralGate']
			end
		elseif $ARGS[1] = 'Oral':
			if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['OralGate'] and modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] < modVar_AF_SexProg['VaginalGate']:
				modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] += ARGS[2]
				if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > modVar_AF_SexProg['VaginalGate'] : modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] = modVar_AF_SexProg['VaginalGate']
			end
		elseif $ARGS[1] = 'Vaginal':
			modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] += ARGS[2]
			if modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] > 100 : modVar_AF_SexProg['A<<npcrelcalcnpcid>>'] = 100
		end
		npcrelcalcloopcount += 1
		jump 'npcrelcalcloop'
		:npcrelcalcloopend
		KILLVAR 'npcrelcalcnpcid'
	end
	
	if $ARGS[0] = 'soundgen':
		SFLA_SoundGen_SharedSpace = 0
		SFLA_SoundGen_BaRmOccupied = 0
		SFLA_SoundGen_TVActive = 0
		SFLA_SoundGen_StudyActive = 0
		SFLA_SoundGen_SexActive = 0
		SFLA_SoundGen_MallActive = 0
		if strpos($loc,'SFLA') > 0 : SFLA_SoundGen_SharedSpace = 1
		if $loc = 'mod_addedflavour_SFLA_Kit':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_BaRm' , 'Any'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 : SFLA_SoundGen_BaRmOccupied = 1
		end
		if $loc = 'mod_addedflavour_SFLA_Sitr':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA_Sitr' , 'Watch TV'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 : SFLA_SoundGen_TVActive = 1
		end
		if strpos($loc,'SFLA') > 0:
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Studying'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 : SFLA_SoundGen_StudyActive = 1
		end
		if $loc = 'mod_addedflavour_SFLA_Sitr':		
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'SFLA' , 'Sex'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 : SFLA_SoundGen_SexActive = 1
		end
		if $loc = 'torgcentr':		
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'torgcentr' , 'Any'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0 : SFLA_SoundGen_MallActive = 1
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Any'
		if $loc = 'mod_addedflavour_SFLA_Sitr' and SFLA_SoundGen_SexActive = 1:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/FemaleMoaning.mp3' , 50
		elseif SFLA_SoundGen_SharedSpace = 1 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 2:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/Talking.mp3' , 50
		elseif $loc = 'mod_addedflavour_SFLA_Sitr' and SFLA_SoundGen_TVActive = 1:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/TV.mp3' , 50
		elseif SFLA_SoundGen_StudyActive = 1:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/StudyMusic.mp3' , 50	
		elseif $loc = 'mod_addedflavour_SFLA_Kit' and SFLA_SoundGen_BaRmOccupied = 1:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/ShowerMuffled.mp3' , 50
		elseif $loc = 'mod_addedflavour_SFLA_Bal' and weatherFall >= 50 and sunWeather ! 1:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/Rain.mp3' , 50
		elseif $loc = 'mod_addedflavour_SFLA_Bal' and (weatherFall < 50 or (weatherFall >= 50 and sunWeather = 1)):
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/StreetSounds.mp3' , 50
		elseif SFLA_SoundGen_MallActive = 1 and modVar_AF_SFLAWhistle ! hour:
			ClOSE ALL
			PLAY 'mod/addedflavour/sound/Whistle.mp3' , 50
			modVar_AF_SFLAWhistle = hour
		end
		KILLVAR 'SFLA_SoundGen_SexActive'
		KILLVAR 'SFLA_SoundGen_SharedSpace'
		KILLVAR 'SFLA_SoundGen_BaRmOccupied'
		KILLVAR 'SFLA_SoundGen_TVActive'
		KILLVAR 'SFLA_SoundGen_StudyActive'
		KILLVAR 'SFLA_SoundGen_MallActive'
	end
	
	if $ARGS[0] = 'npcmessage':
		KILLVAR '$modVar_AF_NPCMessage'
		$SFLA_NPCMessage_Font = $npc_fontcolor['A<<ARGS[1]>>']
		SFLA_NPCMessage_ArrPos = arrpos('charsche_charlist',ARGS[1])
		if modVar_AF_NPCGreetingDay['A<<args[1]>>'] ! daystart and (hour >= 4 and hour <= 23):
			if hour >= 4 and hour <= 11:
				$SFLA_NPCGreeting = 'Good Morning'
			elseif hour >= 12 and hour <= 17:
				$SFLA_NPCGreeting = 'Good Afternoon'
			elseif hour >= 18 and hour <= 23:
				$SFLA_NPCGreeting = 'Good Evening'
			end
			modVar_AF_NPCGreetingDay['A<<args[1]>>'] = daystart
			$modVar_AF_NPCMessage = ' - <font color="<<$SFLA_NPCMessage_Font>>"><<$SFLA_NPCGreeting>> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!</font>'
		elseif $clothingworntype = 'nude' and (ARGS[1] = 700 or ARGS[1] = 701 or ARGS[1] = 702):
			if npc_rel['A<<args[1]>>'] = 100:
				$modVar_AF_NPCMessage = ' - <font color="<<$SFLA_NPCMessage_Font>>">Looking fine ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I like what I see!</font>'
				if modVar_AF_SexProg['A<<args[1]>>'] = 0 : modVar_AF_SexProg['A<<args[1]>>'] = 1
			elseif npc_rel['A<<args[1]>>'] >= 85:
				$modVar_AF_NPCMessage = ' - <font color="<<$SFLA_NPCMessage_Font>>">I admit you look good ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ' but you need to wear something!</font>'
			else
				$modVar_AF_NPCMessage = ' - <font color="<<$SFLA_NPCMessage_Font>>">Whoa!  ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Put some clothes on!</font>'
			end
		else
			$modVar_AF_NPCMessage = ''
		end
	end
	
	if $ARGS[0] = 'razor':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				stanok -= 25
			end
			modVar_AF_SFLA_AptPerishables['Razor'] = 25
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 350
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Razor'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 14
		end
	end
	
	if $ARGS[0] = 'ointment':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				mosolmaz -= 10
			end
			modVar_AF_SFLA_AptPerishables['Ointment'] = 10
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 372
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Ointment'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 38
		end
	end
	
	if $ARGS[0] = 'tampon':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				tampon -= 20
			end
			modVar_AF_SFLA_AptPerishables['Tampon'] += 20
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 200
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Tampon'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 10
		end
	end
	
	if $ARGS[0] = 'sanpad':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				sanpad -= 20
			end
			modVar_AF_SFLA_AptPerishables['Sanpad'] += 20
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 100
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Sanpad'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 5
		end
	end
	
	if $ARGS[0] = 'deodorant':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				deodorant -= 40
			end
			modVar_AF_SFLA_AptPerishables['Deodorant'] = 40
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 200
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Deodorant'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 5
		end
	end
	
	if $ARGS[0] = 'shampoo':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				shampoo -= 30
			end
			modVar_AF_SFLA_AptPerishables['Shampoo'] += 30
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 200
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Shampoo'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 10
		end
	end
	
	if $ARGS[0] = 'painkillers':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				painkillers -= 50
			end
			modVar_AF_SFLA_AptPerishables['Painkillers'] += 50
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 435
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Painkillers'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 7
		end
	end
	
	if $ARGS[0] = 'sunlotion':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				krem -= 20
			end
			modVar_AF_SFLA_AptPerishables['Sunlotion'] = 20
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 500
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Sunlotion'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 25
		end
	end
	
	if $ARGS[0] = 'dishliquid':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				fairy -= 20
			end
			modVar_AF_SFLA_AptPerishables['Dishliquid'] = 20
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 500
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Dishliquid'] -= 1
		end
	end
	
	if $ARGS[0] = 'biscuits':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				pranik -= 10
			end
			modVar_AF_SFLA_AptPerishables['Biscuits'] += 10
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 400
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Biscuits'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 40
		end
	end
	
	if $ARGS[0] = 'lightmeal':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				edaD -= 1
			end
			modVar_AF_SFLA_AptPerishables['Lightmeal'] += 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 300
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Lightmeal'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 300
		end
	end
	
	if $ARGS[0] = 'fullmeal':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				eda -= 10
			end
			modVar_AF_SFLA_AptPerishables['Fullmeal'] += 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 800
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Fullmeal'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 800
		end
	end
		
	if $ARGS[0] = 'fatburners':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				fatdel -= 12
			end
			modVar_AF_SFLA_AptPerishables['Fatburners'] += 12
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 248
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Fatburners'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 21
		end
	end
	
	if $ARGS[0] = 'vitamin':
		$modVar_AF_SFLA_CharID = $ARGS[2]
		if $ARGS[1] = 'add':
			if $modVar_AF_SFLA_CharID = 'PCS':
				vitamin -= 30
			end
			modVar_AF_SFLA_AptPerishables['Vitamin'] += 30
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] += 130
		elseif $ARGS[1] = 'use':
			modVar_AF_SFLA_AptPerishables['Vitamin'] -= 1
			modVar_AF_SFLA_AptContributions['<<$modVar_AF_SFLA_CharID>>'] -= 5
		end
	end
	
	if $ARGS[0] = 'guestvisit':
		if $ARGS[2] = 'stay':
			$charsche_activity_Location[arrpos('$charsche_actlist','SFLASpRm - Gym')] = 'mod_addedflavour_SFLA_Sitr'
			$charsche_activity_Location[arrpos('$charsche_actlist','SFLASpRm - Study')] = 'HomeLoc'
			modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2
		elseif $ARGS[2] = 'leave':
			$charsche_activity_Location[arrpos('$charsche_actlist','SFLASpRm - Gym')] = 'mod_addedflavour_SFLA_SpRm'
			$charsche_activity_Location[arrpos('$charsche_actlist','SFLASpRm - Study')] = 'mod_addedflavour_SFLA_SpRm'
			modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 0
		end
		if $ARGS[1] = 'kolka':
			if $ARGS[2] = 'stay':
				$charsche_character_HomeLoc[arrpos('charsche_charlist',34)] = 'mod_addedflavour_SFLA_SpRm'
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLABedr - Resting' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASitr - Watch TV' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASitr - Playing Games' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASpRm - Gym' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASpRm - Study' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLABaRm - Bathing' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLAKitr - Eating' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLAKitr - Dinner' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLABal - Resting' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'cityPark - Resting' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'Library - Studying' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'cityMall - Shopping' , 'Add' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact'  , 34 , 'mod_addedflavour_SFLA_SpRm' , 'Resting' , 5
				if brother['SexQW'] >= 7 or brothersex >= 7:
					modVar_AF_SexProg['A34'] = (modVar_AF_SexProg['VaginalGate'] + 1)
				elseif brother['SexQW'] >= 6 or brothersex >= 6:
					modVar_AF_SexProg['A34'] = (modVar_AF_SexProg['OralGate'] + 1)
				elseif brother['SexQW'] >= 5 or brothersex >= 5:
					modVar_AF_SexProg['A34'] = (modVar_AF_SexProg['KissGate'] + 1)
				elseif brother['SexQW'] >= 1 or brothersex >= 1:
					modVar_AF_SexProg['A34'] = 5
				end
				modVar_AF_SFLA_KolkaVisit['LeaveDate'] = daystart + 14
			elseif $ARGS[2] = 'leave':
				!KILLVAR '$modArr_AF_A34_Images'
				KILLVAR '$modArr_AF_A34_SexVideo'
				$charsche_character_HomeLoc[arrpos('charsche_charlist',34)] = 'Void'
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLABedr - Resting' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASitr - Watch TV' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASitr - Playing Games' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASpRm - Gym' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLASpRm - Study' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLABaRm - Bathing' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLAKitr - Eating' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLAKitr - Dinner' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'SFLABal - Resting' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'cityPark - Resting' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'Library - Studying' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'actchars' , 'cityMall - Shopping' , 'Remove' , 34
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact'  , 34 , 'Void' , 'Idle' , 5
				modVar_AF_SFLA_AptState['GuestID'] = 0
			end
		end
	end
	
	if $ARGS[0] = 'SFLA-AptGuest-KolkaFlatmateConfirm':
		*clr & cla
		modVar_AF_SFLA_KolkaVisit['A<<args[1]>>'] = 1
		minut += 1
		gs 'stat'
		'<center><b><font color="<<$NPCInteract_FontColour>>"><<$npc_firstname[''A<<NPCInteract_NPCID>>'']>> <<$npc_lastname[''A<<NPCInteract_NPCID>>'']>></font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'"<<$npc_nickname[''A<<args[1]>>'']>>, would it be OK if my Brother comes to stay with us for a couple of weeks.  It''d be nice for him to have some time to focus on his school projects and I think it would do him the world of good."'
		*nl
		'<font color="<<$npc_fontcolor[''A<<args[1]>>'']>>">"It''s no problem at all, of course he can stay.  You did up the spare room after all."</font>'
		*nl
		'"That''s fantastic, I''ll introduce him when he arrives!"'
		act 'Walk away in happy mood' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'SFLA-PeoplePresent-Display':
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $ARGS[1] , 'Any'
		*nl
		if $loc ! 'torgcentr' : '<b>People Present:</b>'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 0:
			KILLVAR '$modArr_AF_SFLA_BusyActList'
			$modArr_AF_SFLA_BusyActList[] = 'Sleeping'
			$modArr_AF_SFLA_BusyActList[] = 'Working'
			peoplepresentloopcount = 0
			:peoplepresentloop
			if peoplepresentloopcount >= arrsize('modArr_AF_SFLA_SharedActPeopleArray'):
				jump 'peoplepresentloopend'
			end
			peoplepresentid = modArr_AF_SFLA_SharedActPeopleArray[peoplepresentloopcount]
			$peoplepresentname = '<<$npc_firstname[''A<<peoplepresentid>>'']>>'
			if $peoplepresentname = 'Igor' : $peoplepresentname = 'Igora'
			peoplepresentcharpos = arrpos('charsche_charlist',peoplepresentid)
			if arrpos('$modArr_AF_SFLA_BusyActList',$charsche_character_CurActDesc[peoplepresentcharpos]) = -1:
				gs 'mod_addedflavour_SFLA_Functions' , 'npcmessage' , peoplepresentid
			else
				KILLVAR '$modVar_AF_NPCMessage'
			end
			if $charsche_character_CurActDesc[peoplepresentcharpos] = 'Studying':
				if strpos($charsche_character_CurActLoc[peoplepresentcharpos],'Bedr') > 0 or $charsche_character_CurActLoc[peoplepresentcharpos] = $charsche_character_HomeLoc[peoplepresentcharpos]:
					'<<$peoplepresentname>> is here studying on the bed' + '<<$modVar_AF_NPCMessage>>'
				else
					'<<$peoplepresentname>> is here studying at a desk' + '<<$modVar_AF_NPCMessage>>'
				end
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Working':
				if $charsche_character_CurActLoc[peoplepresentcharpos] = 'city_island':
					'<<$peoplepresentname>> is busy attending a lecture'
				elseif $charsche_character_CurActLoc[peoplepresentcharpos] = 'dolls':
					'<<$peoplepresentname>> is busy working on the Shop Floor'
				end
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Resting':
				if $charsche_character_CurActLoc[peoplepresentcharpos] = 'city_park':
					'<<$peoplepresentname>> is enjoying some time at the Park' + '<<$modVar_AF_NPCMessage>>'
				elseif $charsche_character_CurActLoc[peoplepresentcharpos] = 'mod_addedflavour_SFLA_Bal':
					'<<$peoplepresentname>> is resting on one of the Balcony Chairs' + '<<$modVar_AF_NPCMessage>>'
				elseif strpos($charsche_character_CurActLoc[peoplepresentcharpos],'Bedr') > 0 or $charsche_character_CurActLoc[peoplepresentcharpos] = $charsche_character_HomeLoc[peoplepresentcharpos]:
					'<<$peoplepresentname>> is resting on the bed' + '<<$modVar_AF_NPCMessage>>'
				elseif $charsche_character_CurActLoc[peoplepresentcharpos] = 'mod_addedflavour_SFLA_Sitr':
					'<<$peoplepresentname>> is lounging around and doing nothing in particular' + '<<$modVar_AF_NPCMessage>>'
				elseif $charsche_character_CurActLoc[peoplepresentcharpos] = 'city_island':
					'<<$peoplepresentname>> is resting on University Grounds' + '<<$modVar_AF_NPCMessage>>'
				end
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Partying':
				'<<$peoplepresentname>> is ' + iif(rand(1,2) = 1,'hitting the dance floor','idling in the communal areas') + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Yoga':
				'<<$peoplepresentname>> is doing some Yoga' + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Sleeping':
				if strpos($charsche_character_CurActLoc[peoplepresentcharpos],'Bedr') > 0 or $charsche_character_CurActLoc[peoplepresentcharpos] = $charsche_character_HomeLoc[peoplepresentcharpos]:
					'<<$peoplepresentname>> is fast asleep on the bed'
				elseif strpos($charsche_character_CurActLoc[peoplepresentcharpos],'Sitr') > 0:
					'<<$peoplepresentname>> is asleep on the sofa'
				else
					'<<$peoplepresentname>> is fast asleep here'
				end
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Working Out':
				if $charsche_character_CurActLoc[peoplepresentcharpos] = 'mod_addedflavour_SFLA_SpRm':
					'<<$peoplepresentname>> is Working Out in the Gym Space' + '<<$modVar_AF_NPCMessage>>'
				elseif $charsche_character_CurActLoc[peoplepresentcharpos] = 'mod_addedflavour_SFLA_Sitr':
					'<<$peoplepresentname>> is Working Out in some free space' + '<<$modVar_AF_NPCMessage>>'
				end
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Watch TV':
				'<<$peoplepresentname>> is Watching the Television' + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Playing Games':
				'<<$peoplepresentname>> is playing on the Video Games Console' + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Computer':
				'<<$peoplepresentname>> is on her laptop' + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Eating':
				'<<$peoplepresentname>> is eating some food' + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Bathing':
				'<<$peoplepresentname>> is generally doing Bathroom things' + '<<$modVar_AF_NPCMessage>>'
			elseif $charsche_character_CurActDesc[peoplepresentcharpos] = 'Modelling':
				if peoplepresentid = 144:
					'<a href="exec: gt ''foto_models2'',''anushka_1'' "><<$peoplepresentname>></a> is idling around the Agency' + '<<$modVar_AF_NPCMessage>>'
				else
					'<<$peoplepresentname>> is idling around the Agency' + '<<$modVar_AF_NPCMessage>>'
				end
			end
			peoplepresentloopcount += 1
			jump 'peoplepresentloop'
			:peoplepresentloopend
			KILLVAR 'modArr_AF_SFLA_PeoplePresentArray'
			if modArr_AF_SFLA_SharedActPeopleArray[0] ! 0:
				modArr_AF_SFLA_PeoplePresentArray[] = modArr_AF_SFLA_SharedActPeopleArray[0]
				$peoplepresentshortname = '<<$npc_nickname[''A<<modArr_AF_SFLA_PeoplePresentArray[0]>>'']>>'
				if arrpos('$modArr_AF_SFLA_BusyActList',$charsche_character_CurActDesc[arrpos('charsche_charlist',modArr_AF_SFLA_PeoplePresentArray[0])]) = -1:
					act 'Speak to <<$peoplepresentshortname>>' : gt 'mod_addedflavour_SFLA_NPCInteract' , 'start' , modArr_AF_SFLA_PeoplePresentArray[0]
				end
			end
			if modArr_AF_SFLA_SharedActPeopleArray[1] ! 0:
				modArr_AF_SFLA_PeoplePresentArray[] = modArr_AF_SFLA_SharedActPeopleArray[1]
				$peoplepresentshortname = '<<$npc_nickname[''A<<modArr_AF_SFLA_PeoplePresentArray[1]>>'']>>'
				if arrpos('$modArr_AF_SFLA_BusyActList',$charsche_character_CurActDesc[arrpos('charsche_charlist',modArr_AF_SFLA_PeoplePresentArray[1])]) = -1:
					act 'Speak to <<$peoplepresentshortname>>' : gt 'mod_addedflavour_SFLA_NPCInteract' , 'start' , modArr_AF_SFLA_PeoplePresentArray[1]
				end
			end
			if modArr_AF_SFLA_SharedActPeopleArray[2] ! 0:
				modArr_AF_SFLA_PeoplePresentArray[] = modArr_AF_SFLA_SharedActPeopleArray[2]
				$peoplepresentshortname = '<<$npc_nickname[''A<<modArr_AF_SFLA_PeoplePresentArray[2]>>'']>>'
				if arrpos('$modArr_AF_SFLA_BusyActList',$charsche_character_CurActDesc[arrpos('charsche_charlist',modArr_AF_SFLA_PeoplePresentArray[2])]) = -1:
					act 'Speak to <<$peoplepresentshortname>>' : gt 'mod_addedflavour_SFLA_NPCInteract' , 'start' , modArr_AF_SFLA_PeoplePresentArray[2]
				end
			end
			if modArr_AF_SFLA_SharedActPeopleArray[3] ! 0:
				modArr_AF_SFLA_PeoplePresentArray[] = modArr_AF_SFLA_SharedActPeopleArray[3]
				$peoplepresentshortname = '<<$npc_nickname[''A<<modArr_AF_SFLA_PeoplePresentArray[3]>>'']>>'
				if arrpos('$modArr_AF_SFLA_BusyActList',$charsche_character_CurActDesc[arrpos('charsche_charlist',modArr_AF_SFLA_PeoplePresentArray[3])]) = -1:
					act 'Speak to <<$peoplepresentshortname>>' : gt 'mod_addedflavour_SFLA_NPCInteract' , 'start' , modArr_AF_SFLA_PeoplePresentArray[3]
				end
			end
		else
			if $loc ! 'torgcentr' : 'You don''t see anyone here'
		end
	end
	
	if $ARGS[0] = 'SFLA-UpgradeRoom-Check':
		modVar_AF_Temp = 0
		if $ARGS[1] = 'Bedr1' : modVar_AF_Temp = 700
		if $ARGS[1] = 'Bedr2' : modVar_AF_Temp = 701
		if $ARGS[1] = 'Bedr3' : modVar_AF_Temp = 702
		$modVar_AF_RoomRenovation = $ARGS[1]
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Any'
		if modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] = 0:
			if modVar_AF_Temp ! 0 and $loc = $charsche_character_HomeLoc[arrpos('charsche_charlist',modVar_AF_Temp)] and npc_rel['A<<modVar_AF_Temp>>'] >= 50:
				act 'Renovate <<$npc_firstname[''A<<modVar_AF_Temp>>'']>>''s Room' : gt 'mod_addedflavour_SFLA_Functions' , 'SFLA-UpgradeRoom-Work' , $modVar_AF_RoomRenovation , 'start'
			elseif modVar_AF_Temp = 0:
				act 'Renovate Room' : gt 'mod_addedflavour_SFLA_Functions' , 'SFLA-UpgradeRoom-Work' , $modVar_AF_RoomRenovation , 'start'
			end
		elseif modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] >= 1 and modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] < modVar_AF_SFLA_AptRProg['Lv2Req']:
			SFLA_UpgradeBarWidth = (modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] * 100) / modVar_AF_SFLA_AptRProg['Lv2Req']
			SFLA_UpgradeAntiBarWidth = 100 - SFLA_UpgradeBarWidth
			'<center><b>Upgrade Progress:</b><table border=1 width=50%><tr><td style="text-align:right" bgcolor="blue" width=<<SFLA_UpgradeBarWidth>>%><font color="blue">|</font></td><td bgcolor="red" width=<<SFLA_UpgradeAntiBarWidth>>%><font color="red">|</font></td></tr></table></center>'
			if modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] >= 2 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 0:
				act 'Work on renovation (<<modVar_AF_SFLA_AptRProg[''<<$ARGS[1]>>Time'']>>:00)' : gt 'mod_addedflavour_SFLA_Functions' , 'SFLA-UpgradeRoom-Work', $modVar_AF_RoomRenovation , 'upgrade'
			end
			*nl
		elseif modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] = modVar_AF_SFLA_AptRProg['Lv2Req']:
			modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] += 1
			if $ARGS[0] ! 'Bedr4' : modVar_AF_SFLA_AptContributions['PCS'] += modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>Cost']
			KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
			if $ARGS[1] = 'Bedr1' or $ARGS[1] = 'Bedr2' or $ARGS[1] = 'Bedr3':
				modArr_AF_SFLA_SharedActPeopleArray[] = modVar_AF_Temp
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual-Insist' , 10
				'<center><b>You have finished renovating the <<$npc_firstname[''A<<modVar_AF_Temp>>'']>>''s Room!  You look forward to see how happy she will be with the work you have done.</b></center>'
			elseif $ARGS[1] = 'SpRm':
				modArr_AF_SFLA_SharedActPeopleArray[] = 700
				modArr_AF_SFLA_SharedActPeopleArray[] = 701
				modArr_AF_SFLA_SharedActPeopleArray[] = 702
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual-Insist' , 8
				'<center><b>You have finished renovating the Spare Room!  Not only is it now an open and free space but we have the option to use it as a Guest Room.</b></center>'
			elseif $ARGS[1] = 'Sitr' or $ARGS[1] = 'Kit' or $ARGS[1] = 'BaRm':
				modArr_AF_SFLA_SharedActPeopleArray[] = 700
				modArr_AF_SFLA_SharedActPeopleArray[] = 701
				modArr_AF_SFLA_SharedActPeopleArray[] = 702
				if $ARGS[1] = 'Sitr' : charsche_activity_Active[arrpos('$charsche_actlist','SFLASitr - Playing Games')] = 1
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual-Insist' , 5
				'<center><b>You have finished renovating this room!  You feel that everyone else will appreciate you for your efforts as well as getting to experience the benefits of a job well done.</b></center>'
			end
			*nl
		end
	end
	
	if $ARGS[0] = 'SFLA-UpgradeRoom-Work':
		*clr & cla
		KILLVAR '$modVar_AF_RoomRenovation'
		if $ARGS[2] = 'start':
			'<center><b><font color="maroon">Upgrade Room - Are You Sure?</font></b></center>'
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/system/buildingwork.jpg"></center>'
			*nl
			SFLA_UpgradeRoom_Time = modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>Time'] * (modVar_AF_SFLA_AptRProg['Lv2Req'] - 2)
			'<center>Do you want to upgrade this room?  It will take <<SFLA_UpgradeRoom_Time>> Hours and cost <<modVar_AF_SFLA_AptRProg[''<<$ARGS[1]>>Cost'']>>₽.</center>'
			'<center><a href="exec: modVar_AF_SFLA_AptRProg[''<<$ARGS[1]>>''] = 1 & gt ''mod_addedflavour_SFLA_<<$ARGS[1]>>'' , ''start'' ">Yes</a> or <a href="exec: gt ''mod_addedflavour_SFLA_<<$ARGS[1]>>'' , ''start'' ">No</a></center>'
			*nl
			'<center>If you do then you can purchase the necessary materials at "Ilyich and Biryukov construction".</center>'
		elseif $ARGS[2] = 'upgrade':
			minut += modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>Time'] * 60
			modVar_AF_SFLA_AptRProg['<<$ARGS[1]>>'] += 1
			gs 'stat'
			'<center><b><font color="maroon">Upgrade Room - Progressing</font></b></center>'
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/system/buildingwork.jpg"></center>'
			*nl
			'You slog away at rebuilding the room; replacing fixtures, moving furniture, changing decor, etc.  It is slow, meaningful progress but progress nevertheless...'
			act 'Take a break' : gt 'mod_addedflavour_SFLA_<<$ARGS[1]>>' , 'start'
		end
	end
	
	if $ARGS[0] = 'SFLA-AptBoard-Contributions':
		*clr & cla
		menu_off = 1
		'<center><b>Individual Contributions</b></center>'
		if modVar_AF_SFLA_AptContributions['700'] > modVar_AF_SFLA_AptContributions['701'] and modVar_AF_SFLA_AptContributions['700'] > modVar_AF_SFLA_AptContributions['702'] and modVar_AF_SFLA_AptContributions['700'] > modVar_AF_SFLA_AptContributions['PCS']:
			SFLA_Contrib_HV = modVar_AF_SFLA_AptContributions['700']
		elseif modVar_AF_SFLA_AptContributions['701'] > modVar_AF_SFLA_AptContributions['700'] and modVar_AF_SFLA_AptContributions['701'] > modVar_AF_SFLA_AptContributions['702'] and modVar_AF_SFLA_AptContributions['701'] > modVar_AF_SFLA_AptContributions['PCS']:
			SFLA_Contrib_HV = modVar_AF_SFLA_AptContributions['701']
		elseif modVar_AF_SFLA_AptContributions['702'] > modVar_AF_SFLA_AptContributions['700'] and modVar_AF_SFLA_AptContributions['702'] > modVar_AF_SFLA_AptContributions['701'] and modVar_AF_SFLA_AptContributions['702'] > modVar_AF_SFLA_AptContributions['PCS']:
			SFLA_Contrib_HV = modVar_AF_SFLA_AptContributions['701']
		elseif modVar_AF_SFLA_AptContributions['PCS'] > modVar_AF_SFLA_AptContributions['700'] and modVar_AF_SFLA_AptContributions['PCS'] > modVar_AF_SFLA_AptContributions['701'] and modVar_AF_SFLA_AptContributions['PCS'] > modVar_AF_SFLA_AptContributions['702']:
			SFLA_Contrib_HV = modVar_AF_SFLA_AptContributions['PCS']
		end
		if SFLA_Contrib_HV > 5000 : SFLA_Contrib_HV = 5000
		$SFLA_CharID = '700'
		:SitrContribLoop
		SFLA_Amount = modVar_AF_SFLA_AptContributions['<<$SFLA_CharID>>']
		if SFLA_Amount > 0:
			if SFLA_Amount < SFLA_Contrib_HV:
				SFLA_BarWidth = (SFLA_Amount * 100 / SFLA_Contrib_HV)
			elseif SFLA_Amount >= SFLA_Contrib_HV:
				SFLA_BarWidth = 100
			end
		elseif SFLA_Amount < 0:
			SFLA_Amount_Adj = ((SFLA_Amount - SFLA_Amount) - SFLA_Amount)
			if SFLA_Amount_Adj < SFLA_Contrib_HV:
				SFLA_BarWidth = (SFLA_Amount_Adj * 100 / SFLA_Contrib_HV)
			elseif SFLA_Amount_Adj >= SFLA_Contrib_HV:
				SFLA_BarWidth = 100
			end
		else
			SFLA_BarWidth = 0
		end
		if SFLA_Amount > 0:
			SFLA_Sec1 = 45
			SFLA_Sec2 = 0
			SFLA_Sec4 = (SFLA_BarWidth * 45 / 100)
			SFLA_Sec5 = 45 - SFLA_Sec4
			$SFLA_Contrib_LeftBar = ''
			$SFLA_Contrib_RightBar = 'bgcolor="blue" '
		elseif SFLA_Amount < 0:
			SFLA_Sec2 = (SFLA_BarWidth * 45 / 100)
			SFLA_Sec1 = 45 - SFLA_Sec2
			SFLA_Sec4 = 0
			SFLA_Sec5 = 45
			$SFLA_Contrib_LeftBar = 'bgcolor="red" '
			$SFLA_Contrib_RightBar = ''
		else
			SFLA_Sec1 = 45
			SFLA_Sec2 = 0
			SFLA_Sec4 = 0
			SFLA_Sec5 = 45 - SFLA_Sec4
			$SFLA_Contrib_LeftBar = ''
			$SFLA_Contrib_RightBar = ''
		end
		if $SFLA_CharID = 'PCS':
			$SFLA_CharName = $pcs_firstname
			$SFLA_FontColour = 'Black'
		else
			$SFLA_CharName = $npc_firstname['A<<$SFLA_CharID>>']
			$SFLA_FontColour = $npc_fontcolor['A<<$SFLA_CharID>>']
		end
		'<center><table><tr><td></td><td></td><td style="text-align:center"><u><font color="<<$SFLA_FontColour>>"><<$SFLA_CharName>></font></u></td><td></td><td></td></tr><tr><td width=<<SFLA_Sec1>>%></td><td <<$SFLA_Contrib_LeftBar>>width=<<SFLA_Sec2>>%></td><td width=10% style="text-align:center"><<modVar_AF_SFLA_AptContributions[''<<$SFLA_CharID>>'']>>₽</td><td <<$SFLA_Contrib_RightBar>>width=<<SFLA_Sec4>>%></td><td width=<<SFLA_Sec5>>%></td></tr></table></center>'
		if $SFLA_CharID = '700':
			$SFLA_CharID = '701'
			jump 'SitrContribLoop'
		elseif $SFLA_CharID = '701':
			$SFLA_CharID = '702'
			jump 'SitrContribLoop'
		elseif $SFLA_CharID = '702':
			$SFLA_CharID = 'PCS'
			jump 'SitrContribLoop'
		end
		*nl
		'<center><b>Rent per Person</b></center>'
		'<center><<modVar_AF_SFLA_AptState[''Rent'']>>₽ at beginning of week</center>'
		*nl
		'<center><b>Actions</b></center>'
		'<center>Pay into Household Account - ' + iif(Karta >= 100,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptLive-PayIn'' , 100 & gt ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptBoard-Contributions'' ">(+100)</a>','') + iif(Karta >= 1000,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptLive-PayIn'' , 1000 & gt ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptBoard-Contributions'' ">(+1000)</a>','') + iif(Karta < 100,'(You do not have enough money in your account)','') + '</center>'
		'<center>Remove Money from Household Account - ' + iif(modVar_AF_SFLA_AptContributions['PCS'] >= 100,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptLive-PayOut'' , 100 & gt ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptBoard-Contributions'' ">(-100)</a>','') + iif(modVar_AF_SFLA_AptContributions['PCS'] >= 1000,'<a href="exec: gs ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptLive-PayOut'' , 1000 & gt ''mod_addedflavour_SFLA_Functions'' , ''SFLA-AptBoard-Contributions'' ">(-1000)</a>','') + iif(modVar_AF_SFLA_AptContributions['PCS'] < 100,'(You cannot take any more money out of your account)','') + '</center>'
		act 'Return' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'ShowSchedule':
		'<b>University - Lesson Schedule:</b>'
		*nl
		if ARGS[1] = 700:
			'Mondays - Mornings'
			'Tuesday - Mornings & Afternoons'
			'Wednesdays - Afternoons'
			'Thursdays - Afternoons'
			'Fridays - Mornings & Afternoons'
		elseif ARGS[1] = 701:
			'Mondays - Mornings & Afternoons'
			'Tuesday - Mornings'
			'Wednesdays - Mornings'
			'Thursdays - Mornings & Afternoons'
			'Fridays - Afternoons'
		elseif ARGS[1] = 702:
			'Mondays - Afternoons'
			'Tuesday - Mornings & Afternoons'
			'Wednesdays - Afternoons'
			'Thursdays - Mornings & Afternoons'
			'Fridays - Mornings'
		end
	end
	
	if $ARGS[0] = 'SFLA-InterNPC-Sex':
		modVar_AF_Temp = modArr_AF_SFLA_SharedActPeopleArray[0]
		modVar_AF_Temp2 = modArr_AF_SFLA_SharedActPeopleArray[1]
		if charsche_character_CurActPriority[arrpos('charsche_charlist',modVar_AF_Temp)] = 2 and charsche_character_CurActPriority[arrpos('charsche_charlist',modVar_AF_Temp2)] = 2:
			if npc_horny['A<<modVar_AF_Temp>>'] >= 50 and npc_horny['A<<modVar_AF_Temp2>>'] >= 50 and (modVar_AF_SexProg['A<<modVar_AF_Temp>>XA<<modVar_AF_Temp2>>'] >= modVar_AF_SexProg['TouchGate'] or modVar_AF_SexProg['A<<modVar_AF_Temp2>>XA<<modVar_AF_Temp>>'] >= modVar_AF_SexProg['TouchGate']):
				modVar_AF_Rand = rand(0,1)
				modVar_AF_Temp3 = arrpos('charsche_charlist',modArr_AF_SFLA_SharedActPeopleArray[modVar_AF_Rand])
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , modArr_AF_SFLA_SharedActPeopleArray[0] , $charsche_character_HomeLoc[modVar_AF_Temp3] , 'Sex' , rand(5,20)
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , modArr_AF_SFLA_SharedActPeopleArray[1] , $charsche_character_HomeLoc[modVar_AF_Temp3] , 'Sex' , rand(5,20)
				gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , modArr_AF_SFLA_SharedActPeopleArray[0] , rand(20,50)
				gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , modArr_AF_SFLA_SharedActPeopleArray[1] , rand(20,50)
			end
		end
	end

--- mod_addedflavour_SFLA_Functions ---------------------------------