Rev 922 | Details | Compare with Previous | Last modification | View Log
Rev | Author | Line No. | Line |
---|---|---|---|
228 | demige | 1 | DEVICE ZXSPECTRUM1024 |
2 | ;���� 0-7 |
||
3 | |||
4 | LEVDAT EQU #79C0 ;���. ��� ������ ��� |
||
5 | ORG LEVDAT |
||
6 | begin |
||
7 | ;****************************************************** |
||
8 | ;********* ���������� ��������� ������ **************** |
||
9 | |||
10 | isRUNL RET ;#C9 - ����� ����, ���� ������ ���� |
||
11 | |||
12 | ;--------�ࠪ���⨪� ��-------(0)-������� ���砫� |
||
13 | |||
14 | ;��ࠬ���� ����饣� |
||
15 | hTOWER DEFB 3 ;���.� ⨯�� ����� (1-4) |
||
16 | hARC DEFB 0 ;0-2 (0) |
||
17 | hHORSE DEFB 0 ;0-3 (0) |
||
18 | hSHILD DEFB 0 ;0-2 (0) |
||
19 | hBLADE DEFB 0 ;0-2 (0) |
||
20 | hmaxC DEFB 2 ;1-3 �c�� ������� �cc� ���� ��� |
||
21 | hmaxW DEFB 1 ;1-3 � --"-- ���� ���� |
||
22 | |||
23 | ;�������⥫�� ��ࠬ���� ����饣� |
||
24 | hmaxB1 DEFB 2 ;���� � �⠭���� ������ (0 ��� 1-2) |
||
25 | hmaxB2 DEFB 3 ;ma�c � ��� ������ (0, 1-4) |
||
26 | hWALL DEFB 0 ;0/17 - �����/����� ��ந�� �⥭� |
||
27 | |||
28 | ;��ࠬ���� �������� |
||
29 | kTOWER DEFB 3 ;1-4 |
||
30 | kARC DEFB 0 ;0-2 |
||
31 | kHORSE DEFB 1 ;0-3 |
||
32 | kSHILD DEFB 0 ;0-2 |
||
33 | kBLADE DEFB 0 ;0-2 |
||
34 | kmaxC DEFB 1 ;1,3 �c�� �cc� ���� (0-��� ���) |
||
35 | kmaxW DEFB 0 ;1..3 �c�� �cc� ���� (0-��� ����) |
||
36 | |||
37 | ;----------- ��ࠬ���� ���⥣�� �ࠣ� ---------------- |
||
38 | ;/wSTRATEG (1.��.��� - 8⨪) |
||
39 | levMAX DEFB 4 ;���� � ��த� � ��㯯� (��� ���) = 1..10 |
||
40 | levDEL DEFB 57 ;�।� ����প� ���� ᡮࠬ� (��� ���) = 1..X |
||
41 | lev1ST DEFB 242 ;��� ����প� ��ࢮ�� ᡮ� = 1.. |
||
42 | ;��� ��� 0 ;����� |
||
43 | ;��� ��� 1 ;�⠪����� ��࠭��� �⠭������ �⠪��騬 |
||
44 | ;��� ��� 2 ;�. ⨯ 1 + ��࠭���� ������ ���� � �⠪� |
||
45 | levTYP DEFB 0 ;⨯ ��� (0-�����) |
||
46 | ;-------- 梥⮢� ����ன�� ------- |
||
47 | COLOR DEFB #28 ;梥� ���� |
||
48 | |||
49 | ;-------- ��騥 ��ࠬ���� ��� ----- |
||
50 | MASTER DEFB 0 ; �� ��ࠥ� 0/1 - �?�㭣� |
||
51 | LEVEL DEFB 7 ; ����� ��� |
||
52 | MONEY DEFB 0,0,1,0,0,0 ;���죨 |
||
53 | WOOD DEFB 0,0,0,5,0,0 ;��c |
||
54 | TASK_M ;�������: 3 ��ப� �� 20+1 ᨬ����� = 63 |
||
55 | incbin "../task/w107.tsk" |
||
56 | LEVRES DEFB 0,0,0,43,0,0,127 ;⥪�饥 �६� ��宦����� |
||
57 | |||
58 | ;------- �ᯮ��㥬� 䠩�� ------- |
||
59 | |||
60 | fsLAND DEFB 1; 1-4 |
||
61 | fsMUS DEFB 1; 0-7 |
||
62 | |||
63 | |||
64 | ;****************** ���樠�����㥬� ��६���� **************** |
||
65 | ;--------------- (�室�� � ���ᠭ�� ������� ���) ------------ |
||
66 | ;/��࠭� ��ந |
||
67 | SEL_T DEFB 0 ;0-none;1-����;2-6-group;7-�㭣,8-������ |
||
68 | SEL_N DEFB 0,0,0,0,0,0 ;����� 6 ��� ���/�� |
||
69 | |||
70 | sel_en DEFB #FF ;��࠭�� �ࠣ-楫� |
||
71 | sel_ti DEFB 0 ;�६� �⮡ࠦ���� 楫� |
||
72 | |||
73 | ;/outLED |
||
74 | LED DEFB 4,3,4,3,4,3 |
||
75 | |||
76 | ;/putTX |
||
77 | _msg DEFB #FF |
||
78 | pTX_AD DEFW 0;WNAMES |
||
79 | TX_AD DEFW 0;WNAMES |
||
80 | pTXdel DEFB 0 ;t ����প� �� �� ��c�� c���� |
||
81 | |||
82 | ;/M_PLAT |
||
83 | isPLAT DEFB 0; 0/1-����/��� ���頤�� |
||
84 | szPLAT DEFB 0; ࠧ��� ���頤�� ��� ���-�� (1..3, 0-���) |
||
85 | bcPLAT DEFW 0; ࠧ���� |
||
86 | adPLAT DEFW 0; ������ in ATR |
||
87 | waPLAT DEFB 0; � �⥭� - 1 |
||
88 | |||
89 | ;/PAUSE |
||
90 | onPAUS DEFB 1 ;0-������� ���� |
||
91 | |||
92 | ;/SOUNDn |
||
93 | NOTA DEFW se ;⥪�� ��� |
||
94 | se DEFW #FFFF ;����� |
||
95 | levSND DEFB 0 ;0-���� ������ |
||
96 | sIY56 DEFW 0 ;���न���� ᭠�冷� |
||
97 | priv_S DEFB 0 ;⥪�� �ਮ��� (0-��� �������) |
||
98 | NOTA2 DEFW se ;��� ����� ������� |
||
99 | priv_2 DEFB 0 ;��� �ਮ� |
||
100 | |||
101 | ;/STRATEG - variables |
||
102 | pntX DEFB 32 ;-���� �.ᡮ� |
||
103 | pntY DEFB 31 ;-/ |
||
104 | pntNUM DEFB 0 ;-� ��⠢���� �� ���� ᡮ� ������ (0-����� ᡮ�, 255-��� ᡮ�) |
||
105 | pntDEL DEFB 22 ;-�६� �� ���.� ᡮ�/����প� �� ��-�� ����� |
||
106 | pntTAR DEFB #FF ;-��ꥪ� �⠪� (0-101 - �����, #80.. -������, #FF-���) |
||
107 | pntUNI DEFB 0 ;-���� ࠧ��த��/����த�� (0/member typ) |
||
108 | pntEN DEFB 0,0,0,0,0,0 |
||
109 | ;-ࠧ�� ��-�� ���� (3..8) (0-���) |
||
110 | pntMAN DEFB 0 ;⨯ ��ࠦ������� ����� |
||
111 | |||
112 | ;/isEND |
||
113 | END_1 DEFB 0 ;0/1/2-none/��� �ࠣ��/��� �� |
||
114 | END_2 DEFB 0 ;��0-���� ���� � ����� |
||
115 | TheEND DEFB 0 ;0/1/2-none/������ ��/������ �ࠣ�� (��⠭��� � _cLOOP) |
||
116 | ;-----------(१��)------------- |
||
117 | dummy DEFS 6,0 |
||
118 | ;-----------��楤���------------ |
||
119 | pcLOOP JR _cLOOP |
||
120 | pcINI ;���⮢�� ��楤�� |
||
121 | RET |
||
122 | ;_cLOOP ;��楤�� ����砭�� ��� ����� |
||
123 | ; LD A,(END_2) |
||
124 | ; OR A |
||
125 | ; JR NZ,_cLO1 |
||
126 | ; LD A,(END_1) |
||
127 | ; CP 1 |
||
128 | ; RET Z |
||
129 | ;_cLO1 LD (TheEND),A |
||
130 | ; RET |
||
131 | tst4OK DEFB #11 ;0-���� ��७� |
||
132 | _cLOOP ;�⠭���⭠� ��� ����砭�� |
||
133 | LD A,(END_1) |
||
134 | LD (TheEND),A |
||
135 | if 1==0 |
||
136 | ;-----p0 ���� 4 |
||
137 | LD A,(tst4OK) |
||
138 | OR A |
||
139 | RET Z |
||
140 | LD A,R |
||
141 | AND %111011 |
||
142 | RET NZ |
||
143 | XOR A |
||
144 | LD (tst4OK),A |
||
145 | TST#4 ;XOR A ;[**] |
||
146 | LD HL,#C000 |
||
147 | LD BC,#3400 |
||
148 | tst40 ADD A,(HL) |
||
149 | RLCA |
||
150 | INC HL |
||
151 | DEC C |
||
152 | JR NZ,tst40 |
||
153 | DEC B |
||
154 | JR NZ,tst40 |
||
155 | LD HL,#7650 |
||
156 | CP (HL) |
||
157 | RET Z |
||
158 | LD A,37 |
||
159 | LD (KUNGE+13),A ;err |
||
160 | LD (KUNGE+32),HL |
||
161 | endif |
||
162 | RET |
||
163 | |||
164 | ;------ ���㫥��� �᭮���� ������� ������ --- |
||
165 | |||
166 | DEFS #7AA0-$,#27 |
||
167 | BULL DEFS 24*12 ;from #7AA0 |
||
168 | MINE DEFS 8*8 ;from #7BC0 |
||
169 | HBUILD DEFS 32*8 ;from #7C00 |
||
170 | KBUILD DEFS 32*8 ;from #7D00 |
||
171 | BUF512 EQU #7E00; ����512 ;from #7E00 |
||
172 | MAP EQU #8000; DEFS #1000 ;from #8000 |
||
173 | MAP2 EQU #9000; DEFS #1000 ;from #9000 |
||
174 | DSCR EQU #A000; DEFS #1800 ;from #A000 |
||
175 | HUMAN EQU #B800; DEFS 48*16 ;from #B800 |
||
176 | KUNGE EQU #BB00; DEFS 48*16 ;from #BB00 |
||
177 | SLAVE EQU #BE00; DEFS 6*16 ;from #BE00 |
||
178 | XY EQU #BE60; DEFS 102*4 ;from #BE60 |
||
179 | ;NEXT EQU #BFF8; nop |
||
180 | |||
181 | ;��� ���2: |
||
182 | ;0-�.����, 1-�࠭��, 2 -����� |
||
183 | ;#38-#3F ���� |
||
184 | ;#40-#5F ������ �� |
||
185 | ;#60-#7F ������ �㭣�� |
||
186 | ;#80-#AF � |
||
187 | ;#B0-#DF �㭣� |
||
188 | ;#E0-#FF �������� |
||
189 | |||
190 | |||
191 | ;------------------------------------------------------------ |
||
192 | ;--------- ����� ��� ----- (4096+512 ��७����� �� BUF512) |
||
193 | |||
194 | datMIN DEFW 190,270,380,95,9,9,9,9 ;����� ��� ���/100 |
||
195 | ;0-祩 (255-�����), 1-⨯, 2/3-XY,4-none |
||
196 | |||
197 | ;------ ���ᠭ�� ��� � ����� --- |
||
198 | |||
199 | datHER |
||
200 | incbin "../map/w107_s1.her" |
||
201 | incbin "../map/w107_s1.map" |
||
202 | |||
203 | ;-------���⨭��----- |
||
204 | datSCR |
||
205 | incbin "../barkov/horse.scr" |
||
206 | |||
207 | ;---------------------------------- |
||
208 | end |
||
930 | alone | 209 | savebin "br/br107.dat",begin,end-begin ;in current dir (not in dir of this source) |