alias fail {
  inc %fails
  set %color1 $r(2,13)
  set %color2 $r(2,13)
  set %color3 $r(2,13)
  set %color4 $r(2,13)
  msg $active 10  $+ %color1 $+ , $+ %color1 $+ ||||||||15,15|1,1|||| $+ %color2 $+ , $+ %color2 $+ |||||15,15|1,1|||| $+ %color3 $+ , $+ %color3 $+ ||||||||15,15|1,1|| $+ %color4 $+ , $+ %color4 $+ ||15,15|1,1||||||
  msg $active 10  $+ %color1 $+ , $+ %color1 $+ ||15,15|1,1||||1,1||||| $+ %color2 $+ , $+ %color2 $+ ||15,15|1,1|| $+ %color2 $+ , $+ %color2 $+ ||15,15|1,1|||||| $+ %color3 $+ , $+ %color3 $+ ||15,15|1,1||||| $+ %color4 $+ , $+ %color4 $+ ||15,15|1,1||||||
  msg $active 10  $+ %color1 $+ , $+ %color1 $+ ||||||15,15|1,1|||| $+ %color2 $+ , $+ %color2 $+ |||||||||15,15|1,1||||| $+ %color3 $+ , $+ %color3 $+ ||15,15|1,1||||| $+ %color4 $+ , $+ %color4 $+ ||15,15|1,1||||||
  msg $active 10  $+ %color1 $+ , $+ %color1 $+ ||15,15|1,1||||1,1|||| $+ %color2 $+ , $+ %color2 $+ ||15,15|1,1|||| $+ %color2 $+ , $+ %color2 $+ ||15,15|1,1||||| $+ %color3 $+ , $+ %color3 $+ ||15,15|1,1||||| $+ %color4 $+ , $+ %color4 $+ ||15,15|1,1||||||
  msg $active 10  $+ %color1 $+ , $+ %color1 $+ ||15,15|1,1||||1,1|||| $+ %color2 $+ , $+ %color2 $+ ||15,15|1,1|||| $+ %color2 $+ , $+ %color2 $+ ||15,15|1,1|| $+ %color3 $+ , $+ %color3 $+ ||||||||15,15|1,1|| $+ %color4 $+ , $+ %color4 $+ ||||||||15,15|
  unset %color1 | unset %color2 | unset %color3 | unset %color4
}