?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;****************************************************************************
  2. ;** LEVEL 8 STUFF (DATA, SPRITES AND PROGRAMMING)                          **
  3. ;****************************************************************************
  4.  
  5. ;                IF STARTLEV-8
  6.  
  7.                 PHASE LEVELDATA
  8.  
  9. LEVEL8DATA      DB $20,$60+FLOROF     ; HERO X,Y
  10.                 DB $00                ; MAPX
  11.                 DB $44                ; MAPY
  12.                 DB 1                  ; 0=SCROLL L/R - l=SCROLL U/D
  13.                 DB $E6,$00            ; WEAPON ROOM X,Y INIT
  14.                 DW $0078              ; DOOR XY
  15.                 DB $00,$44            ; RIGHTMAX,DOWNMAX
  16.                 DB $FF,$FF            ; SETUD,SETLR
  17.                 DW FLOOR8             ; FLOOR BLOCKS
  18.                 DW WALL8              ; WALL BLOCKS
  19.                 DB $02,$0D            ; LADDER BLOCKS - $0Z,$03 - $0F,$10
  20.                 DB $FF                ; CRAWL ON BLOCK
  21.                 DB $FF,$FF            ; SLIDE UP
  22.                 DB $FF,$FF            ; SLIDE DOWN
  23.                 DW LEV8BADX,LEV8BADX2 ; LEVEL BADDY INITS X,EXTRA X
  24.                 DW LEV8BADY           ; LEVEL BADDY INITS Y
  25.                 DW L8CHRS             ; CHRS
  26.                 DW L8ATRS             ; ATRS
  27.                 DW L8BLOX             ; BLOX
  28.                 DW L8MAPX             ; MAPX
  29.                 DW L8MAPY             ; MAPY
  30.                 DB 0                  ; MAPXMAXSIZE
  31.  
  32.                 CALL PRTFIRE:CALL PRTSNAKE:LD HL,0:RET
  33.                 JP RESETLEV8BAD
  34.                 JP RETURN
  35. WAPTABLE8       DB $0B,1,$0C,1,$0D,1,$0E,1,$0F,1,$10,1
  36.                 JP KILLSNAKE          ; KILL BIG
  37.                 JP INITSNAKE          ; INIT BIG 1
  38.                 JP RETURN             ; INIT BIG 2
  39.                 JP PRTBLADE           ; INIT BIG 3
  40.                 JP LEVEL8D0OR         ; INIT BIG 4
  41.  
  42. ;***************************************
  43.  
  44. RESETLEV8BAD    XOR A:LD (ISBIGON),A:LD (PRTSNAKE+1),A
  45.                 INC A:LD (PRTFIRE+1),A
  46.  
  47.                 LD HL,BADDY8CLIMBS:LD DE,BC1:LD BC,4*5:LDIR
  48.  
  49.                 LD HL,SP2:LD DE,SP1:LD BC,6*4:LDIR
  50.  
  51.                 RET
  52.  
  53. SP2             DW DADSPR             ; DAD BODY
  54.                 DB 4*4,0-20
  55.                 DW MUMSPR             ; MUM BODY
  56.                 DB 4*4,0-20
  57.                 DW SISSPR             ; SIS BODY
  58.                 DB 4*4,0-20
  59.                 DW BROSPR             ; BRO BODY
  60.                 DB 4*4,0-20
  61.                 DW GRDSPR             ; GRD BODY
  62.                 DB 4*4,0-20
  63.                 DW GRNSPR             ; GRN BODY
  64.                 DB 4*4,0-20
  65.  
  66. BADDY8CLIMBS    DW BADDYCLIMB81:DB 11,0,-6    ; BAD CLIMB
  67.                 DW BADDYCLIMB82:DB 10,0,-4    ; BAD CLIMB
  68.                 DW BADDYCLIMB83:DB 11,0,-6    ; BAD CLIMB
  69.                 DW BADDYCLIMB84:DB 10,0,-4    ; BAD CLIMB
  70.  
  71. ;***************************************
  72.  
  73. FLOOR8          DB 4
  74.                 DB #00,#01,#0B,#0C
  75.  
  76. WALL8           DB 4+4
  77.                 DB #20,#14,#13,#12
  78.                 DB #15,#11,#0F,#0A
  79.  
  80. ;***************************************
  81.  
  82. LEV8BADX        DB $FF,$FF             ; END OF DATA
  83. LEV8BADY        DB $40,$08,$04,KEY     ; CLIMBER
  84.                 DB $38,$08,$04,KEY     ; CLIMBER
  85.                 DB $30,$08,$FB,KEY     ; CLIMBER
  86.                 DB $28,$08,$04,KEY     ; CLIMBER
  87.                 DB $20,$08,$FB,KEY     ; CLIMBER
  88.                 DB $18,$08,$04,KEY     ; CLIMBER
  89.                 DB $10,$08,$04,KEY     ; CLIMBER
  90.                 DB $06,$FB,$06         ; SCROLL UP
  91.                 DB $00,$FF             ; SNAKE
  92.                 DB $FF,$FF             ; END OF DATA
  93. LEV8BADX2       DB $FF,$FF             ; END OF DATA
  94.  
  95. ;***************************************
  96.  
  97. PRTFIRE         LD A,1:OR A:RET Z
  98.                 LD A,(MAPDIR):OR A:RET Z
  99.  
  100. ;                LD A,(POS):AND 1:LD A,(FIRECNT+1):JR NZ,FIJ
  101. FIRECNT         LD A,0:INC A:CP 3:JR C,FIJ:XOR A
  102. FIJ             LD (FIRECNT+1),A
  103.  
  104.                 LD A,(MAPY):SUB $10:RET C
  105.                 LD E,A:LD D,0:LD IX,FIREMAP:ADD IX,DE
  106.                 LD DE,BACKSCR+3:LD B,16
  107. FIREVB          LD A,(IX+00):CP $FF:JR Z,SKPPY
  108.                 PUSH BC:LD A,(FIRECNT+1):ADD A,A:ADD A,(IX+00):INC IX
  109.                 LD C,A:LD B,0:LD HL,FIRETABS:ADD HL,BC
  110.                 LD A,(HL):INC HL:LD H,(HL):LD L,A:CALL DOFIRELINE
  111.                 POP BC:DJNZ FIREVB:RET
  112. SKPPY           INC IX:INC D:DJNZ FIREVB:RET
  113.  
  114. DOFIRELINE      LD C,8
  115. FIRECZP         LD B,4
  116. FIREBZP         LD A,(HL):LD (DE),A:INC HL:INC E
  117.                 LD A,(HL):LD (DE),A:INC HL:INC E:INC E
  118.                 LD A,(HL):LD (DE),A:INC HL:INC E
  119.                 LD A,(HL):LD (DE),A:DEC HL:DEC HL:DEC HL:INC E:INC E
  120.                 DJNZ FIREBZP:LD A,(HL):LD (DE),A:INC HL:INC E
  121.                 LD A,(HL):LD (DE),A:INC HL:INC E
  122.                 INC E:INC E:INC DE:INC E:INC E:INC E
  123.                 INC HL:INC HL:DEC C:JR NZ,FIRECZP:RET
  124.  
  125. FIREMAP         DS 15,$FF
  126.                 DB 0*6
  127.                 DB 1*6,2*6,3*6
  128.                 DB 4*6,5*6,6*6
  129.                 DB 7*6,8*6,9*6
  130.                 DB 4*6,5*6,6*6
  131.                 DB 7*6,8*6,9*6
  132.                 DB 4*6,5*6,6*6
  133.                 DB 7*6,8*6,9*6
  134.                 DB 4*6,5*6,6*6
  135.                 DB 7*6,8*6,9*6
  136.                 DB 4*6,5*6,6*6
  137.                 DB 7*6,8*6,9*6
  138.                 DB 4*6,5*6,6*6
  139.                 DB 7*6,8*6,9*6
  140.                 DB 4*6,5*6,6*6
  141.                 DB 7*6,8*6,9*6
  142.                 DB 4*6,5*6,10*6
  143.                 DS 4,$FF
  144.  
  145. FIRETABS        DW FIRE+00*32,FIRE+11*32,FIRE+22*32
  146.                 DW FIRE+01*32,FIRE+12*32,FIRE+23*32
  147.                 DW FIRE+02*32,FIRE+13*32,FIRE+24*32
  148.                 DW FIRE+03*32,FIRE+14*32,FIRE+25*32
  149.                 DW FIRE+04*32,FIRE+15*32,FIRE+26*32
  150.                 DW FIRE+05*32,FIRE+16*32,FIRE+27*32
  151.                 DW FIRE+06*32,FIRE+17*32,FIRE+28*32
  152.                 DW FIRE+07*32,FIRE+18*32,FIRE+29*32
  153.                 DW FIRE+08*32,FIRE+19*32,FIRE+30*32
  154.                 DW FIRE+09*32,FIRE+20*32,FIRE+31*32
  155.                 DW FIRE+10*32,FIRE+21*32,FIRE+32*32
  156.  
  157. FIRE
  158.                 DB #31,#84,#31,#84,#40,#02,#00,#00,#08,#28,#FE,#AA,#00,#44,#FF,#55
  159.                 DB #00,#00,#00,#00,#20,#00,#20,#00,#00,#20,#00,#20,#04,#04,#04,#04
  160.                 DB #40,#00,#40,#00,#EE,#EA,#EE,#EA,#DF,#77,#DF,#77,#44,#26,#44,#26
  161.                 DB #20,#82,#20,#82,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  162.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#00,#FF,#55
  163.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  164.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#08,#02,#08,#02,#05,#AC,#05,#AC
  165.                 DB #61,#1A,#61,#1A,#CB,#7E,#CB,#7E,#DF,#FF,#DF,#FF,#FF,#FF,#FF,#FF
  166.                 DB #FF,#DF,#FF,#DF,#BF,#CE,#00,#00,#37,#6A,#FE,#AA,#1B,#A4,#FF,#55
  167.                 DB #01,#90,#00,#00,#03,#02,#03,#02,#00,#40,#00,#40,#00,#00,#00,#00
  168.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  169.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  170.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#00,#FF,#55
  171.                 DB #00,#04,#00,#00,#10,#08,#10,#08,#62,#BA,#62,#BA,#F7,#1F,#F7,#1F
  172.                 DB #FF,#DF,#FF,#DF,#BF,#CE,#BF,#CE,#37,#6A,#37,#6A,#1B,#A4,#1B,#A4
  173.                 DB #01,#90,#01,#90,#03,#02,#03,#02,#00,#40,#00,#40,#00,#00,#00,#00
  174.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#00,#FF,#55
  175.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  176.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  177.                 DB #00,#04,#00,#04,#10,#08,#10,#08,#62,#BA,#62,#BA,#F7,#1F,#F7,#1F
  178.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  179.                 DB #00,#04,#7F,#D4,#10,#08,#7F,#AA,#62,#BA,#7F,#D5,#F7,#1F,#7F,#EA
  180.                 DB #17,#20,#17,#20,#28,#C8,#00,#00,#40,#00,#FE,#AA,#00,#00,#FF,#55
  181.                 DB #00,#04,#00,#00,#02,#40,#02,#40,#10,#00,#10,#00,#00,#10,#00,#10
  182.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#20,#10,#20,#10
  183.                 DB #04,#04,#04,#04,#42,#20,#42,#20,#66,#C5,#66,#C5,#7F,#6F,#7F,#6F
  184.                 DB #F9,#DE,#F9,#DE,#50,#84,#00,#00,#40,#42,#FE,#AA,#00,#00,#FF,#55
  185.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  186.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  187.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  188.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#00,#FF,#55
  189.                 DB #28,#C0,#00,#00,#6D,#8C,#6D,#8C,#DF,#46,#DF,#46,#DF,#8F,#DF,#8F
  190.                 DB #FF,#DF,#FF,#DF,#6D,#EF,#6D,#EF,#49,#DE,#49,#DE,#1A,#CC,#1A,#CC
  191.                 DB #51,#86,#51,#86,#00,#22,#00,#22,#20,#04,#20,#04,#00,#00,#00,#00
  192.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#00,#FF,#55
  193.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  194.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  195.                 DB #28,#C0,#28,#C0,#6D,#8C,#6D,#8C,#DF,#46,#DF,#46,#DF,#8F,#DF,#8F
  196.                 DB #FF,#DF,#FF,#DF,#6D,#EF,#00,#00,#49,#DE,#FE,#AA,#1A,#CC,#FF,#55
  197.                 DB #51,#86,#00,#00,#00,#22,#00,#22,#20,#04,#20,#04,#00,#00,#00,#00
  198.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  199.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  200.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  201.                 DB #00,#00,#7F,#D4,#00,#00,#7F,#AA,#00,#00,#7F,#D5,#00,#00,#7F,#EA
  202.                 DB #02,#00,#02,#00,#40,#10,#00,#00,#00,#82,#FE,#AA,#26,#28,#FF,#55
  203.                 DB #39,#DC,#00,#00,#51,#08,#51,#08,#22,#00,#22,#00,#00,#14,#00,#14
  204.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#40,#00,#40,#00,#01,#02,#01,#02
  205.                 DB #00,#00,#00,#00,#08,#40,#08,#40,#00,#08,#00,#08,#00,#00,#00,#00
  206.                 DB #00,#02,#00,#02,#44,#28,#00,#00,#02,#04,#FE,#AA,#20,#08,#FF,#55
  207.                 DB #08,#C4,#00,#00,#3D,#EE,#3D,#EE,#7F,#FE,#7F,#FE,#3F,#FC,#3F,#FC
  208.                 DB #7D,#5F,#7D,#5F,#BA,#CD,#BA,#CD,#5A,#94,#5A,#94,#14,#42,#14,#42
  209.                 DB #10,#00,#10,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  210.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#00,#FF,#55
  211.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  212.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#18,#00,#18
  213.                 DB #00,#30,#00,#30,#82,#32,#82,#32,#46,#64,#46,#64,#6D,#FE,#6D,#FE
  214.                 DB #FF,#FF,#FF,#FF,#FF,#FF,#00,#00,#F7,#BA,#FE,#AA,#67,#19,#FF,#55
  215.                 DB #42,#30,#00,#00,#21,#00,#21,#00,#00,#04,#00,#04,#08,#40,#08,#40
  216.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  217.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  218.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#AA,#00,#18,#FF,#55
  219.                 DB #00,#30,#00,#00,#82,#32,#82,#32,#46,#64,#46,#64,#6D,#FE,#6D,#FE
  220.                 DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#F7,#BA,#F7,#BA,#67,#19,#67,#19
  221.                 DB #42,#30,#42,#30,#21,#00,#21,#00,#00,#04,#00,#04,#08,#40,#08,#40
  222.                 DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#F7,#BA,#F7,#BA,#67,#19,#00,#00
  223.                 DB #42,#30,#7F,#D4,#21,#00,#7F,#AA,#00,#04,#7F,#D5,#08,#40,#7F,#EA
  224.  
  225. ;***************************************
  226.  
  227. LEVEL8D0OR      LD A,E:OR A:RET Z
  228. D00R1           LD DE,$0078:LD HL,SNAKEDOOR:LD BC,$0310:CALL MASKCXB
  229. DOOR2           LD DE,$0080:LD BC,$0310:CALL MASKCXB
  230.                 LD IX,PRTDOOR-1:LD DE,$0078:LD BC,$2018:CALL ISBULINBOX
  231.                 LD A,(PRTDOOR+1):OR A:RET NZ
  232.                 LD DE,(DOORXY):LD A,D:SUB $08:LD D,A
  233.                 LD A,E:SUB 8:LD E,A:PUSH DE:CALL INITEXPNORND:POP DE
  234.                 PUSH DE:LD A,D:ADD A,$18:LD D,A:CALL INITEXPNORND:POP DE
  235.                 LD A,D:ADD A,$30:LD D,A:JP INITEXPNORND
  236.  
  237. PRTDAZZLE       LD C,0
  238.                 LD A,(POS):AND 3:JR NZ,NAZZLE
  239.                 LD A,C:INC A:CP 16:JR NC,NAZZLE:LD (PRTDAZZLE+1),A
  240. NAZZLE          LD HL,DAZTAB:LD A,C
  241.                 CALL ADDHLA
  242.                 LD A,$7C:SUB (HL):PUSH HL
  243.                 LD E,A:LD D,0:LD HL,SNAKEDOOR:LD BC,$0310:CALL MASKCXB
  244.                 POP HL:LD A,$7C:ADD A,(HL)
  245.                 LD E,A:LD D,0:LD HL,SNAKEDOR2:LD BC,$0310:JP MASKCXB
  246.  
  247. DAZTAB          DB #04,#04,#04,#0C
  248.                 DB #0C,#0C,#14,#14
  249.                 DB #14,#0C,#0C,#0C
  250.                 DB #04,#04,#04,#04
  251.  
  252. ;***************************************
  253.  
  254. INITSNAKE       XOR A:LD (PRTFIRE+1),A
  255.                 LD (PRTDAZZLE+1),A
  256.                 INC A:LD (PRTSNAKE+1),A:LD (NOSCROLL+1),A
  257.                 LD A,$7F:LD (BIGHITS), A
  258.                 LD A,4:LD (SNAKEANI+1),A
  259.                 LD A,29-2:LD (SNAKECNT+1),A
  260.  
  261.                 LD HL,$0808:LD (BOUNCEDIR),HL
  262.                 LD HL,$0078:LD (SNAKEX),HL
  263.                 LD HL,SNAKEX:LD DE,SNAKEX+2:LD BC,30-2:LDIR
  264.  
  265.                 LD A,8:JP PLAYMUSIC
  266.  
  267. KILLSNAKE       XOR A:LD (ISBIGON),A:LD (PRTSNAKE+1),A
  268.                 LD A,$E6:LD (MAPX),A
  269.                 RET
  270.  
  271. PRTSNAKE        LD A,1:OR A:RET Z
  272.                 CALL PRTDAZZLE
  273.                 LD A,(PRTDAZZLE+1):CP 8:RET C
  274.                 LD HL,SNAKEX+27:LD DE,SNAKEX+29:LD BC,28:LDDR
  275. SNAKEANI        LD A,0:LD HL,SNAKETRAIL:ADD A,A
  276.                 CALL ADDHLA
  277.                 LD E,(HL):INC HL:LD D,(HL):EX DE,HL:LD DE,(SNAKEX)
  278.                 CALL JPHL
  279. SNAKECNT        LD A,12:DEC A:LD (SNAKECNT+1),A:CALL M,GONEXTS
  280. SNAKEPOS        LD A,4:ADD A,A:ADD A,A:LD HL,SNAKEROUTS
  281.                 LD E,A:LD D,0:ADD HL,DE
  282.                 LD E,(HL):INC HL:LD D,(HL):INC HL:PUSH DE
  283.                 LD E,(HL):INC HL:LD D,(HL):EX DE,HL:PUSH HL
  284.  
  285.                 LD A,(BIGHITS):RRA:RRA:RRA:RRA
  286.                 AND 7:INC A:LD B,A
  287.                 LD HL,SNAKEX-2:ADD A,A:ADD A,A:LD E,A:LD D,0
  288.                 ADD HL,DE:PUSH HL:POP IX
  289.                 LD HL,SNAKETAILSPR:LD IY,MASKCXB
  290. BCALP           LD A,B:CP 1:JR NZ,FENJ:POP HL:POP IY
  291. FENJ            PUSH BC:LD E,(IX-2):LD D,(IX-1)
  292.                 DEC IX:DEC IX:DEC IX:DEC IX
  293.                 PUSH HL
  294.  
  295.                 PUSH DE:PUSH BC:LD BC,$0410:CALL JPIY:POP BC:POP DE
  296.                 LD HL,TAILATR:LD A,B:CP 1:JR NZ,FANG
  297.                 LD A,(SNAKEANI+1):ADD A,A:ADD A,A:ADD A,A:ADD A,A
  298.                 LD HL,SNAKATR:CALL ADDHLA
  299. FANG            LD BC,$0404:CALL BAXATR
  300.                 POP HL:POP BC:DJNZ BCALP
  301.                 LD HL,(SNAKEX):LD H,$1F:LD (BIGX1),HL
  302.                 LD HL,(SNAKEX+1):LD H,$1F:LD (BIGY1),HL
  303.                 LD A,1:LD (ISBIGON),A
  304.                 RET
  305.  
  306. JPIY            JP (IY)
  307.  
  308. SNAKEROUTS      DW MASKCXB,SNAKESPR1
  309.                 DW MASKCXB,SNAKESPR2
  310.                 DW MASKCXB,SNAKESPR3
  311.                 DW MASKCXBINVADD,SNAKESPR2
  312.                 DW MASKCXBINVADD,SNAKESPR1
  313.                 DW MASKCXBMINVADD,SNAKESPR2
  314.                 DW MASKCXBMIR,SNAKESPR3
  315.                 DW MASKCXBMIR,SNAKESPR2
  316.  
  317. GONEXTS         LD A,(SNAKEANI+1):INC A:AND 3:LD (SNAKEANI+1),A
  318.                 LD DE,(SNAKEX):LD A,D:OR A:JR Z,TOPLIN
  319.                 LD A,29:LD (SNAKECNT+1),A:RET
  320. TOPLIN          LD A,E:OR A:JP P,LTSN
  321. RTSN            LD A,29+3:LD (SNAKECNT+1),A:RET
  322. LTSN            LD A,29-1:LD (SNAKECNT+1),A:RET
  323.  
  324. SNAKETRAIL      DW BOUNCE
  325.                 DW DOWN
  326.                 DW SPIN
  327.                 DW CLIMB
  328.                 DW WAITAROUND
  329.  
  330. WAITAROUND      LD A,(SNAKECNT+1):OR A:RET NZ:LD (SNAKEANI+1),A
  331.                 LD A,19:LD (SNAKECNT+1),A:RET
  332.  
  333. SNAKEX          DS 30,0
  334.  
  335. BOUNCE          DB 33
  336. BOUNCEDIR       DW $0808
  337.                 LD A,D:ADD A,H:LD D,A:LD A,E:ADD A,L:LD E,A
  338.                 LD (SNAKEX),DE
  339.                 LD A,E:CP $20:JR C,SWAPXS:CP $C0:JR C,NOSWXS
  340. SWAPXS          LD A,L:NEG :LD L,A
  341. NOSWXS          LD A,D:CP $08:JR C,SWAPYS:CP $28:JR C,NOSWYS
  342. SWAPYS          LD A,H:NEG :LD H,A
  343. NOSWYS          LD (BOUNCEDIR),HL
  344.                 LD A,4:LD (SNAKEPOS+1),A
  345.  
  346. TIMESINCE2      LD A,0:INC A:OR A:JP M,GAH2:LD (TIMESINCE2+1),A
  347.                 CP 15:JR C,NAMI2
  348. GAH2
  349.                 LD D,$07:PUSH DE
  350.                 LD A,L:ADD A,A:ADD A,A:ADD A,A
  351.                 ADD A,E:LD E,A
  352.                 LD A,(HEROX+1):ADD A,8:LD L,A:LD H,$0F
  353.                 CALL HITA:POP DE:JR NC,NUMI2
  354.  
  355.                 CALL HITA:JR C,NAMI2:LD A,8:JR AMK2
  356.  
  357. NUMI2           LD A,(HEROX+1):CP E:LD A,6:JR NC,AMK2:LD A,10
  358. AMK2            LD B,4:LD DE,(SNAKEX):PUSH IX:CALL INITBLD:POP IX
  359.                 XOR A:LD (TIMESINCE2+1),A
  360. NAMI2           RET
  361.  
  362. DOWN            LD A,D:ADD A, 8: CP $60+1:RET NC
  363.                 LD (SNAKEX+1),A
  364.                 LD A,(HEROX+1):CP E:LD A,$F8:JR C,CUJO:LD A,$08
  365. CUJO            LD (SPIN+1),A:RET
  366.  
  367. SPIN            LD A,0:ADD A,E:CP $20:RET C:CP $C1:RET NC
  368.                 LD (SNAKEX),A
  369.                 LD A,(SPIN+1):OR A:LD E,1:JP P,MDL:LD E,-1
  370. MDL             LD A,(SNAKEPOS+1):ADD A,E:AND 7:LD (SNAKEPOS+1),A:RET
  371.  
  372. CLIMB           LD A,D:SUB 8:RET C:LD (SNAKEX+1),A
  373.                 XOR A:LD (SNAKEPOS+1),A:LD A,(SNAKEX):CP $20
  374.                 LD HL,$0808:JR Z,SNEO:LD HL,$08F8
  375. SNEO            LD (BOUNCEDIR),HL:RET
  376.  
  377. PEOPLESPR
  378. DADSPR
  379.                 DB #80,#50,#1F,#80,#0F,#40,#00,#A1,#00,#41,#07,#A0,#07,#60,#00,#86
  380.                 DB #00,#0E,#03,#70,#03,#30,#00,#1C,#00,#38,#01,#18,#00,#1C,#00,#7B
  381.                 DB #00,#33,#00,#CC,#00,#9C,#00,#19,#00,#1C,#01,#38,#03,#F0,#00,#0E
  382.                 DB #00,#1C,#03,#60,#01,#70,#00,#1C,#00,#38,#01,#58,#00,#38,#00,#28
  383.                 DB #00,#73,#00,#BC,#00,#14,#00,#31,#00,#24,#01,#50,#03,#C0,#00,#86
  384.                 DB #00,#42,#07,#40,#0F,#C0,#00,#86,#00,#44,#07,#E0,#07,#40,#00,#8C
  385.                 DB #00,#04,#07,#60,#07,#20,#00,#88,#00,#00,#0F,#00,#07,#20,#00,#44
  386.                 DB #00,#8C,#07,#60,#07,#60,#00,#0C,#00,#80,#0F,#00,#1F,#00,#81,#00
  387. MUMSPR
  388.                 DB #80,#52,#0F,#C0,#0F,#40,#00,#A7,#00,#46,#07,#60,#07,#80,#00,#A1
  389.                 DB #00,#4A,#03,#30,#03,#D0,#00,#99,#00,#13,#01,#E8,#01,#08,#00,#33
  390.                 DB #00,#22,#01,#48,#01,#D0,#00,#1A,#00,#9A,#03,#D0,#07,#20,#00,#4B
  391.                 DB #00,#A5,#07,#60,#03,#F0,#00,#44,#00,#23,#03,#60,#03,#00,#00,#00
  392.                 DB #00,#20,#07,#80,#0F,#40,#80,#11,#80,#09,#0F,#C0,#07,#E0,#80,#12
  393.                 DB #80,#03,#07,#E0,#07,#A0,#80,#13,#00,#25,#03,#70,#01,#38,#00,#0E
  394.                 DB #00,#24,#01,#50,#03,#40,#80,#01,#80,#01,#07,#40,#1F,#00,#80,#10
  395.                 DB #80,#01,#0F,#40,#0F,#40,#80,#11,#C0,#08,#1F,#00,#3F,#00,#E0,#00
  396. SISSPR
  397.                 DB #80,#51,#0F,#C0,#07,#A0,#00,#A1,#00,#46,#03,#50,#03,#30,#00,#86
  398.                 DB #00,#0C,#01,#18,#01,#08,#00,#88,#00,#19,#01,#88,#00,#CC,#00,#1B
  399.                 DB #00,#09,#00,#C4,#00,#30,#00,#82,#00,#06,#01,#B0,#01,#B8,#00,#8A
  400.                 DB #00,#0D,#01,#D8,#03,#C0,#00,#8D,#00,#43,#07,#E0,#07,#00,#00,#A3
  401.                 DB #00,#40,#03,#D0,#03,#F0,#00,#87,#00,#47,#07,#00,#07,#60,#00,#80
  402.                 DB #00,#43,#07,#60,#0F,#40,#00,#A3,#00,#51,#07,#A0,#07,#60,#00,#A3
  403.                 DB #00,#43,#07,#60,#0F,#40,#00,#A1,#00,#50,#0F,#00,#07,#20,#00,#A2
  404.                 DB #00,#42,#07,#20,#07,#60,#00,#23,#80,#00,#0F,#00,#1F,#00,#C0,#00
  405. BROSPR
  406.                 DB #80,#50,#1F,#80,#0F,#C0,#00,#A1,#00,#42,#07,#40,#03,#10,#00,#89
  407.                 DB #00,#1C,#01,#38,#00,#3C,#00,#38,#00,#72,#01,#18,#03,#B0,#00,#3B
  408.                 DB #00,#1B,#07,#60,#0F,#C0,#00,#0C,#00,#07,#0F,#C0,#0F,#80,#00,#8F
  409.                 DB #00,#45,#1F,#00,#1F,#80,#00,#80,#00,#4F,#0F,#80,#0F,#40,#00,#97
  410.                 DB #00,#0D,#0F,#80,#0F,#00,#00,#80,#00,#0D,#1F,#80,#1F,#80,#00,#8D
  411.                 DB #00,#05,#1F,#80,#3F,#00,#00,#85,#00,#41,#3F,#00,#7F,#00,#00,#80
  412.                 DB #00,#02,#7F,#00,#3F,#00,#00,#87,#80,#00,#7F,#00,#FF,#00,#C0,#00
  413.                 DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
  414. GRDSPR
  415.                 DB #80,#43,#0F,#00,#07,#60,#00,#84,#00,#0C,#03,#30,#01,#D8,#00,#1B
  416.                 DB #00,#16,#01,#68,#03,#B0,#00,#2C,#00,#29,#03,#D0,#03,#D0,#00,#29
  417.                 DB #00,#24,#01,#A8,#01,#58,#00,#12,#00,#13,#01,#D8,#03,#B0,#00,#09
  418.                 DB #00,#8C,#03,#70,#03,#70,#00,#06,#00,#8D,#03,#B0,#01,#D8,#00,#0A
  419.                 DB #00,#19,#01,#D8,#00,#5C,#00,#19,#00,#1D,#00,#BC,#00,#BC,#00,#0C
  420.                 DB #00,#3E,#00,#7C,#00,#7C,#00,#3D,#00,#1A,#01,#B8,#03,#40,#00,#86
  421.                 DB #00,#0E,#03,#70,#03,#70,#00,#8E,#00,#00,#03,#00,#07,#20,#00,#84
  422.                 DB #00,#4E,#03,#70,#03,#70,#00,#8E,#80,#00,#07,#00,#0F,#00,#C1,#00
  423. GRNSPR
  424.                 DB #80,#42,#1F,#80,#0F,#C0,#00,#A2,#00,#45,#0F,#80,#07,#60,#00,#8C
  425.                 DB #00,#19,#07,#60,#03,#B0,#00,#33,#00,#77,#01,#D8,#01,#D8,#00,#36
  426.                 DB #00,#39,#01,#38,#03,#B0,#00,#1B,#00,#19,#03,#30,#03,#D0,#00,#16
  427.                 DB #00,#16,#03,#D0,#07,#A0,#00,#0A,#00,#86,#07,#C0,#03,#D0,#00,#06
  428.                 DB #00,#82,#03,#B0,#03,#B0,#00,#0A,#00,#8C,#03,#70,#03,#F0,#00,#0E
  429.                 DB #00,#8F,#01,#78,#01,#78,#80,#1F,#80,#1B,#00,#BC,#00,#2C,#80,#25
  430.                 DB #00,#80,#01,#00,#03,#A0,#00,#42,#00,#A2,#07,#A0,#03,#00,#00,#40
  431.                 DB #00,#87,#03,#70,#03,#60,#80,#43,#C0,#00,#07,#00,#8F,#00,#E0,#00
  432.  
  433. SNAKEDOOR
  434.                 DB #E7,#00,#07,#00,#FF,#00,#FF,#00,#03,#F8,#C0,#18
  435.                 DB #80,#27,#01,#04,#FF,#00,#FF,#00,#01,#E4,#00,#48
  436.                 DB #80,#23,#00,#14,#FF,#00,#3F,#00,#00,#03,#00,#46
  437.                 DB #00,#4D,#00,#00,#1F,#C0,#0F,#20,#00,#80,#00,#54
  438.                 DB #80,#2C,#00,#00,#0F,#20,#1F,#C0,#00,#00,#00,#48
  439.                 DB #00,#48,#00,#03,#3F,#00,#FF,#00,#00,#04,#00,#48
  440.                 DB #80,#28,#01,#04,#FF,#00,#FF,#00,#01,#34,#00,#44
  441.                 DB #00,#4C,#01,#64,#FF,#00,#FF,#00,#00,#62,#80,#2C
  442.                 DB #00,#26,#00,#F1,#3F,#00,#1F,#C0,#00,#78,#00,#26
  443.                 DB #00,#17,#00,#38,#0F,#20,#0F,#20,#00,#80,#00,#0B
  444.                 DB #80,#13,#00,#E6,#0F,#20,#1F,#C0,#00,#CC,#80,#27
  445.                 DB #00,#4B,#00,#09,#3F,#00,#FF,#00,#00,#22,#00,#4F
  446.                 DB #80,#27,#01,#B4,#FF,#00,#FF,#00,#01,#94,#80,#2B
  447.                 DB #00,#47,#01,#94,#FF,#00,#FF,#00,#00,#C2,#00,#4B
  448.                 DB #80,#25,#00,#01,#7F,#00,#3F,#80,#00,#E4,#C0,#18
  449.                 DB #E0,#07,#00,#1B,#7F,#00,#FF,#00,#E4,#00,#F8,#00
  450. SNAKEDOR2
  451.                 DB #FE,#00,#0E,#00,#3F,#00,#0F,#C0,#00,#F1,#FC,#01
  452.                 DB #F8,#02,#00,#0E,#07,#30,#03,#88,#00,#F0,#F0,#05
  453.                 DB #F0,#04,#00,#0F,#01,#A4,#00,#72,#00,#03,#F8,#03
  454.                 DB #FC,#00,#00,#C1,#01,#E4,#00,#F2,#00,#20,#FF,#00
  455.                 DB #FF,#00,#00,#20,#00,#E4,#00,#48,#00,#C0,#FC,#00
  456.                 DB #F8,#03,#00,#30,#01,#64,#01,#48,#00,#46,#F0,#04
  457.                 DB #F0,#04,#00,#01,#00,#64,#00,#C8,#00,#0E,#F0,#04
  458.                 DB #F0,#04,#00,#1F,#01,#50,#03,#48,#00,#2F,#F8,#02
  459.                 DB #FC,#01,#00,#3F,#01,#64,#00,#F2,#00,#DE,#FE,#00
  460.                 DB #FF,#00,#00,#29,#00,#A2,#01,#E4,#80,#23,#FF,#00
  461.                 DB #FF,#00,#00,#27,#01,#D4,#01,#24,#00,#C3,#FE,#00
  462.                 DB #FC,#01,#00,#07,#00,#C2,#00,#72,#00,#3D,#F8,#02
  463.                 DB #F0,#05,#00,#FD,#00,#F2,#01,#E4,#00,#7B,#F0,#04
  464.                 DB #F0,#04,#00,#33,#01,#34,#00,#F2,#00,#03,#F8,#02
  465.                 DB #FC,#01,#00,#06,#00,#62,#01,#84,#00,#91,#FE,#00
  466.                 DB #FF,#00,#00,#6E,#03,#78,#87,#00,#91,#00,#FF,#00
  467.  
  468.  
  469. SNAKESPR1
  470.                 DB #FF,#00,#E0,#00,#07,#00,#FF,#00,#FF,#00,#03,#00,#C0,#00,#FF,#00
  471.                 DB #F8,#00,#80,#1F,#01,#F8,#1F,#00,#0F,#00,#00,#08,#00,#10,#F0,#00
  472.                 DB #E0,#07,#00,#13,#00,#C8,#07,#E0,#03,#10,#00,#91,#00,#89,#C0,#08
  473.                 DB #80,#1A,#00,#C8,#00,#13,#01,#58,#00,#04,#00,#24,#00,#25,#00,#20
  474.                 DB #00,#27,#00,#A4,#00,#25,#00,#E4,#00,#E4,#00,#25,#00,#A5,#00,#27
  475.                 DB #00,#20,#00,#2E,#00,#74,#00,#04,#01,#58,#00,#8B,#00,#D1,#80,#1A
  476.                 DB #C0,#0A,#00,#92,#00,#29,#03,#50,#03,#50,#00,#29,#00,#92,#C0,#0A
  477.                 DB #80,#10,#00,#A4,#00,#15,#01,#08,#01,#68,#00,#D2,#00,#45,#80,#16
  478.                 DB #80,#16,#00,#05,#00,#D0,#01,#68,#01,#68,#00,#08,#00,#08,#80,#16
  479.                 DB #80,#16,#00,#12,#00,#44,#01,#68,#01,#68,#00,#B2,#00,#25,#80,#16
  480.                 DB #80,#16,#00,#2A,#00,#AA,#01,#68,#01,#68,#00,#F2,#00,#25,#80,#16
  481.                 DB #80,#16,#00,#2B,#00,#EA,#01,#68,#01,#68,#00,#F2,#00,#25,#80,#16
  482.                 DB #80,#16,#00,#2A,#00,#E2,#01,#68,#01,#68,#00,#05,#00,#95,#80,#16
  483.                 DB #80,#10,#00,#C8,#00,#0B,#01,#08,#03,#F0,#00,#E4,#00,#27,#C0,#0F
  484.                 DB #E0,#00,#00,#18,#00,#18,#07,#00,#0F,#00,#03,#E0,#C0,#07,#F0,#00
  485.                 DB #FF,#00,#E0,#00,#07,#00,#FF,#00,#FF,#00,#1F,#00,#F8,#00,#FF,#00
  486. SNAKESPR2
  487.                 DB #FF,#00,#C0,#09,#0F,#C0,#FF,#00,#FF,#00,#04,#20,#80,#16,#FF,#00
  488.                 DB #FF,#00,#00,#20,#00,#A0,#7F,#00,#3F,#00,#00,#23,#00,#26,#FF,#00
  489.                 DB #FF,#00,#80,#17,#00,#44,#1F,#80,#0F,#40,#00,#44,#00,#13,#FF,#00
  490.                 DB #FE,#00,#00,#64,#00,#29,#07,#20,#03,#90,#00,#29,#00,#88,#FC,#00
  491.                 DB #F8,#01,#00,#12,#00,#48,#01,#C8,#01,#08,#00,#90,#00,#65,#F0,#02
  492.                 DB #E0,#04,#00,#E8,#00,#44,#03,#70,#01,#80,#00,#A9,#00,#C7,#C0,#09
  493.                 DB #80,#13,#00,#80,#00,#02,#00,#00,#00,#CE,#00,#B4,#00,#03,#00,#27
  494.                 DB #00,#4E,#00,#06,#00,#11,#00,#31,#00,#05,#00,#8A,#00,#7C,#00,#5C
  495.                 DB #00,#58,#00,#81,#00,#CA,#00,#71,#00,#3A,#00,#DA,#00,#20,#00,#41
  496.                 DB #00,#22,#00,#54,#00,#11,#00,#19,#00,#21,#00,#30,#00,#AA,#80,#14
  497.                 DB #80,#14,#00,#5F,#00,#20,#00,#52,#00,#9C,#00,#20,#00,#BE,#80,#14
  498.                 DB #80,#15,#00,#5D,#00,#21,#01,#20,#03,#A0,#00,#43,#00,#BE,#80,#14
  499.                 DB #80,#14,#00,#54,#00,#87,#0F,#40,#1F,#80,#00,#0E,#00,#09,#C0,#0A
  500.                 DB #E0,#05,#00,#02,#00,#1D,#3F,#00,#7F,#00,#00,#3A,#00,#BC,#F0,#02
  501.                 DB #F8,#01,#00,#02,#00,#74,#FF,#00,#FF,#00,#01,#08,#00,#FD,#FC,#00
  502.                 DB #FE,#00,#00,#00,#03,#F0,#FF,#00,#FF,#00,#07,#00,#02,#00,#FF,#00
  503. SNAKESPR3
  504.                 DB #FF,#00,#FF,#00,#F0,#00,#FF,#00,#7F,#00,#60,#00,#00,#00,#F8,#00
  505.                 DB #F8,#00,#00,#00,#00,#0F,#3F,#00,#1F,#80,#00,#90,#00,#FF,#F0,#07
  506.                 DB #E0,#08,#00,#00,#00,#76,#0F,#40,#07,#20,#00,#06,#00,#FF,#E0,#0B
  507.                 DB #E0,#0B,#00,#FF,#00,#76,#07,#A0,#07,#20,#00,#06,#00,#00,#E0,#08
  508.                 DB #F0,#06,#00,#01,#00,#70,#0F,#C0,#03,#80,#00,#90,#00,#F8,#E0,#05
  509.                 DB #C0,#0A,#00,#04,#00,#4F,#01,#00,#00,#1C,#00,#30,#00,#AA,#80,#14
  510.                 DB #80,#11,#00,#55,#00,#CC,#00,#64,#00,#84,#00,#37,#00,#FC,#00,#28
  511.                 DB #00,#29,#00,#F9,#00,#84,#00,#14,#00,#B4,#00,#8A,#00,#FD,#00,#2B
  512.                 DB #00,#29,#00,#7D,#00,#88,#00,#34,#00,#14,#00,#34,#00,#A8,#00,#2A
  513.                 DB #00,#29,#00,#55,#00,#C7,#00,#84,#00,#64,#00,#0C,#00,#A2,#00,#24
  514.                 DB #80,#12,#00,#04,#00,#30,#00,#1C,#01,#00,#00,#4F,#00,#F8,#80,#11
  515.                 DB #C0,#08,#00,#00,#00,#90,#03,#80,#0F,#C0,#00,#70,#00,#00,#E0,#06
  516.                 DB #C0,#08,#00,#00,#00,#06,#07,#20,#07,#A0,#00,#76,#00,#FF,#C0,#0B
  517.                 DB #C0,#0B,#00,#FF,#00,#06,#07,#20,#0F,#C0,#00,#70,#00,#00,#C0,#08
  518.                 DB #E0,#07,#00,#FF,#00,#90,#1F,#80,#3F,#00,#00,#0F,#00,#00,#F0,#00
  519.                 DB #F8,#00,#00,#00,#60,#00,#7F,#00,#FF,#00,#F0,#00,#FF,#00,#FF,#00
  520. SNAKETAILSPR
  521.                 DB #F8,#00,#21,#00,#CE,#00,#1F,#00,#0F,#00,#80,#00,#00,#00,#F0,#00
  522.                 DB #E0,#07,#00,#DE,#00,#31,#07,#E0,#03,#10,#00,#4E,#00,#21,#C0,#08
  523.                 DB #80,#12,#00,#CE,#00,#90,#01,#28,#00,#54,#00,#3A,#00,#A6,#00,#25
  524.                 DB #00,#2B,#00,#70,#00,#01,#00,#64,#00,#B4,#00,#E7,#00,#E7,#00,#20
  525.                 DB #80,#11,#00,#DF,#00,#F7,#00,#D4,#01,#E8,#00,#E3,#00,#A7,#80,#12
  526.                 DB #00,#21,#00,#43,#00,#C9,#00,#E4,#00,#44,#00,#9C,#00,#B1,#00,#28
  527.                 DB #00,#2C,#00,#B9,#00,#3D,#00,#14,#00,#B4,#00,#7B,#00,#5A,#00,#24
  528.                 DB #80,#10,#00,#A4,#00,#F7,#01,#A8,#03,#90,#00,#EF,#00,#59,#C0,#08
  529.                 DB #C0,#08,#00,#23,#00,#DF,#03,#90,#01,#A8,#00,#A7,#00,#03,#80,#10
  530.                 DB #00,#28,#00,#15,#00,#43,#00,#B4,#00,#14,#00,#B1,#00,#0A,#00,#2C
  531.                 DB #00,#24,#00,#04,#00,#B9,#00,#44,#00,#E4,#00,#5A,#00,#01,#80,#10
  532.                 DB #C0,#08,#00,#80,#00,#A5,#01,#C8,#00,#B4,#00,#5B,#00,#60,#80,#10
  533.                 DB #00,#20,#00,#F0,#00,#01,#00,#64,#00,#D4,#00,#00,#00,#78,#00,#23
  534.                 DB #80,#15,#00,#A6,#00,#31,#00,#A4,#01,#48,#00,#B8,#00,#CE,#C0,#0A
  535.                 DB #E0,#04,#00,#31,#00,#46,#03,#10,#07,#E0,#00,#39,#00,#CE,#F0,#03
  536.                 DB #F8,#00,#00,#00,#80,#00,#0F,#00,#1F,#00,#C6,#00,#31,#00,#FC,#00
  537.  
  538. TAILATR         DB #46,#46,#46,#46
  539.                 DB #46,#0F,#4F,#46
  540.                 DB #46,#0F,#0F,#46
  541.                 DB #46,#46,#46,#46
  542.  
  543. SNAKATR
  544.                 DB #46,#46,#46,#46
  545.                 DB #46,#0D,#0D,#46
  546.                 DB #46,#4D,#4D,#46
  547.                 DB #46,#46,#46,#46
  548.  
  549.                 DB #46,#46,#46,#46
  550.                 DB #46,#0D,#4D,#46
  551.                 DB #46,#0D,#4D,#46
  552.                 DB #46,#46,#46,#46
  553.  
  554.                 DB #46,#46,#46,#46
  555.                 DB #46,#4D,#0D,#46
  556.                 DB #46,#4D,#0D,#46
  557.                 DB #46,#46,#46,#46
  558.  
  559.                 DB #46,#46,#46,#46
  560.                 DB #46,#0D,#4D,#46
  561.                 DB #46,#0D,#4D,#46
  562.                 DB #46,#46,#46,#46
  563.  
  564.                 DB #46,#46,#46,#46
  565.                 DB #46,#4D,#4D,#46
  566.                 DB #46,#0D,#0D,#46
  567.                 DB #46,#46,#46,#46
  568.  
  569.                 DB #46,#46,#46,#46
  570.                 DB #46,#4D,#0D,#46
  571.                 DB #46,#4D,#0D,#46
  572.                 DB #46,#46,#46,#46
  573.  
  574.                 DB #46,#46,#46,#46
  575.                 DB #46,#0D,#4D,#46
  576.                 DB #46,#0D,#4D,#46
  577.                 DB #46,#46,#46,#46
  578.  
  579.                 DB #46,#46,#46,#46
  580.                 DB #46,#4D,#0D,#46
  581.                 DB #46,#4D,#0D,#46
  582.                 DB #46,#46,#46,#46
  583.  
  584. ;***************************************
  585.  
  586. BADDYCLIMB81
  587.                 DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#F9,#00,#FF,#00,#FF,#00
  588.                 DB #FF,#00,#FF,#00,#C0,#00,#7F,#00,#3F,#00,#80,#06,#F1,#00,#FF,#00
  589.                 DB #FF,#00,#C0,#00,#00,#35,#1F,#80,#3F,#00,#00,#29,#80,#1F,#FF,#00
  590.                 DB #FF,#00,#00,#20,#00,#90,#1F,#80,#3F,#00,#00,#41,#00,#40,#FE,#00
  591.                 DB #FC,#00,#00,#40,#00,#48,#1F,#80,#3F,#00,#00,#41,#00,#40,#FC,#00
  592.                 DB #F8,#00,#00,#40,#00,#7A,#7F,#00,#3F,#00,#00,#C5,#00,#21,#F0,#00
  593.                 DB #E0,#07,#00,#BF,#00,#32,#7F,#00,#3F,#00,#00,#B9,#00,#E3,#C0,#08
  594.                 DB #80,#13,#00,#7F,#00,#F9,#3F,#00,#3F,#00,#00,#F1,#00,#FF,#00,#27
  595.                 DB #00,#27,#00,#7F,#00,#82,#7F,#00,#FF,#00,#00,#C4,#00,#7F,#00,#23
  596.                 DB #80,#10,#00,#EE,#01,#E8,#FF,#00,#FF,#00,#03,#10,#00,#1F,#00,#2C
  597.                 DB #00,#22,#00,#7F,#03,#D0,#FF,#00,#FF,#00,#07,#20,#00,#80,#80,#1D
  598. BADDYCLIMB82
  599.                 DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#F1,#00,#FF,#00
  600.                 DB #FF,#00,#C0,#00,#FF,#00,#FF,#00,#FF,#00,#7F,#00,#80,#3E,#FF,#00
  601.                 DB #F3,#00,#00,#41,#33,#00,#FF,#00,#FF,#00,#00,#80,#00,#80,#C0,#00
  602.                 DB #80,#0C,#00,#80,#00,#8C,#7F,#00,#3F,#00,#00,#8B,#00,#80,#00,#34
  603.                 DB #00,#50,#00,#80,#00,#82,#1F,#80,#3F,#00,#00,#39,#00,#41,#80,#26
  604.                 DB #00,#48,#00,#3E,#00,#44,#1F,#80,#3F,#00,#00,#B2,#00,#A3,#00,#13
  605.                 DB #00,#27,#00,#7F,#00,#F9,#3F,#00,#3F,#00,#00,#F9,#00,#FF,#00,#27
  606.                 DB #00,#23,#00,#7F,#00,#B1,#3F,#00,#7F,#00,#00,#C2,#00,#7F,#80,#10
  607.                 DB #C0,#0C,#00,#EE,#00,#EC,#FF,#00,#FF,#00,#01,#10,#00,#1F,#E0,#02
  608.                 DB #F0,#01,#00,#7F,#03,#D0,#FF,#00,#FF,#00,#03,#00,#00,#00,#FC,#00
  609. BADDYCLIMB83
  610.                 DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#E7,#00
  611.                 DB #80,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#71,#00,#00,#18
  612.                 DB #00,#6B,#00,#00,#FF,#00,#FF,#00,#FF,#00,#7F,#00,#00,#7C,#80,#25
  613.                 DB #00,#42,#00,#82,#3F,#00,#FF,#00,#FF,#00,#1F,#00,#00,#01,#80,#21
  614.                 DB #00,#45,#00,#01,#0F,#00,#FF,#00,#FF,#00,#0F,#00,#00,#01,#00,#21
  615.                 DB #80,#17,#00,#01,#07,#00,#FF,#00,#FF,#00,#03,#00,#00,#82,#00,#28
  616.                 DB #80,#13,#00,#7E,#01,#78,#FF,#00,#FF,#00,#00,#84,#00,#A2,#00,#27
  617.                 DB #00,#27,#00,#7F,#00,#B2,#7F,#00,#3F,#00,#00,#F9,#00,#FF,#00,#23
  618.                 DB #80,#10,#00,#7F,#00,#F9,#3F,#00,#3F,#00,#00,#B1,#00,#7F,#C0,#0C
  619.                 DB #E0,#02,#00,#EE,#00,#C2,#7F,#00,#3F,#00,#00,#0D,#00,#1F,#F0,#02
  620.                 DB #F8,#01,#00,#7F,#00,#D1,#3F,#00,#7F,#00,#00,#0E,#00,#80,#FC,#00
  621. BADDYCLIMB84
  622.                 DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#F1,#00,#FF,#00
  623.                 DB #FF,#00,#C0,#00,#FF,#00,#FF,#00,#FF,#00,#7F,#00,#80,#3E,#FF,#00
  624.                 DB #F1,#00,#00,#41,#23,#00,#FF,#00,#FF,#00,#01,#80,#00,#80,#E0,#00
  625.                 DB #C0,#0E,#00,#80,#00,#9C,#FF,#00,#7F,#00,#00,#A2,#00,#80,#80,#11
  626.                 DB #00,#21,#00,#80,#00,#A1,#3F,#00,#3F,#00,#00,#59,#00,#41,#00,#26
  627.                 DB #80,#08,#00,#3E,#00,#04,#7F,#00,#7F,#00,#00,#B2,#00,#A3,#80,#13
  628.                 DB #00,#27,#00,#7F,#00,#F9,#3F,#00,#3F,#00,#00,#F9,#00,#FF,#00,#27
  629.                 DB #00,#23,#00,#7F,#00,#B1,#3F,#00,#7F,#00,#00,#C2,#00,#7F,#80,#10
  630.                 DB #C0,#0C,#00,#EE,#00,#EC,#FF,#00,#FF,#00,#01,#10,#00,#1F,#E0,#02
  631.                 DB #F0,#01,#00,#7F,#03,#A0,#FF,#00,#FF,#00,#0F,#00,#00,#80,#FC,#00
  632.  
  633. PRTBLADE        LD A,D:AND $F0:LD D,A:CP $70:JP NC,NEXT1
  634.                 LD A,(POS):LD HL,BLADESPR1:AND 1:JR Z,BLADSP
  635.                 LD HL,BLADESPR2
  636. BLADSP          PUSH BC:PUSH DE:LD BC,$030C:CALL MASKCXB:POP DE
  637.                 LD HL,BLADEATR:LD BC,$0202:CALL BAXATR
  638.                 POP BC:JP NEXT1
  639.  
  640. BLADEATR        DB #00,#00,#00,#72
  641.  
  642. BLADESPR1
  643.                 DB #FF,#00,#C1,#00,#FF,#00,#FF,#00,#80,#1C,#FF,#00,#FF,#00,#00,#22
  644.                 DB #7F,#00,#7F,#00,#00,#42,#FE,#00,#FC,#00,#00,#82,#7F,#00,#3F,#00
  645.                 DB #00,#83,#F8,#01,#F0,#02,#00,#3C,#1F,#80,#0F,#40,#00,#C3,#C0,#04
  646.                 DB #80,#05,#00,#FF,#07,#A0,#03,#B0,#00,#E7,#00,#39,#00,#42,#00,#CB
  647.                 DB #01,#48,#00,#44,#00,#85,#00,#42,#00,#22,#00,#81,#00,#42,#00,#42
  648.                 DB #00,#C3,#80,#12,#C0,#09,#00,#E7,#00,#BC,#01,#A0,#00,#FF,#E0,#05
  649.                 DB #E0,#04,#00,#C3,#03,#40,#1F,#80,#00,#3C,#F0,#02,#F8,#01,#00,#83
  650.                 DB #3F,#00,#7F,#00,#00,#82,#FC,#00,#FC,#00,#00,#84,#FF,#00,#FF,#00
  651.                 DB #01,#88,#FC,#00,#FE,#00,#03,#70,#FF,#00,#FF,#00,#07,#00,#FF,#00
  652. BLADESPR2
  653.                 DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#F8,#00,#F0,#00,#43,#00
  654.                 DB #FF,#00,#0F,#00,#00,#00,#E0,#07,#C0,#08,#00,#BC,#07,#00,#03,#F0
  655.                 DB #00,#43,#C0,#08,#C0,#08,#00,#3C,#01,#08,#01,#08,#00,#DB,#C0,#08
  656.                 DB #C0,#09,#00,#BD,#03,#90,#07,#A0,#00,#7E,#C0,#09,#80,#13,#00,#E7
  657.                 DB #03,#D0,#03,#D0,#00,#CB,#80,#13,#80,#13,#00,#C3,#03,#D0,#03,#D0
  658.                 DB #00,#E7,#80,#13,#C0,#09,#00,#7E,#07,#A0,#07,#A0,#00,#BD,#80,#11
  659.                 DB #00,#20,#00,#DB,#07,#20,#07,#20,#00,#3C,#00,#20,#80,#1F,#00,#80
  660.                 DB #07,#20,#07,#20,#00,#7E,#C0,#00,#E0,#00,#00,#01,#0F,#40,#1F,#80
  661.                 DB #80,#00,#FF,#00,#FF,#00,#FE,#00,#3F,#00,#7F,#00,#FF,#00,#FF,#00
  662.  
  663. LEVEL8END
  664.  
  665. ;***************************************
  666.  
  667. L8CHRS
  668.                 DB #C1,#60,#B0,#71,#B2,#65,#C2,#05,#80,#0C,#1E,#8E,#C4,#60,#E2,#73
  669.                 DB #02,#61,#B8,#5C,#BC,#58,#B8,#70,#F7,#E2,#C0,#1C,#2E,#5E,#2E,#18
  670.                 DB #EF,#47,#03,#38,#74,#7A,#74,#18,#40,#86,#1D,#3A,#3D,#1A,#1D,#0E
  671.                 DB #00,#40,#E3,#F7,#E6,#47,#02,#00,#67,#D1,#A0,#50,#A7,#4E,#8D,#1E
  672.                 DB #E6,#8B,#05,#0A,#E5,#72,#B1,#78,#00,#02,#C7,#EF,#67,#E2,#40,#00
  673.                 DB #B8,#58,#B1,#72,#E1,#C2,#05,#02,#08,#9C,#CC,#E1,#E3,#E7,#63,#C0
  674.                 DB #10,#39,#33,#87,#C7,#E7,#C6,#03,#1D,#1A,#8D,#4E,#87,#43,#A0,#40
  675.                 DB #01,#30,#78,#71,#23,#06,#47,#CE,#83,#06,#0D,#8E,#4D,#A6,#43,#A0
  676.                 DB #83,#11,#08,#38,#78,#78,#31,#82,#80,#02,#00,#08,#01,#C8,#E2,#F0
  677.                 DB #00,#00,#00,#20,#08,#00,#00,#82,#C0,#64,#0E,#C7,#80,#76,#BB,#5B
  678.                 DB #C0,#EC,#46,#32,#38,#58,#22,#95,#08,#00,#00,#00,#02,#00,#21,#80
  679.                 DB #00,#07,#6F,#C2,#B8,#7D,#BC,#70,#06,#CC,#82,#30,#BD,#78,#B8,#71
  680.                 DB #EF,#47,#03,#38,#14,#0A,#24,#00,#40,#86,#1D,#3A,#3D,#1A,#1D,#4E
  681.                 DB #09,#00,#01,#00,#80,#60,#B0,#70,#00,#00,#02,#24,#8A,#04,#02,#00
  682.                 DB #C0,#4F,#9F,#3F,#7F,#7F,#D7,#AA,#60,#0F,#9F,#CF,#CF,#C5,#4A,#85
  683.                 DB #95,#0A,#01,#81,#2E,#00,#11,#00,#40,#80,#10,#07,#20,#82,#10,#00
  684.                 DB #35,#22,#80,#CE,#E7,#E7,#A3,#25,#02,#01,#F2,#38,#3C,#8C,#96,#8E
  685.                 DB #42,#45,#81,#01,#23,#9C,#21,#02,#96,#8A,#84,#04,#18,#E0,#10,#00
  686.                 DB #E0,#CF,#9F,#3F,#7F,#7F,#D7,#AA,#95,#0A,#01,#81,#2E,#00,#11,#00
  687.                 DB #40,#80,#10,#07,#20,#82,#10,#00,#E0,#CC,#9F,#3F,#7F,#7F,#D7,#AA
  688.                 DB #00,#03,#07,#82,#81,#C0,#40,#80,#95,#0A,#01,#80,#2E,#00,#11,#00
  689.                 DB #40,#80,#00,#00,#20,#82,#10,#00,#04,#0C,#04,#0C,#04,#0C,#04,#0C
  690.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#FE,#FF,#00,#00,#00,#00
  691.                 DB #00,#00,#AA,#55,#00,#00,#00,#00,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF
  692.                 DB #00,#00,#3F,#21,#2D,#29,#21,#29,#00,#00,#00,#00,#7F,#7F,#7F,#7F
  693.                 DB #21,#21,#21,#3F,#80,#FF,#FF,#FF,#00,#7F,#00,#00,#00,#FB,#FD,#FE
  694.                 DB #00,#00,#00,#00,#D4,#AA,#D5,#EA,#00,#FF,#00,#00,#00,#FF,#FF,#FF
  695.                 DB #FF,#FF,#FF,#FF,#00,#FF,#8C,#8C,#FF,#FF,#FF,#FF,#00,#FF,#63,#63
  696.                 DB #FF,#00,#00,#AA,#55,#AA,#55,#AA,#FF,#FF,#FF,#FF,#00,#FF,#18,#18
  697.                 DB #F7,#FB,#FD,#FE,#00,#FE,#C6,#C6,#FE,#00,#00,#A2,#45,#A2,#45,#A2
  698.                 DB #00,#7F,#00,#00,#00,#FF,#FF,#FF,#00,#18,#27,#40,#23,#47,#47,#47
  699.                 DB #00,#F1,#0E,#60,#FF,#FF,#FF,#FF,#23,#23,#11,#08,#11,#23,#47,#43
  700.                 DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#00,#C0,#30,#08,#C4,#E2,#C4,#E2
  701.                 DB #C4,#88,#C4,#C4,#C4,#88,#10,#88,#23,#23,#47,#43,#20,#18,#07,#00
  702.                 DB #FF,#FF,#FF,#CB,#00,#E4,#1B,#00,#FF,#FF,#FF,#0E,#00,#F1,#0E,#00
  703.                 DB #C8,#C4,#C4,#22,#02,#84,#78,#00,#00,#00,#00,#20,#00,#00,#00,#08
  704.                 DB #10,#00,#00,#00,#00,#00,#00,#40,#00,#10,#00,#00,#88,#80,#00,#00
  705.                 DB #00,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#00,#FB,#FD,#FE,#FF,#FF,#FF,#FF
  706.                 DB #21,#21,#21,#3F,#00,#BF,#DF,#EF,#F7,#FB,#FD,#FE,#FF,#FF,#FF,#FF
  707.                 DB #FF,#FF,#FF,#FF,#7F,#BF,#DF,#EF,#00,#7F,#7F,#7F,#7F,#BF,#DF,#EF
  708.                 DB #00,#FF,#00,#00,#00,#BF,#DF,#EF,#00,#7F,#7F,#7F,#7F,#FF,#FF,#FF
  709.                 DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
  710.                 DB #00,#80,#00,#00,#41,#00,#00,#08,#00,#42,#00,#10,#00,#01,#08,#20
  711.                 DB #00,#00,#04,#00,#01,#00,#00,#08,#00,#08,#00,#00,#01,#40,#04,#40
  712.                 DB #02,#20,#00,#00,#09,#02,#00,#20,#00,#00,#00,#10,#00,#00,#08,#20
  713.                 DB #00,#08,#00,#00,#01,#40,#04,#00
  714. L8ATRS
  715.                 DB #46,#06,#46,#06,#06,#46,#06,#46,#46,#06,#46,#06,#06,#46,#06,#46
  716.                 DB #46,#46,#47,#46,#46,#47,#46,#46,#06,#46,#46,#46,#46,#46,#46,#46
  717.                 DB #06,#46,#06,#06,#46,#06,#06,#46,#46,#06,#06,#46,#47,#46,#06,#46
  718.                 DB #47,#46,#46,#46,#06,#46,#46,#46,#45,#46,#46,#45,#46,#06,#06,#06
  719.                 DB #06,#06,#06,#06,#06,#06,#06,#47,#47,#47,#46,#46,#46,#46,#46,#46
  720.                 DB #46,#46,#46,#06,#46,#46,#46,#46,#46,#46,#46
  721. L8BLOX
  722.                 DB #36,#37,#38,#38,#39,#3A,#38,#3B,#2B,#52,#2B,#2D,#53,#2B,#2E,#2B
  723.                 DB #30,#31,#32,#33,#34,#30,#35,#32,#3D,#3E,#3F,#40,#3E,#41,#40,#42
  724.                 DB #3F,#40,#43,#44,#40,#42,#45,#46,#27,#28,#29,#2A,#20,#21,#22,#23
  725.                 DB #24,#1D,#25,#26,#2B,#2C,#30,#31,#2C,#2B,#34,#30,#0C,#0D,#0E,#0F
  726.                 DB #12,#15,#16,#17,#18,#19,#1A,#1B,#1C,#1D,#1E,#1F,#00,#01,#10,#11
  727.                 DB #00,#01,#02,#03,#04,#05,#06,#07,#47,#12,#13,#14,#12,#15,#13,#14
  728.                 DB #15,#12,#16,#17,#52,#53,#52,#53,#4C,#3C,#4D,#4E,#35,#32,#2F,#2F
  729.                 DB #4F,#4A,#4D,#4E,#32,#3C,#2F,#2F,#50,#32,#4D,#4E,#15,#12,#13,#14
  730.                 DB #08,#09,#0A,#0B,#51,#4B,#2F,#2F,#4A,#4B,#2F,#2F,#48,#49,#49,#54
  731.                 DB #58,#55,#56,#57,#52,#59,#56,#5A
  732. L8MAPX
  733. L8MAPY          DB #14,#23
  734.                 DB #24,#25,#25,#25,#06,#07,#25,#24,#25,#23,#15,#20,#23,#25,#24,#25
  735.                 DB #25,#08,#09,#25,#24,#25,#23,#0F,#14,#23,#24,#25,#25,#24,#02,#03
  736.                 DB #25,#24,#25,#23,#15,#20,#23,#24,#24,#25,#25,#02,#03,#25,#24,#25
  737.                 DB #23,#0F,#14,#23,#25,#24,#24,#25,#02,#03,#25,#25,#24,#23,#15,#20
  738.                 DB #23,#25,#24,#25,#24,#02,#03,#25,#25,#24,#23,#0F,#13,#16,#18,#1F
  739.                 DB #18,#1F,#04,#05,#10,#17,#10,#17,#11,#12,#0B,#0C,#0B,#0C,#0B,#0C
  740.                 DB #0B,#0C,#0B,#0C,#0B,#0A,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19
  741.                 DB #02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19
  742.                 DB #19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03
  743.                 DB #19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03
  744.                 DB #19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03
  745.                 DB #19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03
  746.                 DB #19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02
  747.                 DB #03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02
  748.                 DB #03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02
  749.                 DB #03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02
  750.                 DB #03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19
  751.                 DB #02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19
  752.                 DB #02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19
  753.                 DB #02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19
  754.                 DB #02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19
  755.                 DB #19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03
  756.                 DB #19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03
  757.                 DB #19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03
  758.                 DB #19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03
  759.                 DB #19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02
  760.                 DB #03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02
  761.                 DB #03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02
  762.                 DB #03,#19,#02,#03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02
  763.                 DB #03,#19,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19
  764.                 DB #02,#03,#19,#02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#02,#03,#19
  765.                 DB #02,#03,#19,#02,#03,#19,#02,#03,#19,#19,#0D,#0E,#19,#0D,#0E,#19
  766.                 DB #0D,#0E,#19,#0D,#0E,#19,#22,#1A,#1B,#1C,#1D,#1E,#21,#1A,#1B,#1C
  767.                 DB #1D,#1E,#21,#00,#01,#00,#01,#00,#01,#00,#01,#00,#01,#00,#01,#00
  768. L8END
  769.                 ;ENDIF
  770.  
  771.                 UNPHASE
  772.  
  773. ;****************************************************************************
  774. ;** END OF FILE                                                            **
  775. ;****************************************************************************