#=> player 1 tile color <=#

#-> change tile style
$execute if entity @s[tag=prev] run scoreboard players remove .style PLAYER$(player) 1
$execute if entity @s[tag=prev] if score .style PLAYER$(player) matches 0 run scoreboard players set .style PLAYER$(player) 3

$execute if entity @s[tag=next] run scoreboard players add .style PLAYER$(player) 1
$execute if entity @s[tag=next] if score .style PLAYER$(player) matches 4 run scoreboard players set .style PLAYER$(player) 1

#-> change icon
#$execute if score .style PLAYER$(player) matches 0 as @e[tag=text,tag=player_$(player),tag=style] run data modify entity @s text set value '{"translate":"random","font":"menu"}'
$execute if score .style PLAYER$(player) matches 1 as @e[tag=text,tag=player_$(player),tag=style] run data modify entity @s text set value '{"translate":"style_bubble","font":"menu"}'
$execute if score .style PLAYER$(player) matches 2 as @e[tag=text,tag=player_$(player),tag=style] run data modify entity @s text set value '{"translate":"style_mob","font":"menu"}'
$execute if score .style PLAYER$(player) matches 3 as @e[tag=text,tag=player_$(player),tag=style] run data modify entity @s text set value '{"translate":"style_blank","font":"menu"}' 

#-> modify hover message
#$execute if score .style PLAYER$(player) matches 0 run data modify storage lobby:data player$(player).msg.style set value "[ Random ]" 
$execute if score .style PLAYER$(player) matches 1 run data modify storage lobby:data player$(player).msg.style set value "[ Bubble ] - Default"
$execute if score .style PLAYER$(player) matches 2 run data modify storage lobby:data player$(player).msg.style set value "[ Mob Face ] - Color Specific" 
$execute if score .style PLAYER$(player) matches 3 run data modify storage lobby:data player$(player).msg.style set value "[ Blank ]"

#-> save settings
#$execute if data storage lobby:data player$(player).list[-1].id store result storage lobby:data player$(player).list[-1].settings.style int 1 run scoreboard players get .style PLAYER$(player)
