Advanced Healthbar

import:
	net.minecraft.server.v1_12_R1.NBTTagCompound
on packet event play_server_spawn_entity_living:
	set {_entity} to player's world pentity 0 of event-packet
	{_entity} is set
	put json "DataWatcher" pjson 0 of event-packet in listvar {_json1::*}
	set {_json1::2} to {_entity}.getName()
	set {_json1::3} to true
	set "DataWatcher" pjson 0 of event-packet to json from listvar {_json1::*}
	if {_entity} do not have metadata value "NameTagId":
		set metadata value "NameTagId" of {_entity} to id of {_entity}*-1
	set {_id} to metadata value "NameTagId" of {_entity}
	set {_packet1} to new play_server_spawn_entity packet
	set int pnum 0 of {_packet1} to {_id}
	set int pnum 6 of {_packet1} to 78
	set "UUID" pinfo 0 of {_packet1} to new uuid
	set double pnum 0 of {_packet1} to x-loc of {_entity}
	set double pnum 1 of {_packet1} to y-loc of {_entity}+0.3+({_entity}.getHeight())
	set double pnum 2 of {_packet1} to z-loc of {_entity}
	set {_packet2} to new play_server_entity_metadata packet
	set {_json2::0} to 32.byteValue()
	set {_json2::2} to "&8[%gaugeString(40, health of {_entity}, max health of {_entity}, ""|"", ""&7"", ""&a"")%&8]"
	set {_json2::3} to true
	set {_json2::5} to true
	set {_json2::11} to 17.byteValue()
	set int pnum 0 of {_packet2} to {_id}
	set "WatchableCollection" pjson 0 of {_packet2} to json from listvar {_json2::*}
	send player packet {_packet1}
	send player packet {_packet2}
on packet event play_server_named_entity_spawn:
	set {_entity} to player's world pentity 0 of event-packet
	{_entity} is set
	{_entity} is not player
	put json "DataWatcher" pjson 0 of event-packet in listvar {_json1::*}
	set {_json1::2} to {_entity}.getName()
	set {_json1::3} to true
	set "DataWatcher" pjson 0 of event-packet to json from listvar {_json1::*}
	if {_entity} do not have metadata value "NameTagId":
		set metadata value "NameTagId" of {_entity} to id of {_entity}*-1
	set {_id} to metadata value "NameTagId" of {_entity}
	set {_packet1} to new play_server_spawn_entity packet
	set int pnum 0 of {_packet1} to {_id}
	set int pnum 6 of {_packet1} to 78
	set "UUID" pinfo 0 of {_packet1} to new uuid
	set double pnum 0 of {_packet1} to x-loc of {_entity}
	set double pnum 1 of {_packet1} to y-loc of {_entity}+0.3+({_entity}.getHeight())
	set double pnum 2 of {_packet1} to z-loc of {_entity}
	set {_packet2} to new play_server_entity_metadata packet
	set {_json2::0} to 32.byteValue()
	set {_json2::2} to "&8[%gaugeString(40, health of {_entity}, max health of {_entity}, ""|"", ""&7"", ""&a"")%&8]"
	set {_json2::3} to true
	set {_json2::5} to true
	set {_json2::11} to 17.byteValue()
	set int pnum 0 of {_packet2} to {_id}
	set "WatchableCollection" pjson 0 of {_packet2} to json from listvar {_json2::*}
	send player packet {_packet1}
	send player packet {_packet2}
on packet event play_server_entity_metadata:
	set {_entity} to player's world pentity 0 of event-packet
	{_entity} is set
	{_entity} has metadata value "NameTagId"
	put json "WatchableCollection" pjson 0 of event-packet in listvar {_json::*}
	set {_json::2} to {_entity}.getName()
	set {_json::3} to true
	set "WatchableCollection" pjson 0 of event-packet to json from listvar {_json::*}
on packet event play_server_rel_entity_move:
	set {_entity} to player's world pentity 0 of event-packet
	{_entity} is set
	{_entity} has metadata value "NameTagId"
	set {_id} to metadata value "NameTagId" of {_entity}
	set {_packet::1} to new play_server_rel_entity_move packet
	set int pnum 0 of {_packet::1} to {_id}
	set int pnum 1 of {_packet::1} to int pnum 1 of event-packet
	set int pnum 2 of {_packet::1} to int pnum 2 of event-packet
	set int pnum 3 of {_packet::1} to int pnum 3 of event-packet
	loop getAllPassengers({_entity}):
		loop-value has metadata value "NameTagId"
		set {_id} to metadata value "NameTagId" of loop-value
		set {_packet} to new play_server_rel_entity_move packet
		set int pnum 0 of {_packet} to {_id}
		set int pnum 1 of {_packet} to int pnum 1 of event-packet
		set int pnum 2 of {_packet} to int pnum 2 of event-packet
		set int pnum 3 of {_packet} to int pnum 3 of event-packet
		add {_packet} to {_packet::*}
	loop {_packet::*}:
		send player packet loop-value
on packet event play_server_rel_entity_move_look:
	set {_entity} to player's world pentity 0 of event-packet
	{_entity} is set
	{_entity} has metadata value "NameTagId"
	set {_id} to metadata value "NameTagId" of {_entity}
	set {_packet::1} to new play_server_rel_entity_move packet
	set int pnum 0 of {_packet::1} to {_id}
	set int pnum 1 of {_packet::1} to int pnum 1 of event-packet
	set int pnum 2 of {_packet::1} to int pnum 2 of event-packet
	set int pnum 3 of {_packet::1} to int pnum 3 of event-packet
	loop getAllPassengers({_entity}):
		loop-value has metadata value "NameTagId"
		set {_id} to metadata value "NameTagId" of loop-value
		set {_packet} to new play_server_rel_entity_move packet
		set int pnum 0 of {_packet} to {_id}
		set int pnum 1 of {_packet} to int pnum 1 of event-packet
		set int pnum 2 of {_packet} to int pnum 2 of event-packet
		set int pnum 3 of {_packet} to int pnum 3 of event-packet
		add {_packet} to {_packet::*}
	loop {_packet::*}:
		send player packet loop-value
on packet event play_server_entity_teleport:
	set {_entity} to player's world pentity 0 of event-packet
	{_entity} is set
	{_entity} has metadata value "NameTagId"
	set {_id} to metadata value "NameTagId" of {_entity}
	set {_packet::1} to new play_server_entity_teleport packet
	set int pnum 0 of {_packet::1} to {_id}
	set double pnum 0 of {_packet::1} to double pnum 0 of event-packet
	set double pnum 1 of {_packet::1} to double pnum 1 of event-packet+0.3+({_entity}.getHeight())
	set double pnum 2 of {_packet::1} to double pnum 2 of event-packet
	loop getAllPassengers({_entity}):
		loop-value has metadata value "NameTagId"
		set {_id} to metadata value "NameTagId" of loop-value
		set {_packet} to new play_server_entity_teleport packet
		set int pnum 0 of {_packet} to {_id}
		set double pnum 0 of {_packet} to double pnum 0 of event-packet
		set double pnum 1 of {_packet} to y-loc of loop-value+0.3+(loop-value.getHeight())
		set double pnum 2 of {_packet} to double pnum 2 of event-packet
		add {_packet} to {_packet::*}
	loop {_packet::*}:
		send player packet loop-value
on packet event play_server_entity_destroy:
	set {_originalintarray::*} to int array pnum 0 of event-packet
	set {_intarray::*} to int array pnum 0 of event-packet
	loop {_originalintarray::*}:
		loop-value >= 0
		add loop-value*-1 to {_intarray::*}
	set int array pnum 0 of event-packet to {_intarray::*}
on damage:
	victim has metadata value "NameTagId"
	set {_id} to metadata value "NameTagId" of victim
	wait 1 tick
	set {_packet} to new play_server_entity_metadata packet
	set {_json::2} to "&8[%gaugeString(40, health of victim, max health of victim, ""|"", ""&7"", ""&a"")%&8]"
	set int pnum 0 of {_packet} to {_id}
	set "WatchableCollection" pjson 0 of {_packet} to json from listvar {_json::*}
	send all players packet {_packet}
on heal:
	event-entity has metadata value "NameTagId"
	set {_id} to metadata value "NameTagId" of event-entity
	wait 1 tick
	set {_packet} to new play_server_entity_metadata packet
	set {_json::2} to "&8[%gaugeString(40, health of event-entity, max health of event-entity, ""|"", ""&7"", ""&a"")%&8]"
	set int pnum 0 of {_packet} to {_id}
	set "WatchableCollection" pjson 0 of {_packet} to json from listvar {_json::*}
	send all players packet {_packet}
on death:
	victim is not a player
	victim has metadata value "NameTagId"
	set {_id} to metadata value "NameTagId" of victim
	set {_packet} to new play_server_entity_destroy packet
	set int array pnum 0 of {_packet} to {_id}
	set {_compound} to new NBTTagCompound()
	victim.getHandle().b({_compound})
	set {_deathmotiontime} to 19-({_compound}.getShort("DeathTime"))
	if {_deathmotiontime} > 0:
		loop {_deathmotiontime} times:
			wait 1 tick
	send all players packet {_packet}
function gaugeString(length: integer, value: number, max: number, char: string, colorcode1: string, colorcode2: string) :: string:
	set {_rate} to {_value}/{_max}
	if {_rate} > 1:
		set {_rate} to 1
	add colored {_colorcode2} to {_gauge::*}
	loop round({_length}*{_rate}) times:
		add {_char} to {_gauge::*}
	add colored {_colorcode1} to {_gauge::*}
	loop {_length}-round({_length}*{_rate}) times:
		add {_char} to {_gauge::*}
	return join {_gauge::*}
function getAllPassengers(entity: entity) :: entities:
	add passengers of {_entity} to {_passengers::*}
	loop {_passengers::*}:
		add getAllPassengers(loop-value) to {_passengers::*}
	return {_passengers::*}