?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ;---манипуляции с видимостью---------------------
  2.  
  3. onsee2  CALL HL_IX0 ;видим на ходу (2)
  4. ONSEEm  LD D,0 ;магич зрение (2)
  5.         JR jS2
  6. onsee   ;видим при останове (2..5)
  7.         LD A,(IX+4)
  8.         LD HL,sRANGE
  9.         CALL BA
  10. onseeB  CALL HL_IX0
  11.         LD D,0
  12.         CP 1
  13.         JP NC,jS3
  14. jS2     LD A,H
  15.         SUB 2
  16.         LD H,A
  17.         JR C,jjS2
  18.         CP 60
  19.         JR NC,jjS2
  20.         LD A,L
  21.         SUB 2
  22.         JR C,jjS2
  23.         CP 60
  24.         JR NC,jjS2
  25.         DEC L
  26. jj02    CALL GMAP
  27.         RES 7,(HL)
  28.         INC HL
  29.         RES 7,(HL)
  30.         INC HL
  31.         RES 7,(HL)
  32.         LD E,61
  33.         ADD HL,DE
  34. jj01    RES 7,(HL)
  35.         INC HL
  36.         RES 7,(HL)
  37.         INC HL
  38.         RES 7,(HL)
  39.         INC HL
  40.         RES 7,(HL)
  41.         INC HL
  42.         RES 7,(HL)
  43.         DEC E
  44.         ADD HL,DE
  45.         RES 7,(HL)
  46.         INC HL
  47.         RES 7,(HL)
  48.         INC HL
  49.         RES 7,(HL)
  50.         INC HL
  51.         RES 7,(HL)
  52.         INC HL
  53.         RES 7,(HL)
  54. jj0     ADD HL,DE
  55.         RES 7,(HL)
  56.         INC HL
  57.         RES 7,(HL)
  58.         INC HL
  59.         RES 7,(HL)
  60.         INC HL
  61.         RES 7,(HL)
  62.         INC HL
  63.         RES 7,(HL)
  64.         LD E,61
  65.         ADD HL,DE
  66.         RES 7,(HL)
  67.         INC HL
  68.         RES 7,(HL)
  69.         INC HL
  70.         RES 7,(HL)
  71.         RET
  72. jjS2    ;
  73.         LD A,L
  74.         SUB 2
  75.         LD L,A
  76.         CP H
  77.         RET Z
  78.         LD A,H
  79.         CP 255
  80.         JR C,jjS21
  81.         INC H
  82.         CALL GMAP
  83.         LD E,61
  84.         JR jj01
  85. jjS21   INC L
  86.         CP 60
  87.         JR C,jj02
  88.         CALL GMAP
  89.         RES 7,(HL)
  90.         INC HL
  91.         RES 7,(HL)
  92.         INC HL
  93.         RES 7,(HL)
  94.         LD E,61
  95.         ADD HL,DE
  96.         DEC E
  97.         CALL jQ5
  98.         JP jQ5
  99.  
  100. jS3     JP NZ,jS4_5
  101.         LD A,H
  102.         SUB 3
  103.         LD H,A
  104.         JR C,jjS3
  105.         CP 58
  106.         JR NC,jjS3
  107.         LD A,L
  108.         SUB 3
  109.         JR C,jjS3
  110.         CP 58
  111.         JR NC,jjS3
  112.         DEC L
  113.         CALL GMAP
  114.         RES 7,(HL)
  115.         INC HL
  116.         RES 7,(HL)
  117.         INC HL
  118.         RES 7,(HL)
  119.         LD E,61
  120.         ADD HL,DE
  121.         RES 7,(HL)
  122.         INC HL
  123.         RES 7,(HL)
  124.         INC HL
  125.         RES 7,(HL)
  126.         INC HL
  127.         RES 7,(HL)
  128.         INC HL
  129.         RES 7,(HL)
  130.         DEC E
  131.         DEC E
  132.         ADD HL,DE
  133.         RES 7,(HL)
  134.         INC HL
  135.         RES 7,(HL)
  136.         INC HL
  137.         RES 7,(HL)
  138.         INC HL
  139.         RES 7,(HL)
  140.         INC HL
  141.         RES 7,(HL)
  142.         INC HL
  143.         RES 7,(HL)
  144.         INC HL
  145.         RES 7,(HL)
  146.         DEC E
  147.         ADD HL,DE
  148.         RES 7,(HL)
  149.         INC HL
  150.         RES 7,(HL)
  151.         INC HL
  152.         RES 7,(HL)
  153.         INC HL
  154.         RES 7,(HL)
  155.         INC HL
  156.         RES 7,(HL)
  157.         INC HL
  158.         RES 7,(HL)
  159.         INC HL
  160.         RES 7,(HL)
  161.         ADD HL,DE
  162.         RES 7,(HL)
  163.         INC HL
  164.         RES 7,(HL)
  165.         INC HL
  166.         RES 7,(HL)
  167.         INC HL
  168.         RES 7,(HL)
  169.         INC HL
  170.         RES 7,(HL)
  171.         INC HL
  172.         RES 7,(HL)
  173.         INC HL
  174.         RES 7,(HL)
  175.         INC E
  176.         JP jj0
  177. jjS3    DEC L
  178.         LD B,3
  179.         CALL jLINE
  180.         DEC L
  181.         LD B,5
  182.         CALL jLINE
  183.         DEC L
  184.         LD B,7
  185.         CALL jLINE
  186.         CALL jLINE
  187.         CALL jLINE
  188.         INC L
  189.         LD B,5
  190.         CALL jLINE
  191.         INC L
  192.         LD B,3
  193.         JP jLINE
  194.  
  195.  
  196. jS4_5   CP 2
  197.         JP NZ,jS5
  198. jS4     LD A,H
  199.         SUB 4
  200.         LD H,A
  201.         JR C,jjS4
  202.         CP 56
  203.         JR NC,jjS4
  204.         LD A,L
  205.         SUB 4
  206.         JR C,jjS4
  207.         CP 56
  208.         JR NC,jjS4
  209.         DEC L
  210.         DEC L
  211.         CALL GMAP
  212.         LD E,59
  213.         CALL jQ5
  214.         LD E,57
  215.         CALL jQ7
  216.         DEC E
  217.         CALL jQ9
  218.         CALL jQ9
  219.         CALL jQ9
  220.         CALL jQ9
  221.         INC E
  222.         CALL jQ9
  223.         INC E
  224.         INC E
  225.         CALL jQ7
  226.         INC E
  227.         INC E
  228.         JP jQ5
  229. jjS4    DEC L
  230.         DEC L
  231.         LD B,5
  232.         CALL jLINE
  233.         DEC L
  234.         LD B,7
  235.         CALL jLINE
  236.         DEC L
  237.         LD BC,#905
  238. jjS40   CALL jLINE
  239.         DEC C
  240.         JR NZ,jjS40
  241.         INC L
  242.         LD B,7
  243.         CALL jLINE
  244.         INC L
  245.         LD B,5
  246.         JP jLINE
  247.  
  248.  
  249. jS5     LD A,H
  250.         SUB 5
  251.         LD H,A
  252.         JR C,jjS5
  253.         CP 54
  254.         JR NC,jjS5
  255.         LD A,L
  256.         SUB 5
  257.         JR C,jjS5
  258.         CP 54
  259.         JR NC,jjS5
  260.         DEC L
  261.         DEC L
  262.         DEC L
  263.         CALL GMAP
  264.         LD E,57
  265.         CALL jQ7
  266.         DEC E
  267.         DEC E
  268.         CALL jQ9
  269.         DEC E
  270.         CALL jQ11
  271.         CALL jQ11
  272.         CALL jQ11
  273.         CALL jQ11
  274.         CALL jQ11
  275.         CALL jQ11
  276.         INC E
  277.         CALL jQ11
  278.         INC E
  279.         INC E
  280.         CALL jQ9
  281.         INC E
  282.         INC E
  283.         JP jQ7
  284. jjS5    DEC L
  285.         DEC L
  286.         DEC L
  287.         LD B,7
  288.         CALL jLINE
  289.         DEC L
  290.         LD B,9
  291.         CALL jLINE
  292.         DEC L
  293.         LD BC,#B07
  294. jjS50   CALL jLINE
  295.         DEC C
  296.         JR NZ,jjS50
  297.         INC L
  298.         LD B,9
  299.         CALL jLINE
  300.         INC L
  301.         LD B,7
  302.         JR jLINE
  303.  
  304. jQ11    RES 7,(HL)
  305.         INC HL
  306.         RES 7,(HL)
  307.         INC HL
  308. jQ9     RES 7,(HL)
  309.         INC HL
  310.         RES 7,(HL)
  311.         INC HL
  312. jQ7     RES 7,(HL)
  313.         INC HL
  314.         RES 7,(HL)
  315.         INC HL
  316. jQ5     RES 7,(HL)
  317.         INC HL
  318.         RES 7,(HL)
  319.         INC HL
  320.         RES 7,(HL)
  321.         INC HL
  322.         RES 7,(HL)
  323.         INC HL
  324.         RES 7,(HL)
  325.         ADD HL,DE
  326.         RET
  327.  
  328.  
  329. jLINE   ;HL-коорд,B-ширина
  330.         LD A,H
  331.         CP 63
  332.         JR NC,jLr
  333.         PUSH HL
  334.         PUSH BC
  335.         LD A,L
  336.         OR A
  337.         LD A,B
  338.         JP P,jL1
  339.         ADD A,L
  340.         LD B,A
  341.         LD L,0
  342.         JR jL2
  343. jL1     ADD A,L
  344.         SUB 63
  345.         JR C,jL2
  346.         LD C,A
  347.         LD A,B
  348.         SUB C
  349.         LD B,A
  350. jL2     CALL GMAP
  351. jL3     RES 7,(HL)
  352.         INC L
  353.         DJNZ jL3
  354.         POP BC
  355.         POP HL
  356. jLr     INC H
  357.         RET
  358.