execute store result score carpet carpet run carpet optimizedTNT
execute if score carpet carpet matches 1 run function fz:carpet/scarpet