?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;****** всп.подпр Рage 1 *** (272бт)
  2. ;---ремонт вражьих задний
  3. REMONT  LD A,(TIC)
  4.         CP 127
  5.         RET C
  6.         AND #1F
  7.         ADD A,#28
  8.         CALL B_IX
  9.         LD A,(IX+0)
  10.         OR A
  11.         RET Z ;нету
  12.         LD A,(IX+2)
  13.         LD HL,bHEALT
  14.         CALL BA
  15.         LD A,(IX+3)
  16.         CP (HL)
  17.         RET NC ;ок
  18.         CALL HL_IX0
  19.         CALL loop_K
  20. rrm0    LD A,(IX+0)
  21.         OR A
  22.         JR Z,rrm1
  23.         LD A,(IX+4)
  24.         OR A
  25.         JR Z,rrm2
  26.         CP 9
  27.         JR NZ,rrm1
  28. rrm2    ;свободн. крестьянин
  29.         LD A,(IX+9)
  30.         CP 8 ;уже? или в здании?
  31.         JR NC,rrm1
  32.         LD (IX+8),#80
  33.         LD (IX+9),8
  34.         JP IXt_HL
  35. rrm1    ADD IX,DE
  36.         DJNZ rrm0
  37.         RET ;нет рабочих
  38.  
  39. ;-----работа с данн гер
  40.  
  41.  
  42. NEWALL  CALL CLRALL ;расстановка сил
  43.         LD HL,datHER
  44. nA0     LD A,(HL)
  45.         CP 255
  46.         RET Z
  47.         PUSH HL
  48.         CP 2
  49.         JR NC,nA1
  50.         LD A,(MASTER)
  51.         XOR (HL)
  52. nA1     PUSH AF
  53.         EX AF,AF
  54.         INC HL
  55.         LD A,(HL)
  56.         EX AF,AF
  57.         INC HL
  58.         LD E,(HL)
  59.         INC HL
  60.         LD H,(HL)
  61.         LD L,E
  62.         CALL NEWHER
  63.         POP AF
  64.         OR A
  65.         CALL Z,ONSEE1 ;не та страница
  66.         POP HL
  67.         LD DE,5 ;длина init-записи о герое
  68.         ADD HL,DE
  69.         JR nA0
  70.  
  71. NEWenm  ;распределение начальных ролей для врагов
  72.         CALL loop_K
  73. nee0    LD A,(IX)
  74.         OR A
  75.         JR Z,nee1
  76.         LD (IX+13),1 ;охрана
  77.         LD A,(IX+4)
  78.         CP 9
  79.         JR C,nee2
  80.         SUB 9
  81. nee2    CP 3
  82.         JR NC,nee10
  83.         CP 1
  84.         LD (IX+13),8 ;<ремонтник>
  85.         JR C,nee1
  86.         JR Z,nee3
  87.         DEC (IX+13) ;золотодобытч
  88.         DEC (IX+4)
  89.         JR nee4
  90. nee3    LD (IX+13),6 ;лесоруб
  91. nee4    DEC (IX+4)
  92.         JR nee1
  93.         ;
  94. nee10   CP 5
  95.         JR NZ,nee20
  96.         LD (IX+13),10 ;свящ-охр
  97.         JR nee1
  98. nee20   CP 6
  99.         JR NZ,nee1
  100.         LD (IX+13),11 ;волш-охр
  101.         ;
  102. nee1    ADD IX,DE
  103.         DJNZ nee0
  104.         RET
  105.  
  106. ANIset  LD A,(isANI)
  107.         OR A
  108.         JR Z,ANIMOF
  109.         ;
  110. ANIMON  LD HL,MAP
  111.         LD BC,#1000
  112. ANN1    LD A,(HL)
  113.         AND #7F
  114.         CP 56
  115.         JR C,ANN0
  116.         CP 61
  117.         JR NC,ANN0
  118.         LD A,(HL)
  119.         ADD A,113-56
  120.         LD (HL),A
  121. ANN0    INC HL
  122.         DEC BC
  123.         LD A,B
  124.         OR C
  125.         JR NZ,ANN1
  126.         RET Z
  127.  
  128. ANIMOF  LD HL,MAP
  129.         LD BC,#1000
  130. ANF1    LD A,(HL)
  131.         AND #7F
  132.         CP 113
  133.         JR C,ANF0
  134.         CP 119
  135.         JR NC,ANF0
  136.         LD A,(HL)
  137.         ADD A,56-113
  138.         LD (HL),A
  139. ANF0    INC HL
  140.         DEC BC
  141.         LD A,B
  142.         OR C
  143.         JR NZ,ANF1
  144.         RET Z
  145.  
  146.