Imperian Enemy Health Bar for CMud v2.0

Regex Pattern:

^Damage dealt: (\d+) Remaining: (\d+)\.(\d+)\%.*$

Script Text:

#GAG
$l = ((%2 / 10) + 1)
$d = (10 - $l)
#IF (%2 = 0) {
  $l = 0
  $d = 10
  }
#SAY %ansi( 4)Damage dealt~: %ansi( 7)%1 Remaining~: %ansi( 6)~[%ansi( 7)%if($l < 4,%ansi(12),%if($l > 7,%ansi(10),%ansi(14)))%repeat( "|", $l)%if($d = 10,%ansi(12),%ansi( 3))%repeat( "-", $d)%ansi( 6)~] %ansi( 7)%2~.%3~%