From fb689cdc68b8d1da3d988da43671bd0ddb063e88 Mon Sep 17 00:00:00 2001 From: Astatin Date: Tue, 29 Apr 2025 09:27:37 +0200 Subject: add earcopter + freeze as learned items + fix collision after item pick up --- entity/cat.gbasm | 41 ++++++----------------------------------- 1 file changed, 6 insertions(+), 35 deletions(-) (limited to 'entity/cat.gbasm') diff --git a/entity/cat.gbasm b/entity/cat.gbasm index 1ddaac0..23d1510 100644 --- a/entity/cat.gbasm +++ b/entity/cat.gbasm @@ -33,42 +33,13 @@ Cat_Turn: DEC A LD $mem_enemies_alive_count, A - CALL =RNG_Step - AND $07 - CP $00 - JR NZ, =.skip_spawn_loot - PUSH HL - CALL =Find_Free_Object_slot - LD A, $80 - CP L - JR Z, =.skip_spawn_loot_pop_hl - - LD A, $6C - LD (HL+), A - LD A, B - LD (HL+), A - LD A, C - LD (HL+), A - CALL =Check_other_object_collision - CP $00 - JR NZ, =.skip_spawn_loot_pop_hl - LD A, L - AND $f8 - ADD $03 - LD L, A - LD (HL), $04 - LD A, L - SRA A - SRA A - SRA A - SUB $01 - LD $mem_object_load_counter, A - - .skip_spawn_loot_pop_hl: - POP HL - .skip_spawn_loot: + PUSH DE + LD D, $6C + LD E, $04 + CALL =Spawn_object + POP DE - JP NZ, =.Skip_turn + JP =.Skip_turn .Health_check.end: .Freeze_shiver: -- cgit v1.2.3-70-g09d2