?login_element?

Subversion Repositories NedoOS

Rev

Rev 922 | Blame | Compare with Previous | Last modification | View Log | Download

  1.         DEVICE ZXSPECTRUM1024
  2. ;уровень ku-13
  3. ;*D-
  4. LEVDAT  EQU     #79C0 ;адр. нач данных уровня
  5.         ORG     LEVDAT
  6. begin
  7. ;******************************************************
  8. ;********* ГЛОБАЛЬНЫЕ ПАРАМЕТРЫ УРОВНЯ ****************
  9.  
  10. isRUNL  RET ;#C9 - обычный уровень, иначе кодовый блок
  11.  
  12. ;--------характеристики сторон-------(0)-обнулять вначале
  13.  
  14. ;параметры играющего
  15. hTOWER  DEFB 4 ;мак.число типов вооруж (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 3 ;1-3 чиcло возможн иccл закл свящ
  21. hmaxW   DEFB 2 ;1-3 число  --"-- закл волш
  22.  
  23. ;дополнительные параметры играющего
  24. hmaxB1  DEFB 2 ;макс число стандарт зданий (0 или 1-2)
  25. hmaxB2  DEFB 4 ;maкc число доп эданий (0, 1-4)
  26. hWALL   DEFB +17 ;0/17 - можно/нельзя строить стены
  27.  
  28. ;параметры компьютера
  29. kTOWER  DEFB 4 ;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 3 ;1,3 чиcло иccл закл (0-нет свящ)
  35. kmaxW   DEFB 2 ;1..3 чиcло иccл закл (0-нет волш)
  36.  
  37. ;----------- параметры стратегии врага ----------------
  38. ;/wSTRATEG
  39. levMAX  DEFB 6   ;макс число народу в группе (для уровня) = 1..10
  40. levDEL  DEFB 55  ;средн задержка межд сборами (для уровня) = 1..X
  41. lev1ST  DEFB 105   ;нач задержка первого сбора = 1..
  42.  ;Тип уровня 0 ;обычный
  43.  ;Тип уровня 1 ;атакованый охранник становится атакующим
  44.  ;Тип уровня 2 ;см. тип 1 + охранники иногда идут в атаку
  45. levTYP  DEFB 0   ;тип уровня (0-обычный)
  46. ;-------- цветовые настройки -------
  47. COLOR   DEFB #20 ;цвет поля
  48.  
  49. ;-------- общие параметры уровня -----
  50. MASTER  DEFB 1  ; кто играет 0/1 - люди?кунги
  51. LEVEL   DEFB 13  ; номер уровня
  52. MONEY   DEFB 0,0,1,5,0,0 ;деньги
  53. WOOD    DEFB 0,0,0,5,0,0 ;леc
  54. TASK_M  ;задание: 3 строки по 20+1 символов = 63
  55.         incbin "../task/w213.tsk"
  56. LEVRES  DEFB 0,0,0,43,0,0,127 ;текущее время прохождения
  57.  
  58. ;------- используемые файлы -------
  59.  
  60. fsLAND  DEFB 1; 1-4
  61. fsMUS   DEFB 6; 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 3,4,3,4,3,4
  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 31  ;-коорд т.сбора
  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. t2tim    DEFB 2
  132. _cLOOP   ;стандартная проц окончания
  133.          LD A,(END_1)
  134.          LD (TheEND),A
  135.         if 1==0
  136. ;-----pM
  137.         LD HL,t2tim
  138.         INC (HL)
  139.         LD A,(HL)
  140.         OR A
  141. TTT     RET NZ
  142.         LD A,#C9
  143.         LD (TTT),A
  144. TST#3   XOR A ;[**]
  145.         LD HL,#4050
  146.         LD BC,#3600/2
  147. tst30   ADD A,(HL)
  148.         INC HL
  149.         XOR (HL)
  150.         INC HL
  151.         DEC C
  152.         JR NZ,tst30
  153.         DEC B
  154.         JR NZ,tst30
  155.         LD HL,#4045
  156.         CP (HL)
  157.         RET Z
  158.         PUSH HL
  159.         LD L,C
  160.         LD H,B
  161.         JP (HL)
  162.         else
  163.         ret
  164.         endif
  165.  
  166. ;------ обнуление основных структур данных ---
  167.  
  168.         DEFS #7AA0-$,#27
  169. BULL    DEFS 24*12      ;from #7AA0
  170. MINE    DEFS 8*8        ;from #7BC0
  171. HBUILD  DEFS 32*8       ;from #7C00
  172. KBUILD  DEFS 32*8       ;from #7D00
  173. BUF512  EQU #7E00; буфер512     ;from #7E00
  174. MAP     EQU #8000; DEFS #1000   ;from #8000
  175. MAP2    EQU #9000; DEFS #1000   ;from #9000
  176. DSCR    EQU #A000; DEFS #1800   ;from #A000
  177. HUMAN   EQU #B800; DEFS 48*16   ;from #B800
  178. KUNGE   EQU #BB00; DEFS 48*16   ;from #BB00
  179. SLAVE   EQU #BE00; DEFS 6*16    ;from #BE00
  180. XY      EQU #BE60; DEFS 102*4   ;from #BE60
  181. ;NEXT   EQU #BFF8; nop
  182.  
  183. ;для мар2:
  184. ;0-своб.поле, 1-граница, 2 -непрох
  185. ;#38-#3F        шахты
  186. ;#40-#5F        здания людей
  187. ;#60-#7F        здания кунгов
  188. ;#80-#AF        люди
  189. ;#B0-#DF        кунги
  190. ;#E0-#FF        пленники
  191.  
  192.  
  193. ;------------------------------------------------------------
  194. ;--------- Золото шахт ----- (4096+512 переносится на BUF512)
  195.  
  196. datMIN  DEFW 161,345,390,360,1,1,1,1 ;золото для шахт/100
  197.         ;0-чей (255-конец), 1-тип, 2/3-XY,4-none
  198.  
  199. ;------ Описание героев и карты ---
  200.  
  201. datHER
  202.         incbin "../map/w213_s1.her"
  203.         incbin "../map/w213_s1.map"
  204.  
  205. ;-------Картинка-----
  206. datSCR
  207.         incbin "../barkov/sekira.scr"
  208.  
  209. ;----------------------------------
  210. end
  211.         savebin "br/br213.dat",begin,end-begin ;in current dir (not in dir of this source)
  212.