Refactoring the animations/directions + entities turn function with macros + finishing froge

1 files changed, 36 insertions, 123 deletions

diff --git a/entity/cat.gbasm b/entity/cat.gbasm
index 655fd1b..13f7be3 100644
--- a/entity/cat.gbasm
+++ b/entity/cat.gbasm
@@ -1,3 +1,31 @@
+Cat_Drop:
+	PUSH DE
+	LD E, $02
+	CALL =Check_attack_already_learnt
+	CP $01
+	JR Z, =.drops.hp_regen_item
+
+	.drops.attack_item:
+	LD D, $6C
+	LD E, $04
+	CALL =RNG_Step
+	AND $03
+	CP $00
+	CALL Z, =Spawn_object
+	JR =.drops.end
+
+	.drops.hp_regen_item:
+	LD D, $64
+	LD E, $02
+	CALL =RNG_Step
+	AND $03
+	CP $00
+	CALL Z, =Spawn_object
+
+	.drops.end:
+	POP DE
+	RET
+
 Cat_Turn:
 	LD A, $mem_map_loading_flags
 	BIT 3, A
@@ -14,132 +42,17 @@ Cat_Turn:
 	LD A, (HL+)
 	LD D, A
 
-	.Health_check:
-		LD A, L
-		AND $f0
-		ADD $06
-		LD L, A
-
-		LD A, (HL)
-		CP $00
-		JR NZ, =.Health_check.end
-
-		LD A, L
-		AND $f0
-		LD L, A
-
-		LD (HL), $00
-		LD A, $mem_enemies_alive_count
-		DEC A
-		LD $mem_enemies_alive_count, A
-
-		; Drop when deadged
-		PUSH DE
-		LD E, $02
-		CALL =Check_attack_already_learnt
-		CP $01
-		JR Z, =.drops.hp_regen_item
-
-		.drops.attack_item:
-		LD D, $6C
-		LD E, $04
-		CALL =RNG_Step
-		AND $03
-		CP $00
-		CALL Z, =Spawn_object
-		JR =.drops.end
-
-		.drops.hp_regen_item:
-		LD D, $64
-		LD E, $02
-		CALL =RNG_Step
-		AND $03
-		CP $00
-		CALL Z, =Spawn_object
-
-		.drops.end:
-		POP DE
-
-		JP =.Skip_turn
-	.Health_check.end:
-
-	.Freeze_shiver:
-		LD A, $mem_moving_animation_step
-		CP $00
-		JP NZ, =.Freeze_shiver.end
-		LD A, L
-		AND $f0
-		ADD $08
-		LD L, A
-		LD A, $01
-		CP (HL)
-		JR NZ, =.Freeze_shiver.end
-		LD A, D
-		AND $07
-		LD D, A
-		CALL =RNG_Step
-		CP $55
-		JP NC, =.Skip_turn
-		LD A, D
-		OR $40
-		LD D, A
-
-		CALL =RNG_Step
-		CP $55
-		JP NC, =.Skip_turn
-
-		LD A, $00
-		LD (HL-), A
-		RES 1, (HL)
-		JP =.Skip_turn
-	.Freeze_shiver.end:
-
-	.Should_turn_be_skipped:
-		LD A, L
-		AND $f0
-		ADD $08
-		LD L, A
-
-		BIT 0, (HL)
-		JP NZ, =.Skip_turn
-
-	.Start_action_or_movement:
-		LD A, $mem_moving_animation_step
-		CP $00
-		JP NZ, =.Start_action_or_movement.end
-
-		LD A, L
-		AND $f0
-		OR $07
-		LD L, A
-		RES 3, (HL)
-
-		.Try_Basic_Attack:
-		CALL =Check_player_next_to
-		LD A, E
-		CP $00
-		JR Z, =.Try_Walking
-		CALL =Basic_Enemy_Attack
-
-		JR =.Start_action_or_movement.end
+	.ENTITY_HEALTH_CHECK =.Skip_turn =Cat_Drop
+	.ENTITY_FREEZE_SHIVER =.Skip_turn
+	.ENTITY_STATUS_SKIP_TURN =.Skip_turn
 
-		.Try_Walking:
-		CALL =Walking
-	.Start_action_or_movement.end:
+	.RESET_BLINKING_MODE
 
-	.End_movement:
-		LD A, $mem_moving_animation_step
-		CP $0f
-		JP NZ, =.End_movement.end
+	.ENTITY_TRY_ATTACK =Check_player_next_to =Basic_Enemy_Attack =.attack_end
+	CALL =Walking
+	.attack_end:
 
-		LD A, D
-		AND $07
-		BIT 3, D
-		LD D, A
-		JR Z, =.End_movement.end
-		LD A, $01
-		.ADD_A_TO_DIRECTION_BC
-	.End_movement.end:
+	CALL =Entity_End_movement
 
 	.Skip_Turn:
 	LD A, L