aboutsummaryrefslogtreecommitdiff
path: root/attacks.gbasm
blob: 607bbf90460352eb4cce75382f2cf0b55663031a (plain)
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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
Preload_Map_Hop:
	LD A, $mem_loading_step
	LD C, A
	; Getting the +1/-1 value of the direction to B
	LD A, $mem_bunny_direction
	AND $07
	DEC A
	AND $01
	SLA A
	DEC A
	LD B, A

	LD A, $mem_bunny_direction
	AND $07
	DEC A

	BIT 1, A
	JR NZ, =Preload_Map_Hop.Map_Load.vertical

	Preload_Map_Hop.Map_Load.horizontal:
		CALL =Load_Next_Block_Column
		JR =Preload_Map_Hop.Map_Load.End

	Preload_Map_Hop.Map_Load.vertical:
		CALL =Load_Next_Block_Row

	Preload_Map_Hop.Map_Load.End:
RET

Hop_Attack_Loading_VBlank:
	LD A, $mem_current_mode
	CP $enum_loading_mode
	RET NZ

	LD A, $mem_loading_step
	CP $00
	JP Z, =Hop_Attack_Loading_VBlank.Skip_Display_Block

	LD A, $mem_map_loading_flags
	BIT 2, A
	RET Z

	CALL =Display_Prepared_Block

	LD A, $mem_prepared_loading_block_tile
	LD $mem_prepared_block_tile, A
	LD A, $mem_prepared_loading_block_position_1
	LD $mem_prepared_block_position_1, A
	LD A, $mem_prepared_loading_block_position_2
	LD $mem_prepared_block_position_2, A

	LD A, $mem_map_loading_flags
	SET 2, A
	LD $mem_map_loading_flags, A

	CALL =Display_Prepared_Block

	LD A, $mem_bunny_direction
	AND $07
	LD D, A
	LD A, $mem_viewport_x
	LD B, A
	LD A, $mem_viewport_y
	LD C, A
	LD A, $02
	.ADD_A_TO_DIRECTION_BC
	LD A, B
	LD $mem_viewport_x, A
	LD A, C
	LD $mem_viewport_y, A

	CALL =Display_Object

	LD A, $mem_bunny_direction
	AND $07
	LD D, A
	LD A, $mem_viewport_x
	LD B, A
	LD A, $mem_viewport_y
	LD C, A
	LD A, $FE
	.ADD_A_TO_DIRECTION_BC
	LD A, B
	LD $mem_viewport_x, A
	LD A, C
	LD $mem_viewport_y, A



	Hop_Attack_Loading_VBlank.Skip_Display_Block:

	LD A, $mem_loading_step
	INC A
	AND $0f
	LD $mem_loading_step, A
	CP $00
	RET NZ

	LD A, $enum_dungeon_mode
	LD $mem_current_mode, A
	LD $mem_requested_mode, A
	LD A, $mem_bunny_direction
	AND $07
	OR $38
	LD $mem_bunny_direction, A
	LD A, $mem_map_loading_flags
	SET 3, A
	LD $mem_map_loading_flags, A
	LD A, $mem_bunny_flags
	SET 0, A
	LD $mem_bunny_flags, A
	RET

Hop_Attack_Loading_Regular:
	LD A, $mem_current_mode
	CP $enum_loading_mode
	RET NZ

	CALL =Preload_Map_Hop

	LD A, $mem_prepared_block_tile
	LD $mem_prepared_loading_block_tile, A
	LD A, $mem_prepared_block_position_1
	LD $mem_prepared_loading_block_position_1, A
	LD A, $mem_prepared_block_position_2
	LD $mem_prepared_loading_block_position_2, A

	LD A, $mem_bunny_direction
	AND $07
	LD D, A
	LD A, $mem_viewport_x
	LD B, A
	LD A, $mem_viewport_y
	LD C, A
	LD A, $01
	.ADD_A_TO_DIRECTION_BC
	LD A, B
	LD $mem_viewport_x, A
	LD A, C
	LD $mem_viewport_y, A

	CALL =Preload_Map_Hop

	LD A, $mem_bunny_direction
	AND $07
	LD D, A
	LD A, $mem_viewport_x
	LD B, A
	LD A, $mem_viewport_y
	LD C, A
	LD A, $FF
	.ADD_A_TO_DIRECTION_BC
	LD A, B
	LD $mem_viewport_x, A
	LD A, C
	LD $mem_viewport_y, A

	RET