-
Notifications
You must be signed in to change notification settings - Fork 0
/
teleport.inc
123 lines (102 loc) · 1.29 KB
/
teleport.inc
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
procedure teleportAnimation;
const
tele_L : array [0..15] of byte = (
0,
0,
%00100000,
%00100000,
0,
0,
%00100000,
%00100000,
0,
0,
%00100000,
%00100000,
0,
0,
%00100000,
%00100000
);
tele_Lx : array [0..15] of byte = (
0,
%00000100,
0,
0,
0,
%00000100,
0,
0,
0,
%00000100,
0,
0,
0,
%00000100,
0,
0
);
tele_R : array [0..15] of byte = (
0,
0,
%00000100,
%00000100,
0,
0,
%00000100,
%00000100,
0,
0,
%00000100,
%00000100,
0,
0,
%00000100,
%00000100
);
tele_Rx : array [0..15] of byte = (
0,
%00100000,
0,
0,
0,
%00100000,
0,
0,
0,
%00100000,
0,
0,
0,
%00100000,
0,
0
);
var
frm, frm_, frm2, frm2_: word;
i, y,z: byte;
p: PByte register;
q: PByte register;
begin
y := hi(frm) and 7;
z := hi(frm2) and 7;
p:=pointer(fnt+15*8); // char #15
q:=pointer(fnt+16*8); // char #16
for i:=7 downto 0 do begin
p[i]:=tele_L[y+i] or tele_Lx[z+i];
q[i]:=tele_R[y+i] or tele_Rx[z+i];
end;
inc(frm, $80);
dec(frm2,$40);
// -------------------------------
y := hi(frm_) and 7;
z := hi(frm2_) and 7;
p:=pointer(fnt+71*8); // char #71
q:=pointer(fnt+72*8); // char #72
for i:=7 downto 0 do begin
p[i]:=tele_L[y+i] or tele_Lx[z+i];
q[i]:=tele_R[y+i] or tele_Rx[z+i];
end;
dec(frm_, $80);
inc(frm2_,$40);
end;