Omission time

command /timeomission [<text>]:
    trigger:
        set {_text} to timeomission(arg 1)
        if {_text} is "Invalid":
            send "&c無効な時間形式です。"
            stop
        send "%{_text}%"

function timeomission(texttime: text) :: text:
    if {_texttime} does not contain "hour" or "hours" or "minute" or "minutes" or "seconds" or "second" or "tick" or "ticks" or "day" or "days":
        if {_texttime} contains "1" or "2" or "3" or "4" or "5" or "6" or "7" or "8" or "9" or "0":
            if {_texttime} contains "d" or "h" or "t" or "m" or "s":
                loop 9 times:
                    replace all "d%loop-number%" with "d %loop-number%" in {_texttime}
                loop 9 times:
                    replace all "h%loop-number%" with "h %loop-number%" in {_texttime}
                loop 9 times:
                    replace all "t%loop-number%" with "t %loop-number%" in {_texttime}
                loop 9 times:
                    replace all "m%loop-number%" with "m %loop-number%" in {_texttime}
                loop 9 times:
                    replace all "s%loop-number%" with "s %loop-number%" in {_texttime}
                if {_texttime} starts with " ":
                    set {_texttime} to subtext of {_texttime} from characters 2 to (length of {_texttime})
                replace all "d" with " day" in {_texttime}
                replace all "h" with " hour" in {_texttime}
                replace all "t" with " tick" in {_texttime}
                replace all "m" with " minute" in {_texttime}
                replace all "s" with " second" in {_texttime}
                set {_texttime} to {_texttime} parsed as timespan
                return "%{_texttime}%"
                stop
        return "Invalid"
        stop
    set {_texttime} to {_texttime} parsed as timespan
    return "%{_texttime}%"