1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
Initialize_Bunny:
LD A, $20
LD ($80), A
LD A, $20
LD ($81), A
RET
Move_Bunny:
LD A, ($83)
CP $00
JR NZ, =Move_Bunny.check_direction
LD A, ($82)
LD ($83), A
CP $00
JR Z, =Move_Bunny.end
Move_Bunny.check_direction:
LD ($85), A
DEC A
LD B, $01
BIT 0, A
JR NZ, =Move_Bunny.check_direction_end
LD B, $FF
Move_Bunny.check_direction_end:
BIT 1, A
JR NZ, =Move_Bunny.vertical_move
Move_Bunny.horizontal_move:
LD A, ($81)
ADD B
LD ($81), A
JP =Move_Bunny.check_end_of_movement
Move_Bunny.vertical_move:
LD A, ($80)
ADD B
LD ($80), A
Move_Bunny.check_end_of_movement:
AND $0f
LD ($84), A
JR NZ, =Move_Bunny.end
LD ($83), A
Move_Bunny.end:
RET
Display_Bunny: ; X position in $81, Y position in $80
LD A, ($81)
LD B, A
LD A, ($80)
LD C, A
LD A, ($84)
SUB $08
BIT 7, A
JR Z, =Display_Bunny.Hop_ABS1_end
; Adding hop animation to Y
XOR $ff
INC A
Display_Bunny.Hop_ABS1_end:
SUB $04
BIT 7, A
JR Z, =Display_Bunny.Hop_ABS2_end
XOR $ff
INC A
Display_Bunny.Hop_ABS2_end:
ADD C
LD C, A
; X flip
LD A, ($85)
CP $02
LD E, $01
LD D, $00
JR NZ, =Display_Bunny.Write_OBJ
LD D, $20
LD E, $03
Display_Bunny.Write_OBJ:
; First OBJ (left)
LD HL, $FE00
LD A, C
LD (HL+), A
LD A, B
LD (HL+), A
LD A, E
LD (HL+), A
LD A, D
LD (HL+), A
; Second OBJ
LD A, B
ADD $08
LD B, A
LD A, C
LD (HL+), A
LD A, B
LD (HL+), A
LD A, E
XOR $02
LD (HL+), A
LD A, D
LD (HL+), A
RET
|
