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
|
.MACRODEF ADD_A_TO_DIRECTION_BC ; Direction in D, XY in BC (muted), offset in A
PUSH AF
LD A, D
AND $07
CP $enum_direction_down
JR Z, =$down
CP $enum_direction_right
JR Z, =$right
CP $enum_direction_up
JR Z, =$up
$left:
POP AF
XOR $ff
INC A
ADD B
LD B, A
JR =$end
$right:
POP AF
ADD B
LD B, A
JR =$end
$up:
POP AF
XOR $ff
INC A
ADD C
LD C, A
JR =$end
$down:
POP AF
ADD C
LD C, A
$end:
.END
Get_Position_After_Move: ; entity (whatever alignement) in HL, direction to test in A, XY result in BC, E being how much tile entity will move
PUSH HL
PUSH DE
LD D, A
LD A, L
AND $f0
LD L, A
INC HL
LD A, (HL+)
LD B, A
LD A, (HL+)
LD C, A
INC HL
INC HL
INC HL
INC HL
LD E, (HL)
BIT 0, E
LD A, $01
JR Z, =Get_Position_After_Move.Normal_Speed
LD A, $02
Get_Position_After_Move.Normal_Speed:
BIT 3, D
JR Z, =Get_Position_After_Move.Skip_Move
.ADD_A_TO_DIRECTION_BC
Get_Position_After_Move.Skip_Move:
POP DE
POP HL
RET
Entity_idx_to_entity_list_ptr: ; loaded idx in A, return in BC
PUSH DE
LD D, high($mem_loaded_entities_indices)
LD E, low($mem_loaded_entities_indices)
ADD E
LD E, A
LD A, (DE)
LD C, A
LD B, $00
SLA C
RL B
SLA C
RL B
SLA C
RL B
LD A, C
ADD low(=Entity_list)
LD C, A
LD A, B
ADC high(=Entity_list)
LD B, A
POP DE
RET
|
