From ec1f79b44203735f581c7f85b6c23216aaf587a6 Mon Sep 17 00:00:00 2001 From: Astatin Date: Thu, 19 Sep 2024 18:56:32 +0900 Subject: Read action buttons and set it in the entity direction highest nibble --- entity/init.gbasm | 100 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 100 insertions(+) create mode 100644 entity/init.gbasm (limited to 'entity/init.gbasm') diff --git a/entity/init.gbasm b/entity/init.gbasm new file mode 100644 index 0000000..3c007b9 --- /dev/null +++ b/entity/init.gbasm @@ -0,0 +1,100 @@ +Initialize_Entities: + LD HL, $mem_entities_list + LD A, $01 + LD (HL+), A + + LD A, $mem_number_of_rooms + CALL =RNG_Bound + SLA A + SLA A + ADD $80 + LD C, A + + LD B, $c8 + + LD A, (BC) + LD D, A + INC BC + LD A, (BC) + INC A + CALL =RNG_Bound + ADD D + + LD (HL+), A + + INC BC + + LD A, (BC) + LD D, A + INC BC + LD A, (BC) + INC A + CALL =RNG_Bound + ADD D + LD (HL+), A + INC HL + LD BC, =Move_Bunny + LD A, B + LD (HL+), A + LD A, C + LD (HL+), A + INC HL + INC HL + + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + CALL =Initialize_Fox + +Fix_Bunny_screen: + LD A, $mem_bunny_x + SUB $05 + LD $mem_viewport_x, A + + LD A, $mem_bunny_y + SUB $04 + LD $mem_viewport_y, A + + LD A, $mem_viewport_x + SWAP A + AND $f0 + OR $08 + LD $reg_viewport_x, A + + LD A, $mem_viewport_y + SWAP A + AND $f0 + OR $08 + LD $reg_viewport_y, A + + RET + +Initialize_Fox: + LD A, $0d + LD (HL+), A + LD A, $mem_bunny_x + LD (HL+), A + LD A, $mem_bunny_y + LD (HL+), A + LD A, $03 + LD (HL+), A + LD BC, =Fox_AI + LD A, B + LD (HL+), A + LD A, C + LD (HL+), A + INC HL + INC HL + + RET -- cgit v1.2.3-70-g09d2