execute @e[tag=body,tag=rot_l1,tag=rot_r1] ~~~ tag @s add r_ok
execute @e[tag=body,tag=rot_r1,tag=!r_ok] ~~~ function hr
execute @e[tag=body,tag=rot_l1,tag=!r_ok] ~~~ function hl
#
execute @e[tag=body,tag=rot_l2,tag=rot_r2] ~~~ tag @s add r_ok
execute @e[tag=body,tag=rot_r2,tag=!r_ok] ~~~ function hr
execute @e[tag=body,tag=rot_l2,tag=!r_ok] ~~~ function hl
#
execute @e[tag=body,tag=rot_l,tag=rot_r,tag=!pt1,tag=!pt2] ~~~ tag @s add r_ok
execute @e[tag=body,tag=rot_r,tag=!r_ok,tag=!pt1,tag=!pt2] ~~~ function hr
execute @e[tag=body,tag=rot_l,tag=!r_ok,tag=!pt1,tag=!pt2] ~~~ function hl
#タグ消去
tag @e[tag=rot_r] remove rot_r
tag @e[tag=rot_l] remove rot_l
tag @e[tag=rot_r1] remove rot_r1
tag @e[tag=rot_l1] remove rot_l1
tag @e[tag=rot_r2] remove rot_r2
tag @e[tag=rot_l2] remove rot_l2
tag @e[tag=r_ok] remove r_ok