#define PROCESSING_SIMPLES 0
#define PROCESSING_NPCS 1
#define PROCESSING_DELEGATES 2
#define PROCESSING_ASSISTANTS 3

SUBSYSTEM_DEF(npcpool)
	name = "NPC Pool"
	flags = SS_POST_FIRE_TIMING|SS_NO_INIT|SS_BACKGROUND
	priority = 20
	runlevels = RUNLEVEL_GAME | RUNLEVEL_POSTGAME

	var/list/canBeUsed = list()
	var/list/needsDelegate = list()
	var/list/needsAssistant = list()

	var/list/processing = list()
	var/list/currentrun = list()
	var/stage

/datum/controller/subsystem/npcpool/stat_entry()
	..("NPCS:[processing.len]|D:[needsDelegate.len]|A:[needsAssistant.len]|U:[canBeUsed.len]")

/datum/controller/subsystem/npcpool/proc/stop_processing(mob/living/I)
	processing -= I
	currentrun -= I
	needsDelegate -= I
	canBeUsed -= I
	needsAssistant -= I

/datum/controller/subsystem/npcpool/fire(resumed = FALSE)
	//bot delegation and coordination systems
	//General checklist/Tasks for delegating a task or coordinating it (for SNPCs)
	// 1. Bot proximity to task target: if too far, delegate, if close, coordinate
	// 2. Bot Health/status: check health with bots in local area, if their health is higher, delegate task to them, else coordinate
	// 3. Process delegation: if a bot (or bots) has been delegated, assign them to the task.
	// 4. Process coordination: if a bot(or bots) has been asked to coordinate, assign them to help.
	// 5. Do all assignments: goes through the delegated/coordianted bots and assigns the right variables/tasks to them.

	if (!resumed)
		src.currentrun = GLOB.simple_animals.Copy()
		stage = PROCESSING_SIMPLES
	//cache for sanic speed (lists are references anyways)
	var/list/currentrun = src.currentrun

	if(stage == PROCESSING_SIMPLES)
		while(currentrun.len)
			var/mob/living/simple_animal/SA = currentrun[currentrun.len]
			--currentrun.len

			if(!SA.ckey)
				if(SA.stat != DEAD)
					SA.handle_automated_movement()
				if(SA.stat != DEAD)
					SA.handle_automated_action()
				if(SA.stat != DEAD)
					SA.handle_automated_speech()
			if (MC_TICK_CHECK)
				return

		stage = PROCESSING_NPCS
		currentrun = processing.Copy()
		src.currentrun = currentrun
	var/list/canBeUsed = src.canBeUsed

	if(stage == PROCESSING_NPCS)
		while(currentrun.len)
			var/mob/living/carbon/human/interactive/thing = currentrun[currentrun.len]
			--currentrun.len

			thing.InteractiveProcess()

			var/checkInRange = view(MAX_RANGE_FIND,thing)
			if(thing.IsDeadOrIncap(FALSE) || !(locate(thing.TARGET) in checkInRange))
				needsDelegate += thing
			else if(thing.doing & FIGHTING)
				needsAssistant += thing
			else
				canBeUsed += thing

			if (MC_TICK_CHECK)
				return
		stage = PROCESSING_DELEGATES
		currentrun = needsDelegate	//localcache
		src.currentrun = currentrun

	if(stage == PROCESSING_DELEGATES)
		while(currentrun.len && canBeUsed.len)
			var/mob/living/carbon/human/interactive/check = currentrun[currentrun.len]
			var/mob/living/carbon/human/interactive/candidate = canBeUsed[canBeUsed.len]
			--currentrun.len

			var/helpProb = 0
			var/list/chfac = check.faction
			var/list/canfac = candidate.faction
			var/facCount = LAZYLEN(chfac) * LAZYLEN(canfac)

			for(var/C in chfac)
				if(C in canfac)
					helpProb = min(100,helpProb + 25)
					if(helpProb >= 100)
						break

			if(facCount == 1 && helpProb)
				helpProb = 100

			if(prob(helpProb) && candidate.takeDelegate(check))
				--canBeUsed.len
				candidate.eye_color = "red"
				candidate.update_icons()

			if(MC_TICK_CHECK)
				return
		stage = PROCESSING_ASSISTANTS
		currentrun = needsAssistant	//localcache
		src.currentrun = currentrun

	//no need for the stage check

	while(currentrun.len && canBeUsed.len)
		var/mob/living/carbon/human/interactive/check = currentrun[currentrun.len]
		var/mob/living/carbon/human/interactive/candidate = canBeUsed[canBeUsed.len]
		--currentrun.len

		var/helpProb = 0
		var/list/chfac = check.faction
		var/list/canfac = candidate.faction
		var/facCount = LAZYLEN(chfac) * LAZYLEN(canfac)

		for(var/C in chfac)
			if(C in canfac)
				helpProb = min(100,helpProb + 25)
				if(helpProb >= 100)
					break

		if(facCount == 1 && helpProb)
			helpProb = 100
	
		if(prob(helpProb) && candidate.takeDelegate(check,FALSE))
			--canBeUsed.len
			candidate.eye_color = "yellow"
			candidate.update_icons()
			
		if(!currentrun.len || MC_TICK_CHECK)	//don't change SS state if it isn't necessary
			return

/datum/controller/subsystem/npcpool/Recover()
	processing = SSnpcpool.processing