AddedFlavour/locations/mod_addedflavour_charchor.qsrc

# mod_addedflavour_charchor
	if $ARGS[0] = 'choreographer-overall':
		!! Sets up locations for Delivery Jobs !!
		if modVar_AF_DeliveryVanHour ! hour and hour >= 9:
			modVar_AF_DeliveryVanHour = hour
			if $charsche_character_CurActDesc[arrpos('charsche_charlist',28)] = 'Working':
				if arrsize('$modArr_AF_DeliveryVanOptionsDaily') = 0:
					$charsche_character_CurActLoc[arrpos('charsche_charlist',28)] = $charsche_character_Workplace[arrpos('charsche_charlist',28)]
				else
					modVar_AF_Rand = rand(1,arrsize('$modArr_AF_DeliveryVanOptionsDaily')) - 1
					$charsche_character_CurActLoc[arrpos('charsche_charlist',28)] = $modArr_AF_DeliveryVanOptionsDaily[modVar_AF_Rand]
					KILLVAR '$modArr_AF_DeliveryVanOptionsDaily' , modVar_AF_Rand
				end
			end
			if $charsche_character_CurActDesc[arrpos('charsche_charlist',704)] = 'Working':
				if arrsize('$modArr_AF_DeliveryVanOptionsDaily') = 0:
					$charsche_character_CurActLoc[arrpos('charsche_charlist',704)] = $charsche_character_Workplace[arrpos('charsche_charlist',704)]
				else
					modVar_AF_Rand = rand(1,arrsize('$modArr_AF_DeliveryVanOptionsDaily')) - 1
					$charsche_character_CurActLoc[arrpos('charsche_charlist',704)] = $modArr_AF_DeliveryVanOptionsDaily[modVar_AF_Rand]
					KILLVAR '$modArr_AF_DeliveryVanOptionsDaily' , modVar_AF_Rand
				end
			end
			modVar_AF_DeliveryVanHour = hour
		end
		!! Initiates inter-NPC sex when two are alone in apartment !!
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'SFLA' , 'Any'
		if arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 2 and rand(1,10) = 1 : gs 'mod_addedflavour_SFLA_Functions' , 'SFLA-InterNPC-Sex'
	end
	
	if $ARGS[0] = 'choreographer-individual':
		!! Let Player know they are at the Night-Club !!
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'club' and npc_rel['A<<ARGS[1]>>'] >= 90 and modVar_AF_EventLock['SFLA-ClubActive'] ! daystart and $loc ! 'club':
			modVar_AF_EventLock['SFLA-ClubActive'] = daystart
			modVar_AF_EventOpen['SFLA-ClubActive'] = ARGS[1]
		elseif $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] ! 'club' and modVar_AF_EventOpen['SFLA-ClubActive'] = ARGS[1]:
			modVar_AF_EventOpen['SFLA-ClubActive'] = 0
		end
		!! Handles SFLA NPC Location & Action Alterations !!
		if ARGS[1] = 700 or ARGS[1] = 701 or ARGS[1] = 702 or ARGS[1] = 144:
			if $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Working' and $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'city_island' and rand(1,10) = 1 : $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Resting' & charsche_character_CurActTime[arrpos('charsche_charlist',ARGS[1])] = rand(20,35)
			if week >= 5 and (((hour * 60) + minut) >= 1080 and ((hour * 60) + minut) <= 1380) and charsche_character_CurActPriority[arrpos('charsche_charlist',ARGS[1])] ! 1 and rand(1,10) = 1 : gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , ARGS[1] , 'club' , 'Partying' , rand(30,60)
		end
		if ARGS[1] = 144:
			if $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Working' and $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'dolls' and rand(1,10) = 1 and modVar_AF_EventLock['A144-DollsSexEv'] ! daystart: $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Sex' & charsche_character_CurActTime[arrpos('charsche_charlist',ARGS[1])] = rand(10,30)
		end
		!! Changes Activities during Mother Stay at City Apartment !!
		if ARGS[1] = 29:
			if $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'bedr':
				if hour < 6 : $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Sleeping'
				if modVar_AF_EventLock['A29-AptStayEv-Clothed'] = 1:
					if modVar_AF_EventLock['A29-AptStayEv-Bathed'] = 0:
						$charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'vanr'
						$charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Bathing'
					else
						$charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'korr'
						$charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Idle'
						charsche_character_CurActTime[arrpos('charsche_charlist',ARGS[1])] = 15
					end
				end
			end
			if $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'kuhr':
				if modVar_AF_EventProgress['A29-MotherConfidence'] > modVar_AF_EventGates['A29-MotherConfidence-2'] and rand(1,2) = 1:
					$charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Resting'
				end
			end
			if $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'sitr':
				if modVar_AF_EventProgress['A29-MotherConfidence'] > modVar_AF_EventGates['A29-MotherConfidence-5'] and rand(1,3) = 1:
					$charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Masturbating'
				elseif modVar_AF_EventProgress['A29-MotherConfidence'] > modVar_AF_EventGates['A29-MotherConfidence-3'] and rand(1,2) = 1:
					$charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Lounging'
				end
			end
			if $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'vanr':
				if modVar_AF_EventLock['A29-AptStayEv-Bathed'] = 1 : $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'korr' & $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Idle' & charsche_character_CurActTime[arrpos('charsche_charlist',ARGS[1])] = 15
			end
			if $charsche_character_PrevActLoc[arrpos('charsche_charlist',ARGS[1])] = 'bedr' and $charsche_character_PrevActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Resting' : modVar_AF_EventLock['A29-AptStayEv-Clothed'] = 1
			if $charsche_character_PrevActLoc[arrpos('charsche_charlist',ARGS[1])] = 'vanr' and $charsche_character_PrevActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Bathing' : modVar_AF_EventLock['A29-AptStayEv-Bathed'] = 1
		end
		!! Makes characters horny if in same room as you when looking sexy !!
		if (PCloInhibit >= 30 or $clothingworntype = 'nude' or hotcat >= 8) and $charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = $loc:
			gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , ARGS[1] , rand(1,5)
		end
		!! Changes Junior Cup Hotel Characters to be in the correct location when bathing !!
		if strpos($charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])],'mod_addedflavour_city_hotel_Bedr') > 0 and $charsche_character_CurActDesc[arrpos('charsche_charlist',ARGS[1])] = 'Bathing':
			$modVar_AF_TempStr = $MID($charsche_character_HomeLoc[arrpos('charsche_charlist',ARGS[1])],len($charsche_character_HomeLoc[arrpos('charsche_charlist',ARGS[1])]))
			$charsche_character_CurActLoc[arrpos('charsche_charlist',ARGS[1])] = 'mod_addedflavour_city_hotel_BaRm_<<$modVar_AF_TempStr>>'
		end
	end

--- mod_addedflavour_charchor ---------------------------------