on rightclick:
    if player is sneaking:
        if tool of player is any dye:

            if clicked block is any bed or any shulker box:
                stop
            set {_colour} to "%type of tool of player%"
            replace " dye" with "" in {_colour}
            set {_} to "%clicked block%"
            set {_list::*} to {_} split at " "

            loop {_list::*}:
                if (loop-value parsed as colour) is a colour:
                    replace loop-value with {_colour} in {_}
                    stop loop
                else:
                    set {_index} to (loop-index parsed as integer) + 1
                    if ("%loop-value% %{_list::%{_index}%}%" parsed as colour) is a colour:
                        replace "%loop-value% %{_list::%{_index}%}%" with {_colour} in {_}
                        stop loop

            replace "grey" with "gray" in {_}
            set {_i} to ({_} parsed as item)
            if {_i} is an item:
                if {_i} is not clicked block:
                    remove 1 of tool of player from inventory of player
                    set clicked block to {_i}