_statpacks.dm

GLOBAL_LIST_EMPTY(statpacks)

/datum/statpack
	/// Name of the statpack
	var/name
	/// Flavor description of the statpack (don't include stat totals in this, we'll render them automatically)
	var/desc
	/// An associative list of only the stats we're altering. The value can also be a list to signify a range of values - maximum length of 2 for these.
	var/list/stat_array = list()
	var/virtuous = FALSE

/datum/statpack/proc/get_stat_array(mob/living/carbon/human/recipient, mob/dead/new_player/new_player)
	return stat_array

/datum/statpack/proc/apply_to_human(mob/living/carbon/human/recipient, mob/dead/new_player/new_player)
	var/list/assigned_stat_array = get_stat_array(recipient, new_player)
	if (recipient && recipient.mind)
		var/list/applied_stats = list()
		for (var/stat in assigned_stat_array)
			if (!islist(assigned_stat_array[stat]))
				var/value = assigned_stat_array[stat]
				recipient.change_stat(stat, value)
				applied_stats[stat] = value
			else
				var/list/stat_range = assigned_stat_array[stat]
				var/value = rand(stat_range[1], stat_range[2])
				recipient.change_stat(stat, value)
				applied_stats[stat] = value
		post_apply(recipient, new_player, applied_stats)
		record_featured_object_stat(FEATURED_STATS_STATPACKS, name)
		return TRUE
	return FALSE

/datum/statpack/proc/post_apply(mob/living/carbon/human/recipient, mob/dead/new_player/new_player, list/applied_stats)
	return

/datum/statpack/proc/description_string()
	var/blurb = generate_modifier_string()
	if (blurb)
		return "[desc]<br> <i>[blurb]</i>"
	else
		return "[desc]"

/datum/statpack/proc/generate_modifier_string()
	/// Generates a blurb string for use in preferences, programatically, based on our desc and stat alterations.
	var/result
	var/list/concat = list()
	if (!LAZYLEN(stat_array))
		return FALSE
	for (var/stat in stat_array)
		if (!islist(stat_array[stat]))
			var/value = stat_array[stat]
			var/modifier = ""

			if (value >= 1)
				modifier = "+"

			var/statlabel = uppertext(copytext(stat, 1, 4))
			var/blockstring = "[modifier][value] [statlabel]"
			concat += blockstring
		else
			var/list/stat_range = stat_array[stat]
			var/list/chunk_string = list()
			for (var/sub_range in stat_range)
				var/modifier = ""
				if (sub_range >= 1)
					modifier = "+"

				chunk_string += "[modifier][sub_range]"

			var/statlabel = uppertext(copytext(stat, 1, 4))
			concat += "[chunk_string.Join(" to ")] [statlabel]"

	result = "([concat.Join(", ")])"
	return result