Alt health by calc84maniac (#5)

* Fix .healthLoop

Author: dmitry-shechtman

art/judge/judge_health.png

@@ -174,9 +174,9 @@ IF !DEF (JUDGE_HEALTH)
 	DEF JUDGE_HEALTH  EQU 0
 ENDC
 
-DEF T_HEALTH_EMPTY EQU $01
-DEF T_HEALTH_HALF  EQU $02
-DEF T_HEALTH_FULL  EQU $03
+DEF T_HEALTH_EMPTY EQU $02
+DEF T_HEALTH_HALF  EQU $03
+DEF T_HEALTH_FULL  EQU $04
 
 DEF MAP_HEALTH     EQU  TILEMAP1
 DEF ROW_HEALTH     EQU   0

inc/judge.inc

@@ -69,25 +69,43 @@ ENDR
 	add T_HEALTH_HALF
 	ld [MAP_HEALTH + ROW_HEALTH * TILEMAP_WIDTH + COL_HEALTH], a
 
-ELSE
+ELIF JUDGE_HEALTH == 2
 
-; Optimized by calc84maniac
+	; Optimized by calc84maniac
 	cpl
 	add MAX_HEALTH + 1
 	ld hl, MAP_HEALTH + ROW_HEALTH * TILEMAP_WIDTH + COL_HEALTH
 .healthLoop
 	sub 2
-	ld d, T_HEALTH_FULL
+	ld b, T_HEALTH_FULL
 	jr nc, .healthCont
-	add d                      ; T_HEALTH_EMPTY or T_HEALTH_HALF
-	ld d, a
+	add b                      ; T_HEALTH_EMPTY or T_HEALTH_HALF
+	ld b, a
 	xor a
 .healthCont
-	ld [hl], d
+	ld [hl], b
 	inc l
 	bit 2, l
 	jr z, .healthLoop
 
+ELSE
+
+	; Optimized by calc84maniac
+	sub MAX_HEALTH + 1
+	rra
+	ld b, a
+	ld hl, MAP_HEALTH + ROW_HEALTH * TILEMAP_WIDTH + COL_HEALTH
+	ld a, T_HEALTH_FULL
+.healthLoop
+	inc b
+	jr nz, .healthCont
+	adc -2					   ; T_HEALTH_EMPTY or T_HEALTH_HALF
+.healthCont
+	ld [hli], a
+	res 0, a				   ; Change T_HEALTH_HALF to T_HEALTH_EMPTY
+	bit 2, l
+	jr z, .healthLoop
+
 ENDC
 
 .wave