############################################################################################################ Scripts from Game File
	############################################################## Sorting mana symbols
	# Current Mana Codes:
	#
	#	A - artifact	B - black	C - 		D - 		E - 		F - 		G - green	H - phyrexian
	#
	#	I - 		J - 		K - pink	L - yellow	M - 		N - 		O - 		P - purple
	#
	#	Q - untap	R - red		S - snow	T - tap		U - blue	V - 		W - white	X - X variable
	#
	#	Y - Y variable	Z - Z variable
	#
	# correctly sort a mana symbol (no guild mana)
	# This script is modified to provide an unsorted option and handle extra colors.
	# This script is modified to handle extra colors.
	mana_sort       := {
		if contains(styling.extras, match:"unsorted casting cost") then
			sort_text@(order: "[/XYZ∞0123456789HSAPLOEKWUBRG]")()
		else
			sort_text@(order: "XYZ∞[0123456789]HSA(PLOEK)(WUBRG)")()
	}
	#mana_sort       := sort_text@(order: "XYZ∞[0123456789]HSA(PLOEK)(WUBRG)")
	# correctly sort guild mana
	mana_sort_guild := sort_text@(order: "[XYZ∞01234567890HSAPLOEKWUBRG/|]") +
			replace@(
				match: "./.|././.|./././.|.[|]",
				in_context: "(^|[^/])<match>($|[^/])",
				replace: {sort_text(order:"in_place((PLOEK)(WUBRG)")}
			)
	tap_filter := sort_text@(order: "<TQ>")
	############################################################## Determine card color
	
	# Names of colors
	color_name := {
		if      input == "W" then "white"
		else if input == "U" then "blue"
		else if input == "B" then "black"
		else if input == "R" then "red"
		else if input == "G" then "green"
		else if input == "P" then "purple"
		else if input == "K" then "pink"
		else if input == "L" then "yellow"
		else if input == "O" then "orange"
		else if input == "E" then "brown"
		else                     ""
	}
	color_names_6 := { color_name(colors.0) + ", " + color_name(colors.1) + ", " + color_name(colors.2) + ", " + color_name(colors.3) + ", " + color_name(colors.4) + ", " + color_name(colors.5) }
	color_names_7 := { color_name(colors.0) + ", " + color_name(colors.1) + ", " + color_name(colors.2) + ", " + color_name(colors.3) + ", " + color_name(colors.4) + ", " + color_name(colors.5) + ", " + color_name(colors.6) }
	# color based on mana cost, input == a mana cost
	color_filter  := sort_text@(order: "<WUBRGPLOEK>")
	color_filterS := sort_text@(order: "<S>")
	mana_to_color := {
		count  := number_of_items(in: colors)
		if hybrid == "" and snow == "" and contains(type, match:"Artifact") then
			# not a hybrid, not snow costed, but artifact
			if      count == 0 then  "colorless"
			else if count == 1 then  color_names_1() + ", artifact"
			else if set.set_info.use_gradient_multicolor == "no"  then "artifact, multicolor" # stop here
			else if count == 2 then  color_names_2() + ", artifact, multicolor"
			else if set.set_info.use_gradient_multicolor != "yes" then "artifact, multicolor" # stop here
			else if count == 3 then  color_names_3() + ", artifact, multicolor"
			else if count == 4 then  color_names_4() + ", artifact, multicolor"
			else if count == 5 then  color_names_5() + ", artifact, multicolor"
			else if count == 6 then  color_names_6() + ", artifact, multicolor"
			else if count == 7 then  color_names_7() + ", artifact, multicolor"
			else                     "artifact, multicolor"

		else if hybrid == "" and contains(type, match:"Artifact") then
			# not a hybrid, but snow costed and artifact
			if      count == 0 then  "artifact, snow"
			else if count == 1 then  color_names_1() + ", artifact, snow"
			else if set.set_info.use_gradient_multicolor == "no"  then "artifact, snow, multicolor" # stop here
			else if count == 2 then  color_names_2() + ", artifact, snow, multicolor"
			else if set.set_info.use_gradient_multicolor != "yes" then "artifact, snow, multicolor" # stop here
			else if count == 3 then  color_names_3() + ", artifact, snow, multicolor"
			else if count == 4 then  color_names_4() + ", artifact, snow, multicolor"
			else if count == 5 then  color_names_5() + ", artifact, snow, multicolor"
			else if count == 6 then  color_names_6() + ", artifact, snow, multicolor"
			else if count == 7 then  color_names_7() + ", artifact, snow, multicolor"
			else                     "artifact, snow, multicolor"
		else if hybrid == "" and snow == "" then
			# not a hybrid, not snow costed, not artifact
			if      count == 0 then  "colorless"
			else if count == 1 then  color_names_1()
			else if set.set_info.use_gradient_multicolor == "no"  then "multicolor" # stop here
			else if count == 2 then  color_names_2() + ", multicolor"
			else if set.set_info.use_gradient_multicolor != "yes" then "multicolor" # stop here
			else if count == 3 then  color_names_3() + ", multicolor"
			else if count == 4 then  color_names_4() + ", multicolor"
			else if count == 5 then  color_names_5() + ", multicolor"
			else if count == 6 then  color_names_6() + ", multicolor"
			else if count == 7 then  color_names_7() + ", multicolor"
			else                     "multicolor"
		else if hybrid == "" then
			# not a hybrid, not artifact, but snow costed
			if      count == 0 then  "snow"
			else if count == 1 then  color_names_1() + ", snow"
			else if set.set_info.use_gradient_multicolor == "no"  then "snow, multicolor" # stop here
			else if count == 2 then  color_names_2() + ", snow, multicolor"
			else if set.set_info.use_gradient_multicolor != "yes" then "snow, multicolor" # stop here
			else if count == 3 then  color_names_3() + ", snow, multicolor"
			else if count == 4 then  color_names_4() + ", snow, multicolor"
			else if count == 5 then  color_names_5() + ", snow, multicolor"
			else if count == 6 then  color_names_6() + ", snow, multicolor"
			else if count == 7 then  color_names_7() + ", snow, multicolor"
			else                     "snow, multicolor"
		else if snow == "" and contains(type, match:"Artifact") then
			# hybrid, and artifact, but not snow costed
			if count == 0 then "colorless"
			else if count == 1 then color_names_1() + ", artifact"
			else if count == 2 then  color_names_2() + ", artifact"
			else if count == 3 then  color_names_3() + ", artifact"
			else if count == 6 then
				if color_names_6() == "blue, red, green, yellow, purple, orange" then color_names_6() + ", artifact"
				else "artifact, multicolor"
			else                     "artifact, multicolor"
		else if contains(type, match:"Artifact") then
			# hybrid, and snow costed, and artifact
			if count == 0 then "artifact, snow"
			else if count == 1 then color_names_1() + ", artifact, snow"
			else if count == 2 then  color_names_2() + ", artifact, snow"
			else if count == 3 then  color_names_3() + ", artifact, snow"
			else if count == 6 then
				if color_names_6() == "blue, red, green, yellow, purple, orange" then color_names_6() + ", artifact, snow"
				else "artifact, snow, multicolor"
			else                     "artifact, snow, multicolor"
		else if snow == "" then
			# hybrid, not artifact, and not snow costed
			if count == 0 then "colorless"
			else if count == 1 then color_names_1()
			else if count == 2 then  color_names_2() + ", hybrid"
			else if count == 6 then
				if color_names_6() == "blue, red, green, yellow, purple, orange" then color_names_6() + ", hybrid"
				else "multicolor"
			else                     "multicolor"
		else
			# hybrid and snow costed, but not artifact
			if count == 0 then "snow"
			else if count == 1 then color_names_1() + ", snow"
			else if count == 2 then  color_names_2() + ", snow, hybrid"
			else if count == 6 then
				if color_names_6() == "blue, red, green, yellow, purple, orange" then color_names_6() + ", snow, hybrid"
				else "snow, multicolor"
			else                     "snow, multicolor"
	}
	
	# Look for a CDA that defines colors
	text_to_color := {
		# Note: running filter_text is quite slow, do a quick 'contains' check first
		if contains(match: card_name) then (
		  text := filter_text(match: regex_escape(card_name)+"(</[-a-z]+>)? is (colorless|all colors|((blue|white|green|red|black|purple|pink)((,|,? and) (blue|white|green|red|black|purple|pink))*))\\.")
		  if text != "" then (
		    if contains(text, match: "all colors") then (
			colors := "WUBRGP"
			if land == "land" then land_multicolor()
			else mana_to_color(hybrid: "")
		    ) else (
			colors := ""
			if contains(text, match: "white") then colors := colors + "W"
			if contains(text, match: "blue")  then colors := colors + "U"
			if contains(text, match: "black") then colors := colors + "B"
			if contains(text, match: "red")   then colors := colors + "R"
			if contains(text, match: "green") then colors := colors + "G"
			if contains(text, match: "purple") then colors := colors + "P"
			if contains(text, match: "pink") then colors := colors + "K"
			if contains(text, match: "yellow") then colors := colors + "L"
			if contains(text, match: "orange") then colors := colors + "O"
			if contains(text, match: "brown") then colors := colors + "E"
			if land == "land" then land_multicolor()
			else mana_to_color(hybrid: "")
		    )
		  ) else ""
		) else ""
	}
	
	card_color := {
		# usually the color of mana
		text_color := text_to_color(rules_text, land: is_land(type));
		if text_color == "" then (
			mana_color := mana_to_color(colors: color_filter(casting_cost), hybrid: color_filterH(casting_cost), snow: color_filterS(casting_cost))
			if      mana_color == "colorless" and is_land    (type)  then land_to_color(watermark)
			else if mana_color == "colorless" and is_artifact(type)  then "artifact"
			else mana_color
		)
		else text_color
	};

	# Number of colors in a card_color
	card_color_color_count := count_chosen@(choices: "white,blue,black,red,green,purple,pink,yellow,orange,brown,artifact,snow")
	# Clean up color field
	card_color_filter := {
		colors := card_color_color_count()
		if colors > 2 then
			input := remove_choice(choice: "overlay")
		if colors > 1 then (
			input := require_choice(choices: "multicolor, hybrid, land, artifact, snow, spectral")
			input := exclusive_choice(choices: "multicolor, hybrid, spectral")
			input := require_exclusive_choice(choices: "horizontal, vertical, radial, diagonal, overlay")
		) else
			input := remove_choice(choices: "radial, horizontal, vertical, diagonal, overlay, hybrid, reversed")
			input := exclusive_choice(choices: "multicolor, spectral")
		if chosen(choice:"overlay") then
			input := remove_choice(choice: "reversed")
		input
	}
	
	############################################################## Card number
	
	# Index for sorting, white cards are first, so white->A, blue->B, .. ,
	# The code consists of 4 parts:
	#   normal/token,  color,  shifted,   split
	hybrid_color_pair_sort := {
		colors := sort_text(casting_cost, order: "<WUBRGPLOEK>")
		if colors == "WU" then "HA"
		else if colors == "UB" then "HB"
		else if colors == "BR" then "HC"
		else if colors == "RG" then "HD"
		else if colors == "WG" then "HE"
		else if colors == "WB" then "HF"
		else if colors == "UR" then "HG"
		else if colors == "BG" then "HH"
		else if colors == "WR" then "HI"
		else if colors == "UG" then "HJ"
		else if colors == "WP" then "HJAA"
		else if colors == "UP" then "HJAB"
		else if colors == "BP" then "HJAC"
		else if colors == "RP" then "HJAD"
		else if colors == "GP" then "HJAE"
		else if colors == "WK" then "HJBA"
		else if colors == "UK" then "HJBB"
		else if colors == "BK" then "HJBC"
		else if colors == "RK" then "HJBD"
		else if colors == "GK" then "HJBE"
		else if colors == "PLOEK" then "HJBF"
		else "HK"
	}
	multi_color_pair_sort := {
		colors := sort_text(casting_cost, order: "<WUBRGP>")
		if colors == "WU" then "GA"
		else if colors == "UB" then "GB"
		else if colors == "BR" then "GC"
		else if colors == "RG" then "GD"
		else if colors == "WG" then "GE"
		else if colors == "WB" then "GF"
		else if colors == "UR" then "GG"
		else if colors == "BG" then "GH"
		else if colors == "WR" then "GI"
		else if colors == "UG" then "GJ"
		else if colors == "WP" then "GJAA"
		else if colors == "UP" then "GJAB"
		else if colors == "BP" then "GJAC"
		else if colors == "RP" then "GJAD"
		else if colors == "GP" then "GJAE"
		else if colors == "WK" then "GJBA"
		else if colors == "UK" then "GJBB"
		else if colors == "BK" then "GJBC"
		else if colors == "RK" then "GJBD"
		else if colors == "GK" then "GJBE"
		else if colors == "PLOEK" then "GJBF"
		else if contains(card.casting_cost, match:"/") then "GL"
		else "GK"
	}
	color_of_card := {
		card_color := card.card_color
		casting_cost := card.casting_cost
		type := card.super_type
		if card.shape == "split" and
		   card_color != card.card_color_2 then "I"                              # Diff Color Splits
		else if chosen(choice: "land", card_color) then (                   # Lands
			if card.rarity != "basic land" then "L"                          # Nonbasic Land
			else basic_land_sort()                                           # Basic Land
		) else if is_null_cost(casting_cost) then (                         # Non-Land Cards with no or zero costs.
			if chosen(choice: "colorless", card_color) then "A"              # Clear Colorless
			else if chosen(choice: "hybrid", card_color)    then "HK"        # Hybrids
			else if is_multicolor(card_color)          then "GK"             # Multicolor
			else if chosen(choice:"white", card_color) then "B"              # White
			else if chosen(choice:"blue", card_color)  then "C"              # Blue
			else if chosen(choice:"black", card_color) then "D"              # Black
			else if chosen(choice:"red", card_color)   then "E"              # Red
			else if chosen(choice:"green", card_color) then "F"              # Green
			else                                            "J"              # Artifact
		) else (
			                                                            # Cards with costs.
			colors := sort_text(casting_cost, order: "<WUBRGPLOEK>")
			if colors == "" and contains(type, match:"Artifact") then "J"    # Artifact
			else if colors == ""  then "A"                                   # Clear Colorless
			else if colors == "W" then "B"                                   # White
			else if colors == "U" then "C"                                   # Blue
			else if colors == "B" then "D"                                   # Black
			else if colors == "R" then "E"                                   # Red
			else if colors == "G" then "F"                                   # Green
			else if colors == "P" then "FTA"                                 # Purple
			else if colors == "K" then "FTB"                                 # Pink
			else if is_hybrid_cost() then hybrid_color_pair_sort()           # Hybrid (by pairs)
			else if contains(casting_cost, match:"/") and contains(type, match:"Artifact") then "I" # Hybrid Artifacts
			else                       multi_color_pair_sort()               # Multicolor (by pairs)
		)
	}
	
	############################################################## Utilities for keywords
	# replaces — correctly
	for_mana_costs := format_cost := {
		if input.separator_before == "—" and contains(input.param, match: " ") then (
			if contains(input.param, match:",") then (
				if match(match: "^[HSATQXYZ∞WUBRGPLOEK0-9/|]+,", input.param) then
					"{add}<param-cost>{combined_cost(input.param)}</param-cost>"
				else "<param-cost>{combined_cost(input.param)}</param-cost>"
			) else
				"<param-cost>{alternative_cost(input.param)}</param-cost>"
		) else
			"{add}<param-mana>{input.param}</param-mana>"
	}
	combined_cost := replace@(match:", [A-Z]", replace: { to_lower() })+
		replace@(match:",", replace:" and")+
		replace@(match:"^[HSATQXYZ∞WUBRGPLOEK0-9/|]", in_context: "(^|[[:space:]])<match>", replace: "<sym-auto>&</sym-auto>")+
		replace@(match:"^[A-Z]", replace: { to_lower() })
	
	############################################################## The text box
	
	# Filters for the text box
	# context in which mana symbols are found
	mana_context :=
		"(?ix)				# case insensitive, ignore whitespace
		 (^|[[:space:]\"(“'])		# start of a word
		 (  <match>:			# G: something
		 |  <match>,			# G, tap: something
		 |  <match>[ ]can[ ]be[ ]pay
		 |  (pays?|additional|costs?|the	# pay X. creatures cost 1 less. pay an additional G.
		    |adds?|pay(ed)?[ ](with|using)
		    )
		    ([ ]either)?			 # pay either X or Y
		    ([ ](<sym[^>]*>)?[HSATQXYZ∞WUBRGPLOEK0-9/|]+(</sym[^>]*>)?,)* # pay X, Y or Z
		    ([ ](<sym[^>]*>)?[HSATQXYZ∞WUBRGPLOEK0-9/|]+(</sym[^>]*>)?[ ](and|or|and/or))* # pay X or Y
		    [ ]<match>
		    ([,.)]|$				# (end of word)
		    |[ ][^ .,]*$			# still typing...
		    |[ ]( or | and | in | less | more | to ) # or next word is ...
		    )
		    )
		 |  <param-mana><match></param-mana>		# keyword argument that is declared as mana
		 |  <param-cost>[ ]*<match></param-cost>	# keyword argument that is declared as cost
		 |  <param-cost><match>,			# keyword argument that is declared as cost
		 ";
	# the rule text filter
	#  - adds mana symbols
	#  - makes text in parentheses italic
	text_filter :=
		# step 1 : remove all automatic tags
		remove_tag@(tag: "<sym-auto>") +
		remove_tag@(tag: "<i-auto>")   +
		remove_tag@(tag: "<b-auto>")   +
		remove_tag@(tag: "<error-spelling") +
		remove_tag@(tag: "<nospellcheck") +
		remove_tag@(tag: "<li>") +
		remove_tag@(tag: "<bullet>") +
		remove_tag@(tag: "<align") +
		remove_tag@(tag: "<margin") +
		#### step 1b : remove zero-width space used for level spacers
		replace@(match:"​", replace:"") +
		#### step 2a : temp fix for formatting buttons
		replace@(
			match:"<b></b>",
			replace:"BOLDAROUND"
		) +
		replace@(
			match:"<i></i>",
			replace:"ITALAROUND"
		) +
		replace@(
			match:"<sym></sym>",
			replace:"SYMAROUND"
		) +
		#### step 2a : reminder text for keywords
		expand_keywords@(
			condition: {
				correct_case or (mode != "pseudo" and not used_placeholders)
			}
			default_expand: {
				chosen(choice:if correct_case or mode == "action" then mode else "lower case", set.automatic_reminder_text) and chosen(choice:mode, set.automatic_reminder_text)
			},
			combine: {
				keyword := "<nospellcheck>{keyword}</nospellcheck>"
				reminder := process_english_hints(reminder)
				if mode == "pseudo" then "<i-auto>{keyword}</i-auto>"
				else keyword + if expand then "<atom-reminder-{mode}> ({reminder})</atom-reminder-{mode}>" else ""
			}
		) +
		#### step 2b : apply face_code
		replace@(
			match: "face_(.*?)_end",
			replace: {face_code(_1)}
		) +
		#### step 2c : move action keywords' reminder text to the end of the line
		replace@(
			match: "(<atom-reminder-[^>]+> (?:(?!</kw).*?)</atom-reminder-[^>]+></kw[^>]*>)([^\n]*)", #### removed "| ?<kw-" from lookahead
			replace: "\\2\\1"
		) +
		#### step 2d : when there's an action keyword and another one, then move that to the end of the line
		replace@(
			match: "(<atom-reminder-[^>]+> (?:(?!</kw)[^\n]*?)</atom-reminder-[^>]+></kw[^>]*>)([^\n]*?)(<atom-reminder-[^>]+> (?:(?!</kw).*?)</atom-reminder-[^>]+></kw[^>]*>)([^\n]*)",
			replace: "\\2\\4\\3\\1"
		) +
		#### step 2e : allow a sentence after lowercase reminder text for equips etc.
		#replace@(
		#	match: "(<kw[^>]+><nospellcheck>[a-z][^<]+</nospellcheck>)(<atom-reminder-(?:expert|custom|old|core)>(?:(?!<kw-).)*</atom-reminder-(?:expert|custom|old|core)></kw[^>]*>)([^\n]+)$",
		#	replace: "\\1\\3\\2"
		#	) +
		#### step 2f : remove duplicate reminder text
		replace@(
			match: "(<atom-reminder-[^>]*>[^)]+[)]</atom-reminder-[^>]*>)([^\n]+)\\1"
			replace: "\\2\\1"
		) +
		#### step 2g : combine reminder texts
		replace@(
			match: "[)](</atom-reminder-[^>]+></kw-[^>]><atom-reminder-[^>]+> )[(]"
			replace: "\\1"
		) +
		#### step 2h : temp fix for formatting buttons
		replace@(
			match:"BOLDAROUND",
			replace:"<b></b>"
		) +
		replace@(
			match:"ITALAROUND",
			replace:"<i></i>"
		) +
		replace@(
			match:"SYMAROUND",
			replace:"<sym></sym>"
		) +
		replace@(
			match:"-\n-"
			replace:"<soft-line>\n</soft-line>"
		) +
		#### step 3a : expand shortcut word CARDNAME
		replace@(
			match: "CARDNAME>?", #### >? is here so after replacement, the mouse snaps to the end of </atom>
			in_context: "(^|[[:space:]]|\\(|,|\\.|:|“|\"|'|‘|-|—|/|​)<match>", #### TODO: Allow any punctuation before
			replace: "<atom-cardname></atom-cardname>"
		) +
		#### step 3b : expand shortcut word LEGENDNAME
		replace@(
			match: "LEGENDNAME>?",
			in_context: "(^|[[:space:]]|\\(|,|\\.|:|“|\"|'|‘|/|​)<match>", #### TODO: Allow any punctuation before
			replace: "<atom-legname></atom-legname>"
		) +
		#### step 3c : fill in atom fields
		tag_contents@(
			tag: "<atom-cardname>",
			contents: { "<nospellcheck>" + (if card_name=="" then "CARDNAME" else strip_card_codes(card_name, atom:true)) + "</nospellcheck>" }
		) +
		tag_contents@(
			tag: "<atom-legname>",
			contents: { "<nospellcheck>" + (if card_name=="" then "LEGENDNAME" else legend_filter(strip_card_codes(card_name, atom:true))) + "</nospellcheck>" }
		) +
		replace@(
			match: "INS([1-9])",
			in_context: "(^|[[:space:]]|\\(|,|\\.|:|“|\"|'|‘|/|​)<match>",
			replace: "<atom-insert\\1></atom-insert\\1>"
		) +
		{
			out := input
			for x from 1 to inserts_count() do
				out := tag_contents(out,
					tag: "<atom-insert"+x+">",
					contents: { "<nospellcheck>" + (if inserts_values()[x-1] == "" then "INS"+x else inserts_values()[x-1]) + "</nospellcheck>" }
				)
			out
		} +
		# step 4 : explict non mana symbols
		replace@(
			match: "\\][-+=]?[VHSCATQXYZ∞WUBRGPK0-9/|]+\\[",
			replace: {"<nosym>" + mana_filter_t() + "</nosym>"} ) +
		#### step 5 : add mana & tap symbols
		replace@(
			match: "(?<!\\/)([+=-][XYZ0-9|]+)(?!\\/)",
			in_context: mana_context,
			replace: {"<sym-auto>" + _1 + "</sym-auto>"}
		) +
		replace@(
			match: "\\b((TK)+)(T)?\\b",
			in_context: mana_context,
			replace: {"<sym-auto>" + _1 + "</sym-auto>" + _3}
		) +
		replace@(
			match: "\\b[VHSCATQXYZ∞WUBRGPK0-9/|]+\\b",
			in_context: mana_context,
			replace: {"<sym-auto>" + mana_filter_t() + "</sym-auto>"}
		) +
		#### step 5b : remove false positive mana & tap symbols
		replace@(
			match: "<sym-auto>([VHSCATQXYZ∞WUBRGPK0-9/|]+)</sym-auto>",
			in_context: mana_un_context,
			replace: "\\1"
		) +
		#### step 5c : add explicit mana symbols
		replace@(
			match: "\\[[-+=]?[VHSCATQXYZ∞WUBRGPK0-9/|]+\\]",
			replace: {"<sym>" + mana_filter_t() + "</sym>"}
		) +
		# step 6a : curly double quotes
		replace@(
			match: "[[.quotation-mark.]]|”",
			in_context: "[ ]<match>+|^<match>",
			replace: "“" )+
		replace@(
			match: "[[.quotation-mark.]]",
			replace: "”" )+
		# step 7 : italicize text in parenthesis
		replace@(
		 	match: "[(]([^)\n]|[(][^)\n]*[)])*[)]?",
			in_context: "(^|[[:space:]])<match>|<atom-keyword><match></",
		 	replace: "<i-auto>&</i-auto>") +
		#### step 7b : indent bullets
		replace@(
			match: "^(• |[+] ?)([^\n]+\n?)",
			replace: {"<li><bullet>" + _1 + "</bullet>" + _2 + "</li>"}
		) +
		#### step 7c : clean up modals
		{
			if is_modal(input)
				then bump_text(softline_ripper(input))
			else input
		} +
		#### step 8 : automatic capitalization, but not after "("
		#replace@(
		#	match: "([ ]*: |—| — )" #### preceded by this
		#	     + "([[:lower:]])"  #### match this
		#	     + "(?![)])",       #### not followed by this
		#	replace: { _1 + to_upper(_2) }) +
		#### step 9 : spellcheck
		{
			if set.auto_correct then
				auto_correct(input)
			else input
		} +
		{
			if set.auto_errata then
				auto_errata(input)
			else input
		} +
		{
			if language().code == "ja" or language().code == "zht" or language().code == "zhs" then input
			else if set.mark_errors then
			check_spelling(
				language: language().spellcheck_code,
				extra_dictionary: "/magic.mse-game/dictionary/magic-words",
				extra_match: additional_text_words
			)
			else input
		}
	
	############################################################## Other boxes
	# Script to make magic-mana-future compatible w/ other templates
	# Is now used to allow colored XYZ mana.
	colorless_color := {
		if contains(styling.extras, match:"colored xyz mana") and card.card_color=="white" then "w"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="blue" then "u"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="black" then "b"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="red" then "r"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="green" then "g"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="colorless" and contains(card.casting_cost, match:"P") then "p"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="colorless" and contains(card.casting_cost, match:"K") then "k"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="colorless" and contains(card.casting_cost, match:"O") then "o"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="colorless" and contains(card.casting_cost, match:"E") then "e"
		else if contains(styling.extras, match:"colored xyz mana") and card.card_color=="colorless" and contains(card.casting_cost, match:"L") then "l"
		else "c"
	}
	
	# Determine a rarity code for M15 styles.
	rarity_code := {
		if contains(styling.regular_options, match:"promo rarity") then "P"
		else if card.rarity == "common" then "C"
		else if card.rarity == "uncommon" then "U"
		else if card.rarity == "rare" then "R"
		else if card.rarity == "mythic rare" then "M"
		else if card.rarity == "special" then "S"
		else if card.rarity == "basic land" then "L"
		else "M"
		}
	
	# Assigns default type symbols.  Is modified for structure symbols.
	typesymbol_for :=
		to_text +
		replace@(match: "(Legendary|Basic|Snow|World| )", replace: "") +
		{ if input == "Creature" then "creature"
		  else if input == "Sorcery" then "sorcery"
		  else if input == "Instant" then "instant"
		  else if input == "Artifact" then "artifact"
		  else if input == "Enchantment" then "enchantment"
		  else if input == "Land" then "land"
		  else if input == "Planeswalker" then "planeswalker"
		  else if input == "Structure" then "structure"
		  else                                "multitype"
		}
	
	# This script has been modified to check a styling menu choice instead.
	
	colors_from_mana_symbols := {
		str := []
		if contains(input, match:"W") then str := str + ["white"]
		if contains(input, match:"U") then str := str + ["blue"]
		if contains(input, match:"B") then str := str + ["black"]
		if contains(input, match:"R") then str := str + ["red"]
		if contains(input, match:"G") then str := str + ["green"]
		if contains(input, match:"E") then str := str + ["brown"]
		if contains(input, match:"K") then str := str + ["pink"]
		if contains(input, match:"P") then str := str + ["purple"]
		if contains(input, match:"L") then str := str + ["yellow"]
		if contains(input, match:"O") then str := str + ["orange"]

		join(str, sep:", ")
	}
	has_identity_general := {
		tag := if face == 1 then "" else "_" + face
		indicator_field := extra_card.extra_indicator
		culled_indicator := cull_noncolors(cull_directions(indicator_field))
		color_field 	:= extra_card.frame
		cost_field 		:= card["casting_cost"+tag]
		culled_color	:= cull_directions(cull_noncolors(color_field))

		default_from_casting_cost := colors_from_mana_symbols(cost_field)
		default_from_card_color := if chosen(color_field, choice:"colorless")
				then ""							## colorless
			else if default_from_casting_cost == "" and chosen(color_field, choice:"land")
				then ""							## land
			else if chosen(color_field, choice:"multicolor") and culled_color == ""
				then default_from_casting_cost	## 3+ multicolor
			else culled_color					## normal color
		#default_from_card_color := if chosen(color_field, choice:"colorless") then "" else if default_from_casting_cost == "" and chosen(color_field, choice:"land") then "" else if chosen(color_field, choice:"multicolor") and culled_color == "" then default_from_casting_cost else culled_color
		color_cost_disagree := default_from_card_color != default_from_casting_cost
		color_indicator_disagree := default_from_card_color != culled_indicator and indicator_field != color_field

		color_cost_disagree or color_indicator_disagree
	}

	############################################################## Statistics utilities
	# Converted mana cost
	is_half_mana    := match@(match: "1/2|[|][HSAWUBRGPLOEK]")
	is_colored_mana := match@(match: "[WUBRGPLOEK]")
	cmc_split := break_text@(match: "(?ix) 1/2 | [|][WUBRGPLOEK] | [0-9]+(?!/[WUBRGHSAPLOEKCTQ2]) | [WUBRGHSAPLOEK0-9.](/[WUBRGHSAPLOEK])\{0,4} ")
	
	primary_card_color := {
		artifact := chosen(choice:"artifact") and not (chosen(choice:"white") or chosen(choice:"blue") or chosen(choice:"black") or chosen(choice:"red") or chosen(choice:"green"))
		land     := chosen(choice:"land")
		multi    := chosen(choice:"multicolor")
		hybrid   := chosen(choice:"hybrid")
		white    := chosen(choice:"white")
		blue     := chosen(choice:"blue")
		black    := chosen(choice:"black")
		red      := chosen(choice:"red")
		green    := chosen(choice:"green")
		if      land                                      then "land"
		else if multi                                     then "multicolor"
		else if hybrid                                    then "hybrid"
		else if artifact                                  then "artifact"
		else if white                                     then "white"
		else if blue                                      then "blue"
		else if black                                     then "black"
		else if red                                       then "red"
		else if green                                     then "green"
		else                                                   input
	}