# =====> Verifier si le temps est bien écris
function CheckTime(time: text) :: boolean:
	if length of {_time} is 2:
		set {_check::*} to groups 0 of "%{_time}%" matched to "^[0-9](s|S|m|M|h|H|d|D)$"
	else if length of {_time} is 3:
		set {_check::*} to groups 0 of "%{_time}%" matched to "^[0-9]{2}(s|S|m|M|h|H|d|D)$"
	if {_check::*} is set:
		return true
	else:
		return false

# =====> Retourner le temps en TimeSpan (pour Skript)
function TransformTime(time: text) :: timespan:
	if length of {_time} is 2:
		set {_time} to "0%{_time}%"
	set {_characters::*} to {_time} split at ""
	if {_characters::3} is "s":
		set {_characters::3} to " seconds"
	else if {_characters::3} is "m":
		set {_characters::3} to " minutes"
	else if {_characters::3} is "h":
		set {_characters::3} to " hours"
	else if {_characters::3} is "d":
		set {_characters::3} to " days"
	set {_result} to "%{_characters::1}%%{_characters::2}%%{_characters::3}%" parsed as timespan
	return {_result}

# =====> Retourner le temps en temps normal (en francais)
function SanctionTime(time: timespan) :: text:
	set {_time} to "%{_time}%"
	set {_words::*} to {_time} split at " "
	if {_words::2} is "second" or "seconds":
		set {_words::2} to "seconde(s)"
	else if {_words::2} is "minute" or "minutes":
		set {_words::2} to "minute(s)"
	else if {_words::2} is "hour" or "hours":
		set {_words::2} to "heure(s)"
	else if {_words::2} is "day" or "days":
		set {_words::2} to "jour(s)"
	set {_result} to "%{_words::1}% %{_words::2}%"
	return {_result}