You can use goto command for this, which makes your code shorter in bytes:

on *:input:*:{ 
  $iif(($left($1,1) != / && %font),goto $v1,return)
  :Blue
  msg $active 12%0,12% 2%12,2% 1%2,1%0 $1-  2%1,2% 12%2,12% 0%12,0%
  halt
  :Red 
  msg $active 4%0,4% 5%4,5% 1%5,1%0 $1- 5%1,5% 4%5,4% 0%4,0%
  halt
  :Green
  msg $active 9%0,9% 3%9,3% 1%3,1%0 $1- 3%1,3% 9%3,9% 0%9,0%
  halt
  :Pink
  msg $active 13%0,13% 6%13,6% 1%6,1%0 $1- 6%1,6% 13%6,13% 0%13,0%
  halt
}