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
|
Get_Position_After_Move: ; entity (whatever alignement) in HL, direction to test in A, X Result in C, Y result in B
PUSH HL
PUSH AF
LD A, L
AND $f0
LD L, A
INC HL
LD A, (HL+)
LD C, A
LD A, (HL+)
LD B, A
POP AF
BIT 3, A
JR Z, =Get_Position_After_Move.direction_end
PUSH BC
DEC A
LD B, A
SLA A
AND $02
DEC A
BIT 1, B
JR NZ, =Get_Position_After_Move.vertical
Get_Position_After_Move.horizontal:
POP BC
ADD C
LD C, A
JR =Get_Position_After_Move.direction_end
Get_Position_After_Move.vertical:
POP BC
ADD B
LD B, A
Get_Position_After_Move.direction_end:
POP HL
RET
.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
|
