home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 82 / asm / source / crash / deadeyes.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  157.6 KB  |  8,170 lines
  1. ;        Dying Eyes
  2. ;
  3. ;  "tired disguised oblivion...is everything i do"
  4. ;
  5. ; "in the company of pseudo-suns...
  6. ;    happy birthday to me"
  7. ;
  8. ; "i think i've reached that point...
  9. ;      where giving up and going on..are both the same dead end to me
  10. ;   both the same old song"
  11. ;
  12. ; "goodbye my little moon...i'd rather look at Saturn"
  13. ;
  14. ; Innovated by Alex Highsmith
  15. ;
  16. ;     TO DO: TOWER. END OF GAME
  17. ;
  18.  
  19. #include "crash82.inc"
  20.  
  21. .db "Dying Eyes",0
  22.  
  23. G_2nd = G_2ND
  24. TempLine = TEXT_MEM+1
  25. PicCoor = TEXT_MEM+20
  26. offset = TEXT_MEM+22
  27. NASR_Status = TEXT_MEM+23
  28. KURAICOUNTER = TEXT_MEM+24
  29. ENEMYCOUNTER1 = TEXT_MEM+25
  30. OK = TEXT_MEM+27
  31. BKX = TEXT_MEM+61
  32. BKY = TEXT_MEM+62
  33. WHICHENEMY = TEXT_MEM+30
  34. NUMBEROFENEMIES = TEXT_MEM+31
  35. ENEMYHP1 = TEXT_MEM+32
  36. ENEMYHP2 = TEXT_MEM+34
  37. ENEMYHP3 = TEXT_MEM+36
  38. ENEMYST1 = TEXT_MEM+38
  39. ENEMYST2 = TEXT_MEM+40
  40. ENEMYST3 = TEXT_MEM+42
  41. ENEMYSPEED1 = TEXT_MEM+44
  42. ENEMYSPEED2 = TEXT_MEM+46
  43. ENEMYSPEED3 = TEXT_MEM+48
  44. ENEMYCOUNTER2 = TEXT_MEM+49
  45. DUMMY1 = TEXT_MEM+51
  46. DUMMY2 = TEXT_MEM+52
  47. ENEMYBACK1 = TEXT_MEM+55
  48. ENEMYBACK2 = TEXT_MEM+57
  49. ENEMYBACK3 = TEXT_MEM+59
  50. Save = TEXT_MEM+63
  51. COUNTER = TEXT_MEM+65
  52. MAXDEFENSE = TEXT_MEM+66
  53. REGENCHECK = TEXT_MEM
  54. XPGAINED = TEXT_MEM2+70
  55. ENEMYDFD1 = TEXT_MEM2+64
  56. ENEMYDFD2 = TEXT_MEM2+66
  57. ENEMYDFD3 = TEXT_MEM2+68    
  58.  
  59. MAPVAR = TEXT_MEM2+60
  60. STRENGTHMAX = TEXT_MEM2+78
  61. BUILDUP = TEXT_MEM2+74
  62. RELIFE = TEXT_MEM2+75
  63. DEFENSEMAX = TEXT_MEM2+76
  64. LEADERCHECK = TEXT_MEM2+80
  65.  
  66. ;;Save VARS
  67.  
  68. TOLEVEL = TEXT_MEM2+82
  69. HP = TEXT_MEM2+84 
  70. MP = TEXT_MEM2+86
  71. XP = TEXT_MEM2+88
  72. GOLD = TEXT_MEM2+90
  73. MAXHP = TEXT_MEM2+92
  74. STRENGTH = TEXT_MEM2+94
  75. KURAILEVEL = TEXT_MEM2+96
  76. MAXMP = TEXT_MEM2+98
  77. SPEED = TEXT_MEM2+100
  78. INTELLIGENCE = TEXT_MEM2+102
  79. WEAPON = TEXT_MEM2+104
  80. DEFENSE = TEXT_MEM2+106
  81. DUNGEONCHECK = TEXT_MEM2+108
  82.  
  83. SCENARIO = TEXT_MEM+108
  84. ENEMYCOUNTER3 = TEXT_MEM+109
  85. DOUBLE = TEXT_MEM2+110
  86.  
  87. BMPLOC = TEXT_MEM+68 ;$808F
  88. MAPINDEX = TEXT_MEM+70 ;$8091 ; 8092
  89. MAPSTART = TEXT_MEM+72 ;$8093 ; 8094
  90. VIDINDEX = TEXT_MEM+74 ;$8095 ; 8096
  91. WHEREAT = TEXT_MEM+76 ;$8097 ; 8098
  92. STANDING = TEXT_MEM+78 ;$8099 ; 809A
  93. COUNT = TEXT_MEM+90 ;$80A1
  94. X = TEXT_MEM+91 ;$809B
  95. Y = TEXT_MEM+92 ;$809C
  96. OLDX = TEXT_MEM+84 ;$809D ; 809E
  97. OLDWHERE = TEXT_MEM+86 ;$809F ; 80A0
  98.  
  99.  ld a,%10001100  ;Needed for FIND_PIXEL ($4116)
  100.  out (2),a
  101.  set 7,(IY+$14)
  102.      ld a,1
  103.      ld (NASR_Status),a    ;set to display pic   
  104. LOADGAME:
  105.     call DEADORLIVEMAN
  106.     ld (hl),0
  107.     call FADE_OUT
  108.     call DRAWWALLS
  109.     ld hl,NewGame    
  110.     ld de,$0E05
  111.     call DISPSTRING
  112.     ld bc,$2325
  113.     ld hl,Logo
  114.     call NASRWARP    
  115.     ld hl,SaveGame
  116.     ld de,$0705
  117.     call DISPSTRING    
  118.     call FADE_IN
  119. LOADLOOP2:
  120.     call GET_KEY
  121.              cp G_2
  122.     jr z,LOADGAME2       
  123.     cp G_3
  124.     jr z,NEWGAME
  125.              cp G_CLEAR
  126.     RET Z
  127.     cp G_1
  128.              jr nz,LOADLOOP2
  129. LOADGAME1:
  130.     ld hl,SaveSSI
  131.     ld (DUMMY1),hl
  132.             LD hl,SAVERAM
  133.     ld de,scenario1
  134.     jr LOADIT
  135. LOADGAME2:    
  136.     ld hl,SaveSSI2
  137.     ld (DUMMY1),hl
  138.             LD hl,SAVERAM2
  139.     ld de,scenario2
  140. LOADIT:
  141.     push de
  142.     LD DE,TOLEVEL
  143.             LD BC,28
  144.             LDIR
  145.     ld hl,Loaded
  146.     ld de,$2F22
  147.     call DISPSTRING
  148.  
  149.     ld hl,(DUMMY1)
  150.     ld de,WhichSpells
  151.      ld bc,24
  152.      ldir
  153.  
  154.     pop de
  155.     ex de,hl
  156.     ld a,(hl)
  157.     ld (SCENARIO),a    
  158.     call WaitKey
  159.     call ERASESCREEN
  160.     ld a,(DUNGEONCHECK)
  161.     cp 8
  162.     jp z,TOTOWN2
  163.     jp FROMLOAD
  164. NEWGAME:
  165.     ld de,Chests
  166.     ld hl,MAP2
  167.     call CHESTINIT
  168.     ld hl,MAP3
  169.     ld de,Chests2
  170.     call CHESTINIT
  171.  
  172. INITSLOTS:
  173.      ld hl,ZeroSet
  174.      ld de,WhichSpells
  175.       ld bc,24
  176.       ldir
  177.     xor a
  178.     ld (DOUBLE),a
  179.     ld (COUNTER),a
  180.     ld (SCENARIO),a
  181.     ld (LEADERCHECK),a    
  182.     inc a
  183.     ld (KURAILEVEL),a
  184.     ld (DUNGEONCHECK),a
  185.  
  186.     ld hl,0    
  187.     ld (MAXHP),hl
  188.     ld (TOLEVEL),hl
  189.     ld (MAXMP),hl
  190.     ld (STRENGTH),hl
  191.     ld (INTELLIGENCE),hl
  192.     ld (SPEED),hl
  193.     ld (XP),hl
  194.     ld (GOLD),hl
  195.     ld hl,5
  196.     ld (DEFENSE),hl
  197.     ld (WEAPON),hl
  198.     call DRAWWALLS
  199.     ld hl,172
  200.     call LEVELUP
  201.     call DRAWWALLS
  202.     call INVERTSCREEN
  203.     set 3,(IY+05)
  204.     ld de,$1720
  205.     ld hl,Awakened
  206.     call DISPSTRING3
  207.     ld de,KuraiText1
  208.     ld bc,KuraiText2
  209.     ld hl,KuraiText3
  210.     call KURAITALKS
  211. START:
  212.             LD DE,29
  213.             LD HL,$001D
  214.     jp MAP2PLACER
  215. UPDATEMOVE:            ; SET (X) TO NEW X,Y COORD
  216.     LD (WHEREAT),HL        ; SET HL TO POINT TO TOP-LEFT CORNER 
  217. DRAWMAP:            ; (X) AND (WHEREAT) SHOULD STILL BE UNCHANGED
  218.     call REFRESHMAP
  219.     LD A,(HL)
  220.             LD HL,(X)
  221.     LD (OLDX),HL
  222.     LD HL,(WHEREAT)
  223.     LD (OLDWHERE),HL
  224.     ld a,(COUNTER)
  225.     inc a
  226.     ld (COUNTER),a
  227.     cp 20
  228.     jp z,INITBATTLE
  229. KEYLOOP:
  230.             call GET_KEY
  231.     CP G_2nd
  232.             jp z,STATUSSCREEN
  233.     CP G_LEFT
  234.     JR Z,LEFT
  235.             CP G_RIGHT
  236.     JR Z,RIGHT
  237.             CP G_UP
  238.     jr z,UP
  239.             CP G_CLEAR
  240.             RET Z
  241.             CP G_DOWN
  242.     JR NZ,KEYLOOP
  243. DOWN:
  244.     LD HL,(STANDING)
  245.             LD DE,36
  246.     ADD HL,DE
  247.     LD A,(HL)
  248.     cp 3
  249.     jr nc,SOMETHING
  250.     LD A,(Y)
  251.     INC A
  252.     LD (Y),A
  253.     LD HL,(WHEREAT)
  254.             LD DE,36
  255.     ADD HL,DE
  256.     jr UPDATEMOVE
  257.  
  258. LEFT:
  259.     LD HL,(STANDING)
  260.     LD DE,$FFFF
  261.     ADD HL,DE
  262.     LD A,(HL)
  263.     cp 3
  264.     jr nc,SOMETHING
  265.     LD A,(X)
  266.     DEC A
  267.     LD (X),A
  268.     LD HL,(WHEREAT)
  269.     LD DE,$FFFF
  270.     ADD HL,DE
  271.     jr UPDATEMOVE
  272.  
  273. RIGHT:
  274.     LD HL,(STANDING)
  275.     inc hl
  276.     LD A,(HL)
  277.     cp 3
  278.     jr nc,SOMETHING
  279.     LD A,(X)
  280.     INC A
  281.     LD (X),A
  282.     LD HL,(WHEREAT)
  283.     inc hl
  284.     jp UPDATEMOVE
  285.  
  286. UP:
  287.     LD HL,(STANDING)
  288.             LD DE,$FFDC
  289.     ADD HL,DE
  290.     LD A,(HL)
  291.     CP 3
  292.     JR NC,SOMETHING
  293.             LD A,(Y)
  294.     DEC A
  295.     LD (Y),A
  296.     LD HL,(WHEREAT)
  297.             LD DE,$FFDC
  298.     ADD HL,DE
  299.     jp UPDATEMOVE
  300. SOMETHING:
  301.     ld a,(hl)
  302.             CP 7
  303.             jp z,KEYLOOP
  304.     CP 6
  305.     jp z,TOWN
  306.     CP 5
  307.     jp z,CASTLEORMAN
  308.     cp 4
  309.     jp z,CAVEORELSE
  310. STAIRS:
  311.     ld bc,(X)
  312.     ld a,(DUNGEONCHECK)
  313.     or a
  314.     jp z,TOWER
  315.     cp 4
  316.     jp z,FAITHCAVE
  317.     cp 7
  318.     jp z,BANDITSTAIRS
  319.     cp -1
  320.     jp z,LASTSTAIRS
  321.     cp -2
  322.     jp z,FAITHCAVE2 ; you get the faith armor
  323.     cp 8
  324.     jp nc,INTOWN
  325.     ld a,b
  326.     cp $0C
  327.     jr z,STAIRSOUT1
  328.     cp $03
  329.     jr z,STAIRS2
  330.     or a
  331.     jr z,STAIRSOUT2
  332.     cp $04
  333.     jr z,STAIRSD1
  334.     cp $0D
  335.     jr z,STAIRSD2
  336.     cp $0F
  337.     jr z,STAIRSD3
  338.     cp $07
  339.     jr z,STAIRSD5
  340.     cp $0B
  341.     jr z,STAIRSD6
  342.     cp $08
  343.     jr z,STAIRSD7
  344. STAIRS1:
  345.     ld bc,$0316  ;; Y,X
  346.     jr CONTINUEST
  347. STAIRS2:
  348.     ld a,(SCENARIO)
  349.     or a
  350.     call z,TALK1
  351.     ld bc,$0206  ;; Y,X
  352.     jr CONTINUEST
  353. STAIRSOUT1:
  354.     ld a,(DUNGEONCHECK)
  355.     cp 3
  356.     jr z,STAIRSD4
  357.     ld a,(SCENARIO)
  358.     cp 1
  359.     jp z,LEADER1
  360.             LD HL,$0C18
  361.             LD DE,456          
  362. JUMPTOMAP:
  363.     jp RETURNTOMAP2
  364. STAIRSOUT2:
  365.             LD HL,$0812
  366.             LD DE,306             
  367.     jr JUMPTOMAP
  368. STAIRSD1:
  369.     ld bc,$0D16
  370.     jr CONTINUEST
  371. STAIRSD2:
  372.     ld bc,$0412
  373.     jr CONTINUEST
  374. STAIRSD3:
  375.     ld bc,$0C0C
  376.     jr CONTINUEST
  377. STAIRSD4:
  378.     ld bc,$0F17
  379.     jr CONTINUEST
  380. STAIRSD5:
  381.     ld bc,$0B11  
  382.     jr CONTINUEST
  383. STAIRSD7:
  384.     ld a,(SCENARIO)
  385.     cp 4
  386.     jr c,LOCKED
  387.     jp z,LEADER3
  388. STAIRSOUT3: ;; goes to other side
  389.             LD HL,$0810
  390.             LD DE,304
  391.     jp RETURNTOMAP3
  392. STAIRSD6:
  393.     ld bc,$070C 
  394. CONTINUEST:
  395.     LD (X),bc
  396.     push bc
  397.     ld hl,0
  398. LOOPOF36:
  399.     ld de,36
  400.     add hl,de    
  401.     djnz LOOPOF36
  402.     pop bc
  403.     ld b,0
  404.     add hl,bc        
  405.     ex de,hl    
  406. FROMPLACE:
  407.     push de
  408.     LD HL,BITMAPS2
  409.     LD (BMPLOC),HL
  410.     LD HL,(MAPVAR)
  411.     LD (MAPSTART),HL
  412.     pop de
  413.     ADD HL,DE
  414.     jp UPDATEMOVE    
  415. LOCKED:
  416.     call DRAWWALLS
  417.     ld de,$1C1E
  418.     ld hl,Locked
  419.     call DISPSTRING    
  420.     jp RETFROMSTATS
  421.  
  422. FAITHCAVE:
  423.             ld a,b
  424.     cp $0E
  425.     jr z,STAIRSOUT4
  426.     cp $04
  427.     jr z,STAIRSE2
  428.     cp $02
  429.     jr z,STAIRSE3
  430.     cp $0B
  431.     jr z,STAIRSE4
  432.     cp $09
  433.     jr z,STAIRSE5
  434.     cp $03
  435.     jr z,STAIRSE6
  436.     cp $05
  437.     jr z,STAIRSE7
  438.     cp $13
  439.     jr z,STAIRSE9
  440.     cp $14
  441.     jr z,STAIRSE10
  442.     cp $01
  443.     jr z,STAIRSE11
  444.     cp $0C
  445.     jr z,STAIRSE12
  446.     or a
  447.     jr z,STAIRSE13
  448.     ;; stairs 8 have the same coord as stairs1, so it is within staire1:
  449. STAIRSE1:
  450.     LD bc,$0400
  451.     jr CONTINUEST
  452. STAIRSE2:
  453.     ld a,c
  454.     cp $1F
  455.     jr z,STAIRSE8
  456.     LD bc,$0700
  457.     jr CONTINUEST
  458. STAIRSE3:
  459.     LD bc,$0B08
  460. CONTINUEST2: ;;to save bytes
  461.     jr CONTINUEST
  462. STAIRSE4:
  463.     LD bc,$0200
  464.     jr CONTINUEST2
  465. STAIRSE5:
  466.     LD bc,$0307
  467.     jr CONTINUEST2
  468. STAIRSE6:
  469.     LD bc,$0907
  470.     jr CONTINUEST2
  471. STAIRSE7:
  472.     LD bc,$041F
  473.     jr CONTINUEST2
  474. STAIRSE8:
  475.     ld bc,$0506
  476.     jr CONTINUEST2
  477. STAIRSE9:
  478.     ld bc,$0117
  479.     jr CONTINUEST2
  480. STAIRSE10:
  481.     ld bc,$0C04
  482.     jr CONTINUEST2
  483. STAIRSE11:
  484.     ld bc,$131D
  485.     jr CONTINUEST2
  486. STAIRSE12:
  487.     ld bc,$141D
  488.     jr CONTINUEST2
  489. STAIRSE13:
  490.     ld a,(SCENARIO)
  491.     cp 6
  492.     jp z,LEADER4
  493. STAIRSOUT4: ;; leads out of faith cave
  494.     LD HL,$0202
  495.             LD DE,74
  496. RETURNTOMAP3C:     ;;to save bytes
  497.     jp RETURNTOMAP3
  498.  
  499. BANDITSTAIRS:
  500.     ld a,b
  501.     cp $0F
  502.     jr z,STAIRSF1
  503.     cp $08
  504.     jr z,STAIRSF2
  505.     cp $13
  506.     jr z,STAIRSOUT5
  507.     cp $06
  508.     jr z,STAIRSF5
  509.     cp $0D
  510.     jr z,STAIRSF6
  511.     cp $0A
  512.     jr z,STAIRSF7    
  513.     cp $01
  514.     jr z,STAIRSOUT6
  515. STAIRSF4:
  516.     ld a,c
  517.     cp $1F
  518.     jr z,STAIRSF8
  519.     ld bc,$0F16
  520.     jr CONTINUEST2
  521. STAIRSF1:
  522.     ld a,c
  523.     cp $16
  524.     jr z,STAIRSF3
  525.     ld bc,$0813
  526.     jr CONTINUEST2
  527. STAIRSF2:
  528.     ld bc,$0F09
  529.     jr CONTINUEST2
  530. STAIRSF6:
  531.     ld bc,$0616
  532.     jr CONTINUEST2
  533. STAIRSF5:
  534.     ld bc,$0D0F
  535. CONTINUEST3:;; to save bytes
  536.     jr CONTINUEST2
  537. STAIRSF8:
  538.     ld bc,$0A15
  539.     jr CONTINUEST3
  540. STAIRSF3:
  541.     ld bc,$0012
  542.     LD (X),bc
  543.     ld de,18
  544. FROMPLACE2: ;; to save bytes
  545.     jp FROMPLACE
  546.  
  547. STAIRSOUT6:
  548.     ld a,(SCENARIO)
  549.     cp 8
  550.     jp z,LEADER5
  551. STAIRSOUT5: ;; leads out of BANDITCASTLE
  552.     LD HL,$0BFF
  553.             LD DE,395
  554.     jr RETURNTOMAP3C
  555. STAIRSF7:
  556.     ld bc,$FF1F
  557.     LD (X),bc
  558.     ld de,-5
  559.     jr FROMPLACE2    
  560.  
  561. LASTSTAIRS:
  562.     ld a,b
  563.     cp $12
  564.     jp z,STAIRSL15
  565.     cp $04
  566.     jp z,STAIRSL16
  567.     cp $09
  568.     jr z,STAIRSL1
  569.     cp $0E
  570.     jr z,STAIRSL2
  571.     cp $13
  572.     jr z,STAIRSL3
  573.     cp $06
  574.     jr z,STAIRSL4
  575.     cp $01
  576.     jr z,STAIRSL5
  577.     cp $05
  578.     jp z,STAIRSL6
  579.     cp $07
  580.     jp z,STAIRSL7
  581.     cp $08
  582.     jp z,STAIRSL8
  583.     cp $14
  584.     jp z,STAIRSL9
  585.     cp $03
  586.     jp z,STAIRSL10
  587.     cp $0F
  588.     jp z,STAIRSL11
  589.     cp $0D
  590.     jp z,STAIRSL12
  591.     cp $0C
  592.     jp z,STAIRSL13
  593.     cp $02
  594.     jp z,STAIRSL14
  595. STAIRSOUT7:
  596.             LD HL,$0418
  597.             LD DE,168             
  598.     jp JUMPTOMAP    
  599. STAIRSL1:
  600.     ld a,c
  601.     cp $01
  602.     jr z,STAIRSL1LEFT
  603.     cp $11
  604.     jr z,STAIRSL1RIGHT
  605.     cp $1E
  606.     jr z,STAIRSL1RIGHTER
  607.     jr STAIRSOUT7
  608. STAIRSL1RIGHT:
  609.     ld bc,$091E
  610.     jr CONTINUEST4
  611. STAIRSL1LEFT:
  612.     ld bc,$0E04
  613.     jr CONTINUEST4
  614. STAIRSL1RIGHTER:
  615.     ld bc,$0911
  616.     jr CONTINUEST4
  617. STAIRSL2:
  618.     ld bc,$0901
  619.     jr CONTINUEST4
  620. STAIRSL3:
  621.     ld a,c
  622.     cp $09
  623.     jr z,STAIRSL3DOWN
  624.     cp $15
  625.     jr z,STAIRSL3SWITCH
  626.     ld bc,$0605
  627. CONTINUEST4:
  628.     jp CONTINUEST
  629. STAIRSL3DOWN:
  630.     ld bc,$0117
  631.     jr CONTINUEST4
  632. STAIRSL4:
  633.     ld bc,$1300
  634.     jr CONTINUEST4
  635. STAIRSL5:
  636.     ld a,c
  637.     cp $17
  638.     jr z,STAIRSL5RIGHT
  639.     cp $16
  640.     jr z,STAIRSL5LEFT
  641.     cp $09
  642.     jr z,STAIRS5UP
  643.     jp LEADER7 ;; last battle
  644. STAIRS5UP:
  645.     ld bc,$0717
  646.     jr CONTINUEST4
  647. STAIRSL5LEFT:    
  648.     ld bc,$050D
  649.     jr CONTINUEST4
  650. STAIRSL5RIGHT:
  651.     ld bc,$1309
  652.     jr CONTINUEST4
  653. STAIRSL6:
  654.     ld bc,$0116
  655.     jr CONTINUEST4
  656. STAIRSL7:
  657.     ld bc,$0109
  658.     jr CONTINUEST4
  659. STAIRSL8:
  660.     ld bc,$140E
  661.     jr CONTINUEST4
  662. STAIRSL9:
  663.     ld bc,$0816
  664.     jr CONTINUEST4
  665. STAIRSL10:
  666.     ld bc,$0F1F
  667.     jr CONTINUEST4
  668. STAIRSL11:
  669.     ld bc,$031D
  670.     jr CONTINUEST4
  671. STAIRSL12:
  672.     ld bc,$0C17
  673.     jr CONTINUEST4
  674. STAIRSL13:
  675.     ld bc,$0D1F
  676.     jr CONTINUEST4
  677. STAIRSL14:
  678.     ld bc,$1315
  679.     jr CONTINUEST4
  680. STAIRSL3SWITCH:
  681.     ld bc,$021B
  682.     jr CONTINUEST4
  683. STAIRSL15:
  684.     ld bc,$0411
  685.     jr CONTINUEST4
  686. STAIRSL16:
  687.     ld bc,$1211
  688.     jr CONTINUEST4
  689.     
  690.  
  691. FAITHCAVE2: ;; where you get the faith armor
  692.             LD HL,$0020
  693.             LD DE,32
  694.     jp JUMPTOMAP    
  695.  
  696. REFRESHMAP:
  697.     LD HL,(WHEREAT)
  698.     LD (MAPINDEX),HL
  699.             LD DE,$88B9
  700.     LD (VIDINDEX),DE
  701.     LD B,5
  702. TOP5LOOP:
  703.     PUSH BC
  704.     LD HL,(MAPINDEX)        ; PUT TYPE IN A, MOVE TO NEXT MAP BYTE
  705.     LD A,(HL)
  706.     INC HL
  707.     LD (MAPINDEX),HL
  708.     SLA A                ; 2
  709.     SLA A                ; 4
  710.     SLA A                ; 8
  711.     SLA A                ; 16
  712.     SLA A                ; 32
  713.     LD E,A
  714.     LD D,0
  715.     LD HL,(BMPLOC)
  716.     ADD HL,DE
  717.     LD DE,16
  718.     ADD HL,DE
  719.     LD DE,(VIDINDEX)
  720.     LD BC,$0802
  721.             call SMALLBMP
  722.     LD HL,(VIDINDEX)
  723.     INC HL
  724.     INC HL
  725.     LD (VIDINDEX),HL
  726.     POP BC
  727.     DJNZ TOP5LOOP
  728.     LD HL,(MAPINDEX)
  729.             LD DE,31
  730.     ADD HL,DE
  731.     LD (MAPINDEX),HL
  732.  
  733.             LD DE,$8919
  734.     LD (VIDINDEX),DE
  735.     LD B,4
  736. MID5:
  737.     PUSH BC
  738.     LD B,5
  739. MID5LOOP:
  740.     PUSH BC
  741.     LD HL,(MAPINDEX)        ; PUT TYPE IN A, MOVE TO NEXT MAP BYTE
  742.     LD A,(HL)
  743.     INC HL
  744.     LD (MAPINDEX),HL
  745.     SLA A                ; 2
  746.     SLA A                ; 4
  747.     SLA A                ; 8
  748.     SLA A                ; 16
  749.     SLA A                ; 32
  750.     LD E,A
  751.     LD D,0
  752.     LD HL,(BMPLOC)
  753.     ADD HL,DE
  754.     LD DE,(VIDINDEX)
  755.     LD BC,$1002
  756.             call SMALLBMP
  757.  
  758.     LD HL,(VIDINDEX)
  759.     INC HL
  760.     INC HL
  761.     LD (VIDINDEX),HL
  762.     POP BC
  763.     DJNZ MID5LOOP
  764.  
  765.     LD HL,(VIDINDEX)
  766.             LD DE,182
  767.     ADD HL,DE
  768.     LD (VIDINDEX),HL
  769.     LD HL,(MAPINDEX)
  770.             LD DE,31
  771.     ADD HL,DE
  772.     LD (MAPINDEX),HL
  773.     POP BC
  774.     DJNZ MID5
  775.  
  776.     LD HL,PLAYER
  777.             LD DE,$89DD
  778.     LD BC,$1002
  779.             call SMALLBMP
  780.     call CR_GRBCopy
  781.     LD HL,(WHEREAT)
  782.             LD DE,74
  783.     ADD HL,DE
  784.     LD (STANDING),HL
  785.     ret
  786.  
  787. SMALLBMP:                     ; HL=SRC
  788.             PUSH AF
  789.     XOR A            ; DE=DEST
  790.     LD (COUNT),A        ; B=LENGTH
  791. VERTLOOP:            ; C=WIDTH
  792.     PUSH BC
  793.     LD B,0
  794.     LDIR
  795.     POP BC
  796.     LD A,C
  797.     NEG
  798.     AND $F
  799.             SUB 4
  800. VERTINCDELOOP:
  801.     DEC A
  802.     INC DE
  803.     OR A
  804.     JR NZ,VERTINCDELOOP
  805.     LD A,(COUNT)
  806.     INC A
  807.     LD (COUNT),A
  808.     CP B
  809.     JR NZ,VERTLOOP
  810.             POP AF
  811.     ret
  812.  
  813. ;---------Battle Engine------------;
  814.  
  815. INITBATTLE:
  816.     ld a,(DUNGEONCHECK)
  817.     cp -1
  818.     jr z,RESTARTBATTLE
  819.     cp 8
  820.     jp nc,KEYLOOP
  821. RESTARTBATTLE:
  822.     ld b,3
  823. INITLOOP:
  824.     push bc
  825.     call INVERTSCREEN
  826.     call DELAY2
  827.     pop bc
  828.     djnz INITLOOP
  829. INITBATTLELOOP:
  830.   ld a,r
  831.   srl a
  832.   and 3          ; between 0-3
  833.   ld (NUMBEROFENEMIES),a
  834.   or a
  835.   jr z,INITBATTLELOOP
  836.     push af    
  837.     call DRAWWALLS            
  838. FROMLEADER:
  839.     ld hl,0
  840.     ld (ENEMYSPEED2),hl
  841.     ld (ENEMYSPEED3),hl
  842.     ld (XPGAINED),hl
  843.     ld a,(LEADERCHECK)
  844.     or a
  845.     jr nz,(ITSALEADER)
  846. ;-----------------------------------skip this if it's a leader;
  847. FROMRIGGED2:
  848.     call PUTENEMY
  849.       pop af
  850.     ld (NUMBEROFENEMIES),a
  851. ;-------------------------------------------------------------;
  852. ITSALEADER:
  853.     ld hl,(STRENGTH)
  854.     ld (STRENGTHMAX),hl
  855.     ld hl,(DEFENSE)
  856.     ld (DEFENSEMAX),hl
  857.     ld hl,(SPEED)
  858.     ld de,200
  859.     and a
  860.     sbc hl,de
  861.     jr c,NODOUBLE
  862. DOUBLESPEED:
  863.     ld a,66
  864.     ld (DOUBLE),a
  865. NODOUBLE:
  866.     xor a
  867.     ld (RELIFE),a
  868.     ld (BUILDUP),a
  869.     ld (REGENCHECK),a
  870.     ld (COUNTER),a
  871.     ld (OK),a
  872.     ld (ENEMYCOUNTER1),a
  873.     ld (ENEMYCOUNTER2),a
  874.     ld (ENEMYCOUNTER3),a
  875.     ld a,66
  876.     ld (KURAICOUNTER),a
  877.     call KURAI
  878.     call BATTLEMENU
  879.     jr SPEEDLOOP
  880. IRIGHT:
  881.     ld a,(BKX)
  882.     cp 84
  883.     jr z,SPEEDLOOP
  884.     ld hl,ICONRING
  885.     call drawit
  886.     ld a,(BKX)
  887.     add a,9
  888.     ld (BKX),a
  889.     ld hl,ICONRING
  890.     call drawit
  891.     call DELAY2
  892.     jr SPEEDLOOP
  893. ILEFT:
  894.     ld a,(BKX)
  895.     cp 66
  896.     jr z,SPEEDLOOP
  897.     ld hl,ICONRING
  898.     call drawit
  899.     ld a,(BKX)
  900.     sub 9
  901.     ld (BKX),a
  902.     ld hl,ICONRING
  903.     call drawit
  904.     call DELAY2
  905. SPEEDLOOP:
  906.      ld a,$3E
  907.      out (1),a
  908.      in a,(1)
  909.     bit 5,a ; 2ND
  910.      jp z,IPRESS
  911.     bit 3,a
  912.      jp z,IUP
  913.      bit 0,a
  914.      jp z,IDOWN
  915.             bit 1,a
  916.             jr z,ILEFT
  917.             bit 2,a
  918.             jr z,IRIGHT
  919.  
  920.     ld a,(OK)
  921.     or a
  922.     jr nz,SPEEDLOOP
  923.  
  924.       ;; Now check ENEMYS' COUNTERS
  925.       ;; when ENEMYCOUNTER == ENEMYSPEED th
  926.       ;; attack...hence,lower value=faster attack
  927.  
  928.     ld a,(ENEMYSPEED1)
  929.     or a
  930.     jr z,NEXTENEMY
  931.     ld c,a
  932.     ld a,(ENEMYCOUNTER1)
  933.     inc a
  934.     ld (ENEMYCOUNTER1),a
  935.     cp c
  936.     jp z,ENEMYATTK1
  937. NEXTENEMY:    
  938.     ld a,(ENEMYSPEED2)
  939.     or a
  940.     jr z,NEXTENEMY2
  941.     ld c,a
  942.     ld a,(ENEMYCOUNTER2)
  943.     inc a
  944.     ld (ENEMYCOUNTER2),a
  945.     cp c
  946.     jp z,ENEMYATTK2
  947. NEXTENEMY2:    
  948.     ld a,(ENEMYSPEED3)
  949.     or a
  950.     jr z,COUNTERKURAI
  951.     ld c,a
  952.     ld a,(ENEMYCOUNTER3)
  953.     inc a
  954.     ld (ENEMYCOUNTER3),a
  955.     cp c
  956.     jp z,ENEMYATTK3
  957. COUNTERKURAI:
  958.     ;; Draw Kurai's COUNTER
  959.     ld a,(KURAICOUNTER)
  960.     ld b,a
  961.     ld c,25
  962.     call PutPixel
  963.     ld a,(KURAICOUNTER)
  964.     ld b,a
  965.     ld c,24
  966.     call PutPixel    
  967.  
  968.     ;;CHECK KURAI'S COUNTER
  969.     ld a,(KURAICOUNTER)
  970.     inc a
  971.     push af
  972.     ld a,(DOUBLE)
  973.     cp 66
  974.     jr z,(DOUBLEIT)
  975.     pop af        
  976.     ld (KURAICOUNTER),a
  977.     cp 92
  978.     jp nz, SPEEDLOOP  ;; KEEP GOING TILL 92
  979. ITSOK2:
  980.     ld a,1
  981.     ld (OK),a
  982.     jp SPEEDLOOP
  983. DOUBLEIT:
  984.     pop af
  985.     inc a
  986.     ld (KURAICOUNTER),a
  987.     cp 92    
  988.     jp nz, SPEEDLOOP  ;; KEEP GOING TILL 92
  989.     jr ITSOK2
  990. IUP:
  991.     ld hl,ICONRING
  992.     call drawit
  993.     ld a,43
  994.     ld (BKY),a
  995.     ld hl,ICONRING
  996.     call drawit
  997.     call DELAY
  998.     jp SPEEDLOOP
  999. IDOWN:
  1000.     ld hl,ICONRING
  1001.     call drawit
  1002.     ld a,52
  1003.     ld (BKY),a
  1004.     ld hl,ICONRING
  1005.     call drawit
  1006.     call DELAY
  1007.     jp SPEEDLOOP
  1008. IPRESS:
  1009.     ld a,(OK)
  1010.     or a
  1011.     jp z,SPEEDLOOP
  1012.     ld a,(BKX)
  1013.     cp 66
  1014.     jr z,ATTACKORSPELL
  1015.     cp 75
  1016.     jr z,ITEMORSKILL
  1017.     jp FLEE
  1018. ITEMORSKILL:    
  1019.     ld a,(BKY)
  1020.     cp 43
  1021.     jp z,KURAIITEM
  1022.     jp KURAISKILL    
  1023. ATTACKORSPELL:
  1024.     ld a,(BKY)
  1025.     cp 43
  1026.     jp z,KURAIATTACK
  1027.     jp KURAIMAGIC
  1028. ENEMYATTK1:
  1029.     xor a
  1030.     ld (ENEMYCOUNTER1),a
  1031.     ld de,(ENEMYST1)
  1032.     ld bc,1
  1033.     jr ENEMYATTACK
  1034. ENEMYATTK2:
  1035.     xor a
  1036.     ld (ENEMYCOUNTER2),a
  1037.     ld de,(ENEMYST2)
  1038.     ld bc,2
  1039.     jr ENEMYATTACK
  1040. ENEMYATTK3:
  1041.     xor a
  1042.     ld (ENEMYCOUNTER3),a
  1043.     ld de,(ENEMYST3)
  1044.     ld bc,3
  1045. ENEMYATTACK:
  1046.     ld hl,(BKX)
  1047.     push hl
  1048.     push de
  1049.     ld (DUMMY1),bc
  1050.     ld hl,(DUMMY1)
  1051.     call DISPHL2    
  1052.              ld hl,EnemyAttacks
  1053.     ld de, $163F                    ;Y=2C,X=1A
  1054.     call DISPSTRING
  1055. BEGINDODGE:
  1056.     ld a,r
  1057.     srl a
  1058.     and 15   
  1059.     cp 11
  1060.     jr z,YOUDODGE    
  1061.     ld hl,(SPEED)
  1062.     ld de,40
  1063.     and a
  1064.     sbc hl,de
  1065.     jr nc,TRYAGAIN
  1066.     jr NODODGE
  1067. TRYAGAIN:
  1068.     ld a,r
  1069.     srl a
  1070.     and 15   
  1071.     cp 8
  1072.     jr nz,NODODGE
  1073. YOUDODGE:
  1074.     call ERASETEXT2
  1075.              ld hl,YouDodge
  1076.     ld de, $163F                    ;Y=2C,X=1A
  1077.     call DISPSTRING
  1078.     ld bc,$141F
  1079.     ld (DUMMY1),bc
  1080.     ld b,4
  1081. DODGELOOP:
  1082.     push bc
  1083.     ld bc,(DUMMY1)
  1084.     ld a,b
  1085.     dec a
  1086.     ld b,a        
  1087.     ld (DUMMY1),bc 
  1088.     ld hl,Kurai
  1089.             call NASRWARP
  1090.     call DELAY
  1091.     pop bc
  1092.     djnz DODGELOOP
  1093.     pop hl
  1094.     pop de
  1095.             ld bc,$0F29
  1096.             ld hl,KuraiBlank
  1097.             call NASRWARP
  1098.     call ERASETEXT
  1099.     call KURAI
  1100.     jp NEXTENEMY
  1101. NODODGE:
  1102.     call BLANK1429
  1103.     ld bc,$0F20
  1104.             ld hl,KuraiDefend
  1105.             call NASRWARP
  1106.     ld a,r
  1107.       srl a
  1108.       and 7   
  1109.     cp 5
  1110.     jr z,EDIFFATTK
  1111.     or a
  1112.     jr nz,ENOTDIFFATTK
  1113. EDIFFATTK:
  1114.     ld a,14
  1115.     ld (BKX),a
  1116.     ld b,9
  1117. EATTACKLOOP2:
  1118.     push bc
  1119.     ld a,(BKX)
  1120.     add a,2
  1121.     ld (BKX),a
  1122.     ld a,39
  1123.     ld (BKY),a
  1124.     ld hl,ERASUREX
  1125.     call drawit
  1126.     ld a,46
  1127.     ld (BKY),a
  1128.     ld hl,ERASUREX
  1129.     call drawit
  1130.     ld a,50
  1131.     ld (BKY),a
  1132.     ld hl,ERASUREX
  1133.     call drawit
  1134.     pop bc
  1135.     djnz EATTACKLOOP2
  1136.     jr DONEEATTACK
  1137. ENOTDIFFATTK:
  1138.     ld bc,$2811
  1139.     ld hl,ENEMYHIT1
  1140.     call drawit2
  1141.     call shake
  1142.     ld bc,$321B
  1143.     ld hl,ENEMYHIT1
  1144.     call drawit2
  1145.     call shake
  1146.     ld bc,$231C
  1147.     ld hl,ENEMYHIT1
  1148.     call drawit2
  1149.     call shake
  1150. DONEEATTACK:
  1151.     call ERASETEXT
  1152.             ld bc,$0F29
  1153.             ld hl,KuraiBlank
  1154.             call NASRWARP
  1155.     call KURAI
  1156.     ld de, $1E4A
  1157.              ld hl,BlankText
  1158.     call DISPSTRING
  1159.     pop de
  1160.     call RANDOM7
  1161.     ld de,(DEFENSE)
  1162.     and a
  1163.     sbc hl,de
  1164.     jr c,LESSTHANZERO    
  1165.     ex de,hl
  1166.     jr CONTINUEATTACK
  1167. LESSTHANZERO:
  1168.     ld de,1
  1169. CONTINUEATTACK:
  1170.     ld hl,(HP)    
  1171.     and a
  1172.     sbc hl, de
  1173.     ld (HP),hl
  1174.     jr c,(GAMEOVER)
  1175.     jr z,(GAMEOVER)
  1176.     ld de,$1E4C
  1177.     call DISPHL
  1178.     pop hl
  1179.     ld (BKX),hl
  1180.     jp NEXTENEMY
  1181. GAMEOVER:
  1182.     call EFFECT
  1183.     pop bc                   
  1184.     ld a,(RELIFE)
  1185.     or a
  1186.     jr nz,BACKTOLIFE
  1187.     ld hl,GameOVER
  1188.     ld de, $1B14
  1189.     jp DISPSTRING3
  1190.  
  1191. BACKTOLIFE:
  1192.     xor a
  1193.     ld (RELIFE),a
  1194.     ld hl,(MAXHP)
  1195.     srl h
  1196.     rr l
  1197.     ld (HP),hl
  1198.     call HEALLOOPER
  1199.     jp MAGIDONE
  1200. FLEE:
  1201.     ld a,(LEADERCHECK)
  1202.     or a
  1203.     jp nz,SPEEDLOOP
  1204.     ld a,r
  1205.       srl a
  1206.       and 127 
  1207.     ld e,a
  1208.     ld d,0
  1209.     ld hl,(SPEED)
  1210.     and a
  1211.     sbc hl,de    
  1212.     jr nc,(YOUFLEE)
  1213. NOFLEE:
  1214.     ld hl,Failed
  1215.     ld de, $1640
  1216.     call DISPSTRING
  1217.     call ERASETEXT2    
  1218.     call REFILL
  1219.     ld a,66
  1220.     ld (KURAICOUNTER),a
  1221.     xor a
  1222.     ld (OK),a
  1223.     jp ENEMYATTK1
  1224. YOUFLEE:
  1225.     ld hl,Escape
  1226.     ld de, $1818
  1227.     call DISPSTRING
  1228.     call EFFECT
  1229.     jp FROMBATTLE
  1230. KURAIATTACK:            
  1231.     ld de,(BKX)
  1232.     push de
  1233.     
  1234.     ld a,(NUMBEROFENEMIES)
  1235.     cp 1
  1236.     jr z,(ONLYONEALIVE)
  1237.     jr CURSORLOOP
  1238. ONLYONEALIVE:
  1239.     ld a,(ENEMYSPEED1)
  1240.     or a
  1241.     jr z,ONEISDEAD
  1242.     ld a,(ENEMYSPEED2)
  1243.     or a
  1244.     jr z,TWOISDEAD
  1245.     jr THREEISDEAD
  1246.  
  1247. ONEISDEAD:
  1248.     ld a,(ENEMYSPEED2)
  1249.     or a
  1250.     jr z,ATTACK3
  1251.     jr ATTACK2
  1252. TWOISDEAD:
  1253.     ld a,(ENEMYSPEED1)
  1254.     or a
  1255.     jr z,ATTACK3
  1256.     jr ATTACK1
  1257. CURSDESELECT:
  1258.     ld hl,CURSORATTK
  1259.     call drawit
  1260.     pop de
  1261.     ld (BKX),de
  1262.     jp SPEEDLOOP
  1263. THREEISDEAD:
  1264.     ld a,(ENEMYSPEED1)
  1265.     or a
  1266.     jr z,ATTACK2
  1267. ATTACK1:
  1268.     ld a,1
  1269.     ld (WHICHENEMY),a
  1270.     jp CURSPRESS2
  1271. ATTACK2:
  1272.     
  1273.     ld a,2
  1274.     ld (WHICHENEMY),a
  1275.     jp CURSPRESS2
  1276. ATTACK3:
  1277.     ld a,3
  1278.     ld (WHICHENEMY),a
  1279.     jp CURSPRESS2
  1280. CURSORLOOP:
  1281.     ld a,(ENEMYSPEED1)
  1282.     or a
  1283.     jr nz,(CONTINUE)
  1284.     ld a,2
  1285.     ld (WHICHENEMY),a
  1286.     ld bc,$172A    
  1287.     jr SOONEWASDEAD
  1288. CONTINUE:
  1289.     ld a,1
  1290.     ld (WHICHENEMY),a
  1291.     ld bc,$1714
  1292. SOONEWASDEAD:
  1293.     ld hl,CURSORATTK
  1294.     call drawit2
  1295.     call DELAY2
  1296.     call DELAY
  1297. CURSLOOP:    
  1298.     ld a,$3E
  1299.      out (1),a
  1300.      in a,(1)
  1301.      bit 7,a
  1302.      jr z,CURSDESELECT
  1303.      bit 5,a
  1304.      jr z,CURSPRESS
  1305.     bit 2,a
  1306.             jr z,CURSRIGHT
  1307.     bit 1,a
  1308.             jr nz,CURSLOOP
  1309. CURSLEFT:
  1310.     ld a,(BKX)
  1311.     cp 20
  1312.     jr z,CURSLOOP
  1313.     ld hl,CURSORATTK
  1314.     call drawit
  1315.     ld a,(BKX)
  1316.     sub 22
  1317.     ld (BKX),a
  1318.     ld hl,CURSORATTK
  1319.     call drawit
  1320.     ld a,(WHICHENEMY)
  1321.     dec a
  1322.     ld (WHICHENEMY),a
  1323.     call DELAY2
  1324.     jr z,CURSLOOP
  1325. CURSRIGHT:
  1326.     ld a,(BKX)
  1327.     cp 64
  1328.     jr z,CURSLOOP
  1329.     ld hl,CURSORATTK
  1330.     call drawit
  1331.     ld a,(BKX)
  1332.     add a,22
  1333.     ld (BKX),a
  1334.     ld hl,CURSORATTK
  1335.     call drawit
  1336.     ld a,(WHICHENEMY)
  1337.     inc a
  1338.     ld (WHICHENEMY),a
  1339.     call DELAY2
  1340.     jr z,CURSLOOP
  1341. CURSPRESS:
  1342.     ld hl,CURSORATTK
  1343.     call drawit
  1344. CURSPRESS2:
  1345.     call SWORDSWING
  1346.     ld a,r
  1347.       srl a
  1348.       and 7   
  1349.     cp 5
  1350.     jr z,DIFFATTK
  1351.     or a
  1352.     jr nz,NOTDIFFATTK
  1353. DIFFATTK:
  1354.     ld hl,97
  1355.     ld (DUMMY2),hl
  1356. NOTDIFFATTK:
  1357.     ld b,2
  1358. STARTSLASH:    
  1359.     push bc
  1360.     xor a
  1361.     ld (OK),a
  1362.     ld a,(LEADERCHECK)
  1363.     cp 1
  1364.     jr z,(LEADERSLASH)
  1365.     ld a,(WHICHENEMY)
  1366.     cp 2
  1367.     jr z,SLASHRIGHT1
  1368.     cp 3
  1369.     jr z,SLASHRIGHT2
  1370.     ld a,15
  1371.     jr DONEDUMMY
  1372. LEADERSLASH:
  1373.     ld a,$2B
  1374.     jr DONEDUMMY
  1375. SLASHRIGHT1:
  1376.     ld a,35
  1377.     jr DONEDUMMY
  1378. SLASHRIGHT2:
  1379.     ld a,55
  1380. DONEDUMMY:
  1381.     ld (DUMMY1),a
  1382.     ld a,(DUMMY2)
  1383.     cp 97
  1384.     jr z,DIFFERENTATTK
  1385.     ld a,5
  1386.     ld (DUMMY2),a
  1387. SLASHLOOP:
  1388.     ld a,(DUMMY1)
  1389.     ld b,a
  1390.     ld a,(OK)
  1391.     add a,b
  1392.     ld (BKX),a
  1393.     ld a,(DUMMY2)
  1394.     inc a
  1395.     ld (DUMMY2),a
  1396.     ld (BKY),a
  1397.     ld hl,SWORDSLASH1
  1398.     call drawit
  1399.     ld a,(OK)
  1400.     inc a
  1401.     ld (OK),a
  1402.     cp 10
  1403.     jr nz,SLASHLOOP
  1404.     pop bc
  1405.     djnz STARTSLASH
  1406.     jr DONEWITHATTK
  1407. DIFFERENTATTK:
  1408.     pop bc
  1409.     call ATTACKNUM2
  1410.     call ATTACKNUM2
  1411. DONEWITHATTK:    
  1412.     ld de,(STRENGTH)
  1413.     call RANDOM7
  1414.     ld de,(WEAPON)
  1415.     add hl,de
  1416.     ld a,(BUILDUP)
  1417.     or a
  1418.     jr z,BUILDUPOFF
  1419. BUILDUPON:
  1420.     xor a
  1421.     ld (BUILDUP),a
  1422.     add hl,hl
  1423. BUILDUPOFF:    
  1424.     ld a,(WHICHENEMY)
  1425.     cp 2
  1426.     jr z,DFDENEMY2
  1427.     cp 3
  1428.     jr z,DFDENEMY3
  1429. DFDENEMY1:
  1430.     ld de,(ENEMYDFD1)
  1431.     jr donedfd
  1432. DFDENEMY2:
  1433.     ld de,(ENEMYDFD2)
  1434.     jr donedfd
  1435. DFDENEMY3:
  1436.     ld de,(ENEMYDFD3)
  1437. donedfd:    
  1438.     and a
  1439.     sbc hl,de
  1440.     jr c,ENEMYDFDS
  1441.     jr MORETHANZERO    
  1442. ENEMYDFDS:
  1443.     ld hl,1
  1444. MORETHANZERO
  1445.     call DUMMY1DISP
  1446.              ld hl,damage
  1447.     ld de, $1647                   ;Y=2C,X=1A
  1448.     call DISPSTRING
  1449.     call ERASETEXT2
  1450.     pop de
  1451.     ld (BKX),de
  1452.  
  1453.     ld a,(WHICHENEMY)
  1454.     cp 2
  1455.     jr z,TOENEMY2
  1456.     cp 3
  1457.     jr z,TOENEMY3
  1458. TOENEMY1:
  1459.     ld hl,(ENEMYHP1)        ;; Displays Kurai's HP
  1460.     ld de,(DUMMY1)
  1461.     and a
  1462.     sbc hl, de
  1463.     ld (ENEMYHP1),hl
  1464.     jr ATTKEND
  1465. TOENEMY2:
  1466.     ld hl,(ENEMYHP2)
  1467.     ld de,(DUMMY1)
  1468.     and a
  1469.     sbc hl, de
  1470.     ld (ENEMYHP2),hl
  1471.     jr ATTKEND
  1472. TOENEMY3:
  1473.     ld hl,(ENEMYHP3)
  1474.     ld de,(DUMMY1)
  1475.     and a
  1476.     sbc hl, de
  1477.     ld (ENEMYHP3),hl
  1478. ATTKEND:
  1479.     call c,ENEMYDEAD
  1480.     cp 199
  1481.     jp z,FROMBATTLE    
  1482.     ld a,(REGENCHECK)
  1483.     or a
  1484.     call nz,REGENEFFECT
  1485.             jp KURAIDONE2
  1486. FROMBATTLE:
  1487.     ld a,(LEADERCHECK)
  1488.     or a
  1489.     call nz,LEADEREND
  1490.     cp -177
  1491.     jr z,LASTFADE
  1492.     call ERASESCREEN
  1493.     jp DRAWMAP
  1494. LASTFADE:
  1495.     call DRAWWALLS
  1496.     ld bc,$231D
  1497.     ld hl,Logo
  1498.     call NASRWARP    
  1499.     ld de,$1009
  1500.     ld hl,cruelplace
  1501.     call DISPSTRING    
  1502.     ld de,$1604
  1503.     ld hl,cruelplace2
  1504.     jp DISPSTRING3
  1505. ENDSNAKE:
  1506.     call DRAWWALLS
  1507.     ld hl,YouFind
  1508.     ld de,$1820
  1509.     call DISPSTRING
  1510.     ld hl,faitharmor
  1511.     ld de,$1E20
  1512.     call DISPSTRING3
  1513.     call CHESTPLACER
  1514.     ld (hl),0
  1515.     ld hl,260
  1516.     ld (DEFENSE),hl
  1517.     ret
  1518. LEADEREND:
  1519.     xor a
  1520.     ld (LEADERCHECK),a
  1521.     ld a,(DUNGEONCHECK)
  1522.     cp -2
  1523.     jr z,ENDSNAKE
  1524.     ld a,(SCENARIO)
  1525.     cp 2
  1526.     jr z,ENDLEAD2
  1527.     cp 7
  1528.     jr z,ENDLEAD3
  1529.     cp 9
  1530.     jr z,ENDLEAD4
  1531.     cp 13
  1532.     jr z,YOUWINGAME
  1533.     ret
  1534. ENDLEAD2:
  1535.     call TALK3
  1536.     jp TALK4
  1537. ENDLEAD3:
  1538.     ld a,8
  1539.     ld (SCENARIO),a
  1540.     jp TALK11
  1541. ENDLEAD4:
  1542.     call DRAWWALLS
  1543.     ld de,$1C10
  1544.     ld hl,YouFind
  1545.     call DISPSTRING    
  1546.     call FAITHSWORD
  1547.     ld hl,180
  1548.     ld (WEAPON),hl
  1549.     jp TALK12
  1550. YOUWINGAME:
  1551.     call DRAWWALLS
  1552.     ld de,$1005
  1553.     ld hl,choicetext1
  1554.     call DISPSTRING    
  1555.     ld de,$1605
  1556.     ld hl,choicetext2
  1557.     call DISPSTRING
  1558.     ld de,$1C05
  1559.     ld hl,choicetext3
  1560.     call DISPSTRING3    
  1561.     ld de,$2205
  1562.     ld hl,choicetext4
  1563.     call DISPSTRING3    
  1564.     call DRAWWALLS
  1565.     call YESNO
  1566.     ld de,$1114
  1567.     ld hl,healher
  1568.     call DISPSTRING    
  1569. HEALHERLOOP:
  1570.     call GET_KEY
  1571.              cp G_1
  1572.              jp z,BADEND
  1573.              cp G_2
  1574.     jr nz,HEALHERLOOP ; good end
  1575.     call DRAWWALLS
  1576.     ld bc,$2639    
  1577.     ld hl,endpic
  1578.     call NASRWARP    
  1579.     ld de,$0303
  1580.     ld hl,endgame1
  1581.     call DISPSTRING    
  1582.     ld de,$0903
  1583.     ld hl,endgame2
  1584.     call DISPSTRING
  1585.     ld de,$0F03
  1586.     ld hl,endgame3
  1587.     call DISPSTRING    
  1588.     ld de,$1503
  1589.     ld hl,endgame4
  1590.     call DISPSTRING    
  1591.     ld de,$1B03
  1592.     ld hl,endgame5
  1593.     call DISPSTRING
  1594.     ld de,$2103
  1595.     ld hl,endgame6
  1596.     call DISPSTRING
  1597.     ld de,$2703
  1598.     ld hl,endgame7
  1599.     call DISPSTRING
  1600.     ld de,$2D03
  1601.     ld hl,endgame8
  1602.     call DISPSTRING3
  1603.     ld a,-177
  1604.     ret
  1605. BADEND:
  1606.     call DRAWWALLS
  1607.     ld de,$1005
  1608.     ld hl,badend1
  1609.     call DISPSTRING    
  1610.     ld de,$1605
  1611.     ld hl,badend2
  1612.     call DISPSTRING
  1613.     ld de,$1C05
  1614.     ld hl,badend3
  1615.     call DISPSTRING3    
  1616.     ld de,$2205
  1617.     ld hl,badend4
  1618.     call DISPSTRING3    
  1619.     ld a,-177
  1620.     ret
  1621.         
  1622. KURAIMAGIC2:
  1623.     pop hl
  1624. KURAIMAGIC:
  1625.     ;; first erases menu so the spell menu can come up...same with skill/item
  1626.     call ERASEMENU    
  1627.     call DISPMP
  1628.     xor a
  1629.     ld (DUMMY1),a
  1630.     ld hl,WhichSpells
  1631.     ld a,(hl)
  1632.     or a    
  1633.     jr z,NEXT1
  1634.     push hl
  1635.              ld hl,Heal
  1636.     ld de, $1F49                    ;Y=2C,X=1A
  1637.     call DISPSTRING
  1638.     pop hl
  1639. NEXT1:
  1640.     inc hl
  1641.     ld a,(hl)
  1642.     or a
  1643.     jr z,NEXT2
  1644.     push hl
  1645.              ld hl,Burn
  1646.     ld de, $2649                    ;Y=2C,X=1A
  1647.     call DISPSTRING
  1648.     pop hl
  1649. NEXT2:
  1650.     inc hl
  1651.     ld a,(hl)
  1652.     or a
  1653.     jr z,NEXT3
  1654.     push hl
  1655.              ld hl,Star
  1656.     ld de, $2D49                    ;Y=2C,X=1A
  1657.     call DISPSTRING    
  1658.     pop hl
  1659. NEXT3:
  1660.     inc hl
  1661.     ld a,(hl)
  1662.     or a
  1663.     jr z,SPELLSTART
  1664.     push hl
  1665.              ld hl,Rage
  1666.     ld de, $3449                    ;Y=2C,X=1A
  1667.     call DISPSTRING    
  1668.     pop hl
  1669. SPELLSTART:
  1670.     ld bc,$1F3F
  1671.     ld hl,CURSORMAGIC
  1672.     call drawit2
  1673.     call DELAY2
  1674. RETFROM:
  1675.     ld hl,WhichSpells
  1676. MAGICLOOP2:
  1677.     push hl
  1678. MAGICLOOP:
  1679.     ld a,$3E
  1680.      out (1),a
  1681.      in a,(1)
  1682.     bit 3,a
  1683.             jr z,MAGICUP
  1684.      bit 7,a  ; del
  1685.      jp z,GOBACK
  1686.     bit 1,a
  1687.     jr z,MAGICLEFT
  1688.     bit 2,a
  1689.     jr z,MAGICRIGHT
  1690.      bit 5,a
  1691.      jr z,MAGICPRESS
  1692.     bit 0,a
  1693.     jr nz,MAGICLOOP
  1694. MAGICDOWN:
  1695.     ld a,(BKY)
  1696.     cp $34
  1697.     jr z,MAGICLOOP
  1698.     pop hl
  1699.     inc hl
  1700.     push hl
  1701.     ld hl,CURSORMAGIC
  1702.     call drawit
  1703.     ld a,(BKY)
  1704.     add a,7
  1705.     ld (BKY),a
  1706.     ld hl,CURSORMAGIC
  1707.     call drawit
  1708.     call DELAY2
  1709.     jr MAGICLOOP
  1710. MAGICUP:
  1711.     ld a,(BKY)
  1712.     cp $1F
  1713.     jr z,MAGICLOOP
  1714.     pop hl
  1715.     dec hl
  1716.     push hl
  1717.     ld hl,CURSORMAGIC
  1718.     call drawit
  1719.     ld a,(BKY)
  1720.     sub 7
  1721.     ld (BKY),a
  1722.     ld hl,CURSORMAGIC
  1723.     call drawit
  1724.     call DELAY2
  1725.     jr MAGICLOOP
  1726. MAGICLEFT:
  1727.     ld a,(DUMMY1)        
  1728.     or a
  1729.     jr z,MAGICLOOP
  1730.     dec a
  1731.     ld (DUMMY1),a
  1732.     jp REDISP
  1733. MAGICRIGHT:
  1734.     ld a,(DUMMY1)        
  1735.     cp 1
  1736.     jr z,MAGICLOOP
  1737.     inc a
  1738.     ld (DUMMY1),a
  1739.     jp REDISP
  1740. MAGICPRESS:
  1741.     pop hl
  1742.     ld a,(hl)
  1743.     or a    
  1744.     jp z,MAGICLOOP2
  1745.     ld (Save),hl
  1746.     cp 1
  1747.     jr z,HEALSPELL
  1748.     cp 2
  1749.     jr z,BURNSPELL
  1750.     cp 3
  1751.     jp z,STAR_SPELL
  1752.     cp 4
  1753.     jp z,RAGESPELL
  1754.     cp 5
  1755.     jp z,SIRESPELL
  1756.     cp 6
  1757.     jp z,ROCKSPELL
  1758.     cp 7
  1759.     jp z,HASTESPELL
  1760.     cp 8
  1761.     jp z,DOOMSPELL
  1762. HEALSPELL:
  1763.     ld hl,(MP)
  1764.     ld de,5
  1765.     and a
  1766.     sbc hl,de
  1767.     jp c,NEEDMP
  1768.     call SPELLCAST
  1769. FROMITEM:
  1770.     call HEALLOOPER
  1771.     ld a,(OK)
  1772.     cp 234
  1773.     jp z,MAGIDONE    
  1774.     ld de,90
  1775.     call OVERMAXHP
  1776.     jp MAGIDONE
  1777. BURNSPELL:
  1778.     ld hl,(MP)
  1779.     ld de,6
  1780.     and a
  1781.     sbc hl,de
  1782.     jp c,NEEDMP
  1783.     call SPELLCAST
  1784.     ld b,99
  1785. BURNLOOP:
  1786.     push bc
  1787.     ld a,r
  1788.     srl a
  1789.     and 50       
  1790.     add a,15
  1791.     ld (BKX),a
  1792.     ld a,r
  1793.     srl a
  1794.     and 10   
  1795.     add a,4
  1796.     ld (BKY),a
  1797.     ld hl,ENEMYHIT1
  1798.     call drawit
  1799.     pop bc 
  1800.     djnz BURNLOOP  
  1801.     ld de,37
  1802.     jp  MAGIDAMAGE
  1803. STAR_SPELL:
  1804.     ld hl,(MP)
  1805.     ld de,20
  1806.     and a
  1807.     sbc hl,de
  1808.     jp c,NEEDMP
  1809.     call SPELLCAST
  1810.     call INVERTSCREEN
  1811.     call SLASH_ALL
  1812.     call INVERTSCREEN
  1813.     ld de,110
  1814.     jp  MAGIDAMAGE
  1815. RAGESPELL:
  1816.     ld hl,(MP)
  1817.     ld de,24
  1818.     and a
  1819.     sbc hl,de
  1820.     jp c,NEEDMP
  1821.     call SPELLCAST
  1822.     ld b,20
  1823. FLASHSCREEN:    
  1824.     push bc
  1825.     call INVERTSCREEN
  1826.     pop bc
  1827.     djnz FLASHSCREEN
  1828.     ld a,(KURAILEVEL)
  1829.     ld b,a
  1830.     ld hl,0
  1831. LEVEL_LOOP:
  1832.     ld de,10
  1833.     add hl,de
  1834.     djnz LEVEL_LOOP
  1835.     ld de,(STRENGTHMAX)    
  1836.     add hl,de
  1837.     ld (STRENGTH),hl
  1838.     jp MAGIDONE    
  1839. SIRESPELL:
  1840.     ld hl,(MP)
  1841.     ld de,32
  1842.     and a
  1843.     sbc hl,de
  1844.     jp c,NEEDMP
  1845.     call SPELLCAST
  1846.     ld b,6
  1847. SIRELOOP:
  1848.     push bc
  1849.     ld bc,$2B26
  1850.             ld hl,SireSpell1
  1851.             call NASRWARP
  1852.     call DELAY
  1853.     ld bc,$2B26
  1854.             ld hl,SireSpell2
  1855.             call NASRWARP
  1856.     call DELAY
  1857.     ld bc,$2B26
  1858.             ld hl,SireSpell3
  1859.             call NASRWARP
  1860.     call DELAY
  1861.     pop bc
  1862.     djnz SIRELOOP
  1863.     ld de,190
  1864.     jp MAGIDAMAGE
  1865. ROCKSPELL:
  1866.     ld hl,(MP)
  1867.     ld de,24
  1868.     and a
  1869.     sbc hl,de
  1870.     jp c,NEEDMP
  1871.     call SPELLCAST
  1872.     ld hl,$AFAF            ;load battle screen
  1873.     ld    de,GRAPH_MEM
  1874.     ld    bc,768
  1875.     ldir
  1876.     call CR_GRBCopy         ; Copy graphbuf to LCD
  1877.     ld b,10
  1878. FLASHSCREEN2:    
  1879.     push bc
  1880.     call INVERTSCREEN
  1881.     call DELAY
  1882.     pop bc
  1883.     djnz FLASHSCREEN2
  1884.     ld a,(KURAILEVEL)
  1885.     ld b,a
  1886.     ld hl,0
  1887. LEVEL_LOOP2:
  1888.     ld de,10
  1889.     add hl,de
  1890.     djnz LEVEL_LOOP2
  1891.     ld de,(DEFENSEMAX)    
  1892.     add hl,de
  1893.     ld (DEFENSE),hl
  1894.     jp MAGIDONE    
  1895. HASTESPELL:
  1896.     ld hl,(MP)
  1897.     ld de,75
  1898.     and a
  1899.     sbc hl,de
  1900.     jp c,NEEDMP
  1901.     call SPELLCAST
  1902.     ld bc,$141F
  1903.     ld (DUMMY1),bc
  1904.     ld b,4
  1905. HASTELOOP:
  1906.     push bc
  1907.     ld bc,(DUMMY1)
  1908.     ld a,b
  1909.     dec a
  1910.     ld b,a        
  1911.     ld (DUMMY1),bc 
  1912.     ld hl,Kurai
  1913.             call NASRWARP
  1914.     call INVERTSCREEN
  1915.     call DELAY
  1916.     pop bc
  1917.     djnz HASTELOOP
  1918.     ld a,66
  1919.     ld (DOUBLE),a
  1920.     jp MAGIDONE
  1921. DOOMSPELL:
  1922.     ld hl,(MP)
  1923.     ld de,55
  1924.     and a
  1925.     sbc hl,de
  1926.     jp c,NEEDMP
  1927.     call SPELLCAST    
  1928.     ld b,60
  1929. DOOMLOOP:
  1930.     push bc
  1931. GETRANDOM2:
  1932.     CALL RAND
  1933.     cp 90
  1934.     jr nc,GETRANDOM2
  1935.     ld b,a
  1936. GETRANDOM:
  1937.     CALL RAND
  1938.     cp 46
  1939.     jr nc,GETRANDOM
  1940.     add a,16
  1941.     ld c,a
  1942.     ld hl,DoomSpell
  1943.     call NASRWARP
  1944.     pop bc 
  1945.     djnz DOOMLOOP
  1946.     ld hl,1
  1947.     ld (HP),hl
  1948.     ld de,500    
  1949.     jp MAGIDAMAGE
  1950. MAGIDAMAGE:
  1951.     call RANDOM7
  1952.     call DUMMY1DISP
  1953.              ld hl,damage
  1954.     ld de, $1647     
  1955.     call DISPSTRING
  1956.     call ERASETEXT2
  1957.     ld a,(ENEMYSPEED1)
  1958.     or a
  1959.     jr z,(NEXTDAMAGE1)
  1960.     ld a,1
  1961.     ld (WHICHENEMY),a
  1962.     ld hl,(ENEMYHP1)
  1963.     ld de,(DUMMY1)
  1964.     and a
  1965.     sbc hl, de
  1966.     ld (ENEMYHP1),hl
  1967.     call c,ENEMYDEAD
  1968.     cp 199
  1969.     jp z,FROMBATTLE    
  1970. NEXTDAMAGE1:
  1971.     ld a,(ENEMYSPEED2)
  1972.     or a
  1973.     jr z,(NEXTDAMAGE2)
  1974.     ld a,2
  1975.     ld (WHICHENEMY),a
  1976.     ld hl,(ENEMYHP2)
  1977.     ld de,(DUMMY1)
  1978.     and a
  1979.     sbc hl, de
  1980.     ld (ENEMYHP2),hl
  1981.     call c,ENEMYDEAD
  1982.     cp 199
  1983.     jp z,FROMBATTLE    
  1984. NEXTDAMAGE2:
  1985.     ld a,(ENEMYSPEED3)
  1986.     or a
  1987.     jr z,(MAGIDONE)
  1988.     ld a,3
  1989.     ld (WHICHENEMY),a
  1990.     ld hl,(ENEMYHP3)
  1991.     ld de,(DUMMY1)
  1992.     and a
  1993.     sbc hl, de
  1994.     ld (ENEMYHP3),hl
  1995.     call c,ENEMYDEAD
  1996.     cp 199
  1997.     jp z,FROMBATTLE    
  1998. MAGIDONE:
  1999.     call DRAWWALLS
  2000.     ld a,(LEADERCHECK)
  2001.     cp 1
  2002.     jr z,(DISPLEADERBACK)
  2003.     ld a,(ENEMYSPEED1)
  2004.     or a
  2005.     jr z,ENEMY1DEAD
  2006.     ld hl,(ENEMYBACK1)
  2007.     ld bc,$0F39
  2008.     call NASRWARP
  2009. ENEMY1DEAD:    
  2010.     ld a,(ENEMYSPEED2)
  2011.     or a
  2012.     jr z,ENEMY2DEAD
  2013.     ld hl,(ENEMYBACK2)
  2014.     ld bc,$2539
  2015.     call NASRWARP
  2016. ENEMY2DEAD:
  2017.     ld a,(ENEMYSPEED3)
  2018.     or a
  2019.     jr z,ENEMY3DEAD
  2020.     ld hl,(ENEMYBACK3)
  2021.     ld bc,$3B39
  2022.     call NASRWARP
  2023. ENEMY3DEAD:        
  2024.     jr KURAIDONE3
  2025. DISPLEADERBACK:
  2026.     ld hl,(ENEMYBACK1) ; WHICHLEADER
  2027.     ld bc,(ENEMYBACK2) ; COORDS
  2028.     call NASRWARP
  2029.     jr KURAIDONE3
  2030. KURAIDONE2:
  2031.     call REFILL
  2032. KURAIDONE3:
  2033.     call BATTLEMENU
  2034.     call KURAI
  2035.     ld a,66
  2036.     ld (KURAICOUNTER),a
  2037.     xor a
  2038.     ld (OK),a
  2039.     jp SPEEDLOOP
  2040.  
  2041.  
  2042. KURAIITEM:            
  2043.     ;; first erases menu so the spell menu can come up...same with skill/item
  2044.     call ERASEMENU    
  2045.  
  2046.     ld hl,WhichItems
  2047.     ld a,(hl)
  2048.     or a    
  2049.     jr z,NEXT1I
  2050.     push hl
  2051.              ld hl,MedKit
  2052.     ld de, $1F49                    ;Y=2C,X=1A
  2053.     call DISPSTRING
  2054.     pop hl
  2055. NEXT1I:
  2056.     inc hl
  2057.     ld a,(hl)
  2058.     or a
  2059.     jr z,NEXT2I
  2060.     push hl
  2061.              ld hl,MagKit
  2062.     ld de, $2649                    ;Y=2C,X=1A
  2063.     call DISPSTRING
  2064.     pop hl
  2065. NEXT2I:
  2066.     inc hl
  2067.     ld a,(hl)
  2068.     or a
  2069.     jr z,ITEMSTART
  2070.     push hl
  2071.              ld hl,ArcBolt
  2072.     ld de, $2D49                    ;Y=2C,X=1A
  2073.     call DISPSTRING    
  2074.     pop hl
  2075. ITEMSTART:
  2076.     ld bc,$1F3F
  2077.     ld hl,CURSORMAGIC
  2078.     call drawit2
  2079.     call DELAY2
  2080.  
  2081.     ld hl,WhichItems
  2082. ITEMLOOP2:
  2083.     push hl
  2084. ITEMLOOP:
  2085.     ld a,$3E
  2086.      out (1),a
  2087.      in a,(1)
  2088.      bit 5,a
  2089.      jr z,ITEMPRESS
  2090.     bit 3,a
  2091.             jr z,ITEMUP
  2092.      bit 7,a  ; del
  2093.      jp z,GOBACK
  2094.     bit 0,a
  2095.             jr nz,ITEMLOOP
  2096. ITEMDOWN:
  2097.     ld a,(BKY)
  2098.     cp $34
  2099.     jr z,(ITEMLOOP)
  2100.     pop hl
  2101.     inc hl
  2102.     push hl
  2103.     ld hl,CURSORMAGIC
  2104.     call drawit
  2105.     ld a,(BKY)
  2106.     add a,7
  2107.     ld (BKY),a
  2108.     ld hl,CURSORMAGIC
  2109.     call drawit
  2110.     call DELAY2
  2111.     jr ITEMLOOP
  2112. ITEMUP:
  2113.     ld a,(BKY)
  2114.     cp $1F
  2115.     jr z,ITEMLOOP
  2116.  
  2117.     pop hl
  2118.     dec hl
  2119.     push hl
  2120.     ld hl,CURSORMAGIC
  2121.     call drawit
  2122.     ld a,(BKY)
  2123.     sub 7
  2124.     ld (BKY),a
  2125.     ld hl,CURSORMAGIC
  2126.     call drawit
  2127.     call DELAY2
  2128.     jr ITEMLOOP
  2129. ITEMPRESS:
  2130.     pop hl
  2131.     ld a,(hl)
  2132.     or a    
  2133.     jp z,ITEMLOOP2
  2134.     dec a
  2135.     ld (hl),a
  2136.     call BLANK1429
  2137.     call KURAIMAGIC1    
  2138.     ld a,(BKY)
  2139.     cp $1F
  2140.     jr z,HPkit
  2141.     cp $2D
  2142.     jr z,BOMB
  2143. MPkit:
  2144.     ld de,40
  2145.     call OVERMAXMP
  2146.     ld bc,$2B26
  2147.             ld hl,MagicKit
  2148.             call NASRWARP
  2149.     ld a,234
  2150.     ld (OK),a
  2151. HPkit:
  2152.     jp  FROMITEM
  2153. BOMB:
  2154.     call INVERTSCREEN
  2155.     ld b,99
  2156. BOMBLOOP:
  2157.     push bc
  2158.     ld a,r
  2159.     srl a
  2160.     and 50       
  2161.     add a,15
  2162.     ld b,a
  2163.     ld a,r
  2164.     srl a
  2165.     and 10   
  2166.     add a,50
  2167.     ld c,a
  2168.     ld hl,EnemyDead
  2169.     call NASRWARP
  2170.     pop bc 
  2171.     djnz BOMBLOOP  
  2172.     call INVERTSCREEN
  2173.     ld de,50
  2174.     jp  MAGIDAMAGE
  2175. KURAISKILL2:
  2176.     pop hl
  2177. KURAISKILL:
  2178.     ;; first erases menu so the spell menu can come up...same with skill/item
  2179.     call ERASEMENU    
  2180.     call DISPMP
  2181.     xor a
  2182.     ld (DUMMY1),a
  2183.     ld hl,WhichSkills
  2184.     ld a,(hl)
  2185.     or a    
  2186.     jr z,NEXT1S
  2187.     push hl
  2188.              ld hl,SlashAll
  2189.     ld de, $1F49                    ;Y=2C,X=1A
  2190.     call DISPSTRING
  2191.     pop hl
  2192. NEXT1S:
  2193.     inc hl
  2194.     ld a,(hl)
  2195.     or a
  2196.     jr z,NEXT2S
  2197.     push hl
  2198.              ld hl,Regeneration
  2199.     ld de, $2649                    ;Y=2C,X=1A
  2200.     call DISPSTRING
  2201.     pop hl
  2202. NEXT2S:
  2203.     inc hl
  2204.     ld a,(hl)
  2205.     or a
  2206.     jr z,NEXT3S
  2207.     push hl
  2208.              ld hl,HPMP
  2209.     ld de, $2D49                    ;Y=2C,X=1A
  2210.     call DISPSTRING    
  2211.     pop hl
  2212. NEXT3S:
  2213.     inc hl
  2214.     ld a,(hl)
  2215.     or a
  2216.     jr z,SKILLSTART
  2217.     push hl
  2218.              ld hl,Smoke
  2219.     ld de, $3449                    ;Y=2C,X=1A
  2220.     call DISPSTRING    
  2221.     pop hl
  2222.  
  2223. SKILLSTART:
  2224.     ld bc,$1F3F
  2225.     ld hl,CURSORMAGIC
  2226.     call drawit2
  2227.     call DELAY2
  2228.  
  2229.     ld hl,WhichSkills
  2230. SKILLLOOP2:
  2231.     push hl
  2232. SKILLLOOP:
  2233.     ld a,$3E
  2234.      out (1),a
  2235.      in a,(1)
  2236.      bit 5,a
  2237.      jr z,SKILLPRESS
  2238.     bit 3,a
  2239.             jr z,SKILLUP
  2240.      bit 7,a  ; del
  2241.      jp z,GOBACK
  2242.     bit 1,a
  2243.     jr z,SKILLLFT
  2244.     bit 2,a
  2245.     jr z,SKILLRT
  2246.     bit 0,a
  2247.             jr nz,SKILLLOOP
  2248. SKILLDOWN:
  2249.     ld a,(BKY)
  2250.     cp $34
  2251.     jr z,(SKILLLOOP)
  2252.     pop hl
  2253.     inc hl
  2254.     push hl
  2255.     ld hl,CURSORMAGIC
  2256.     call drawit
  2257.     ld a,(BKY)
  2258.     add a,7
  2259.     ld (BKY),a
  2260.     ld hl,CURSORMAGIC
  2261.     call drawit
  2262.     call DELAY2
  2263.     jr SKILLLOOP
  2264. SKILLUP:
  2265.     ld a,(BKY)
  2266.     cp $1F
  2267.     jr z,(SKILLLOOP)
  2268.     pop hl
  2269.     dec hl
  2270.     push hl
  2271.     ld hl,CURSORMAGIC
  2272.     call drawit
  2273.     ld a,(BKY)
  2274.     sub 7
  2275.     ld (BKY),a
  2276.     ld hl,CURSORMAGIC
  2277.     call drawit
  2278.     call DELAY2
  2279.     jr SKILLLOOP
  2280. SKILLLFT:
  2281.     ld a,(DUMMY1)        
  2282.     or a
  2283.     jp z,SKILLLOOP
  2284.     dec a
  2285.     ld (DUMMY1),a
  2286.     jp REDISP2
  2287. SKILLRT:
  2288.     ld a,(DUMMY1)        
  2289.     cp 1
  2290.     jp z,SKILLLOOP
  2291.     inc a
  2292.     ld (DUMMY1),a
  2293.     jp REDISP2
  2294. SKILLPRESS:
  2295.     pop hl
  2296.     ld a,(hl)
  2297.     or a    
  2298.     jp z,SKILLLOOP2
  2299.     ld (Save),hl
  2300.     ld hl,(MP)
  2301.     ld a,(DUMMY1)
  2302.     or a
  2303.     jr nz,SKILLPRESS2
  2304.     ld a,(BKY)
  2305.     cp $26
  2306.     jr z,REGENSKILL
  2307.     cp $34
  2308.     jr z,SMOKESKILL
  2309.     cp $2D
  2310.     jp z,HPMPSKILL
  2311.     jr SLASHSKILL
  2312. SKILLPRESS2:
  2313.     ld a,(BKY)
  2314.     cp $26
  2315.     jp z,BUILDSKILL
  2316.     cp $34
  2317.     jp z,STEALSKILL
  2318.     cp $2D
  2319.     jp z,XFRMSKILL
  2320.     jp RELIFESKILL
  2321. SLASHSKILL:
  2322.     ld de,12
  2323.     and a
  2324.     sbc hl,de
  2325.     jp c,NEEDMP2
  2326.     ld (MP),hl
  2327.     call SWORDSWING
  2328.     call SLASH_ALL
  2329.     ld hl,(STRENGTH)
  2330.     ld de,(ENEMYDFD1)
  2331.     and a
  2332.     sbc hl,de
  2333.     jr c,ENEMYDFDSALL
  2334.     ex de,hl
  2335.     jr GOHERE
  2336. ENEMYDFDSALL:
  2337.     ld de,1
  2338. GOHERE:
  2339.     jp  MAGIDAMAGE
  2340. REGENSKILL:
  2341.     ld de,25
  2342.     and a
  2343.     sbc hl,de
  2344.     jp c,NEEDMP2
  2345.     call REGENLOOPER
  2346.     ld a,1
  2347.     ld (REGENCHECK),a
  2348.     jp  MAGIDONE
  2349. SMOKESKILL:
  2350.     ld a,(LEADERCHECK)
  2351.     or a
  2352.     jp nz,SKILLLOOP2
  2353.     ld de,8
  2354.     and a
  2355.     sbc hl,de
  2356.     jp c,NEEDMP2
  2357.     ld (MP),hl
  2358.     jp  YOUFLEE
  2359. HPMPSKILL:
  2360.     ld hl,HPMP
  2361.     ld de, $181E
  2362.     call DISPSTRING
  2363.     call BLANK1429
  2364.     call KURAIMAGIC1
  2365.     call INVERTSCREEN
  2366.     ld hl,$181C
  2367.     ld (BKX),hl
  2368.     ld b,24
  2369. HPMPLOOP:
  2370.     push bc
  2371.     ld hl,(BKX)
  2372.     ld a,l
  2373.     inc a
  2374.     ld l,a
  2375.     ld (BKX),hl
  2376.     ld hl,MPHPSWITCH
  2377.     call drawit
  2378.     call DELAY
  2379.     pop bc
  2380.     djnz HPMPLOOP    
  2381.     ld hl,(MP)
  2382.     ld de,(HP)
  2383.     ld (HP),hl
  2384.     ld (MP),de
  2385.     call OVERMAXMP    
  2386.     jp  MAGIDONE
  2387. REGENEFFECT:
  2388.     ld a,(KURAILEVEL)
  2389.     ld b,a
  2390.     ld hl,0
  2391. LEVEL_LOOP3:
  2392.     ld de,10
  2393.     add hl,de
  2394.     djnz LEVEL_LOOP3
  2395.     call OVERMAXHP
  2396.     ld hl,(HP)        ;; Displays Kurai's HP
  2397.     ld de,$1E4C
  2398.     jp DISPHL
  2399. RELIFESKILL:
  2400.     ld de,50
  2401.     and a
  2402.     sbc hl,de
  2403.     jp c,NEEDMP2
  2404.     ld (MP),hl
  2405.     ld a,1
  2406.     ld (RELIFE),a
  2407.     jp MAGIDONE
  2408. BUILDSKILL:
  2409.     ld de,10
  2410.     and a
  2411.     sbc hl,de
  2412.     jp c,NEEDMP2
  2413.     call REGENLOOPER
  2414.     ld a,1
  2415.     ld (BUILDUP),a
  2416.     jp MAGIDONE
  2417. XFRMSKILL:
  2418.     ld a,(LEADERCHECK)
  2419.     or a
  2420.     jp nz,SKILLLOOP2
  2421.     jp RESTARTBATTLE    
  2422. STEALSKILL:
  2423.     ld de,13
  2424.     and a
  2425.     sbc hl,de
  2426.     jp c,NEEDMP2
  2427.     ld (MP),hl
  2428.     call BLANK1429
  2429.             ld bc,$111D
  2430.     ld (DUMMY1),bc
  2431.     ld b,12
  2432. STEALLOOP:
  2433.     push bc
  2434.     ld bc,(DUMMY1)
  2435.     ld a,c
  2436.     inc a
  2437.     ld c,a        
  2438.     ld (DUMMY1),bc 
  2439.             ld hl,KuraiMagic1
  2440.             call NASRWARP
  2441.     ld bc,(DUMMY1)
  2442.     pop bc
  2443.     djnz STEALLOOP
  2444.     ld bc,$1129
  2445.     ld (DUMMY1),bc
  2446.     ld b,12
  2447. STEALLOOP2:
  2448.     push bc
  2449.     ld bc,(DUMMY1)
  2450.     ld a,c
  2451.     dec a
  2452.     ld c,a        
  2453.     ld (DUMMY1),bc 
  2454.             ld hl,KuraiMagic1
  2455.             call NASRWARP
  2456.     ld bc,(DUMMY1)
  2457.     pop bc
  2458.     djnz STEALLOOP2
  2459.     ld a,r
  2460.     srl a
  2461.     and 7   
  2462.     or a
  2463.     jr z,STEALSOMETHING
  2464.     cp 3
  2465.     jr z,STEALSOMETHING
  2466.     ld hl,Failed
  2467.     jr STEALDONE
  2468. STEALSOMETHING:
  2469.     ld a,r
  2470.     srl a
  2471.     and 7   
  2472.     or a
  2473.     jr z,STOLEMAG
  2474. STOLEMED:
  2475.     ld hl,WhichItems
  2476.     ld a,(hl)
  2477.     inc a
  2478.     ld (hl),a
  2479.     ld hl,MedKit
  2480.     jr STEALDONE
  2481. STOLEMAG:    
  2482.     ld hl,WhichItems
  2483.     inc hl
  2484.     ld a,(hl)
  2485.     inc a
  2486.     ld (hl),a
  2487.     ld hl,MagKit
  2488. STEALDONE:
  2489.     ld de, $1632
  2490.     call DISPSTRING
  2491.     call DELAY3
  2492.     jp MAGIDONE
  2493. ENEMYDEAD:
  2494.     ld hl,0
  2495.     ld a,(WHICHENEMY)
  2496.     cp 2    
  2497.     jr z,KILL2
  2498.     cp 3
  2499.     jr z,KILL3
  2500.     ld (ENEMYSPEED1),hl
  2501.     ld bc,$0F39
  2502.     jr CONTKILL
  2503. KILL2:
  2504.     ld (ENEMYSPEED2),hl
  2505.     ld bc,$2539
  2506.     jr CONTKILL
  2507. KILL3:
  2508.     ld (ENEMYSPEED3),hl
  2509.     ld bc,$3B39
  2510. CONTKILL:    
  2511.     push bc
  2512.     ld hl,EnemyDead
  2513.     call NASRWARP
  2514.     call DELAY2
  2515.     pop bc
  2516.     ld hl,BlankEnemy
  2517.     call NASRWARP    
  2518.     ld hl,(ENEMYST1)
  2519.     srl h
  2520.     rr l
  2521.     ld de,(XPGAINED)
  2522.     add hl,de
  2523.     ld (XPGAINED),hl
  2524.     ld a,(NUMBEROFENEMIES)
  2525.     dec a
  2526.     ld (NUMBEROFENEMIES),a
  2527.     or a
  2528.     ret NZ
  2529.  
  2530. YOUWIN:
  2531.     call DRAWWALLS
  2532.     call KURAI
  2533.     call BATTLEMENU
  2534.     ld hl,(STRENGTHMAX)
  2535.     ld (STRENGTH),hl
  2536.     ld hl,(DEFENSEMAX)
  2537.     ld (DEFENSE),hl
  2538.  
  2539.     ld hl,Victory
  2540.     ld de, $0404
  2541.     call DISPSTRING
  2542.     ld hl,xp
  2543.     ld de, $0B1D
  2544.     call DISPSTRING
  2545.     ld hl,gold
  2546.     ld de, $1215
  2547.     call DISPSTRING
  2548.     ld hl,(XP)
  2549.     ld de,(XPGAINED)
  2550.     add hl,de
  2551.     ld (XP),hl
  2552.     ld de,(XPGAINED)
  2553.     call RANDOM7
  2554.     ld (NUMBEROFENEMIES),hl
  2555.     ld hl,(GOLD)
  2556.     ld de,(NUMBEROFENEMIES)
  2557.     add hl,de
  2558.     ld (GOLD),hl
  2559.     ld hl,0
  2560.     ld (DUMMY1),hl
  2561. LOOPOFGOLDXP:
  2562.     ld hl,(DUMMY1)
  2563.     inc hl
  2564.     inc hl
  2565.     ld (DUMMY1),hl
  2566.     ld de,(XPGAINED)
  2567.     and a
  2568.     sbc hl,de
  2569.     jr z,DONEXP
  2570.     jr nc,DONEXP
  2571.     ld hl,(DUMMY1)
  2572.     ld de,$0B28
  2573.     call DISPHL    
  2574.     ld hl,(DUMMY1)
  2575.     ld de,$1228
  2576.     call DISPHL
  2577.     jr LOOPOFGOLDXP
  2578. DONEXP:
  2579.     ld hl,(NUMBEROFENEMIES)
  2580.     ld de,$1228
  2581.     call DISPHL
  2582.     ld hl,ToNextLevel
  2583.     ld de,$1909
  2584.     call DISPSTRING
  2585.     ld hl,(TOLEVEL)
  2586.     ld de,(XP)
  2587.     and a
  2588.     sbc hl,de
  2589.     ld de,$1928
  2590.     call DISPHL
  2591. LEVELCHECK:
  2592.     ld hl,(XP)
  2593.     ld de,(TOLEVEL)
  2594.     and a
  2595.     sbc hl,de 
  2596.     jr nc, UPLEVEL
  2597.     call WaitKey 
  2598.  
  2599. DONECHECK:
  2600.     ld a,199
  2601.     ret
  2602. UPLEVEL:
  2603.     ld a,(KURAILEVEL)
  2604.     inc a
  2605.     ld (KURAILEVEL),a
  2606.     ld hl,32
  2607.     call LEVELUP2
  2608.     jr DONECHECK
  2609.  
  2610. LEADERALLOCATE2:
  2611.     ld (ENEMYBACK1),hl
  2612.     ld (ENEMYBACK2),bc
  2613.     call NASRWARP
  2614.     call DRAWWALLS2
  2615.     ld a,1
  2616.     ld (NUMBEROFENEMIES),a
  2617.     ld (LEADERCHECK),a
  2618.     ret
  2619. LEADER5:
  2620.     ld a,9
  2621.     ld (SCENARIO),a
  2622.     call DRAWWALLS
  2623.     ld de,$1610
  2624.     ld hl,BanditsText4
  2625.     call DISPSTRING    
  2626.     ld de,$1C10
  2627.     ld hl,BanditsText5
  2628.     call DISPSTRING    
  2629.     call FAITHSWORD
  2630.     call ERASESCREEN
  2631.     ld hl,Leader5
  2632.     ld bc,$1C3C
  2633.     call LEADERALLOCATE2
  2634.     ld bc,170
  2635.     ld de,2500
  2636.     ld ix,37
  2637.     ld hl,90
  2638.     jr LEADERALLOCATE
  2639.  
  2640. LEADER1:
  2641.     call TALK2
  2642.     ld a,2
  2643.     ld (SCENARIO),a
  2644. LEADER1TOWN:
  2645.     ld hl,Leader1
  2646.     ld bc,$283C
  2647.     call LEADERALLOCATE2
  2648.     ld bc,25
  2649.     ld de,250
  2650.     ld ix,34
  2651.     ld hl,13
  2652. LEADERALLOCATE:
  2653.     ld (ENEMYST1),bc    
  2654.     ld (ENEMYHP1),de
  2655.     ld (ENEMYSPEED1),ix
  2656.     ld (ENEMYDFD1),hl
  2657.     jp FROMLEADER
  2658. LEADER2:
  2659.     call ERASESCREEN
  2660.     ld hl,Leader2
  2661.     ld bc,$283C
  2662.     call LEADERALLOCATE2
  2663.     ld bc,40
  2664.     ld de,400
  2665.     ld ix,55
  2666.     ld hl,40
  2667.     jr LEADERALLOCATE
  2668. LEADER3:
  2669.     call TALK5
  2670.     ld hl,Leader3
  2671.     ld bc,$093C
  2672.     call LEADERALLOCATE2
  2673.     ld bc,60
  2674.     ld de,1000
  2675.     ld ix,45
  2676.     ld hl,20
  2677.     ld a,5
  2678.     ld (SCENARIO),a
  2679. TOLEADER:
  2680.     jr LEADERALLOCATE
  2681. LEADER6:
  2682.     call DRAWWALLS
  2683.     ld de,$1010
  2684.     ld hl,Serpent1
  2685.     call DISPSTRING    
  2686.     ld de,$1C10
  2687.     ld hl,faitharmor
  2688.     call DISPSTRING    
  2689.     ld de,$1610
  2690.     ld hl,Serpent2
  2691.     call DISPSTRING3    
  2692.     call ERASESCREEN
  2693.     ld hl,Leader6
  2694.     ld bc,$093C
  2695.     call LEADERALLOCATE2
  2696.     ld bc,330
  2697.     ld de,10000
  2698.     ld ix,50
  2699.     ld hl,900
  2700.     jr TOLEADER
  2701. LEADER7:
  2702.     call DRAWWALLS
  2703.     ld de,$1003
  2704.     ld hl,lasttext1
  2705.     call DISPSTRING    
  2706.     ld de,$1603
  2707.     ld hl,lasttext2
  2708.     call DISPSTRING3    
  2709.     call DRAWWALLS
  2710.     ld de,$1005
  2711.     ld hl,lasttext3
  2712.     call DISPSTRING3    
  2713.     ld de,$1605
  2714.     ld hl,lasttext4
  2715.     call DISPSTRING3    
  2716.     call DRAWWALLS
  2717.     ld de,$1005
  2718.     ld hl,lasttext5
  2719.     call DISPSTRING    
  2720.     ld de,$1605
  2721.     ld hl,lasttext6
  2722.     call DISPSTRING
  2723.     ld de,$1C05
  2724.     ld hl,lasttext7
  2725.     call DISPSTRING3
  2726.     ld b,70
  2727. FLASHSCREEN3:    
  2728.     push bc
  2729.     call INVERTSCREEN
  2730.     pop bc
  2731.     djnz FLASHSCREEN3
  2732.     ld de,$2205
  2733.     ld hl,lasttext8
  2734.     call DISPSTRING3
  2735.     call DRAWWALLS
  2736.     ld de,$1005
  2737.     ld hl,lasttext9
  2738.     call DISPSTRING    
  2739.     ld de,$1605
  2740.     ld hl,lasttext10
  2741.     call DISPSTRING3    
  2742.     call ERASESCREEN
  2743.     ld hl,Leader7
  2744.     ld bc,$093C
  2745.     call LEADERALLOCATE2
  2746.     ld bc,360
  2747.     ld de,10000
  2748.     ld ix,30
  2749.     ld hl,200
  2750.     ld a,13 ; end of game
  2751.     ld (SCENARIO),a
  2752.     jp LEADERALLOCATE
  2753. LEADER4:
  2754.     call DRAWWALLS
  2755.     ld de,$1614
  2756.     ld hl,BanditsText1 ;; The Faith sword!!
  2757.     call DISPSTRING    
  2758.     CALL TALK10
  2759.     call DRAWWALLS
  2760.     ld de,$1610
  2761.     ld hl,BanditsText2
  2762.     call DISPSTRING    
  2763.     ld de,$1C10
  2764.     ld hl,BanditsText3
  2765.     call DISPSTRING    
  2766.     call FAITHSWORD
  2767.     call DRAWWALLS
  2768.     ld a,7
  2769.     ld (SCENARIO),a
  2770.     ld (LEADERCHECK),a
  2771.     ld a,3
  2772.     ld (NUMBEROFENEMIES),a
  2773.     push af
  2774.     jp FROMRIGGED2
  2775. RIGGEDENEMY:
  2776.     xor a
  2777.     jr FROMRIGGED
  2778. PUTENEMY:
  2779.     ld a,(SCENARIO)
  2780.     cp 7
  2781.     jr z,RIGGEDENEMY
  2782.   ld a,r
  2783.   srl a
  2784.   and 6   
  2785.   ld (WHICHENEMY),a
  2786. FROMRIGGED:
  2787.     push af
  2788.     ld a,(DUNGEONCHECK)
  2789.     cp 1 ;; CASTLE DUNGEON
  2790.     jp z,DUNGEON1
  2791.     cp 3 ;; WEST CAVE TO KIATA
  2792.     jp z,DUNGEON3
  2793.     cp 4 ;; FAITH CAVE
  2794.     jp z,DUNGEON6
  2795.     cp 7 ;; BANDIT CASTLE
  2796.     jp z,DUNGEON7
  2797.     cp -1 ;; LAST CAVE
  2798.     jp z,DUNGEON8
  2799.     cp 5 ;; OTHER SIDE OF OVERWORLD MAP
  2800.     jp z,DUNGEON5
  2801.     pop af ;; AND THIS WOULD BE THE OVERWORLD MAP, PART 1
  2802.     or a
  2803.     jr z,Enemy1
  2804.     cp 2
  2805.     jr z,Enemy2
  2806.     cp 4
  2807.     jr z,Enemy3
  2808.  
  2809. Enemy4:        ;; bc == strength de == life
  2810.     ld bc,15    ;; ix == speed
  2811.     ld de,35
  2812.     ld ix,45
  2813.     ld hl,22
  2814.     ld (DUMMY1),hl
  2815.            ld hl,ENEMY4
  2816.     jr STARTPUT1
  2817. Enemy3:
  2818.     ld bc,20
  2819.     ld de,40
  2820.     ld ix,50
  2821.     ld hl,22
  2822.     ld (DUMMY1),hl
  2823.            ld hl,ENEMY3
  2824.     jr STARTPUT1
  2825. Enemy2:
  2826.     ld bc,10
  2827.     ld de,40
  2828.     ld ix,30
  2829.     ld hl,10
  2830.     ld (DUMMY1),hl
  2831.            ld hl,ENEMY2
  2832.     jr STARTPUT1
  2833. Enemy1:
  2834.     ld bc,30
  2835.     ld de,66
  2836.     ld ix,66
  2837.     ld hl,30
  2838.     ld (DUMMY1),hl
  2839.            ld hl,ENEMY1
  2840.     jr STARTPUT1
  2841. DUNGEON1:
  2842.     ld hl,8
  2843.     ld (DUMMY1),hl
  2844.     pop af
  2845.     or a
  2846.     jr z,Enemy5
  2847.     cp 2
  2848.     jr z,Enemy6
  2849.     cp 4
  2850.     jr z,Enemy7
  2851.  
  2852. Enemy8:        ;; bc == strength de == life
  2853.     ld bc,15    ;; ix == speed
  2854.     ld de,20
  2855.     ld ix,45
  2856.            ld hl,ENEMY8
  2857.     jr STARTPUT1
  2858. Enemy7:
  2859.     ld bc,10
  2860.     ld de,30
  2861.     ld ix,50
  2862.     ld hl,24
  2863.     ld (DUMMY1),hl
  2864.            ld hl,ENEMY7
  2865. STARTPUT1:
  2866.     jr STARTPUT2
  2867. Enemy6:
  2868.     ld bc,08
  2869.     ld de,18
  2870.     ld ix,27
  2871.            ld hl,ENEMY6
  2872.     jr STARTPUT2
  2873. Enemy5:
  2874.     ld bc,20
  2875.     ld de,43
  2876.     ld ix,60
  2877.            ld hl,ENEMY5
  2878.     jr STARTPUT2
  2879. DUNGEON3:
  2880.     ld hl,32
  2881.     ld (DUMMY1),hl
  2882.     pop af
  2883.     or a
  2884.     jr z,Enemy9
  2885.     cp 2
  2886.     jr z,Enemy10
  2887.     cp 4
  2888.     jr z,Enemy11
  2889. Enemy12:        ;; bc == strength de == life
  2890.         ;; ix == speed
  2891.     ld bc,24
  2892.     ld de,120
  2893.     ld ix,18
  2894.     ld (DUMMY1),ix
  2895.            ld hl,ENEMYGIMP ;; weak guy you fight in town
  2896.     jr STARTPUT
  2897. Enemy11:
  2898.     ld bc,35
  2899.     ld de,90
  2900.     ld ix,50
  2901.            ld hl,ENEMY11
  2902.     jr STARTPUT
  2903. Enemy10:
  2904.     ld bc,40
  2905.     ld de,100
  2906.     ld ix,27
  2907.            ld hl,ENEMY10
  2908.     jr STARTPUT
  2909. Enemy9:
  2910.     ld bc,60
  2911.     ld de,150
  2912.     ld ix,60
  2913.            ld hl,ENEMY9
  2914. STARTPUT2:
  2915.     jr STARTPUT
  2916.  
  2917. DUNGEON5: ;;overhead map #2
  2918.     ld hl,45
  2919.     ld (DUMMY1),hl
  2920.     pop af
  2921.     or a
  2922.     jr z,Enemy9
  2923.     cp 2
  2924.     jr z,Enemy13
  2925.     cp 4
  2926.     jr z,Enemy14
  2927. Enemy15:
  2928.     ld bc,65
  2929.     ld de,140
  2930.     ld ix,45
  2931.            ld hl,ENEMY15
  2932.     jr STARTPUT
  2933. Enemy14:
  2934.     ld bc,80
  2935.     ld de,150
  2936.     ld ix,50
  2937.            ld hl,ENEMY14
  2938.     jr STARTPUT
  2939. Enemy13:
  2940.     ld bc,60
  2941.     ld de,160
  2942.     ld ix,40
  2943.            ld hl,ENEMY13
  2944.     jr STARTPUT
  2945.  
  2946. STARTPUT:
  2947.     ld a,(KURAICOUNTER)
  2948.     cp 199
  2949.     jr z,PUT2
  2950.     cp 201
  2951.     jr z,PUT3
  2952. PUT1:
  2953.     ld (ENEMYST1),bc    
  2954.     ld (ENEMYHP1),de
  2955.     ld (ENEMYSPEED1),ix
  2956.     ld (ENEMYBACK1),hl
  2957.     ld bc,$0F39
  2958.     call NASRWARP
  2959.     ld hl,(DUMMY1)
  2960.     ld (ENEMYDFD1),hl
  2961.     ld a,(NUMBEROFENEMIES)
  2962.     dec a
  2963.     or a
  2964.     ret Z
  2965.     ld (NUMBEROFENEMIES),a
  2966.     ld a,199
  2967.     ld (KURAICOUNTER),a
  2968.     jr PUTENEMY2
  2969. PUT2:
  2970.     ld (ENEMYST2),bc    
  2971.     ld (ENEMYHP2),de
  2972.     ld (ENEMYSPEED2),ix
  2973.     ld (ENEMYBACK2),hl
  2974.     ld bc,$2539
  2975.     call NASRWARP
  2976.     ld hl,(DUMMY1)
  2977.     ld (ENEMYDFD2),hl
  2978.     ld a,(NUMBEROFENEMIES)
  2979.     dec a
  2980.     or a
  2981.     ret Z
  2982.     ld (NUMBEROFENEMIES),a
  2983.     ld a,201
  2984.     ld (KURAICOUNTER),a
  2985. PUTENEMY2:
  2986.     jp PUTENEMY
  2987. PUT3:
  2988.     ld (ENEMYST3),bc    
  2989.     ld (ENEMYHP3),de
  2990.     ld (ENEMYSPEED3),ix
  2991.     ld (ENEMYBACK3),hl
  2992.     ld bc,$3B39
  2993.     call NASRWARP
  2994.     ld hl,(DUMMY1)
  2995.     ld (ENEMYDFD3),hl
  2996.     ret
  2997. DUNGEON6:
  2998.     ld hl,45
  2999.     ld (DUMMY1),hl
  3000.     pop af
  3001.     or a
  3002.     jr z,Enemy18
  3003.     cp 2
  3004.     jr z,Enemy17
  3005.     cp 4
  3006.     jr z,Enemy19
  3007. Enemy16:        ;; bc == strength de == life
  3008.         ;; ix == speed
  3009.     ld bc,90
  3010.     ld de,80
  3011.     ld ix,18
  3012.     ld (DUMMY1),ix
  3013.            ld hl,ENEMY16
  3014. STARTPUT3:
  3015.     jp STARTPUT
  3016. Enemy18:
  3017.     ld bc,110
  3018.     ld de,210
  3019.     ld ix,50
  3020.            ld hl,ENEMY18
  3021.     jr STARTPUT3
  3022. Enemy17:
  3023.     ld bc,70
  3024.     ld de,130
  3025.     ld ix,34
  3026.            ld hl,ENEMY17
  3027.     jr STARTPUT3
  3028. Enemy19:
  3029.     ld bc,78
  3030.     ld de,150
  3031.     ld ix,30
  3032.            ld hl,ENEMY19
  3033.     jr STARTPUT3
  3034.  
  3035. DUNGEON7:
  3036.     ld hl,60
  3037.     ld (DUMMY1),hl
  3038.     pop af
  3039.     or a
  3040.     jr z,Enemy20
  3041.     cp 2
  3042.     jr z,Enemy21
  3043.     cp 4
  3044.     jr z,Enemy18
  3045. Enemy22:
  3046.     ld bc,100
  3047.     ld de,300
  3048.     ld ix,50
  3049.            ld hl,ENEMY22
  3050.     jr STARTPUT3
  3051. Enemy21:
  3052.     ld bc,140
  3053.     ld de,150
  3054.     ld ix,34
  3055.            ld hl,ENEMY21
  3056.     jr STARTPUT3
  3057. Enemy20:
  3058.     ld hl,190
  3059.     ld (DUMMY1),hl
  3060.  
  3061.     ld bc,100
  3062.     ld de,200
  3063.     ld ix,40
  3064.            ld hl,ENEMY20
  3065.     jr STARTPUT3
  3066. DUNGEON8:
  3067.     ld hl,100
  3068.     ld (DUMMY1),hl
  3069.     pop af
  3070.     or a
  3071.     jr z,Enemy21
  3072.     cp 2
  3073.     jr z,Enemy23
  3074.     cp 4
  3075.     jr z,Enemy24
  3076. Enemy25:
  3077.     ld bc,300
  3078.     ld de,300
  3079.     ld ix,50
  3080.            ld hl,ENEMY25
  3081. STARTPUT4:
  3082.     jp STARTPUT
  3083. Enemy23:
  3084.     ld bc,440
  3085.     ld de,200
  3086.     ld ix,34
  3087.            ld hl,ENEMY23
  3088.     jr STARTPUT4
  3089. Enemy24:
  3090.     ld bc,200
  3091.     ld de,200
  3092.     ld ix,40
  3093.            ld hl,ENEMY24
  3094.     jr STARTPUT4
  3095. GIMPMAN:
  3096.     call DRAWWALLS            
  3097.     call Enemy12
  3098.     ld a,1
  3099.     ld (NUMBEROFENEMIES),a
  3100.     dec a
  3101.     ld (ENEMYSPEED2),a
  3102.     ld (ENEMYSPEED3),a
  3103.     jp ITSALEADER
  3104.  
  3105. NASRWARP:    
  3106.     ld de,$0000
  3107.     add hl,de
  3108.         push    bc
  3109.  
  3110.         ex      de,hl
  3111.  
  3112.         call $4166        
  3113.  
  3114.         ld      bc,$88B8
  3115.  
  3116.         add     hl,bc
  3117.  
  3118.         ld      (PicCoor),hl
  3119.  
  3120.         ex      de,hl
  3121.  
  3122.         ld      b,$ff
  3123.  
  3124. Patch:
  3125.  
  3126.         rla
  3127.  
  3128.         inc     b
  3129.  
  3130.         jr      nc,Patch
  3131.  
  3132.         ld      a,(hl)
  3133.  
  3134.         ld      c,a      
  3135.  
  3136.         inc     hl
  3137.  
  3138.         ld      a,(hl)
  3139.  
  3140.         ld      (offset),a
  3141.  
  3142.         ld      a,b   
  3143.  
  3144.         ld      e,c
  3145.  
  3146.         cp      (hl)
  3147.  
  3148.         jr      c,DS1
  3149.  
  3150.         inc     e
  3151.  
  3152. DS1:
  3153.  
  3154.         inc     hl
  3155.  
  3156.         ld      a,(hl)
  3157.  
  3158.         ld      d,a
  3159.  
  3160.         inc     hl
  3161.  
  3162. YLoop:            
  3163.  
  3164.         push    bc 
  3165.  
  3166.         push    de
  3167.  
  3168.         ld      b,8
  3169.  
  3170.         ex      de,hl
  3171.  
  3172.         ld      hl,TempLine
  3173.  
  3174. InitTempLineLoop:
  3175.  
  3176.         ld      (hl),$ff
  3177.  
  3178.         inc     hl
  3179.  
  3180.         djnz    InitTempLineLoop
  3181.  
  3182.         ex      de,hl
  3183.  
  3184.         ld      a,(NASR_Status)
  3185.  
  3186.         or a
  3187.  
  3188.         jr      z,NASRErase
  3189.  
  3190. NASRDraw:
  3191.  
  3192.         ld      b,0
  3193.  
  3194.         ld      de,TempLine
  3195.  
  3196.         ldir       
  3197.  
  3198.         jr      NASRDrawFin
  3199.  
  3200. NASRErase:
  3201.  
  3202.         ld      b,c
  3203.  
  3204.         ld      hl,TempLine
  3205.  
  3206. LoadEmpty:
  3207.  
  3208.         ld      (hl),0
  3209.  
  3210.         inc     hl
  3211.  
  3212.         djnz    LoadEmpty
  3213.  
  3214. NASRDrawFin:
  3215.  
  3216.         pop     de
  3217.  
  3218.         pop     bc
  3219.  
  3220.         push    hl
  3221.  
  3222.         push    bc         
  3223.  
  3224.         push    de
  3225.  
  3226.         ld      d,b
  3227.  
  3228.         ld      a,b
  3229.  
  3230.         or a
  3231.  
  3232.         jr      z,skipshift
  3233.  
  3234. SpriLoop1:
  3235.  
  3236.         ld      a,b    
  3237.  
  3238.         ld      HL,TempLine
  3239.  
  3240.         ld      b,e
  3241.  
  3242.         scf
  3243.  
  3244. SpriLoop2:        
  3245.  
  3246.         rr      (HL)
  3247.  
  3248.         inc     HL
  3249.  
  3250.         djnz    SpriLoop2
  3251.  
  3252.         ld      b,a
  3253.  
  3254.         djnz    SpriLoop1        
  3255.  
  3256.         ld      b,d
  3257.  
  3258. skipshift:
  3259.  
  3260.         ld      a,$ff           ;fill accumulator
  3261.  
  3262.         inc     b
  3263.  
  3264. mask1:
  3265.  
  3266.         srl     a               ;make the mask
  3267.  
  3268.         djnz    mask1           ;something like
  3269.  
  3270.         scf                     ;00001111 ->
  3271.  
  3272.         rl      a                        
  3273.  
  3274.         ld      hl,(PicCoor)    ;implement the mask
  3275.  
  3276.         or      (hl)            ;this preserve the 0 bits
  3277.  
  3278.         ld      hl,TempLine   ;become xxxx1111
  3279.  
  3280.         and     (hl)            ;when anded, become
  3281.  
  3282.         ld      (hl),a          ;xxxxyyyy
  3283.  
  3284.         ld      b,d             ;retrieve b
  3285.  
  3286.         ld      a,(offset)
  3287.  
  3288.         dec     a
  3289.  
  3290.         sub     b
  3291.  
  3292.         jr      nc,skip
  3293.  
  3294.         sub     248
  3295.  
  3296. skip:
  3297.  
  3298.         ld      b,a
  3299.  
  3300.         inc     b
  3301.  
  3302.         ld      a,$ff
  3303.  
  3304. mask2:               
  3305.  
  3306.         sla     a
  3307.  
  3308.         djnz    mask2
  3309.  
  3310.         scf
  3311.  
  3312.         rr      a
  3313.  
  3314.         dec     e
  3315.  
  3316.         ld      hl,(PicCoor)
  3317.  
  3318.         ld      d,0
  3319.  
  3320.         add     hl,de
  3321.  
  3322.         or      (hl)
  3323.  
  3324.         ld      hl,TempLine
  3325.  
  3326.         add     hl,de
  3327.  
  3328.         and     (hl)
  3329.  
  3330.         ld      (hl),a
  3331.  
  3332.         inc     e
  3333.  
  3334.         ld      c,e
  3335.  
  3336.         ld      hl,(PicCoor)
  3337.  
  3338.         ld      de,12   
  3339.  
  3340.         push    hl
  3341.  
  3342.         add     hl,de
  3343.  
  3344.         ld      (PicCoor),hl
  3345.  
  3346.         pop     hl
  3347.  
  3348.         ld      de,TempLine
  3349.  
  3350.         ex      de,hl
  3351.  
  3352.         ld      b,0
  3353.  
  3354.         ldir      
  3355.  
  3356.         pop     de
  3357.  
  3358.         pop     bc
  3359.  
  3360.         pop     hl
  3361.  
  3362.         dec     d
  3363.  
  3364.         jp nz,YLoop
  3365.  
  3366.         pop     bc
  3367.  
  3368.         ROM_CALL(DISP_GRAPH)  
  3369.         ret
  3370.  
  3371. drawit2:
  3372.     ld (BKX),bc
  3373. drawit:
  3374.             ld a,(BKY)
  3375.     ld      e,a            ; Load the y-coordinate in e
  3376.     ld      a,(BKX)     ; Load the x-coordinate in a
  3377.  
  3378. DRWSPR2:
  3379.         push    hl              ; Save sprite address
  3380.  
  3381. ;████   Calculate the address in graphbuf   â–ˆâ–ˆâ–ˆâ–ˆ
  3382.  
  3383.         ld      hl,0            ; Do y*12
  3384.         ld      d,0
  3385.         add     hl,de
  3386.         add     hl,de
  3387.         add     hl,de
  3388.         add     hl,hl
  3389.         add     hl,hl
  3390.  
  3391.         ld      d,0             ; Do x/8
  3392.         ld      e,a
  3393.         srl     e
  3394.         srl     e
  3395.         srl     e
  3396.         add     hl,de
  3397.  
  3398.         ld      de,$88B8
  3399.         add     hl,de           ; Add address to graphbuf
  3400.  
  3401.         ld      b,00000111b     ; Get the remainder of x/8
  3402.         and     b
  3403.         or a               ; Is this sprite aligned to 8*n,y?
  3404.         jr      z,ALIGN2
  3405.  
  3406.  
  3407. ;████   Non aligned sprite blit starts here   â–ˆâ–ˆâ–ˆâ–ˆ
  3408.  
  3409.         pop     ix              ; ix->sprite
  3410.         ld      d,a             ; d=how many bits to shift each line
  3411.  
  3412.         ld      e,8             ; Line loop
  3413. LILOP2:  ld      b,(ix+0)        ; Get sprite data
  3414.  
  3415.         ld      c,0             ; Shift loop
  3416.         push    de
  3417. SHLOP2:  srl     b
  3418.         rr      c
  3419.         dec     d
  3420.         jr      nz,SHLOP2
  3421.         pop     de
  3422.     ld      a,b             ; Write line to graphbuf
  3423.         xor      (hl)
  3424.         ld      (hl),a
  3425.         inc     hl
  3426.         ld      a,c
  3427.         xor      (hl)
  3428.         ld      (hl),a
  3429.         ld      bc,11           ; Calculate next line address
  3430.         add     hl,bc
  3431.         inc     ix              ; Inc spritepointer
  3432.  
  3433.         dec     e
  3434.         jr      nz,LILOP2        ; Next line
  3435.     jr      DONE2
  3436.  
  3437. ;████   Aligned sprite blit starts here   â–ˆâ–ˆâ–ˆâ–ˆ
  3438.  
  3439. ALIGN2:                          ; Blit an aligned sprite to graphbuf
  3440.         pop     de              ; de->sprite
  3441.         ld      b,8
  3442. ALOP2:  
  3443.     ld      a,(de)
  3444.     xor      (hl)
  3445.         ld      (hl),a
  3446.         inc     de
  3447.         push    bc
  3448.         ld      bc,12
  3449.         add     hl,bc
  3450.         pop     bc
  3451.         djnz    ALOP2
  3452. DONE2:
  3453.     ld    c,a
  3454.     ld    a,e
  3455.     add    a,1
  3456.     ld    e,a
  3457.     ld    a,c
  3458.     add    a,1
  3459.             ROM_CALL(_GRBUFCPY_V)
  3460.     ret
  3461.  
  3462.  
  3463. SPELLCAST:
  3464.     ld (MP),hl
  3465.     ;; Done BEFORE spell is cast..snazzy. :)
  3466.     call BLANK1429
  3467.     call KURAIMAGIC1
  3468.     ld bc,$1025
  3469.             ld hl,KuraiOrb1
  3470.             call NASRWARP
  3471.             ld bc,$2225
  3472.             ld hl,KuraiOrb1
  3473.             call NASRWARP
  3474.             call DELAY
  3475.     ld bc,$1025
  3476.             ld hl,KuraiOrb2
  3477.             call NASRWARP
  3478.     ld bc,$2225
  3479.             ld hl,KuraiOrb2
  3480.             call NASRWARP
  3481.     call DELAY
  3482.     ld bc,$1025
  3483.             ld hl,KuraiOrb3
  3484.             call NASRWARP
  3485.     ld bc,$2225
  3486.             ld hl,KuraiOrb3
  3487.             call NASRWARP
  3488.     call DELAY
  3489.     ld bc,$1025
  3490.             ld hl,KuraiOrb4
  3491.             call NASRWARP
  3492.     ld bc,$2225
  3493.             ld hl,KuraiOrb4
  3494.             call NASRWARP
  3495.     call DELAY
  3496.     
  3497.     ld b,3
  3498. FIRELOOP:
  3499.     push bc
  3500.     ld bc,$111D
  3501.             ld hl,KuraiMagic2
  3502.             call NASRWARP
  3503.     call DELAY
  3504.     call KURAIMAGIC1
  3505.     call DELAY
  3506.     pop bc
  3507.     djnz FIRELOOP
  3508.     ret
  3509.  
  3510. ;;DM_HL_DECI
  3511. DISPHL2:    
  3512.     ld de,$163A
  3513. DISPHL:
  3514. DM_HL_DECI:
  3515.   ld   ($8215),de          ;Since DE is a word, it overlaps into 8216
  3516.   ld b,48                  ; 48 -> b
  3517.   ld c,4                   ; 4 -> c
  3518.   ld a,h                   ; h -> a
  3519.   or l                     ; If a=0 and l=0, then return zero
  3520.   jr z,DM_HL_3             ; If zero, then jump to DM_HL_3
  3521.   ld c,-1                  ; -1 -> c
  3522.   ld b,46                  ; 46 -> b
  3523.   jr DM_HL_NEXT2           ; Jump to DM_HL_NEXT2
  3524. DM_HL_INIT:
  3525.   call CP_HL_DE            ; cp hl,de
  3526.   jr c,DM_HL_NEXT2         ; If carry, then jump to DM_HL_NEXT2
  3527.   dec c                    ; c = c - 1
  3528. DM_HL_NEXT:
  3529.   ld b,47                  ; 47 -> b
  3530. DM_HL_NEXT2:
  3531.   inc c                    ; c = c + 1
  3532.   ld a,c                   ; c -> a
  3533.   or a                     ; If a=0, then return zero
  3534.   ld de,10000              ; 10000 -> de
  3535.   jr z,DM_HL_2a            ; If zero, then jump to DM_HL_2a
  3536.   cp 1                     ; If a=1, then return zero
  3537.   ld de,1000               ; 1000 -> de
  3538.   jr z,DM_HL_2a            ; If zero, then jump to DM_HL_2a
  3539.   cp 2                     ; If a=2, then return zero
  3540.   ld de,100                ; 100 -> de
  3541.   jr z,DM_HL_2a            ; If zero, then jump to DM_HL_2a
  3542.   cp 3                     ; If a=3, then return zero
  3543.   ld de,10                 ; 10 -> de
  3544.   jr z,DM_HL_2a            ; If zero, then jump to DM_HL_2a
  3545.   ld de,1                  ; 1 -> de
  3546. DM_HL_2a:
  3547.   ld a,b                   ; b -> a
  3548.   cp 46                    ; If a=46, then return zero
  3549.   jr z,DM_HL_INIT          ; If zero, then jump to DM_HL_INIT
  3550. DM_HL_2b:
  3551.   inc b                    ; b = b + 1
  3552.   call CP_HL_DE            ; cp hl,de
  3553.   jr c,DM_HL_3             ; If carry, then jump to DM_HL_3
  3554.   or a                     ; Reset carry flag
  3555.   sbc hl,de                ; hl = hl - de
  3556.   jr DM_HL_2b              ; Jump to DM_HL_2b
  3557. DM_HL_3:
  3558.   ld a,b                   ; b -> a
  3559.   ROM_CALL(M_CHARPUT)      ; Display the character
  3560.   ld a,c                   ; c -> a
  3561.   cp 4                     ; If a=4, then return zero
  3562.   jr nz,DM_HL_NEXT         ; If not zero, then jump to DM_HL_NEXT
  3563.   jp CR_GRBCopy
  3564.  
  3565. DISPSTRING2: ;; to optimize :)
  3566.     ld de,$163A
  3567. DISPSTRING:
  3568.     ld ($8215),de
  3569.     ROM_CALL(D_ZM_STR)     ;Display the string
  3570.     jp CR_GRBCopy         ; Copy graphbuf to LCD
  3571.  
  3572. ERASESCREEN:
  3573.         ld hl,$88B8
  3574.         ld de,$88B9
  3575.         ld bc,$2FF
  3576.         ld (hl),0
  3577.         ldir                            ;clear the graf mem
  3578.         ret
  3579.  
  3580. NEEDMP:
  3581.     ld hl,needmp
  3582.     ld de, $163E
  3583.     call DISPSTRING
  3584.     call ERASETEXT2
  3585.     call DISPMP
  3586.     ld hl,(Save)
  3587.     jp  MAGICLOOP2
  3588. NEEDMP2:
  3589.     ld hl,needmp
  3590.     ld de, $163E
  3591.     call DISPSTRING
  3592.     call ERASETEXT2
  3593.     call DISPMP
  3594.     ld hl,(Save)
  3595.     jp  SKILLLOOP2
  3596. ERASETEXT2:
  3597.     call DELAY2    
  3598.     call DELAY2
  3599. ERASETEXT:
  3600.                 ld hl,BlankText
  3601.                 call DISPSTRING2
  3602.                 LD de,$1649        
  3603.                 ld hl,BlankText
  3604.                 jp DISPSTRING
  3605.  
  3606. PutPixel:        ;puts the pixel at b, c
  3607.     call $4166
  3608.     ld de,$88B8
  3609.     add hl, de
  3610.     or (hl)
  3611.     ld (hl),a
  3612.             ROM_CALL(_GRBUFCPY_V)
  3613.     ret
  3614. DRAWWALLS:
  3615.     call ERASESCREEN
  3616. DRAWWALLS2:        
  3617.     LD HL,$88B8
  3618.     LD DE,$88B9
  3619.                LD BC,23
  3620.                LD (HL),$FF
  3621.                LDIR
  3622.     LD HL,$8BA0
  3623.     LD DE,$8BA1
  3624.                LD BC,23
  3625.                LD (HL),$FF
  3626.                LDIR
  3627.                
  3628.     LD B,60
  3629.                LD HL,$88D0
  3630.                LD DE,11
  3631. SIDELINELOOP:
  3632.                LD (HL),$C0
  3633.                ADD HL,DE
  3634.                LD (HL),3
  3635.                INC HL
  3636.                DJNZ SIDELINELOOP
  3637.     jp CR_GRBCopy
  3638.  
  3639. shake:
  3640.     ld      a,42h
  3641.     out     (10h),a
  3642.     call DELAY2
  3643.     ld      a,40h
  3644.     out     (10h),a
  3645.     jp DELAY2
  3646. RANDOM7:
  3647.   ld a,r
  3648.   srl a
  3649.   and 7   
  3650.   ld l,a
  3651.   ld h,0
  3652.   add hl,de
  3653.   ret
  3654.  
  3655. DELAY:
  3656.         ld a,$4F
  3657.         ld b,$4F
  3658. dloop:
  3659.         dec a
  3660.         jr nz,dloop
  3661.         dec b
  3662.         jr nz,dloop
  3663.         ret
  3664. DELAY2:
  3665.         ld a,$9F
  3666.         ld b,$9F
  3667.         jr dloop
  3668. DELAY3:
  3669.         ld a,$FF
  3670.         ld b,$FF
  3671.         jr dloop
  3672.  
  3673. BATTLEMENU:
  3674.     ld bc,$3F22
  3675.             ld hl,BattleMenu    ;; Displays the Menu
  3676.             call NASRWARP
  3677.     ld hl,(HP)        ;; Displays Kurai's HP
  3678.     ld de,$1E4C
  3679.     call DISPHL
  3680.     ld bc,$2B42
  3681.     ld hl,ICONRING
  3682.     jp drawit2
  3683. ERASEMENU:
  3684.     ld bc,$4020
  3685.             ld hl,KuraiBlank    ;; Displays the Menu
  3686.             call NASRWARP
  3687.     call DRAWWALLS2
  3688.  
  3689.     ld bc,$1658
  3690.     ld hl,LINE
  3691.     jp drawit2
  3692. OVERMAXHP:
  3693.     ld hl,(HP)
  3694.     add hl,de
  3695.     ld (HP),hl
  3696.     ld de,(MAXHP)
  3697.     and a
  3698.     sbc hl,de
  3699.     ret C
  3700.     ld hl,(MAXHP)            
  3701.     ld (HP),hl
  3702.     ret
  3703.  
  3704. OVERMAXMP:
  3705.     ld hl,(MP)
  3706.     add hl,de
  3707.     ld (MP),hl
  3708.     ld de,(MAXMP)
  3709.     and a
  3710.     sbc hl,de
  3711.     ret C
  3712.     ld hl,(MAXMP)            
  3713.     ld (MP),hl
  3714.     ret
  3715.  
  3716. INVERTSCREEN:    ;;inverts screen        
  3717.     ld      de,768
  3718.     ld      hl,$88B8
  3719. invloop:
  3720.     ld      a,(hl)
  3721.     cpl
  3722.     ld      (hl),a
  3723.     inc     hl
  3724.     dec     de
  3725.     ld      a,d
  3726.     or      e
  3727.     jr      NZ,invloop
  3728.     ROM_CALL(_GRBUFCPY_V)
  3729.     ret
  3730. GOBACK:
  3731.     pop hl
  3732.     call ERASETEXT
  3733.     call BATTLEMENU
  3734.     call REFILL
  3735.     call KURAI
  3736.     ld a,1
  3737.     ld (OK),a
  3738.     jp  SPEEDLOOP
  3739.  
  3740. REFILL:
  3741.     ld bc,(BKX)
  3742.     push bc    
  3743.     ld bc,$2042
  3744.     ld hl,ERASURE
  3745.     call drawit2
  3746.     ld a,74
  3747.     ld (BKX),a
  3748.     ld hl,ERASURE
  3749.     call drawit
  3750.     ld a,82
  3751.     ld (BKX),a
  3752.     ld hl,ERASURE
  3753.     call drawit
  3754.     ld a,84
  3755.     ld (BKX),a
  3756.     ld hl,ERASURE2
  3757.     call drawit
  3758.     pop bc
  3759.     ld (BKX),bc
  3760.     ret
  3761.  
  3762. SLASH_ALL:    ;; star spell and slash-all gfx
  3763.     ld b,2
  3764. STARTSTAR:    
  3765.     push bc
  3766.     xor a
  3767.     ld (OK),a
  3768.     ld a,15
  3769.     ld (DUMMY1),a
  3770.     ld a,5
  3771.     ld (DUMMY2),a
  3772. STARLOOP:
  3773.     ld a,(DUMMY1)
  3774.     ld b,a
  3775.     ld a,(OK)
  3776.     add a,b
  3777.     ld (BKX),a
  3778.     ld a,(DUMMY2)
  3779.     ld (BKY),a
  3780.     ld hl,SWORDSLASH1
  3781.     call drawit
  3782.     ld a,(DUMMY1)
  3783.     add a,20
  3784.     ld b,a
  3785.     ld a,(OK)
  3786.     add a,b
  3787.     ld (BKX),a
  3788.     ld a,(DUMMY2)
  3789.     ld (BKY),a
  3790.     ld hl,SWORDSLASH1
  3791.     call drawit
  3792.     ld a,(DUMMY1)
  3793.     add a,40
  3794.     ld b,a
  3795.     ld a,(OK)
  3796.     add a,b
  3797.     ld (BKX),a
  3798.     ld a,(DUMMY2)
  3799.     ld (BKY),a
  3800.     inc a
  3801.     ld (DUMMY2),a
  3802.     ld hl,SWORDSLASH1
  3803.     call drawit
  3804.     ld a,(OK)
  3805.     inc a
  3806.     ld (OK),a
  3807.     cp 10
  3808.     jr nz,STARLOOP
  3809.     pop bc
  3810.     djnz STARTSTAR
  3811.     ret
  3812. SWORDSWING:
  3813.     call BLANK1429
  3814.            ld bc,$0B29
  3815.             ld hl,Kurai4
  3816.             call NASRWARP
  3817.             call DELAY
  3818.             ld bc,$0B29
  3819.             ld hl,KuraiBlank
  3820.             call NASRWARP
  3821.             ld bc,$0B1C
  3822.             ld hl,Kurai3
  3823.             call NASRWARP
  3824.             call DELAY
  3825.             ld bc,$0B29
  3826.             ld hl,KuraiBlank
  3827.             call NASRWARP
  3828.             ld bc,$031A
  3829.             ld hl,Kurai5
  3830.             call NASRWARP
  3831.     call DELAY
  3832.             ld bc,$0329
  3833.             ld hl,KuraiBlank
  3834.             call NASRWARP
  3835.     jp KURAI    
  3836. KURAI:
  3837.             ld bc,$141F
  3838.             ld hl,Kurai
  3839.             jp NASRWARP
  3840. DISPMP:
  3841.  
  3842.     ld hl,YourMP
  3843.     ld de, $164A                   ;Y=2C,X=1A
  3844.     call DISPSTRING
  3845.     ld hl,(MP)
  3846.     ld de,$1652
  3847.     jp DISPHL
  3848. EFFECT:
  3849.     LD B,1
  3850. EFFECT1:
  3851.                LD HL,$88D0
  3852.                LD DE,6
  3853.     push bc
  3854. SIDELINELOOP2:
  3855.                LD A,$C0
  3856.              LD (HL),0
  3857.                ADD HL,DE
  3858.              LD (HL),0
  3859.                INC HL
  3860.                DJNZ SIDELINELOOP2
  3861.     call CR_GRBCopy
  3862.     pop bc
  3863.     inc b
  3864.     ld a,b
  3865.     cp 105
  3866.     jr nz,EFFECT1
  3867.     ret
  3868. LEVELUP2:
  3869.     push hl
  3870.     call DRAWWALLS
  3871.     ld hl,LevelUp
  3872.     ld bc,$3E3B
  3873.     call NASRWARP    
  3874.     pop hl
  3875. LEVELUP:
  3876.     push hl
  3877.     ld hl,KuraiPortrait
  3878.     ld bc,$3C26
  3879.     call NASRWARP    
  3880.     pop hl
  3881.     ld (DUMMY1),hl
  3882.     ld hl,Allocate
  3883.     ld de,$080A
  3884.     call DISPSTRING
  3885.     call DISPLAYSTATS    
  3886.     ld bc,$130B
  3887.     ld hl,ALLOCATER
  3888.     call drawit2
  3889. FROMADD:
  3890.     ld hl,BlankText
  3891.     ld de,$082A
  3892.     call DISPSTRING
  3893.     ld hl,(DUMMY1)
  3894.     dec hl
  3895.     dec hl
  3896.  
  3897.     ld de,$082A
  3898.     call DISPHL
  3899.     call DRAWSTATS
  3900. ALLOCLOOP:    
  3901.     call GET_KEY
  3902.             cp G_RIGHT
  3903.     jp z,ADDPOINT)
  3904.     cp G_DOWN
  3905.     jr z,ALLOCDOWN
  3906.             cp G_UP
  3907.     jr nz,ALLOCLOOP    
  3908. ALLOCUP:
  3909.     ld a,(BKY)
  3910.     cp $13
  3911.     jr z,ALLOCLOOP    
  3912.     ld hl,ALLOCATER
  3913.     call drawit
  3914.     ld a,(BKY)
  3915.     sub 6
  3916.     ld (BKY),a
  3917.     ld hl,ALLOCATER
  3918.     call drawit
  3919.     jr ALLOCLOOP    
  3920. ALLOCDOWN:
  3921.     ld a,(BKY)
  3922.     cp $2B
  3923.     jr z,ALLOCLOOP    
  3924.     ld hl,ALLOCATER
  3925.     call drawit
  3926.     ld a,(BKY)
  3927.     add a,6
  3928.     ld (BKY),a
  3929.     ld hl,ALLOCATER
  3930.     call drawit
  3931.     jr ALLOCLOOP    
  3932.  
  3933. ADDPOINT:
  3934.     ld hl,(DUMMY1)
  3935.     dec hl
  3936.     dec hl
  3937.     ld de,0
  3938.     and a
  3939.     sbc hl,de
  3940.     jr z,DONEALLOCATE
  3941.     ld (DUMMY1),hl
  3942.     ld a,(BKY)
  3943.     cp $13
  3944.     call z,ADDHP
  3945.     cp $19
  3946.     call z,ADDMP
  3947.     cp $1F
  3948.     call z,ADDST
  3949.     cp $25
  3950.     call z,ADDINT
  3951.     cp $2B
  3952.     call z,ADDSPEED
  3953.     jp  FROMADD
  3954. ADDHP:
  3955.     ld hl,(MAXHP)
  3956.     inc hl
  3957.     inc hl
  3958.     ld (MAXHP),hl
  3959.     ret
  3960. ADDMP:
  3961.     ld hl,(MAXMP)
  3962.     inc hl
  3963.     inc hl
  3964.     ld (MAXMP),hl
  3965.     ret
  3966. ADDST:
  3967.     ld hl,(STRENGTH)
  3968.     inc hl
  3969.     inc hl
  3970.     ld (STRENGTH),hl
  3971.     ret
  3972. ADDINT:
  3973.     ld hl,(INTELLIGENCE)
  3974.     inc hl
  3975.     inc hl
  3976.     ld (INTELLIGENCE),hl
  3977.     ret    
  3978. ADDSPEED:    
  3979.     ld hl,(SPEED)
  3980.     inc hl
  3981.     inc hl
  3982.     ld (SPEED),hl
  3983.     ret
  3984. DONEALLOCATE:
  3985.     ld hl,(MAXMP)
  3986.     ld de,(MAXHP)
  3987.     ld (MP),hl
  3988.     ld (HP),de
  3989.     ld hl,(STRENGTH)
  3990.     ld (STRENGTHMAX),hl
  3991.     ld hl,(DEFENSE)
  3992.     ld (DEFENSEMAX),hl
  3993.     ld a,(KURAILEVEL)
  3994.     cp 8
  3995.     jr nc,NOW160
  3996.     ld de,80
  3997.     jr REGULARCONT
  3998. NOW160:
  3999.     ld de,160
  4000. REGULARCONT:
  4001.     ld b,a
  4002.     ld hl,0    
  4003. LVLADD:    
  4004.     add hl,de
  4005.     djnz LVLADD
  4006.     ld de,50
  4007.     add hl,de
  4008.     ld de,(TOLEVEL)
  4009.     add hl,de
  4010.     ld (TOLEVEL),hl
  4011. SKILLSPELLS:
  4012.     call EFFECT
  4013.     call DRAWWALLS
  4014.     call DELEXIT
  4015.     ld hl,ChooseSpells
  4016.     ld de,$0630
  4017.     call DISPSTRING
  4018.     ld bc,$060B
  4019.     ld hl,ALLOCATER
  4020.     call drawit2
  4021.     ld a,1
  4022.     ld (DUMMY1),a
  4023.  
  4024.     ld hl,Heal
  4025.     ld de,$0515
  4026.     call DISPSTRING
  4027.     ld a,$06
  4028.     ld (DUMMY2),a
  4029.     ld hl,(INTELLIGENCE)
  4030.     ld de,12
  4031.     and a
  4032.     sbc hl,de
  4033.     jp c,STARTADD2
  4034.     ld hl,Burn
  4035.     ld de,$0B15
  4036.     call DISPSTRING
  4037.     ld a,$0C
  4038.     ld (DUMMY2),a
  4039.     ld hl,(INTELLIGENCE)
  4040.     ld de,25
  4041.     and a
  4042.     sbc hl,de
  4043.     jp c,STARTADD2
  4044.     ld hl,Star
  4045.     ld de,$1115
  4046.     call DISPSTRING
  4047.     ld a,$12
  4048.     ld (DUMMY2),a
  4049.     ld hl,(INTELLIGENCE)
  4050.     ld de,34
  4051.     and a
  4052.     sbc hl,de
  4053.     jr c,STARTADD2    
  4054.     ld hl,Rage
  4055.     ld de,$1715
  4056.     call DISPSTRING
  4057.     ld a,$18
  4058.     ld (DUMMY2),a
  4059.     ld hl,(INTELLIGENCE)
  4060.     ld de,56
  4061.     and a
  4062.     sbc hl,de
  4063.     jr c,STARTADD2    
  4064.     ld hl,Sire
  4065.     ld de,$1D15
  4066.     call DISPSTRING
  4067.     ld a,$1E
  4068.     ld (DUMMY2),a
  4069.     ld hl,(INTELLIGENCE)
  4070.     ld de,70
  4071.     and a
  4072.     sbc hl,de
  4073.     jr c,STARTADD2    
  4074.     ld hl,Rock
  4075.     ld de,$2315
  4076.     call DISPSTRING
  4077.     ld a,$24
  4078.     ld (DUMMY2),a
  4079.     ld hl,(INTELLIGENCE)
  4080.     ld de,90
  4081.     and a
  4082.     sbc hl,de
  4083.     jr c,STARTADD2    
  4084.     ld hl,Haste
  4085.     ld de,$2915
  4086.     call DISPSTRING
  4087.     ld a,$2A
  4088.     ld (DUMMY2),a
  4089.     ld hl,(INTELLIGENCE)
  4090.     ld de,99
  4091.     and a
  4092.     sbc hl,de
  4093.     jr c,STARTADD2    
  4094.     ld hl,Doom
  4095.     ld de,$2F15
  4096.     call DISPSTRING
  4097.     ld a,$30
  4098.     ld (DUMMY2),a
  4099. STARTADD2:
  4100.     ld hl,WhichSpells
  4101. STARTLOOP2:
  4102.     push hl
  4103. STARTLOOP:
  4104.     call GET_KEY
  4105.             cp G_RIGHT
  4106.     jr z,STARTADD
  4107.     cp G_DOWN
  4108.     jr z,STARTDOWN
  4109.     cp G_DEL
  4110.     jp z,BEGINSKILL
  4111.             cp G_UP
  4112.     jr nz,STARTLOOP    
  4113. STARTUP:
  4114.     ld a,(BKY)
  4115.     cp $06
  4116.     jr z,STARTLOOP
  4117.     ld hl,ALLOCATER
  4118.     call drawit
  4119.     pop hl
  4120.     dec hl
  4121.     push hl
  4122.     ld a,(DUMMY1)
  4123.     dec a
  4124.     ld (DUMMY1),a
  4125.     ld a,(BKY)
  4126.     sub 6
  4127.     ld (BKY),a
  4128.     ld hl,ALLOCATER
  4129.     call drawit
  4130.     jr STARTLOOP    
  4131. STARTDOWN:
  4132.     ld a,(DUMMY2)
  4133.     ld b,a
  4134.     ld a,(BKY)
  4135.     cp b
  4136.     jr z,STARTLOOP    
  4137.     ld hl,ALLOCATER
  4138.     call drawit
  4139.     pop hl
  4140.     inc hl
  4141.     push hl
  4142.     ld a,(DUMMY1)
  4143.     inc a
  4144.     ld (DUMMY1),a
  4145.     ld a,(BKY)
  4146.     add a,6
  4147.     ld (BKY),a
  4148.     ld hl,ALLOCATER
  4149.     call drawit
  4150.     jr STARTLOOP    
  4151. STARTADD:
  4152.     pop hl
  4153.     ld a,(DUMMY1)
  4154.     ld b,a
  4155.     ld a,(hl)
  4156.     cp b
  4157.     jp z,ALREADYKNOW
  4158.     ld a,(DUMMY1)
  4159.     ld (hl),a        
  4160.     jr BEGIN2
  4161. BEGINSKILL:
  4162.     pop hl
  4163. ;; begin adding skill
  4164. BEGIN2:
  4165.     call DRAWWALLS
  4166.     call DELEXIT
  4167.     ld hl,ChooseSkills
  4168.     ld de,$0630
  4169.     call DISPSTRING
  4170.     ld bc,$060B
  4171.     ld hl,ALLOCATER
  4172.     call drawit2
  4173.  
  4174.     ld hl,SlashAll
  4175.     ld de,$0515
  4176.     call DISPSTRING
  4177.     ld hl,Regeneration
  4178.     ld de,$0B15
  4179.     call DISPSTRING
  4180.     ld hl,HPMP
  4181.     ld de,$1115
  4182.     call DISPSTRING
  4183.     ld hl,Smoke
  4184.     ld de,$1715
  4185.     call DISPSTRING
  4186.     ld hl,ReLife
  4187.     ld de,$1D15
  4188.     call DISPSTRING
  4189.     ld hl,Build
  4190.     ld de,$2315
  4191.     call DISPSTRING
  4192.     ld hl,Xfrm
  4193.     ld de,$2915
  4194.     call DISPSTRING
  4195.     ld hl,Bribe
  4196.     ld de,$2F15
  4197.     call DISPSTRING
  4198.  
  4199. ADDSKILL2:
  4200.     ld hl,WhichSkills
  4201. STARTADD3:
  4202.     push hl
  4203. ADDLOOP:
  4204.     call GET_KEY
  4205.             cp G_RIGHT
  4206.     jr z,SKILLADD
  4207.     cp G_DOWN
  4208.     jr z,ADDDOWN
  4209.     cp G_DEL
  4210.     jr z,NOSKILL
  4211.             cp G_UP
  4212.     jr nz,ADDLOOP    
  4213. ADDUP:
  4214.     ld a,(BKY)
  4215.     cp $06
  4216.     jr z,ADDLOOP
  4217.     ld hl,ALLOCATER
  4218.     call drawit
  4219.     pop hl
  4220.     dec hl
  4221.     push hl
  4222.     ld a,(BKY)
  4223.     sub 6
  4224.     ld (BKY),a
  4225.     ld hl,ALLOCATER
  4226.     call drawit
  4227.     jr ADDLOOP    
  4228. ADDDOWN:
  4229.     ld a,(BKY)
  4230.     cp $30
  4231.     jr z,ADDLOOP    
  4232.     ld hl,ALLOCATER
  4233.     call drawit
  4234.     pop hl
  4235.     inc hl
  4236.     push hl
  4237.     ld a,(BKY)
  4238.     add a,6
  4239.     ld (BKY),a
  4240.     ld hl,ALLOCATER
  4241.     call drawit
  4242.     jr ADDLOOP    
  4243. SKILLADD:
  4244.     pop hl
  4245.     ld a,(hl)
  4246.     cp 1
  4247.     jr z,ALREADYKNOW2
  4248.     ld (hl),1        
  4249.     push hl
  4250. NOSKILL:
  4251.     pop hl
  4252.     ret
  4253. ALREADYKNOW:
  4254.     push hl
  4255.     ld hl,Youknowit
  4256.     call DISPSTRING2
  4257.     call ERASETEXT2
  4258.     pop hl
  4259.     jp  STARTLOOP2    
  4260. ALREADYKNOW2:
  4261.     push hl
  4262.     ld hl,Youknowit
  4263.     call DISPSTRING2
  4264.     call ERASETEXT2
  4265.     pop hl
  4266.     jp  STARTADD3    
  4267. INTOWN:
  4268.     ld a,(DUNGEONCHECK)
  4269.     cp 9
  4270.     jr z,TOWN1
  4271.     cp 10
  4272.     jr z,CAVEOLDMAN
  4273. TOWN2:
  4274.             LD HL,$0808
  4275.             LD DE,296
  4276.     jr RETURNTOMAP3
  4277. CAVEOLDMAN:
  4278.             LD HL,$1002
  4279.             LD DE,578
  4280.     jr RETURNTOMAP3
  4281. TOWN1:
  4282.             LD HL,$0F15
  4283.             LD DE,561
  4284. RETURNTOMAP2:
  4285.     xor a
  4286.     jr RETURNTOMAP
  4287. RETURNTOMAP3:
  4288.     ld a,5
  4289. RETURNTOMAP:
  4290.     ld (DUNGEONCHECK),a
  4291.     push de    
  4292.     LD (X),HL
  4293.     ld (COUNTER),a
  4294.     LD HL,BITMAPS
  4295.     LD (BMPLOC),HL
  4296.     LD HL,MAP
  4297.     LD (MAPSTART),HL
  4298.     pop de
  4299.     ADD HL,DE
  4300.     jp UPDATEMOVE
  4301. TOWER:
  4302.     ld a,(SCENARIO)
  4303.     cp 9
  4304.     jr nc,INTOTHETOWER
  4305.     ld de,$1C04
  4306.     ld hl,force
  4307.     call DISPSTRING    
  4308.     jp RETFROMSTATS
  4309. INTOTHETOWER:
  4310.     ld hl,MAP4
  4311.     ld de,597
  4312.     add hl,de
  4313.     ld (hl),7
  4314.     call DRAWWALLS
  4315.     ld de,$1C14
  4316.     ld hl,last
  4317.     call DISPSTRING3
  4318.     call ERASESCREEN
  4319.     LD DE,369
  4320.     ld hl,$0A09
  4321. MAP4PLACER:
  4322.             ld a,-1
  4323. MAP4PLACER2:
  4324.     ld (DUNGEONCHECK),a
  4325.     ld bc,MAP4
  4326.     ld (MAPVAR),bc
  4327.     push de
  4328.     LD (X),HL
  4329.     LD HL,BITMAPS2
  4330.     LD (BMPLOC),HL
  4331.     LD HL,MAP4
  4332.     LD (MAPSTART),HL
  4333.     pop de
  4334.     ADD HL,DE
  4335.     jp UPDATEMOVE
  4336. TOWN:
  4337.     ld a,(DUNGEONCHECK)
  4338.     cp 5
  4339.     jr z,TOTOWN2
  4340.     or a
  4341.     jr nz,TREASURECHEST
  4342. FROMLOAD:
  4343.     ld a,9
  4344.     ld (DUNGEONCHECK),a
  4345.     ld a,(SCENARIO)
  4346.     cp 2
  4347.     jr nz,MANDEAD
  4348.     jr MANALIVE
  4349. TOTOWN2:
  4350.     ld a,8
  4351.     ld (DUNGEONCHECK),a
  4352. MANALIVE:
  4353.     call DEADORLIVEMAN
  4354.     ld (hl),5
  4355.     jr MANALIVESTILL
  4356. MANDEAD:
  4357.     call DEADORLIVEMAN
  4358.     ld (hl),0
  4359. MANALIVESTILL:
  4360.     xor a
  4361.     ld (LEADERCHECK),a
  4362.             LD DE,700
  4363.     ld hl,$1310
  4364.     jr MAP2PLACER
  4365. MAP2PLACER2:
  4366.     ld (DUNGEONCHECK),a
  4367. MAP2PLACER:
  4368.     ld bc,MAP2
  4369.     ld (MAPVAR),bc
  4370.     push de
  4371.     LD (X),HL
  4372.     LD HL,BITMAPS2
  4373.     LD (BMPLOC),HL
  4374.     LD HL,MAP2
  4375.     LD (MAPSTART),HL
  4376.     pop de
  4377.     ADD HL,DE
  4378.     jp UPDATEMOVE
  4379. DEADORLIVEMAN:
  4380.     ld hl,MAP2
  4381.     ld de,814
  4382.     add hl,de
  4383.     RET
  4384.  
  4385. TREASURECHEST:
  4386.     call DRAWWALLS
  4387.     ld hl,YouFind
  4388.     ld de,$1820
  4389.     call DISPSTRING
  4390.     ld a,(DUNGEONCHECK)
  4391.     cp -2
  4392.     jr nz,RANDTREASURE
  4393. FAITHARMOR:
  4394.     ld hl,faitharmor
  4395.     ld de,$1E20
  4396.     call DISPSTRING3
  4397.     ld a,10
  4398.     ld (SCENARIO),a
  4399.     jp LEADER6
  4400. RANDTREASURE:
  4401.   ld a,r
  4402.   srl a
  4403.   and 3   
  4404.     cp 1
  4405.     jr z,FGOLD
  4406.     or a
  4407.     jr z,FITEM
  4408. FSCROLL
  4409.     ld hl,scroll
  4410.     ld de,$1E20
  4411.     call DISPSTRING
  4412.     call ADD30LOOP
  4413.     ld de,(XP)
  4414.     add hl,de
  4415.     ld (XP),hl
  4416.     jr ITSFOUND
  4417. FITEM:
  4418.     ld hl,WhichItems
  4419.     push hl
  4420.     ld a,(hl)
  4421.     inc a
  4422.     ld (hl),a
  4423.     ld hl,MedKit
  4424.     ld de,$1E20
  4425.     call DISPSTRING
  4426.   ld a,r
  4427.   srl a
  4428.   and 3   
  4429.   or a
  4430.   jr z,(ITSFOUNDPOP)
  4431.     pop hl
  4432.     inc hl
  4433.     ld a,(hl)
  4434.     inc a
  4435.     ld (hl),a
  4436.     ld hl,MagKit
  4437.     ld de,$2420
  4438.     call DISPSTRING
  4439.     jr ITSFOUND
  4440. FGOLD:
  4441.     call ADD30LOOP
  4442.     ld de,(GOLD)
  4443.     add hl,de
  4444.     ld (GOLD),hl
  4445.     ld hl,somegold
  4446.     ld de,$1E20
  4447.     call DISPSTRING
  4448.     jr ITSFOUND
  4449. ITSFOUNDPOP:
  4450.     pop hl
  4451. ITSFOUND:
  4452.  
  4453.     ld bc,(X)
  4454.     push bc
  4455.     ld hl,0
  4456. LOOPOF362:
  4457.     ld de,36
  4458.     add hl,de    
  4459.     djnz LOOPOF362
  4460.     pop bc
  4461.     ld b,0
  4462.     add hl,bc        
  4463.     ld de,73
  4464.     add hl,de
  4465.     ex de,hl    
  4466.     push de
  4467.     ld hl,(MAPVAR)
  4468.     pop de
  4469.     add hl,de
  4470.     ld (hl),0
  4471. RETFROMSTATS:
  4472.     call WaitKey
  4473. RETFROMSTATS2:
  4474.     call ERASESCREEN
  4475.     ld hl,(WHEREAT)
  4476.     jp  UPDATEMOVE
  4477. BLANK1429:
  4478.             ld bc,$1429
  4479.             ld hl,KuraiBlank
  4480.     jp NASRWARP
  4481. KURAIMAGIC1:
  4482.             ld bc,$111D
  4483.             ld hl,KuraiMagic1
  4484.     jp NASRWARP
  4485. STATUSSCREEN:
  4486.     call DELAY2
  4487.     ld hl,StatusScreen
  4488.     ld bc,$3C3C
  4489.     call NASRWARP    
  4490.     ld bc,$0540
  4491.     ld (BKX),bc
  4492.     call DRAWWIDE
  4493. STATLOOP:
  4494.      ld a,$3E
  4495.      out (1),a
  4496.      in a,(1)
  4497.     bit 7,a
  4498.     jp z,RETFROMSTATS2
  4499.     bit 5,a ; 2ND
  4500.      jr z,STATPRESS
  4501.      bit 0,a
  4502.      jr z,STATDOWN
  4503.     bit 3,a
  4504.     jr nz,STATLOOP
  4505. STATUP:    
  4506.     call DELAY
  4507.     call DRAWWIDE
  4508.     ld a,(BKY)
  4509.     cp $05
  4510.     jr nz,CONTUP
  4511.     ld bc,$1740
  4512.     ld (BKX),bc
  4513.     call DRAWWIDE
  4514.     jr STATLOOP
  4515. CONTUP:
  4516.     ld a,(BKY)
  4517.     sub 6
  4518.     ld (BKY),a
  4519.     call DRAWWIDE
  4520.     jr STATLOOP    
  4521. STATDOWN:
  4522.     call DELAY
  4523.     call DRAWWIDE
  4524.     ld a,(BKY)
  4525.     cp $17
  4526.     jr nz,CONTDOWN
  4527.     ld bc,$0540
  4528.     ld (BKX),bc
  4529.     call DRAWWIDE
  4530.     jr STATLOOP
  4531. CONTDOWN:
  4532.     ld a,(BKY)
  4533.     add a,6
  4534.     ld (BKY),a
  4535.     call DRAWWIDE
  4536.     jr STATLOOP
  4537.  
  4538. STATPRESS:
  4539.     ld a,(BKY)
  4540.     cp $11
  4541.     jp z,SEARCHFOR
  4542.     call DRAWWALLS
  4543.     ld hl,KuraiPortrait
  4544.     ld bc,$3C24
  4545.     call NASRWARP    
  4546.     ld a,(BKY)
  4547.     cp $17
  4548.     jp z,HEALING
  4549.     cp $0B
  4550.     jp z,ITEMS
  4551. STATS:
  4552.     ld hl,Stats
  4553.     ld de,$0306
  4554.     call DISPSTRING
  4555.     ld hl,Level
  4556.     ld de,$0C14
  4557.     call DISPSTRING
  4558.     ld a,(KURAILEVEL)
  4559.     ld l,a
  4560.     ld h,0
  4561.     ld de,$0C22
  4562.     call DISPHL
  4563.     ld bc,$333C
  4564.             ld hl,Logo ;; displays kurai
  4565.             call NASRWARP
  4566.  
  4567.     call DISPLAYSTATS
  4568.     call DRAWSTATS2
  4569.     ld hl,(HP)    
  4570.     ld de,$1222
  4571.     call DISPHL)
  4572.     ld hl,(MP)    
  4573.     ld de,$1822
  4574.     call DISPHL)
  4575.     ld hl,xp
  4576.     ld de,$3017
  4577.     call DISPSTRING
  4578.     ld hl,(XP)    
  4579.     ld de,$3022
  4580.     call DISPHL
  4581.     ld hl,(GOLD)    
  4582.     ld de,$3622
  4583.     call DISPHL
  4584.     ld hl,gold
  4585.     ld de,$360F
  4586.     call DISPSTRING3 ;; only so i dont have to add call WaitKey
  4587.     call DRAWWALLS
  4588.     ld hl,KuraiPortrait
  4589.     ld bc,$3C24
  4590.     call NASRWARP    
  4591.     ld bc,$333C
  4592.             ld hl,Logo ;; displays kurai
  4593.             call NASRWARP
  4594.     
  4595.     ld hl,WeaponShop
  4596.     ld de,$120C
  4597.     call DISPSTRING
  4598.     ld hl,ArmorShop
  4599.     ld de,$1809
  4600.     call DISPSTRING
  4601.  
  4602.     ld hl,(WEAPON)    
  4603.     ld de,$1222
  4604.     call DISPHL)
  4605.     ld hl,(DEFENSE)    
  4606.     ld de,$1822
  4607.     call DISPHL)
  4608.  
  4609.     ld hl,MedKit
  4610.     ld de,$1E0F
  4611.     call DISPSTRING
  4612.     ld hl,MagKit
  4613.     ld de,$240D
  4614.     call DISPSTRING
  4615.  
  4616.     ld hl,WhichItems
  4617.     ld a,(hl)
  4618.     ld l,a
  4619.     ld h,0
  4620.     ld de,$1E22
  4621.     call DISPHL
  4622.     ld hl,WhichItems
  4623.     inc hl
  4624.     ld a,(hl)
  4625.     ld l,a
  4626.     ld h,0
  4627.     ld de,$2422
  4628.     call DISPHL
  4629.     jp RETFROMSTATS
  4630. CHESTPLACER:
  4631.     ld hl,MAP4
  4632.     ld de,533
  4633.     add hl,de
  4634.     RET
  4635. SEARCHFOR:
  4636.     ld hl,YouFind
  4637.     ld de,$060B
  4638.     call DISPSTRING
  4639.     call DELAY3    
  4640.     call DELAY3    
  4641.     ld a,(DUNGEONCHECK)
  4642.     or a
  4643.     jr nz,NOCHECKPLACE
  4644. CHECKPLACE:
  4645.     ld a,(SCENARIO)
  4646.     cp 9
  4647.     jr c,NOCHECKPLACE
  4648.     cp 10
  4649.     jr z,NOCHEST
  4650.     call CHESTPLACER
  4651.     ld (hl),6
  4652.     jr YESCHEST
  4653. NOCHEST:
  4654.     call CHESTPLACER
  4655.     ld (hl),0
  4656. YESCHEST:
  4657.     ld hl,(X)    
  4658.     ld de,$0020
  4659.     and a
  4660.     sbc hl,de
  4661.     jr nz,FINDNOTHING
  4662.     call DRAWWALLS
  4663.     ld de,$1C1E
  4664.     ld hl,acave
  4665.     call DISPSTRING3
  4666.     call ERASESCREEN
  4667.     LD DE,711
  4668.     ld bc,$131B
  4669.     ld a,-2
  4670.     jp MAP4PLACER2    
  4671. NOCHECKPLACE:
  4672.     ld a,(SCENARIO)
  4673.     cp 3
  4674.     jr z,DUNGEON1SEARCH    
  4675.     cp 8
  4676.     jr nc,BANDITSEARCH
  4677. FINDNOTHING:
  4678.     ld hl,Search
  4679.     ld de,$0C0B
  4680.     call DISPSTRING
  4681. RETFROMSTATS9:
  4682.     jp RETFROMSTATS
  4683. BANDITSEARCH:
  4684.     ld a,(DUNGEONCHECK)
  4685.     cp -1
  4686.     jr z,LASTSEARCH
  4687.     ld hl,(X)    
  4688.     ld de,$1002
  4689.     and a
  4690.     sbc hl,de
  4691.     jr nz,FINDNOTHING
  4692.     ld hl,aswitch
  4693.     ld de,$0C0B
  4694.     call DISPSTRING
  4695.     ld hl,MAP3
  4696.     ld de,653
  4697.     add hl,de
  4698.     ld (hl),0
  4699.     jr RETFROMSTATS9        
  4700. LASTSEARCH:
  4701.     ld hl,(X)    
  4702.     ld de,$0E14
  4703.     and a
  4704.     sbc hl,de
  4705.     jr nz,FINDNOTHING
  4706.     ld hl,aswitch
  4707.     ld de,$0C0B
  4708.     call DISPSTRING
  4709.     ld hl,MAP4
  4710.     ld de,597
  4711.     add hl,de
  4712.     ld (hl),0
  4713.     jr RETFROMSTATS9        
  4714. DUNGEON1SEARCH:
  4715.     ld hl,(X)    
  4716.     ld de,$051C
  4717.     and a
  4718.     sbc hl,de
  4719.     jr nz,FINDNOTHING
  4720.     ld hl,thekey
  4721.     ld de,$0C0B
  4722.     call DISPSTRING3
  4723.     call DRAWWALLS
  4724.     ld hl,corpse
  4725.     ld de,$1C13
  4726.     call DISPSTRING3
  4727.     ld hl,mykey
  4728.     ld de,$2415
  4729.     call DISPSTRING3
  4730.     ld a,4
  4731.     ld (SCENARIO),a
  4732.     jp LEADER2
  4733. ITEMS:
  4734.     ld hl,ItemMenu
  4735.     ld de,$0505
  4736.     call DISPSTRING    
  4737.     ld hl,DELtoExit
  4738.     ld de,$3410
  4739.     call DISPSTRING
  4740.     call ITEMHEALS
  4741. RETITEM:
  4742.     call ITEMHEALS2
  4743.     ld hl,WhichItems
  4744.     push hl
  4745. USEITEMLOOP:
  4746.     call GET_KEY
  4747.              cp G_1
  4748.              jr z,USEMEDKIT
  4749.              cp G_DEL
  4750.              jp z,ENDHEAL
  4751.              cp G_2
  4752.              jr nz,USEITEMLOOP
  4753. USEMAGKIT:
  4754.     pop hl
  4755.     inc hl
  4756.     ld a,(hl)
  4757.     or a
  4758.     jr z,RETITEM
  4759.     dec a
  4760.     ld (hl),a
  4761.     ld de,40
  4762.     call OVERMAXMP
  4763.     jr RETITEM
  4764. USEMEDKIT:
  4765.     pop hl
  4766.     ld a,(hl)
  4767.     or a
  4768.     jr z,RETITEM
  4769.     dec a
  4770.     ld (hl),a
  4771.     ld de,90
  4772.     call OVERMAXHP
  4773.     jr RETITEM    
  4774. HEALING:
  4775.     call ITEMHEALS
  4776.     call YESNO
  4777.     ld hl,willcost
  4778.     ld de,$2005
  4779.     call DISPSTRING    
  4780. REHEAL:
  4781.                 LD de,$1822
  4782.                 ld hl,BlankText
  4783.                 call DISPSTRING
  4784.                 LD de,$2016
  4785.                 ld hl,BlankText
  4786.                 call DISPSTRING
  4787. DIDNTHEAL:
  4788.     ld de,(HP)
  4789.     ld hl,(MAXHP)
  4790.     and a
  4791.     sbc hl,de
  4792.     srl h
  4793.     rr l
  4794.     srl h
  4795.     rr l
  4796.     push hl
  4797.     ld de,$2016
  4798.     call DISPHL
  4799.     call ITEMHEALS2
  4800. HEALINGLOOP:
  4801.  
  4802.     call GET_KEY
  4803.              cp G_1
  4804.     jr z,USEHEAL          
  4805.              cp G_DEL
  4806.     jr z,ENDHEAL
  4807.              cp G_2
  4808.     jr nz,HEALINGLOOP
  4809. ENDHEAL:
  4810.     pop hl
  4811.     jp  RETFROMSTATS2
  4812. USEHEAL:
  4813.     pop hl
  4814.     ex de,hl
  4815.     ld hl,(MP)
  4816.     and a
  4817.     sbc hl,de
  4818.     jr c,(DIDNTHEAL)
  4819.     ld (MP),hl
  4820.     ld hl,(MAXHP)    
  4821.     ld (HP),hl
  4822.     jr REHEAL
  4823. ITEMHEALS:
  4824.     ld hl,HPstr
  4825.     ld de,$1217
  4826.     call DISPSTRING
  4827.     ld hl,MPstr
  4828.     ld de,$1815
  4829.     call DISPSTRING
  4830. ITEMHEALS2:
  4831.     ld hl,(HP)    
  4832.     ld de,$1222
  4833.     call DISPHL
  4834.     ld hl,(MP)    
  4835.     ld de,$1822
  4836.     jp DISPHL
  4837. DRAWWIDE:
  4838.     ld a,$40
  4839.     ld (BKX),a
  4840.     ld hl,WIDECURSOR
  4841.     call drawit
  4842.     ld a,(BKX)
  4843.     add a,8        
  4844.     ld (BKX),a
  4845.     ld hl,WIDECURSOR
  4846.     call drawit
  4847.     ld a,(BKX)
  4848.     add a,8        
  4849.     ld (BKX),a
  4850.     ld hl,WIDECURSOR
  4851.     jp drawit    
  4852. DISPLAYSTATS:
  4853.     ld hl,HPstr
  4854.     ld de,$1217
  4855.     call DISPSTRING
  4856.     ld hl,MPstr
  4857.     ld de,$1815
  4858.     call DISPSTRING
  4859.     ld hl,Strength
  4860.     ld de,$1E17
  4861.     call DISPSTRING
  4862.     ld hl,Intelligence
  4863.     ld de,$2414
  4864.     call DISPSTRING
  4865.     ld hl,Speed
  4866.     ld de,$2A17
  4867.     jp DISPSTRING
  4868. DRAWSTATS:
  4869.     ld hl,(MAXHP)    
  4870.     ld de,$1222
  4871.     call DISPHL)
  4872.     ld hl,(MAXMP)    
  4873.     ld de,$1822
  4874.     call DISPHL)
  4875. DRAWSTATS2:
  4876.     ld hl,(STRENGTH)    
  4877.     ld de,$1E22
  4878.     call DISPHL
  4879.     ld hl,(INTELLIGENCE)    
  4880.     ld de,$2422
  4881.     call DISPHL
  4882.     ld hl,(SPEED)    
  4883.     ld de,$2A22
  4884.     jp DISPHL
  4885. CAVEORELSE:
  4886.     ld a,(DUNGEONCHECK)
  4887.     cp 5
  4888.     jr z,OTHERSIDE
  4889.     or a
  4890.     jp nz,KEYLOOP
  4891. SIDE1:
  4892.     ld de,13
  4893.     ld hl,$000D
  4894.     ld a,3
  4895.     jp MAP2PLACER2
  4896. OTHERSIDE:
  4897.     ld bc,(X)
  4898.     ld a,b
  4899.     cp 8
  4900.     jr z,OTHERSIDECAVE
  4901.     cp 2
  4902.     jr z,OTHERCAVE
  4903. OLDMANCAVE:
  4904.     LD DE,699
  4905.     ld hl,$130F
  4906.             ld a,10
  4907. MAP3PLACER:
  4908.     ld (DUNGEONCHECK),a
  4909.     ld bc,MAP3
  4910.     ld (MAPVAR),bc
  4911.     push de
  4912.     LD (X),HL
  4913.     LD HL,BITMAPS2
  4914.     LD (BMPLOC),HL
  4915.     LD HL,MAP3
  4916.     LD (MAPSTART),HL
  4917.     pop de
  4918.     ADD HL,DE
  4919.     jp UPDATEMOVE
  4920. OTHERCAVE:
  4921.     ld a,(SCENARIO)
  4922.     cp 6
  4923.     jp c,LOCKED
  4924.     LD DE,504
  4925.     ld hl,$0E00
  4926.             ld a,4
  4927.     jr MAP3PLACER
  4928.  
  4929. OTHERSIDECAVE:
  4930.     ld de,305
  4931.     ld hl,$080B
  4932.     ld a,3
  4933.     jr MAP2PLACER23
  4934. CASTLE:
  4935.     ld a,(DUNGEONCHECK)
  4936.     cp 5
  4937.     jr z,BANDITCASTLE
  4938.     LD DE,438
  4939.             LD HL,$0C06
  4940.     ld a,1    
  4941. MAP2PLACER23: ;;to save bytes
  4942.     jp MAP2PLACER2
  4943. BANDITCASTLE:
  4944.     ld hl,MAP3
  4945.     ld de,653
  4946.     add hl,de
  4947.     ld (hl),7
  4948.     call DRAWWALLS
  4949.     ld de,$1C10
  4950.     ld hl,BanditCastle
  4951.     call DISPSTRING3
  4952.     call ERASESCREEN
  4953.     LD DE,688
  4954.             LD HL,$1304
  4955.     ld a,7    
  4956.     jr MAP3PLACER
  4957. ITEMSHOP:
  4958.     ld hl,ItemShop
  4959.     call DISPSTRING
  4960.     ld hl,ItemMenu
  4961.     ld de,$0E0A
  4962.     call DISPSTRING    
  4963.     ld hl,ItemStore
  4964.     ld de,$150A
  4965.     call DISPSTRING    
  4966. FROMISHOP2:
  4967.     push hl
  4968. FROMISHOP:    
  4969.     ld hl,(GOLD)    
  4970.     ld de,$3622
  4971.     call DISPHL
  4972.     pop hl
  4973.     ld hl,WhichItems
  4974.     push hl    
  4975. ISHOPLOOP:
  4976.     call GET_KEY
  4977.     cp G_1
  4978.     jr z,BUYMED
  4979.     cp G_2
  4980.     jr z,BUYMAG
  4981.     cp G_DEL
  4982.     jp z,ENDHEAL
  4983.     cp G_3
  4984.     jr nz,ISHOPLOOP
  4985. BUYBOMB:
  4986.     pop hl
  4987.     inc hl
  4988.     inc hl
  4989.     jr ISHOPCONT
  4990. BUYMAG:
  4991.     pop hl
  4992.     inc hl
  4993.     jr ISHOPCONT
  4994. BUYMED:
  4995.     pop hl
  4996. ISHOPCONT:
  4997.     push hl
  4998.     ld hl,(GOLD)
  4999.     ld de,30
  5000.     and a
  5001.     sbc hl,de
  5002.     jr c,FROMISHOP
  5003.     ld (GOLD),hl
  5004.     pop hl
  5005.     ld a,(hl)
  5006.     inc a
  5007.     ld (hl),a
  5008.  
  5009.     ld hl,ThankYou
  5010.     ld de,$2D17
  5011.     call DISPSTRING
  5012.     call DELAY3
  5013.     ld hl,BlankText
  5014.     ld de,$2D17
  5015.     call DISPSTRING
  5016.     ld hl,BlankText
  5017.     ld de,$2D24
  5018.     call DISPSTRING
  5019.     ld hl,BlankText
  5020.     ld de,$3621
  5021.     call DISPSTRING
  5022.     jr FROMISHOP2
  5023. CASTLEORMAN:
  5024.     ld a,(DUNGEONCHECK)
  5025.     cp 8
  5026.     jp c,CASTLE    
  5027.  
  5028.     call DRAWWALLS
  5029.     ld hl,gold
  5030.     ld de,$360F
  5031.     call DISPSTRING
  5032.     ld hl,(GOLD)    
  5033.     ld de,$3622
  5034.     call DISPHL
  5035.     call DELEXIT
  5036.     ld de,$0505
  5037.     ld bc,(X)
  5038.     ld a,c
  5039.     cp 12 
  5040.     jp z,ITEMSHOP
  5041.     cp 18
  5042.     jp z,INN
  5043.     cp 14
  5044.     jp z,ARMORSHOP
  5045.     cp 19
  5046.     jp z,DEADMAN
  5047. WEAPONSHOP:
  5048.     ld hl,WeaponShop
  5049.     call DISPSTRING
  5050.     call DISPWPNSET1
  5051.     ld hl,180
  5052.     ld de,$0E40
  5053.     call DISPHL
  5054.     ld hl,700
  5055.     ld de,$1440
  5056.     call DISPHL
  5057.     ld hl,3400
  5058.     ld de,$1A40
  5059.     call DISPHL
  5060.     ld hl,8000
  5061.     ld de,$2040
  5062.     call DISPHL
  5063.     ld hl,12000
  5064.     ld de,$2640
  5065.     call DISPHL
  5066. WPNLOOP:
  5067.     call GET_KEY
  5068.     cp G_2
  5069.     jr z,WPN2
  5070.     cp G_3
  5071.     jr z,WPN3
  5072.     cp G_4
  5073.     jr z,WPN4
  5074.     cp G_5
  5075.     jr z,WPN5
  5076.     cp G_DEL
  5077.     jp z,RETFROMSTATS2
  5078.     cp G_1
  5079.     jr nz,WPNLOOP
  5080. WPN1:
  5081.     ld de,180
  5082.     ld bc,15
  5083.     jr WPNDONE
  5084. WPN2:
  5085.     ld de,700
  5086.     ld bc,45
  5087.     jr WPNDONE
  5088. WPN3:
  5089.     ld de,3400
  5090.     ld bc,90
  5091.     jr WPNDONE
  5092. WPN4:
  5093.     ld de,8000
  5094.     ld bc,120
  5095.     jr WPNDONE
  5096. WPN5:
  5097.     ld de,12000
  5098.     ld bc,220
  5099. WPNDONE:
  5100.     ld hl,(GOLD)
  5101.     and a
  5102.     sbc hl,de
  5103.     jr c,WPNLOOP
  5104.     ld (GOLD),hl
  5105.     ld (WEAPON),bc
  5106.     jp THANKYOU
  5107. ARMORSHOP:
  5108.     ld hl,ArmorShop
  5109.     call DISPSTRING
  5110.     call DISPWPNSET1
  5111.     ld hl,220
  5112.     ld de,$0E40
  5113.     call DISPHL
  5114.     ld hl,700
  5115.     ld de,$1440
  5116.     call DISPHL
  5117.     ld hl,2500
  5118.     ld de,$1A40
  5119.     call DISPHL
  5120.     ld hl,5666
  5121.     ld de,$2040
  5122.     call DISPHL
  5123.     ld hl,9999
  5124.     ld de,$2640
  5125.     call DISPHL
  5126. ARMRLOOP:
  5127.     call GET_KEY
  5128.     cp G_2
  5129.     jr z,ARM2
  5130.     cp G_3
  5131.     jr z,ARM3
  5132.     cp G_4
  5133.     jr z,ARM4
  5134.     cp G_5
  5135.     jr z,ARM5
  5136.     cp G_DEL
  5137.     jp z,RETFROMSTATS2
  5138.     cp G_1
  5139.     jr nz,ARMRLOOP
  5140. ARM1:
  5141.     ld de,220
  5142.     ld bc,20
  5143.     jr ARMRDONE
  5144. ARM2:
  5145.     ld de,700
  5146.     ld bc,41
  5147.     jr ARMRDONE
  5148. ARM3:
  5149.     ld de,2500
  5150.     ld bc,65
  5151.     jr ARMRDONE
  5152. ARM4:
  5153.     ld de,5666
  5154.     ld bc,91
  5155.     jr ARMRDONE
  5156. ARM5:
  5157.     ld de,9999
  5158.     ld bc,120
  5159. ARMRDONE:
  5160.     ld hl,(GOLD)
  5161.     and a
  5162.     sbc hl,de
  5163.     jr c,ARMRLOOP
  5164.     ld (GOLD),hl
  5165.     ld (DEFENSE),bc
  5166.     jp THANKYOU
  5167.  
  5168. OLDMAN:  ;; in the cave, aligned with inn, 
  5169.     call DRAWWALLS
  5170.     ld a,(SCENARIO)
  5171.     cp 6
  5172.     jr nc,NOTHINGMANSAYS
  5173.     ld de,$1004
  5174.     ld hl,OldManText1
  5175.     call DISPSTRING    
  5176.     ld de,$1604
  5177.     ld hl,OldManText2
  5178.     call DISPSTRING    
  5179.     ld de,$1D04
  5180.     ld hl,OldManText3
  5181.     call DISPSTRING    
  5182.     ld de,$2404
  5183.     ld hl,thekey
  5184.     call DISPSTRING    
  5185.     call TALK8
  5186.     call TALK9
  5187.     ld a,6
  5188.     ld (SCENARIO),a
  5189. NOSCENADD:
  5190.     jp RETFROMSTATS2
  5191.  
  5192. NOTHINGMANSAYS:
  5193.     ld de,$1C10
  5194.     ld hl,saysnothing
  5195.     call DISPSTRING3
  5196.     jr NOSCENADD
  5197. INN:
  5198.     ld a,(DUNGEONCHECK)
  5199.     cp 10
  5200.     jr z,OLDMAN
  5201.     ld hl,Inn
  5202.     ld de,$1213
  5203.     call DISPSTRING
  5204.     ld hl,OneNight
  5205.     ld de,$1A13
  5206.     call DISPSTRING
  5207.     call ADD20LOOP
  5208.     ld (DUMMY1),hl
  5209.     ld de,$1A35
  5210.     call DISPHL
  5211.     call YESNO
  5212. INNLOOP:
  5213.     call GET_KEY
  5214.              cp G_2
  5215.              jr z,SAVENOINN
  5216.     cp G_DEL
  5217.     jr z,SAVENOINN       
  5218.              cp G_1
  5219.     jr nz,INNLOOP
  5220. YESINN:    
  5221.     ld de,(DUMMY1)
  5222.     ld hl,(GOLD)
  5223.     and a
  5224.     sbc hl,de
  5225.     jr c,INNLOOP
  5226.     ld (GOLD),hl
  5227.     ld b,40
  5228. INNFLASHLOOP:
  5229.     push bc
  5230.     call INVERTSCREEN
  5231.     pop bc
  5232.     djnz INNFLASHLOOP
  5233.     ld hl,Restored
  5234.     ld de,$2620
  5235.     call DISPSTRING
  5236.     ld hl,(MAXHP)
  5237.     ld de,(MAXMP)
  5238.     ld (HP),hl
  5239.     ld (MP),de    
  5240.  
  5241. SAVENOINN:        
  5242.     call DRAWWALLS
  5243.     ld hl,SaveGame
  5244.     ld de,$0505
  5245.     call DISPSTRING    
  5246.     call DELEXIT
  5247. SAVELOOP:
  5248.     call GET_KEY
  5249.              cp G_2
  5250.     jr z,SAVEGAME2       
  5251.     cp G_DEL
  5252.     jp z,RETFROMSTATS2
  5253.              cp G_1
  5254.              jr nz,SAVELOOP
  5255. SAVEGAME1:
  5256.     ld hl,SaveSSI
  5257.     ld (DUMMY1),hl
  5258.             LD DE,SAVERAM
  5259.     ld hl,scenario1
  5260.     jr SAVEGAME
  5261. SAVEGAME2:    
  5262.     ld hl,SaveSSI2
  5263.     ld (DUMMY1),hl
  5264.             LD DE,SAVERAM2
  5265.     ld hl,scenario2
  5266. SAVEGAME:
  5267.     push hl
  5268.             LD HL,TOLEVEL
  5269.             LD BC,28
  5270.             LDIR
  5271.     ld de,(DUMMY1)
  5272.     ld hl,WhichSpells
  5273.      ld bc,24
  5274.      ldir
  5275.     pop hl
  5276.     ld a,(SCENARIO)
  5277.     ld (hl),a
  5278.     ld hl,Saved
  5279.     ld de,$2120
  5280.     call DISPSTRING
  5281.     jr THANX
  5282. YESNO:
  5283.     ld hl,yesorno
  5284.     ld de,$0505
  5285.     jp DISPSTRING    
  5286. ADD20LOOP:
  5287.     ld de,20
  5288.     jr READDLOOP
  5289. ADD30LOOP:
  5290.     ld de,30
  5291. READDLOOP:
  5292.     ld a,(KURAILEVEL)
  5293.     ld b,a
  5294.     ld hl,0
  5295. ADDINLOOP:
  5296.     add hl,de
  5297.     djnz ADDINLOOP
  5298.     ret
  5299. DISPWPNSET1:
  5300.     ld hl,willcost
  5301.     ld de,$0540
  5302.     call DISPSTRING
  5303.     ld hl,WAset1
  5304.     ld de,$0E0A
  5305.     call DISPSTRING    
  5306.     ld hl,WAset2
  5307.     ld de,$140A
  5308.     call DISPSTRING    
  5309.     ld hl,WAset3
  5310.     ld de,$1A0A
  5311.     call DISPSTRING    
  5312.     ld hl,WAset4
  5313.     ld de,$200A
  5314.     call DISPSTRING    
  5315.     ld hl,WAset5
  5316.     ld de,$260A
  5317.     jp DISPSTRING    
  5318. DELEXIT:
  5319.     ld hl,DELtoExit
  5320.     ld de,$3434
  5321.     jp DISPSTRING
  5322. THANKYOU:
  5323.     ld hl,ThankYou
  5324.     ld de,$2D17
  5325.     call DISPSTRING
  5326. THANX:
  5327.     jp  RETFROMSTATS    
  5328. DEADMAN:
  5329.     call DRAWWALLS
  5330.     ld de,$0D0B
  5331.     ld a,(SCENARIO)
  5332.     cp 5
  5333.     jp nc,MAN2
  5334.     ld hl,ManText1
  5335.     call DISPSTRING    
  5336.     ld de,$140B
  5337.     ld hl,ManText2
  5338.     call DISPSTRING    
  5339.     ld de,$1B0B
  5340.     ld hl,ManText3
  5341.     call DISPSTRING    
  5342.     ld de,$220B
  5343.     ld hl,ManText4
  5344.     call DISPSTRING    
  5345.     ld de,$290B
  5346.     ld hl,ManText5
  5347.     call DISPSTRING3
  5348.     call DRAWWALLS
  5349.     ld de,$1C09
  5350.     ld hl,ManText6
  5351.     call DISPSTRING3
  5352.     call YESNO
  5353.     ld de,$1114
  5354.     ld hl,ManText7
  5355.     call DISPSTRING    
  5356.     call DEADORLIVEMAN
  5357.     ld (hl),0
  5358.     ld a,1    
  5359.     ld (NUMBEROFENEMIES),a
  5360.     ld a,3    
  5361.     ld (SCENARIO),a
  5362. KILLMANLOOP:
  5363.     call GET_KEY
  5364.              cp G_1
  5365.              jp z,GIMPMAN
  5366.              cp G_2
  5367.     jr nz,KILLMANLOOP
  5368. FLEEMAN:
  5369.     ld de,$260A
  5370.     ld hl,ManText8
  5371.     call DISPSTRING3
  5372.     call ERASESCREEN
  5373.     jp  LEADER1TOWN ;; yay! you get to fight an xtech soldier! =)))
  5374. ABOUTSWITCH:
  5375.     ld de,$1A07
  5376.     ld hl,manswitch
  5377.     call DISPSTRING    
  5378.     ld de,$2107
  5379.     ld hl,BanditCastle
  5380.     call DISPSTRING
  5381.     jp RETFROMSTATS
  5382. MAN2:
  5383.     ld a,(SCENARIO)
  5384.     cp 9
  5385.     jp nc,NOTHINGMANSAYS
  5386.     cp 8
  5387.     jr nc,ABOUTSWITCH
  5388.     ld hl,ManText9
  5389.     call DISPSTRING    
  5390.     ld de,$0D0B
  5391.     ld hl,ManText10
  5392.     call DISPSTRING    
  5393.     ld de,$140B
  5394.     ld hl,ManText11
  5395.     call DISPSTRING    
  5396.     ld de,$1B0B
  5397.     ld hl,ManText12
  5398.     call DISPSTRING    
  5399.     ld de,$220B
  5400.     ld hl,ManText14
  5401.     call DISPSTRING    
  5402.     call TALK6
  5403.     call DRAWWALLS
  5404.     ld de,$140B
  5405.     ld hl,ManText16
  5406.     call DISPSTRING    
  5407.     ld de,$1B0B
  5408.     ld hl,ManText17
  5409.     call DISPSTRING    
  5410.     call TALK7
  5411.     call DRAWWALLS
  5412.     ld de,$140B
  5413.     ld hl,ManText18
  5414.     call DISPSTRING    
  5415.     ld de,$1B0B
  5416.     ld hl,ManText20
  5417.     call DISPSTRING    
  5418.     ld de,$220B
  5419.     ld hl,ManText21
  5420.     call DISPSTRING3
  5421.     call DRAWWALLS
  5422.     ld de,$140B
  5423.     ld hl,ManText23
  5424.     call DISPSTRING    
  5425.     ld de,$1B0B
  5426.     ld hl,ManText25
  5427.     call DISPSTRING    
  5428.     ld de,$220B
  5429.     ld hl,ManText26
  5430.     call DISPSTRING
  5431.     jp RETFROMSTATS
  5432. DISPSTRING3:
  5433.              ld ($8215),de
  5434.     ROM_CALL(D_ZM_STR)
  5435.     call CR_GRBCopy
  5436. WaitKey:
  5437.     call GET_KEY
  5438.     cp G_ENTER
  5439.     ret z
  5440.     cp G_2nd
  5441.     jr nz,WaitKey
  5442.     RET
  5443. TALK6:
  5444.     ld bc,KuraiText17
  5445.     ld de,KuraiText16
  5446.     jr KURAITALKSWO32
  5447. TALK3:
  5448.     ld de,KuraiText9
  5449.     ld bc,KuraiText10
  5450.     ld hl,KuraiText11
  5451.     jr KURAITALKS
  5452. TALK2:
  5453.     ld bc,KuraiText8
  5454.     ld de,KuraiText7
  5455.     jr KURAITALKSWO3
  5456. TALK8:
  5457.     ld bc,KuraiText22
  5458.     ld de,KuraiText21
  5459.     jr KURAITALKSWO32
  5460. TALK12:
  5461.     ld de,KuraiText30
  5462.     ld bc,KuraiText31
  5463.     jr KURAITALKSWO3
  5464. TALK11:
  5465.     ld de,KuraiText27
  5466.     ld bc,KuraiText28
  5467.     ld hl,KuraiText29
  5468.     jr KURAITALKS
  5469. TALK10:
  5470.     ld bc,KuraiText26
  5471.     ld de,KuraiText25
  5472.     jr KURAITALKSWO32    
  5473. TALK9:
  5474.     ld bc,KuraiText24
  5475.     ld de,KuraiText23
  5476.     jr KURAITALKSWO3
  5477. TALK7:
  5478.     ld bc,KuraiText20
  5479.     ld de,KuraiText19
  5480.     jr KURAITALKSWO32
  5481. TALK4:
  5482.     ld bc,KuraiText13
  5483.     ld de,KuraiText12
  5484.     jr KURAITALKSWO3
  5485. TALK5:
  5486.     ld bc,KuraiText15
  5487.     ld de,KuraiText14
  5488.     jr KURAITALKSWO3
  5489. TALK1:
  5490.     ld a,1
  5491.     ld (SCENARIO),a
  5492.     ld de,KuraiText4
  5493.     ld bc,KuraiText5
  5494.     ld hl,KuraiText6
  5495.     jr KURAITALKS
  5496. KURAITALKSWO32:
  5497.     call WaitKey ;; pauses, eliminates a WaitKey
  5498. KURAITALKSWO3:  ;; Kurai Talks w/o 3rd text
  5499.     ld hl,BlankText
  5500. KURAITALKS:
  5501.     push hl
  5502.     push bc
  5503.     push de
  5504.     call DRAWWALLS
  5505.     call INVERTSCREEN
  5506.     ld hl,KuraiFace
  5507.     ld bc,$3D36
  5508.     call NASRWARP
  5509.     set 3,(IY+05)
  5510.     pop hl
  5511.     ld de,$0C05
  5512.     call DISPSTRING
  5513.     pop bc
  5514.     ld (DUMMY1),bc
  5515.     ld hl,(DUMMY1)
  5516.     ld de,$1305
  5517.     call DISPSTRING
  5518.     pop de
  5519.     ex de,hl
  5520.     ld de,$1A05
  5521.     call DISPSTRING3
  5522.     res 3,(IY+05)
  5523.     jp ERASESCREEN
  5524. ATTACKNUM2:
  5525.     ld a,(DUMMY1)
  5526.     dec a
  5527.     ld (BKX),a
  5528.     ld b,6
  5529. ATTACKLOOP2:
  5530.     push bc
  5531.     ld a,(BKX)
  5532.     inc a
  5533.     inc a
  5534.     ld (BKX),a
  5535.     ld a,7
  5536.     ld (BKY),a
  5537.     ld hl,ERASUREX
  5538.     call drawit
  5539.     ld a,12
  5540.     ld (BKY),a
  5541.     ld hl,ERASUREX
  5542.     call drawit
  5543.     pop bc
  5544.     djnz ATTACKLOOP2
  5545.     ret
  5546.  
  5547. FADE_OUT:
  5548.         LD A,($8008)
  5549.         ADD A,$DE
  5550. FADE_OUT_LOOP:
  5551.         HALT
  5552.         HALT
  5553.         HALT
  5554.         CP $DE
  5555.         RET Z
  5556.         DEC A
  5557.         CALL $07F3
  5558.         OUT ($10),A
  5559.         JR FADE_OUT_LOOP
  5560. FADE_IN:
  5561.         LD A,($8008)
  5562.         ADD A,$DE
  5563.         LD B,A
  5564.         LD A,$DE
  5565. FADE_IN_LOOP:
  5566.         HALT
  5567.         HALT
  5568.         HALT
  5569.         CP B
  5570.         RET Z
  5571.         INC A
  5572.         CALL $07F3
  5573.         OUT ($10),A
  5574.         JR FADE_IN_LOOP
  5575.  
  5576. DUMMY1DISP:
  5577.     ld (DUMMY1),hl
  5578.     ld de,100
  5579.     and a
  5580.     sbc hl,de
  5581.     jr nc,over100disp
  5582.     ld hl,(DUMMY1)
  5583.     ld de,$163E
  5584.     jp DISPHL    
  5585. over100disp:
  5586.     ld hl,(DUMMY1)
  5587.     jp DISPHL2
  5588. REDISP:
  5589.     ld a,(DUMMY1)
  5590.     or a
  5591.     jp z,(KURAIMAGIC2)
  5592.     pop hl
  5593.     call ERASEMENU    
  5594.     call DISPMP
  5595.     ld hl,WhichSpells
  5596.     inc hl
  5597.     inc hl
  5598.     inc hl
  5599.     inc hl
  5600.     ld a,(hl)
  5601.     or a    
  5602.     jr z,NEXT4
  5603.     push hl
  5604.              ld hl,Sire
  5605.     ld de, $1F49                    ;Y=2C,X=1A
  5606.     call DISPSTRING
  5607.     pop hl
  5608. NEXT4:
  5609.     inc hl
  5610.     ld a,(hl)
  5611.     or a
  5612.     jr z,NEXT5
  5613.     push hl
  5614.              ld hl,Rock
  5615.     ld de,$2649                    ;Y=2C,X=1A
  5616.     call DISPSTRING
  5617.     pop hl
  5618. NEXT5:
  5619.     inc hl
  5620.     ld a,(hl)
  5621.     or a
  5622.     jr z,NEXT6
  5623.     push hl
  5624.              ld hl,Haste
  5625.     ld de,$2D49                    ;Y=2C,X=1A
  5626.     call DISPSTRING    
  5627.     pop hl
  5628. NEXT6:
  5629.     inc hl
  5630.     ld a,(hl)
  5631.     or a
  5632.     jr z,DONEWITHM2
  5633.     push hl
  5634.              ld hl,Doom
  5635.     ld de,$3449                    ;Y=2C,X=1A
  5636.     call DISPSTRING    
  5637.     pop hl
  5638. DONEWITHM2:
  5639.     ld bc,$1F3F
  5640.     ld hl,CURSORMAGIC
  5641.     call drawit2
  5642.     ld hl,WhichSpells
  5643.     inc hl
  5644.     inc hl
  5645.     inc hl
  5646.     inc hl
  5647.     jp MAGICLOOP2
  5648. REDISP2:
  5649.     ld a,(DUMMY1)
  5650.     or a
  5651.     jp z,(KURAISKILL2)
  5652.     pop hl
  5653.     call ERASEMENU    
  5654.     call DISPMP
  5655.     ld hl,WhichSkills
  5656.     inc hl
  5657.     inc hl
  5658.     inc hl
  5659.     inc hl
  5660.     ld a,(hl)
  5661.     or a    
  5662.     jr z,NEXT4S
  5663.     push hl
  5664.              ld hl,ReLife
  5665.     ld de, $1F49                    ;Y=2C,X=1A
  5666.     call DISPSTRING
  5667.     pop hl
  5668. NEXT4S:
  5669.     inc hl
  5670.     ld a,(hl)
  5671.     or a
  5672.     jr z,NEXT5S
  5673.     push hl
  5674.              ld hl,Build
  5675.     ld de, $2649                    ;Y=2C,X=1A
  5676.     call DISPSTRING
  5677.     pop hl
  5678. NEXT5S:
  5679.     inc hl
  5680.     ld a,(hl)
  5681.     or a
  5682.     jr z,NEXT6S
  5683.     push hl
  5684.              ld hl,Xfrm
  5685.     ld de, $2D49                    ;Y=2C,X=1A
  5686.     call DISPSTRING    
  5687.     pop hl
  5688. NEXT6S:
  5689.     inc hl
  5690.     ld a,(hl)
  5691.     or a
  5692.     jr z,DONEWITHS2
  5693.     push hl
  5694.              ld hl,Bribe
  5695.     ld de, $3449                    ;Y=2C,X=1A
  5696.     call DISPSTRING    
  5697.     pop hl
  5698. DONEWITHS2:
  5699.     ld bc,$1F3F
  5700.     ld hl,CURSORMAGIC
  5701.     call drawit2
  5702.     ld hl,WhichSkills
  5703.     inc hl
  5704.     inc hl
  5705.     inc hl
  5706.     inc hl
  5707.     jp SKILLLOOP2
  5708.  
  5709. REGENLOOPER:
  5710.     ld (MP),hl
  5711.     ld b,4
  5712. REGENLOOP:
  5713.     push bc
  5714.     ld bc,$2322
  5715.     ld hl,RegenEffect
  5716.     call NASRWARP
  5717.     call DELAY3
  5718.     ld bc,$2822
  5719.     ld hl,BlankEnemy
  5720.     call NASRWARP
  5721.     call KURAI
  5722.     pop bc
  5723.     djnz REGENLOOP    
  5724.     ret
  5725. HEALLOOPER:
  5726.     ld b,55
  5727. HEALLOOP:
  5728.     push bc
  5729.     ld a,r
  5730.     srl a
  5731.     and 15
  5732.     add a,15
  5733.     ld (BKX),a
  5734.     ld a,r
  5735.     srl a
  5736.     and 18   
  5737.     add a,35
  5738.     ld (BKY),a
  5739.     ld hl,HEALSPRITE
  5740.     call drawit
  5741.     ld a,(BKX)
  5742.     add a,8
  5743.     ld (BKX),a
  5744.     ld a,r
  5745.     srl a
  5746.     and 10   
  5747.     add a,40
  5748.     ld (BKY),a
  5749.     ld hl,HEALSPRITE
  5750.     call drawit
  5751.     pop bc 
  5752.     djnz HEALLOOP 
  5753.     ret
  5754.  
  5755. CHESTINIT:
  5756.     ld (MAPVAR),hl
  5757.     ld b,6
  5758.     ex de,hl
  5759. INITCHESTS:
  5760.     push hl
  5761.     CALL $0033 ;; puts (hl) into hl
  5762.     ld de,(MAPVAR)
  5763.     add hl,de
  5764.     ld (hl),6
  5765.     pop hl
  5766.     inc hl
  5767.     inc hl
  5768.     djnz INITCHESTS
  5769.     RET
  5770. FAITHSWORD:
  5771.     ld de,$2210
  5772.     ld hl,BanditsText1
  5773.     jp DISPSTRING3
  5774.  
  5775.  
  5776.  
  5777. healher:
  5778.     .db "Heal her?",0
  5779. choicetext1:
  5780.     .db "Akara lays on the ground",0
  5781. choicetext2:
  5782.     .db "dying. If you use all",0
  5783. choicetext3:
  5784.     .db "your life force, shell live..",0
  5785. choicetext4:
  5786.     .db "but you will die.",0
  5787. badend1:
  5788.     .db "A noble, gesture...",0
  5789. badend2:
  5790.     .db "you throw yourself to hell",0
  5791. badend3:
  5792.     .db "knowing youll see her soon",0
  5793. badend4:
  5794.     .db "..someday.",0
  5795. cruelplace:
  5796.     .db "in this cruel place your",0
  5797. cruelplace2:
  5798.     .db "voice above the maelstrom",0
  5799. endgame1:
  5800.     .db "Although",0
  5801. endgame2:
  5802.     .db "Akara was",0
  5803. endgame3:
  5804.     .db "your lover,",0
  5805. endgame4:
  5806.     .db "faithful",0
  5807. endgame5:    
  5808.     .db "and caring,",0
  5809. endgame6:    
  5810.     .db "sometimes",0
  5811. endgame7:
  5812.     .db "life is just",0
  5813. endgame8:
  5814.     .db "more important.",0
  5815. lasttext1:
  5816.     .db "You see Akara, held captive",0
  5817. lasttext2:
  5818.     .db "by The Demon Wizard.",0
  5819. lasttext3:
  5820.     .db "Akara!!!",0
  5821. lasttext4:
  5822.     .db "Kurai, help me!!!",0
  5823. lasttext5:
  5824.     .db "The Demon Wizard speaks:",0
  5825. lasttext6:
  5826.     .db "She belongs to me,",0
  5827. lasttext7:
  5828.     .db "in life...",0
  5829. lasttext8:    
  5830.     .db "...or in death!",0
  5831. lasttext9:
  5832.     .db "The Wizard strikes Akara",0
  5833. lasttext10:
  5834.     .db "to the ground and attacks!",0
  5835. faitharmor:
  5836.     .db "the Faith Armor!",0
  5837. Serpent1:
  5838.     .db "A serpent appears!",0
  5839. Serpent2:
  5840.     .db "Defeat me to get",0
  5841. last:
  5842.     .db "The final battle?",0
  5843. acave:
  5844.     .db "A hidden cave!",0
  5845. manswitch:
  5846.     .db "I hear a secret switch is in",0
  5847. saysnothing:
  5848.     .db "The man says nothing.",0
  5849. aswitch:
  5850.     .db "a switch!",0
  5851. thekey:
  5852.     .db "the key!",0
  5853. corpse:
  5854.     .db "A corpse appears!",0
  5855. mykey:
  5856.     .db "my key...my key..",0
  5857. Locked:
  5858.     .db "It is locked",0
  5859. Awakened:
  5860.     .db "Awakened",0
  5861. KuraiText1:
  5862.     .db "Huh?",0
  5863. KuraiText2:
  5864.     .db "The cell door",0
  5865. KuraiText3:
  5866.     .db "is open..",0
  5867. KuraiText4:
  5868.     .db "All the",0
  5869. KuraiText5:
  5870.     .db "guards have",0
  5871. KuraiText6:
  5872.     .db "been slain..",0
  5873. KuraiText7:
  5874.     .db "What? A Xtech",0
  5875. KuraiText8:
  5876.     .db "soldier?!",0
  5877. KuraiText9:
  5878.     .db "Whats going on?",0
  5879. KuraiText10:
  5880.     .db "Must get to",0
  5881. KuraiText11:
  5882.     .db "Kiata.",0
  5883. KuraiText12:
  5884.     .db "Theyll know",0
  5885. KuraiText13:
  5886.     .db "whats up.",0
  5887. KuraiText14:
  5888.     .db "The ground",0
  5889. KuraiText15:
  5890.     .db "feels funny..",0
  5891. KuraiText16:
  5892.     .db "Sorry, got",0
  5893. KuraiText17:
  5894.     .db "enuff problems",0
  5895. KuraiText19:
  5896.     .db "Fuck!",0
  5897. KuraiText20:
  5898.     .db "Where is she?",0
  5899. KuraiText21:
  5900.     .db "I just want",0
  5901. KuraiText22:
  5902.     .db "Akara...",0
  5903. KuraiText23:
  5904.     .db "Im not your",0
  5905. KuraiText24:
  5906.     .db "damn savior.",0
  5907. KuraiText25:
  5908.     .db "Akara, im",0
  5909. KuraiText26:
  5910.     .db "coming..",0
  5911. KuraiText27:
  5912.     .db "Fuck! its",0
  5913. KuraiText28:
  5914.     .db "bandit hunting",0
  5915. KuraiText29:
  5916.     .db "time..",0
  5917. KuraiText30:
  5918.     .db "Time to go to",0
  5919. KuraiText31:
  5920.     .db "the tower",0
  5921. ManText1:
  5922.     .db "Kiata is past the",0
  5923. ManText2:
  5924.     .db "west cave. Its locked.",0
  5925. ManText3:
  5926.     .db "The man with a key was",0
  5927. ManText4:    
  5928.     .db "a diplomat...he died in",0
  5929. ManText5:
  5930.     .db "the Castle prison.",0
  5931. ManText6:
  5932.     .db "Wait..youre that killer!",0
  5933. ManText7:
  5934.     .db "Kill him?",0
  5935. ManText8:
  5936.     .db "Guards! Stop him!",0
  5937. ManText9:
  5938.     .db "Yeah, we know..",0
  5939. ManText10:
  5940.     .db "A wizard in the tower",0
  5941. ManText11:
  5942.     .db "killed them.",0
  5943. ManText12:
  5944.     .db "Wont you help us?",0
  5945. ManText14:
  5946.     .db "Else this land is doomed.",0
  5947. ManText16:
  5948.     .db "Kurai...",0
  5949. ManText17:
  5950.     .db "theyve got Akara.",0
  5951. ManText18:
  5952.     .db "In the tower...a",0
  5953. ManText20:
  5954.     .db "forcefield is around it.",0
  5955. ManText21:
  5956.     .db "You need the Faith Blade.",0
  5957. ManText23:
  5958.     .db "Search the SouthWest",0
  5959. ManText25:
  5960.     .db "cave. The sage there",0
  5961. ManText26:
  5962.     .db "knows where it is.",0
  5963. OldManText1:
  5964.     .db "Ha, some savior. But,",0
  5965. OldManText2:
  5966.     .db "if you want the Faith Sword",0
  5967. OldManText3:
  5968.     .db "its in the cave north. Heres",0
  5969. BanditsText1:
  5970.     .db "the Faith Sword!",0
  5971. BanditsText2:
  5972.     .db "Bandits ambush you!",0
  5973. BanditsText3: 
  5974.     .db "They steal",0
  5975. BanditCastle:
  5976.     .db "The Bandit Castle..",0
  5977. BanditsText4:
  5978.     .db "The Bandit King!",0
  5979. BanditsText5:
  5980.     .db "He has",0
  5981. force:
  5982.     .db "Odd forces push you back",0
  5983. NewGame:
  5984.     .db "3. New Game",0
  5985. Saved:
  5986.     .db "Saved",0
  5987. Loaded:
  5988.     .db "Loaded",0
  5989. SaveGame:
  5990.     .db "1. Game One     2. Game Two",0
  5991. SAVERAM:
  5992.     .dw 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  5993.         ;; just my little cheat.. =) will be set back to ZERO.
  5994. scenario1:
  5995.     .db 0 ;; will be reset to ZERO...my cheat again =]
  5996. YouDodge:
  5997.     .db "You dodge",0
  5998. SAVERAM2:
  5999.     .dw 0,0,0,0,0,0,0,0,0,0,0,0,0,0
  6000. scenario2:
  6001.     .db 0
  6002. ThankYou:
  6003.     .db "Thank ye",0
  6004. WeaponShop:
  6005.     .db "Blade:",0
  6006. ArmorShop:
  6007.     .db "Armor:",0
  6008. WAset1:
  6009.     .db "1. Wood",0
  6010. WAset2:
  6011.     .db "2. Iron",0
  6012. WAset3:
  6013.     .db "3. Fire",0
  6014. WAset4:
  6015.     .db "4. Rune",0
  6016. WAset5:
  6017.     .db "5. Dragon",0
  6018. Restored:
  6019.     .db "Healed",0
  6020. Inn:
  6021.     .db "Welcome to the Inn",0 
  6022. OneNight:
  6023.     .db "One Night:",0
  6024. ItemShop:
  6025.     .db "Item",0
  6026. ItemStore:
  6027.     .db "3. Bomb",0
  6028. ItemMenu:
  6029.     .db "1. MediKit    "
  6030.     .db "2. MagiKit",0
  6031. YouFind:
  6032.     .db "You find..",0
  6033. scroll:
  6034.     .db "a scroll. Gain XP",0
  6035. Youknowit:
  6036.     .db "Known",0
  6037. ChooseSpells:
  6038.     .db "Pick Spell",0
  6039. ChooseSkills:
  6040.     .db "Pick Skill",0
  6041. Allocate:
  6042.     .db "Allocate:",0
  6043. SlashAll:
  6044.     .db "CutAll",0
  6045. Regeneration:
  6046.     .db "Regen",0
  6047. HPMP:
  6048.     .db "HP<->MP",0
  6049. Smoke:
  6050.     .db "Smke",0
  6051. ReLife:
  6052.     .db "ReLife",0
  6053. Build:
  6054.     .db "Build",0
  6055. Xfrm:
  6056.     .db "Xfrm",0
  6057. Bribe:
  6058.     .db "Steal",0
  6059. MedKit:
  6060.     .db "HPkit",0
  6061. MagKit:
  6062.     .db "MPkit",0
  6063. ArcBolt: 
  6064.     .db "Bomb",0
  6065. EnemyAttacks:
  6066.     .db "attacks!!",0
  6067. damage:
  6068.     .db "dmg!",0
  6069. BlankText:
  6070.     .db "                    ",0
  6071. Victory:
  6072.     .db "Victory!",0
  6073. ToNextLevel:
  6074.     .db "Next Lvl:",0
  6075. GameOVER:
  6076.     .db "Game Over",0
  6077. YourMP:
  6078.     .db "M:",0
  6079. Escape:
  6080.     .db "You Escape",0
  6081. Failed: 
  6082.     .db "Failed..",0
  6083. HPstr:
  6084.     .db "HP:",0
  6085. MPstr:
  6086.     .db "MP:",0
  6087. Strength:
  6088.     .db "ST:",0
  6089. Intelligence:
  6090.     .db "INT:",0
  6091. Speed:
  6092.     .db "DX:",0
  6093. xp:
  6094.     .db "XP:",0
  6095. gold:
  6096.     .db "Gold:",0
  6097. ;;spells
  6098. WhichSpells:
  6099.     .db 0,0,0,0,0,0,0,0,0,0
  6100.     ;;0==DON'T KNOW SPELL! 1==HEAL 2==BURN 3==STAR 4==RAGE 5==SIRE 6==Rock 7==Haste 8==Doom
  6101. WhichSkills:
  6102.     .db 0,0,0,0,0,0,0,0,0,0
  6103.     ;;0==unknown skill... SlashAll, Regeneration, HP<->MP, Smoke, ReLife
  6104. WhichItems:
  6105.     .db 0,0,0,0
  6106.     ;; 0==nothing.... MedKit, MagKit, Bomb, Gem??
  6107. SaveSSI:
  6108.     .dw 0,0,0,0,0,0,0,0,0,0,0,0
  6109.     ;;Spell Skill Item
  6110. SaveSSI2:
  6111.     .dw 0,0,0,0,0,0,0,0,0,0,0,0
  6112.     ;;Spell Skill Item
  6113. Chests:
  6114.     .dw 276,232,383,708,793,802
  6115.     ;; 6 to a MAP
  6116. Chests2:
  6117.     .dw 149,449,554,757,0,0
  6118. ZeroSet:
  6119.     .dw 0,0,0,0,0,0,0,0,0,0,0,0
  6120. Heal:
  6121.     .db "Heal",0
  6122. Burn:
  6123.     .db "Burn",0
  6124. Star:
  6125.     .db "Star",0
  6126. Rage:
  6127.     .db "Rage",0
  6128. Sire:
  6129.     .db "Sire",0
  6130. Rock:
  6131.     .db "Rock",0
  6132. Haste:
  6133.     .db "Haste",0
  6134. Doom:
  6135.     .db "Doom",0
  6136. needmp:
  6137.     .db "Need MP!",0
  6138. somegold:
  6139.     .db "some gold",0
  6140. Stats:
  6141.     .db "Status",0
  6142. Level:
  6143.     .db "Lvl:",0
  6144. Search:
  6145.     .db "..nothing",0
  6146. DELtoExit:
  6147.     .db "DEL to exit",0
  6148. yesorno:
  6149.     .db "1. Yes      " 
  6150.     .db "2. No",0
  6151. willcost:
  6152.     .db "Cost:",0
  6153. Kurai:
  6154.  .db 4,5,30
  6155.  .db %00000000, %00000000, %00000000, %00010000
  6156.  .db %00000000, %00000000, %00000000, %00110000
  6157.  .db %00000000, %00000000, %00000000, %01100000
  6158.  .db %00000000, %00000000, %00000000, %11100000
  6159.  .db %00000000, %00000000, %00000001, %01000000
  6160.  .db %00000001, %11100000, %00000011, %10000000
  6161.  .db %00000011, %00111000, %00000111, %00000000
  6162.  .db %00000010, %10010100, %00001110, %00000000
  6163.  .db %00000100, %00101100, %00011100, %00000000
  6164.  .db %00000011, %10011000, %00101000, %00000000
  6165.  .db %00000001, %00100000, %01010000, %00000000
  6166.  .db %00000001, %11000000, %11100000, %00000000
  6167.  .db %00000001, %01111101, %11000000, %00000000
  6168.  .db %00111110, %00011111, %01000000, %00000000
  6169.  .db %01011110, %00101100, %10000000, %00000000
  6170.  .db %11111101, %01110111, %11000000, %00000000
  6171.  .db %00101101, %11101111, %00000000, %00000000
  6172.  .db %00101010, %01111010, %00000000, %00000000
  6173.  .db %00110111, %01111100, %00000000, %00000000
  6174.  .db %00011101, %10110100, %00000000, %00000000
  6175.  .db %00001111, %10001000, %00000000, %00000000
  6176.  .db %00000101, %11110000, %00000000, %00000000
  6177.  .db %00000110, %11100000, %00000000, %00000000
  6178.  .db %00000101, %00100000, %00000000, %00000000
  6179.  .db %00001100, %01010000, %00000000, %00000000
  6180.  .db %00001000, %10110000, %00000000, %00000000
  6181.  .db %00010111, %10101000, %00000000, %00000000
  6182.  .db %00011011, %01011000, %00000000, %00000000
  6183.  .db %00101010, %01100100, %00000000, %00000000
  6184.  .db %01000100, %00110100, %00000000, %00000000
  6185. Logo:
  6186.  .db 3,1,21
  6187.  .db %11000000, %00000000, %00000000,
  6188.  .db %11100000, %00000000, %00010101,
  6189.  .db %10110110, %01001001, %10001110,
  6190.  .db %10010100, %10011101, %10001011,
  6191.  .db %10010111, %00010101, %10011011,
  6192.  .db %10110110, %01010100, %10010101,
  6193.  .db %01100010, %01000110, %10011011,
  6194.  .db %01100110, %01000100, %10011010,
  6195.  .db %01000100, %00000100, %10001110,
  6196.  .db %00000000, %00000001, %10000101,
  6197.  .db %00000000, %00000011, %00100000,
  6198.  .db %10101011, %11000000, %01100000,
  6199.  .db %01110011, %10101011, %01010000,
  6200.  .db %01011010, %00101111, %01010000,
  6201.  .db %11011011, %01110110, %01001000,
  6202.  .db %10101001, %10010100, %11000000,
  6203.  .db %11011000, %00010111, %01000000,
  6204.  .db %11010000, %00010000, %01000000,
  6205.  .db %01110000, %00100000, %11000000,
  6206.  .db %10100000, %00100001, %10000000,
  6207.  .db %00000000, %01000001, %00000000,
  6208. LevelUp:
  6209.  .db 3,1,19
  6210.  .db %11100000, %00000000, %00001100,
  6211.  .db %01000000, %00000000, %00000100,
  6212.  .db %01000000, %00000000, %00000100,
  6213.  .db %01000001, %10110111, %01100100,
  6214.  .db %01000010, %01010010, %10010100,
  6215.  .db %01000011, %11010100, %11110100,
  6216.  .db %01000110, %00001000, %10000100,
  6217.  .db %11111101, %11001000, %01111110,
  6218.  .db %00000000, %00000000, %00000000,
  6219.  .db %00000000, %00000000, %00000000,
  6220.  .db %00011101, %11000000, %01010100,
  6221.  .db %00001000, %10000000, %01010100,
  6222.  .db %00001000, %10011110, %01010100,
  6223.  .db %00001000, %10001001, %01010100,
  6224.  .db %00001000, %10001001, %01010100,
  6225.  .db %00001000, %10001001, %01010100,
  6226.  .db %00001000, %10001110, %00000000,
  6227.  .db %00000111, %00001000, %01010100,
  6228.  .db %00000000, %00011100, %00000000,
  6229. Kurai3:
  6230.  .db 4,6,27
  6231.  .db %00000000, %00000000, %00000001, %10000000
  6232.  .db %00000000, %00000000, %00000011, %11000000
  6233.  .db %00000000, %00000001, %11100111, %11100000
  6234.  .db %00000000, %00000011, %00111111, %01100000
  6235.  .db %00000000, %00000010, %10111110, %11000000
  6236.  .db %00000001, %11000100, %11101110, %11100000
  6237.  .db %00001110, %00000011, %11010010, %10100000
  6238.  .db %00000011, %00000111, %00100101, %01100000
  6239.  .db %00011100, %00011110, %01010110, %01100000
  6240.  .db %01100000, %00111001, %11111101, %11100000
  6241.  .db %00001000, %11110010, %00011111, %11000000
  6242.  .db %00010001, %11101110, %00101100, %10000000
  6243.  .db %00100111, %10001101, %01110111, %10000000
  6244.  .db %01001111, %00000101, %11101111, %00000000
  6245.  .db %00011100, %00100010, %01111010, %00000000
  6246.  .db %00111001, %01000011, %01111110, %00000000
  6247.  .db %01100010, %01000001, %10110100, %00000000
  6248.  .db %10000100, %10000011, %10001000, %00000000
  6249.  .db %00000100, %00000001, %01111100, %00000000
  6250.  .db %00001000, %00000001, %10111000, %00000000
  6251.  .db %00000000, %00000001, %01001000, %00000000
  6252.  .db %00000000, %00000011, %00010100, %00000000
  6253.  .db %00000000, %00000010, %00101100, %00000000
  6254.  .db %00000000, %00000101, %11101010, %00000000
  6255.  .db %00000000, %00000110, %11010110, %00000000
  6256.  .db %00000000, %00001010, %10011001, %00000000
  6257.  .db %00000000, %00010001, %00001101, %00000000
  6258.  
  6259.  
  6260. Kurai4:
  6261.  .db 4,5,40
  6262.  .db %00000000, %00001000, %00000000, %00000000
  6263.  .db %00000000, %00000101, %00000000, %00000000
  6264.  .db %00000001, %00000010, %10100000, %00000000
  6265.  .db %00000000, %11000010, %01010000, %00000000
  6266.  .db %00000100, %01110001, %01001000, %00000000
  6267.  .db %00000010, %00111100, %00101000, %00000000
  6268.  .db %00000001, %00001111, %00000100, %00000000
  6269.  .db %00000000, %11000011, %11000010, %00000000
  6270.  .db %00000010, %00111000, %11110000, %00000000
  6271.  .db %00000001, %10000110, %00111100, %10000000
  6272.  .db %00000000, %01110000, %00001111, %00000000
  6273.  .db %00000000, %00001100, %00000011, %11000000
  6274.  .db %00000000, %00000000, %00000010, %11100000
  6275.  .db %00000000, %00000000, %00000001, %01100000
  6276.  .db %00000000, %00000000, %00000011, %11000000
  6277.  .db %00000000, %00000001, %11100010, %11100000
  6278.  .db %00000000, %00000011, %00111001, %01100000
  6279.  .db %00000000, %00000010, %10011011, %11000000
  6280.  .db %00000000, %00000100, %00101110, %11000000
  6281.  .db %00000000, %00000010, %10011111, %11000000
  6282.  .db %00000000, %00000011, %00010011, %01000000
  6283.  .db %00000000, %00000110, %01100110, %10000000
  6284.  .db %00000000, %00000011, %11111101, %10000000
  6285.  .db %00000000, %00000110, %00011111, %00000000
  6286.  .db %00000000, %00001110, %00101111, %00000000
  6287.  .db %00000000, %00001101, %01110110, %00000000
  6288.  .db %00000000, %00000101, %11101110, %00000000
  6289.  .db %00000000, %00000010, %01111010, %00000000
  6290.  .db %00000000, %00000011, %01111110, %00000000
  6291.  .db %00000000, %00000001, %10110100, %00000000
  6292.  .db %00000000, %00000011, %10001000, %00000000
  6293.  .db %00000000, %00000001, %01111100, %00000000
  6294.  .db %00000000, %00000001, %10111000, %00000000
  6295.  .db %00000000, %00000001, %01001000, %00000000
  6296.  .db %00000000, %00000011, %00010100, %00000000
  6297.  .db %00000000, %00000010, %00101100, %00000000
  6298.  .db %00000000, %00000101, %11101010, %00000000
  6299.  .db %00000000, %00000110, %11010110, %00000000
  6300.  .db %00000000, %00001010, %10011001, %00000000
  6301.  .db %00000000, %00010001, %00001101, %00000000
  6302.  
  6303. Kurai5:
  6304.  .db 4,1,25
  6305.  .db %00000000, %00000000, %00000000, %11110000
  6306.  .db %00000000, %00000000, %00000001, %10011100
  6307.  .db %00000000, %00000000, %00000001, %01001010
  6308.  .db %00000000, %00000000, %00000010, %00010110
  6309.  .db %00000000, %00000000, %00000001, %11001100
  6310.  .db %00000000, %00000000, %00000000, %10010000
  6311.  .db %00000000, %00000000, %00000000, %11100000
  6312.  .db %00000000, %00000000, %00000001, %11111110
  6313.  .db %00001100, %01110000, %00000011, %00010100
  6314.  .db %00000011, %00011110, %00000101, %01011000
  6315.  .db %00111001, %11100000, %00011010, %10111100
  6316.  .db %11000001, %00000111, %11111110, %11011000
  6317.  .db %00000100, %11111111, %11101011, %00110000
  6318.  .db %00011111, %11100000, %00000111, %10111000
  6319.  .db %11111000, %00000000, %00000001, %01011000
  6320.  .db %00000000, %00010100, %00000000, %11000100
  6321.  .db %00000011, %00101000, %00000000, %11111100
  6322.  .db %00001100, %11010000, %00000000, %11011100
  6323.  .db %00000000, %00100000, %00000000, %10100100
  6324.  .db %00000001, %00000000, %00000001, %10001010
  6325.  .db %00000000, %00000000, %00000001, %00010110
  6326.  .db %00000000, %00000000, %00000010, %11110101
  6327.  .db %00000000, %00000000, %00000011, %01101011
  6328.  .db %00000000, %00000000, %00000101, %01001101
  6329.  .db %00000000, %00000000, %00001000, %10010110
  6330.  
  6331. KuraiMagic1:
  6332.  .db 3,1,28
  6333.  .db %00000000, %00000000, %00000000
  6334.  .db %01001000, %00000000, %00010010
  6335.  .db %00111000, %00000000, %00011100
  6336.  .db %00011000, %00111100, %00110000
  6337.  .db %00001100, %01100110, %00110000
  6338.  .db %00001100, %11010011, %00110000
  6339.  .db %00001100, %10000101, %00110000
  6340.  .db %00001100, %01010010, %00110000
  6341.  .db %00001010, %00100100, %01010000
  6342.  .db %00001011, %00110100, %11010000
  6343.  .db %00000101, %11101111, %01100000
  6344.  .db %00000101, %01010010, %10100000
  6345.  .db %00000010, %11000101, %01000000
  6346.  .db %00000011, %10101110, %10000000
  6347.  .db %00000001, %10111101, %00000000
  6348.  .db %00000001, %01001101, %00000000
  6349.  .db %00000000, %11101010, %00000000
  6350.  .db %00000000, %10110110, %00000000
  6351.  .db %00000000, %11110100, %00000000
  6352.  .db %00000000, %10111110, %00000000
  6353.  .db %00000000, %11011100, %00000000
  6354.  .db %00000000, %10100100, %00000000
  6355.  .db %00000001, %10001010, %00000000
  6356.  .db %00000001, %00010110, %00000000
  6357.  .db %00000010, %11110101, %00000000
  6358.  .db %00000011, %01101011, %00000000
  6359.  .db %00000101, %01001100, %10000000
  6360.  .db %00001000, %10000110, %10000000
  6361.  
  6362. KuraiMagic2:
  6363.  .db 3,1,28
  6364.  .db %00000000, %01000001, %00000000
  6365.  .db %01001000, %10111010, %10010010
  6366.  .db %00111001, %01000101, %01011100
  6367.  .db %00011011, %10111100, %11110001
  6368.  .db %10001110, %01100110, %01110011
  6369.  .db %11011100, %11010011, %01110101
  6370.  .db %10111100, %10000101, %10111011
  6371.  .db %01001100, %01010010, %01110101
  6372.  .db %01101010, %00100100, %01010010
  6373.  .db %01011011, %00110100, %11010010
  6374.  .db %10100101, %11101111, %01100100
  6375.  .db %11100101, %01010010, %10101100
  6376.  .db %01100010, %11000101, %01011000
  6377.  .db %01011011, %10101110, %10011010
  6378.  .db %01010101, %10111101, %00101110
  6379.  .db %00101001, %01001101, %01010100
  6380.  .db %10100100, %11101010, %01001100
  6381.  .db %11010000, %10110110, %10101000
  6382.  .db %10110100, %11110100, %10111010
  6383.  .db %01110010, %10111110, %01010110
  6384.  .db %01011100, %11011100, %01011100
  6385.  .db %01001000, %10100100, %10110100
  6386.  .db %01010001, %10001010, %01001000
  6387.  .db %00101001, %00010110, %00101000
  6388.  .db %00101010, %11110101, %01010000
  6389.  .db %00100011, %01101011, %00010000
  6390.  .db %00000101, %01001100, %10100000
  6391.  .db %00001000, %10000110, %10000000
  6392.  
  6393. RegenEffect:
  6394.  .db 2,1,16
  6395.  .db %00000000,%00000000
  6396.  .db %00000000,%00101010
  6397.  .db %00000000,%01010101
  6398.  .db %00000011,%10101010
  6399.  .db %00000110,%11011101
  6400.  .db %00001101,%00110010
  6401.  .db %00001000,%01110110
  6402.  .db %00011000,%10101100
  6403.  .db %00011001,%11011000
  6404.  .db %00110011,%10110000
  6405.  .db %01100111,%01100000
  6406.  .db %01001110,%11000000
  6407.  .db %10010101,%10000000
  6408.  .db %00101011,%00000000
  6409.  .db %01110010,%00000000
  6410.  .db %11101100,%00000000
  6411.  
  6412. KuraiFace:
  6413.  .db 3,1,37
  6414.  .db %00000000, %00000000, %00000000
  6415.  .db %00111111, %11111111, %11111100
  6416.  .db %01111111, %11111111, %11111110
  6417.  .db %01111111, %11111111, %11111110
  6418.  .db %01111110, %00000111, %11111110
  6419.  .db %01111101, %00100001, %11111110
  6420.  .db %01111011, %10000000, %11111110
  6421.  .db %01110111, %10010100, %01111110
  6422.  .db %01101111, %00000000, %00111110
  6423.  .db %01011100, %00100000, %00011110
  6424.  .db %10111100, %00000000, %10011110
  6425.  .db %01011011, %00001000, %00001110
  6426.  .db %00111111, %00000001, %00001110
  6427.  .db %11000011, %10000000, %00001110
  6428.  .db %00110101, %11000100, %00100110
  6429.  .db %01001110, %01000000, %10000110
  6430.  .db %10101111, %10110010, %00000011
  6431.  .db %11101110, %11111000, %00000001
  6432.  .db %01010110, %11101000, %10111110
  6433.  .db %01110111, %11101000, %01010101
  6434.  .db %01111011, %11110001, %10001001
  6435.  .db %01111011, %11111100, %10110110
  6436.  .db %01111001, %11111111, %01010101
  6437.  .db %01111110, %11111111, %10111000
  6438.  .db %01111111, %01111010, %10111000
  6439.  .db %01111111, %11101101, %11011010
  6440.  .db %01111111, %11010001, %10110010
  6441.  .db %01111111, %11101010, %01100010
  6442.  .db %01111111, %10001000, %00000010
  6443.  .db %01111111, %00010000, %01100101
  6444.  .db %01111110, %00101000, %01001000
  6445.  .db %01111100, %01100100, %11000001
  6446.  .db %01110001, %00000100, %10010010
  6447.  .db %00001100, %10000000, %00010010
  6448.  .db %01100000, %00100001, %10100000
  6449.  .db %10001000, %00011000, %01000100
  6450.  .db %00100010, %10000001, %00001001
  6451.  
  6452. MagicKit:
  6453.  .db 3,1,19
  6454.  .db %00000000, %11100000, %00000000
  6455.  .db %00000001, %10110000, %00000000
  6456.  .db %00000001, %11100000, %00000000
  6457.  .db %00000001, %10110000, %00000000
  6458.  .db %00000001, %11110000, %00001111
  6459.  .db %00000000, %10110000, %00001000
  6460.  .db %00000001, %11110000, %00001000
  6461.  .db %01101111, %10111011, %11001000
  6462.  .db %11111111, %00011111, %11101000
  6463.  .db %11010101, %01010101, %01101000
  6464.  .db %11111111, %00011111, %11101000
  6465.  .db %01111011, %10111110, %11001000
  6466.  .db %00000001, %11110000, %00001000
  6467.  .db %00000000, %10110000, %00001000
  6468.  .db %00000001, %11110000, %00001000
  6469.  .db %00000001, %10110000, %00001000
  6470.  .db %00000001, %11100000, %00001000
  6471.  .db %00000001, %10110000, %00001000
  6472.  .db %00000000, %11100000, %00001000
  6473.  
  6474. StatusScreen:
  6475.  .db 4,1,28
  6476.  .db %01111111, %11111111, %11111111, %11111110
  6477.  .db %11000000, %00000000, %00000000, %00000011
  6478.  .db %10000011, %01000000, %10000000, %00000001
  6479.  .db %10000100, %01100110, %11010101, %10000001
  6480.  .db %10000010, %01001010, %10010101, %00000001
  6481.  .db %10000001, %01001010, %10010100, %10000001
  6482.  .db %10000110, %00100110, %01011101, %10000001
  6483.  .db %10000000, %00000000, %00000000, %00000001
  6484.  .db %10000111, %01000000, %00000000, %00000001
  6485.  .db %10000010, %01100100, %11010000, %00000001
  6486.  .db %10000010, %01001010, %10101000, %00000001
  6487.  .db %10000010, %01001100, %10101000, %00000001
  6488.  .db %10000111, %00100110, %10001000, %00000001
  6489.  .db %10000000, %00000000, %00000000, %00000001
  6490.  .db %10000011, %00000000, %00000000, %01000001
  6491.  .db %10000100, %00100011, %01010011, %01000001
  6492.  .db %10000010, %01010101, %01100100, %01100001
  6493.  .db %10000001, %01100101, %01000100, %01010001
  6494.  .db %10000110, %00110011, %01000011, %01010001
  6495.  .db %10000000, %00000000, %00000000, %00000001
  6496.  .db %10000100, %01000000, %00010000, %00000001
  6497.  .db %10000110, %11001100, %10000011, %00000001
  6498.  .db %10000101, %01010101, %01010100, %00000001
  6499.  .db %10000100, %01010100, %11010100, %00000001
  6500.  .db %10000100, %01001100, %01010011, %00000001
  6501.  .db %10000000, %00000000, %10000000, %00000001
  6502.  .db %11000000, %00000000, %00000000, %00000011
  6503.  .db %01111111, %11111111, %11111111, %11111110
  6504.  
  6505. KuraiOrb1:
  6506.  .db 1,1,8
  6507.  .db %00111100
  6508.  .db %01000010
  6509.  .db %10001101
  6510.  .db %10011101
  6511.  .db %10111001
  6512.  .db %10110001
  6513.  .db %01000010
  6514.  .db %00111100
  6515.  
  6516. KuraiOrb2:
  6517.  .db 1,1,8
  6518.  .db %00111100
  6519.  .db %01011010
  6520.  .db %10011001
  6521.  .db %10011001
  6522.  .db %10011001
  6523.  .db %10011001
  6524.  .db %01011010
  6525.  .db %00111100
  6526.  
  6527. KuraiOrb3:
  6528.  .db 1,1,8
  6529.  .db %00111100
  6530.  .db %01000010
  6531.  .db %10110001
  6532.  .db %10111001
  6533.  .db %10011101
  6534.  .db %10001101
  6535.  .db %01000010
  6536.  .db %00111100
  6537.  
  6538. KuraiOrb4:
  6539.  .db 1,1,8
  6540.  .db %00111100
  6541.  .db %01000010
  6542.  .db %10000001
  6543.  .db %11111111
  6544.  .db %11111111
  6545.  .db %10000001
  6546.  .db %01000010
  6547.  .db %00111100
  6548.  
  6549. ERASUREX:
  6550.  .db %11010110
  6551.  .db %10101100
  6552.  .db %00000000
  6553.  .db %11010110
  6554.  .db %00100001
  6555.  .db %00000000
  6556.  .db %11010110
  6557.  .db %10101100
  6558.  
  6559. ERASURE:
  6560.  .db %00000000
  6561.  .db %00000000
  6562.  .db %00000000
  6563.  .db %00000000
  6564.  .db %00000000
  6565.  .db %00000000
  6566.  .db %11111111
  6567.  .db %11111111
  6568.  
  6569. ERASURE2:
  6570.  .db %00000000
  6571.  .db %00000000
  6572.  .db %00000000
  6573.  .db %00000000
  6574.  .db %00000000
  6575.  .db %00000000
  6576.  .db %00000011
  6577.  .db %00000011
  6578.  
  6579. LINE:
  6580.  .db %00000000
  6581.  .db %00000000
  6582.  .db %00000000
  6583.  .db %00000000
  6584.  .db %00000000
  6585.  .db %00000000
  6586.  .db %00000000
  6587.  .db %11111100
  6588.  
  6589. ICONRING:
  6590.  .db %11111111
  6591.  .db %10000001
  6592.  .db %10000001
  6593.  .db %10000001
  6594.  .db %10000001
  6595.  .db %10000001
  6596.  .db %10000001
  6597.  .db %11111111
  6598.  
  6599. CURSORATTK:
  6600.  .db %00010000
  6601.  .db %00111000
  6602.  .db %01111100
  6603.  .db %11111110
  6604.  .db %00000000
  6605.  .db %00000000
  6606.  .db %00000000
  6607.  .db %00000000
  6608.  
  6609. MPHPSWITCH:
  6610. CURSORMAGIC:
  6611.  .db %00001000
  6612.  .db %00001100
  6613.  .db %00001110
  6614.  .db %00001111
  6615.  .db %00001110
  6616.  .db %00001100
  6617.  .db %00001000
  6618.  .db %00000000
  6619.  
  6620. SWORDSLASH1:
  6621.  .db %01000000
  6622.  .db %11001001
  6623.  .db %00000000
  6624.  .db %00000001
  6625.  .db %01000000
  6626.  .db %00010000
  6627.  .db %00100000
  6628.  .db %10001000
  6629.  
  6630. ENEMYHIT1:
  6631.  .db %00101000
  6632.  .db %01011101
  6633.  .db %11101010
  6634.  .db %01011011
  6635.  .db %10100101
  6636.  .db %10111010
  6637.  .db %01101111
  6638.  .db %00110010
  6639.  
  6640. HEALSPRITE:
  6641.  .db %00100000
  6642.  .db %00001000
  6643.  .db %10000000
  6644.  .db %00100000
  6645.  .db %00000100
  6646.  .db %10000000
  6647.  .db %00100000
  6648.  .db %00000000
  6649. ALLOCATER:
  6650.  .db %00000100
  6651.  .db %00111110
  6652.  .db %00111111
  6653.  .db %00111110
  6654.  .db %00000100
  6655.  .db %00000000
  6656.  .db %00000000
  6657.  .db %00000000
  6658. WIDECURSOR:
  6659.  .db %11111111
  6660.  .db %11111111
  6661.  .db %11111111
  6662.  .db %11111111
  6663.  .db %11111111
  6664.  .db %00000000
  6665.  .db %00000000
  6666.  .db %00000000
  6667.  
  6668. SireSpell1:
  6669.  .db 2,1,16
  6670.  .db %00000000,%00000000
  6671.  .db %00000000,%00000000
  6672.  .db %00000000,%00000000
  6673.  .db %00000000,%00000000
  6674.  .db %00000011,%11000000
  6675.  .db %00000110,%10100000
  6676.  .db %00001101,%01100000
  6677.  .db %00011010,%11010000
  6678.  .db %00001001,%01100000
  6679.  .db %00011010,%11010000
  6680.  .db %00001111,%10100000
  6681.  .db %00010101,%00100000
  6682.  .db %00001111,%11000000
  6683.  .db %00000100,%00100000
  6684.  .db %00000000,%00000000
  6685.  .db %00000000,%00000000
  6686.  
  6687. SireSpell2:
  6688.  .db 2,1,16
  6689.  .db %00000000,%00000000
  6690.  .db %00000000,%00000000
  6691.  .db %00000100,%00100100
  6692.  .db %00000010,%01000110
  6693.  .db %01000011,%01101000
  6694.  .db %00110110,%10101100
  6695.  .db %00011101,%11110100
  6696.  .db %00011010,%01011000
  6697.  .db %00001010,%11100000
  6698.  .db %00010111,%01010000
  6699.  .db %00101111,%10110000
  6700.  .db %01111100,%11001000
  6701.  .db %00001011,%00110100
  6702.  .db %00010101,%11100000
  6703.  .db %00011000,%00010000
  6704.  .db %00000000,%00000000
  6705.  
  6706. SireSpell3:
  6707.  .db 2,1,16
  6708.  .db %00001000,%00100001
  6709.  .db %00001100,%01100010
  6710.  .db %00000110,%11000110
  6711.  .db %10000101,%10111010
  6712.  .db %11100110,%10101100
  6713.  .db %01011101,%11111000
  6714.  .db %00101010,%01010000
  6715.  .db %00011010,%11100000
  6716.  .db %00010111,%01010000
  6717.  .db %00101011,%10110000
  6718.  .db %01101101,%11001000
  6719.  .db %10011011,%01110100
  6720.  .db %00010101,%10101100
  6721.  .db %00101011,%01010010
  6722.  .db %01011001,%11100000
  6723.  .db %01100000,%00010000
  6724.  
  6725. DoomSpell:
  6726.  .db 2,1,14
  6727.  .db %00000000,%01000000
  6728.  .db %00001100,%01100000
  6729.  .db %00010110,%01110000
  6730.  .db %00110001,%01011000
  6731.  .db %00110110,%01001000
  6732.  .db %00110110,%01000000
  6733.  .db %01001010,%11000000
  6734.  .db %01010101,%11000000
  6735.  .db %01010111,%10000000
  6736.  .db %10101011,%01000000
  6737.  .db %11101101,%01000000
  6738.  .db %11000100,%11000000
  6739.  .db %10101101,%10100000
  6740.  .db %01111111,%11110000
  6741.  
  6742. ENEMY4:
  6743.  .db 2,1,16
  6744.  .db %00011100, %00000000
  6745.  .db %00111110, %00000000
  6746.  .db %01100110, %11000000
  6747.  .db %11001100, %10110000
  6748.  .db %11100001, %10101100
  6749.  .db %11010111, %01101000
  6750.  .db %01111111, %11010000
  6751.  .db %01111010, %10110100
  6752.  .db %01100100, %11011010
  6753.  .db %01101111, %00111011
  6754.  .db %01010100, %01010101
  6755.  .db %11010111, %11111011
  6756.  .db %10110101, %01010001
  6757.  .db %01101101, %10000010
  6758.  .db %01011001, %01010000
  6759.  .db %00010000, %11100000
  6760.  
  6761. ENEMY3:
  6762.  .db 2,1,16
  6763.  .db %11000111, %11100011
  6764.  .db %01011111, %11111010
  6765.  .db %10101000, %10010101
  6766.  .db %01010101, %01001010
  6767.  .db %01100010, %00000110
  6768.  .db %11001011, %11011011
  6769.  .db %11101100, %01100111
  6770.  .db %11010101, %10101011
  6771.  .db %11100101, %10110111
  6772.  .db %11001110, %00101011
  6773.  .db %11011011, %11000011
  6774.  .db %01100101, %10100110
  6775.  .db %01011011, %11011010
  6776.  .db %00110110, %01101100
  6777.  .db %01010010, %01001010
  6778.  .db %11100000, %00000111
  6779.  
  6780. ENEMY2:
  6781.  .db 2,1,16
  6782.  .db %00000010, %00010000
  6783.  .db %00000111, %00101000
  6784.  .db %00001111, %10010010
  6785.  .db %00011111, %11000101
  6786.  .db %00011111, %11100010
  6787.  .db %00111111, %11110000
  6788.  .db %00111101, %10111000
  6789.  .db %01111101, %10111000
  6790.  .db %01111011, %01111100
  6791.  .db %11111011, %01111110
  6792.  .db %11111001, %00111110
  6793.  .db %11111111, %11111110
  6794.  .db %11111111, %11111110
  6795.  .db %11111110, %00011110
  6796.  .db %11111111, %11111100
  6797.  .db %01111111, %11111000
  6798.  
  6799. ENEMY1:
  6800.  .db 2,1,16
  6801.  .db %00111111, %11111100
  6802.  .db %01001100, %01101010
  6803.  .db %10010010, %10010001
  6804.  .db %11011010, %11010101
  6805.  .db %10111110, %11110011
  6806.  .db %11001100, %01100001
  6807.  .db %10100001, %00110101
  6808.  .db %11011010, %10001001
  6809.  .db %10101010, %10110001
  6810.  .db %10001001, %01001010
  6811.  .db %01000100, %00100100
  6812.  .db %10111111, %11111010
  6813.  .db %10010010, %10010010
  6814.  .db %10101111, %11101000
  6815.  .db %00101010, %10101000
  6816.  .db %01000111, %11001000
  6817.  
  6818. ENEMY8:
  6819.  .db 2,1,16
  6820.  .db %00000111, %11000000
  6821.  .db %00011111, %11110000
  6822.  .db %00110011, %10011000
  6823.  .db %01110011, %10011100
  6824.  .db %01101011, %01011100
  6825.  .db %11101011, %01011110
  6826.  .db %11100111, %00111110
  6827.  .db %11111111, %11111110
  6828.  .db %11101111, %11101110
  6829.  .db %11101111, %11101110
  6830.  .db %01101010, %10101100
  6831.  .db %01101010, %10101100
  6832.  .db %00110010, %10011000
  6833.  .db %00011000, %00110000
  6834.  .db %00000111, %11000000
  6835.  .db %00000000, %00000000
  6836. ENEMY7:
  6837.  .db 2,1,16
  6838.  .db %11111111, %11100000
  6839.  .db %11011011, %01100000
  6840.  .db %10101010, %10101110
  6841.  .db %11011011, %01110001
  6842.  .db %10101010, %10101011
  6843.  .db %10000000, %00101011
  6844.  .db %11111011, %11100101
  6845.  .db %11011011, %01110010
  6846.  .db %10101010, %10110110
  6847.  .db %11011011, %01101110
  6848.  .db %10101010, %10111100
  6849.  .db %11011011, %01111000
  6850.  .db %10101010, %10100000
  6851.  .db %11011011, %01100000
  6852.  .db %01101010, %11000000
  6853.  .db %00011111, %00000000
  6854. ENEMY6:
  6855.  .db 2,1,16
  6856.  .db %01010000, %00100010
  6857.  .db %01000011, %00100101
  6858.  .db %00100111, %10000010
  6859.  .db %10100110, %10001000
  6860.  .db %10001111, %10011101
  6861.  .db %10001111, %00111001
  6862.  .db %00011010, %11110001
  6863.  .db %01011011, %11000010
  6864.  .db %01011001, %01001010
  6865.  .db %00010101, %10101000
  6866.  .db %00011000, %10100000
  6867.  .db %10110110, %01100100
  6868.  .db %10110000, %01010101
  6869.  .db %00111010, %11010001
  6870.  .db %00110010, %00101000
  6871.  .db %01111111, %11111100
  6872. ENEMY5:
  6873.  .db 2,1,16
  6874.  .db %10000100, %00000000
  6875.  .db %01010000, %11100100
  6876.  .db %01001001, %10010010
  6877.  .db %00100011, %11110000
  6878.  .db %00100001, %00010010
  6879.  .db %10010000, %10100001
  6880.  .db %01011001, %01111100
  6881.  .db %00001101, %11010100
  6882.  .db %01000111, %01111100
  6883.  .db %00101010, %01010100
  6884.  .db %00000111, %01010101
  6885.  .db %00001001, %00111000
  6886.  .db %00011110, %11010000
  6887.  .db %00010101, %10100010
  6888.  .db %00101100, %01010001
  6889.  .db %01111000, %00111000
  6890.  
  6891. ENEMYGIMP:
  6892.  .db 2,1,16
  6893.  .db %00100000,%00000111
  6894.  .db %01010000,%10001110
  6895.  .db %10101001,%01001100
  6896.  .db %01010001,%11001110
  6897.  .db %00100010,%10100111
  6898.  .db %00100001,%01000000
  6899.  .db %00100111,%11110000
  6900.  .db %00101110,%10111000
  6901.  .db %00101010,%10011000
  6902.  .db %00110110,%10110100
  6903.  .db %00101010,%10011010
  6904.  .db %01110110,%10110101
  6905.  .db %01110111,%11110011
  6906.  .db %00100110,%10110001
  6907.  .db %00100110,%10110000
  6908.  .db %00100100,%10010000
  6909. ENEMY9:
  6910.  .db 2,1,16
  6911.  .db %00001111, %10000010
  6912.  .db %10110001, %01100101
  6913.  .db %01001110, %11110010
  6914.  .db %01010101, %00011000
  6915.  .db %01000101, %00110110
  6916.  .db %10100111, %01010011
  6917.  .db %10111111, %11101101
  6918.  .db %11011100, %11001010
  6919.  .db %10111101, %11111001
  6920.  .db %10011111, %11001110
  6921.  .db %01010111, %11110010
  6922.  .db %01101101, %10011100
  6923.  .db %01010101, %00010000
  6924.  .db %01101110, %10100010
  6925.  .db %00111001, %01100101
  6926.  .db %00011111, %10000010
  6927. ENEMY10:
  6928.  .db 2,1,16
  6929.  .db %00000000, %10111100
  6930.  .db %00001001, %01111010
  6931.  .db %00000111, %01101110
  6932.  .db %00000010, %11111101
  6933.  .db %00111100, %11011011
  6934.  .db %01111010, %10111111
  6935.  .db %01011110, %11101011
  6936.  .db %11110111, %10110101
  6937.  .db %11111111, %11111111
  6938.  .db %10101101, %01010110
  6939.  .db %11111111, %01111110
  6940.  .db %11110101, %00110000
  6941.  .db %11011111, %00000100
  6942.  .db %01101110, %00000100
  6943.  .db %01111010, %00001100
  6944.  .db %00111100, %00111100
  6945. ENEMY11:
  6946.  .db 2,1,16
  6947.  .db %00000010, %10010100
  6948.  .db %00100010, %10100101
  6949.  .db %00110100, %00000001
  6950.  .db %00101100, %01111110
  6951.  .db %10101000, %11000001
  6952.  .db %10011001, %10111001
  6953.  .db %01000011, %01010001
  6954.  .db %00011110, %00100101
  6955.  .db %00101000, %00001001
  6956.  .db %00111111, %00000001
  6957.  .db %00101000, %10100110
  6958.  .db %01000001, %11101100
  6959.  .db %11111011, %00111101
  6960.  .db %01010110, %00010101
  6961.  .db %10110000, %00101000
  6962.  .db %01010000, %00001010
  6963. ENEMY15:
  6964.  .db 2,1,16
  6965.  .db %00000111,%11100000
  6966.  .db %00001111,%11110000
  6967.  .db %00011100,%10010000
  6968.  .db %00101111,%11100000
  6969.  .db %01011011,%01100000
  6970.  .db %11101111,%01100000
  6971.  .db %10111010,%10100001
  6972.  .db %11010011,%01100001
  6973.  .db %10110010,%00100111
  6974.  .db %11101001,%01001011
  6975.  .db %01011100,%00010110
  6976.  .db %00110110,%00101100
  6977.  .db %00011101,%01111000
  6978.  .db %00001011,%11101000
  6979.  .db %00000110,%10110000
  6980.  .db %00000011,%11100000
  6981. ENEMY14:
  6982.  .db 2,1,16
  6983.  .db %00000000,%00000000
  6984.  .db %00000000,%00000011
  6985.  .db %00111011,%10000101
  6986.  .db %00011011,%00001010
  6987.  .db %00000000,%00010110
  6988.  .db %00000100,%00101101
  6989.  .db %00100100,%11011001
  6990.  .db %00110001,%10110100
  6991.  .db %00110011,%01101010
  6992.  .db %00101110,%11000100
  6993.  .db %00110101,%10010000
  6994.  .db %00011011,%00101000
  6995.  .db %00111110,%10010010
  6996.  .db %01010111,%11000101
  6997.  .db %10100000,%00000010
  6998.  .db %11000000,%00000000
  6999. ENEMY13:
  7000.  .db 2,1,16
  7001.  .db %10001111,%11110001
  7002.  .db %11010100,%10101011
  7003.  .db %10101001,%00001101
  7004.  .db %00110000,%00010100
  7005.  .db %00100010,%01000100
  7006.  .db %01010010,%01011010
  7007.  .db %01010010,%01000010
  7008.  .db %01001000,%00011110
  7009.  .db %01100010,%00101010
  7010.  .db %01011001,%11010100
  7011.  .db %00100100,%10001110
  7012.  .db %00111111,%11110100
  7013.  .db %01100101,%10100110
  7014.  .db %01100101,%10100110
  7015.  .db %01010010,%01001010
  7016.  .db %01010010,%01001010
  7017. ENEMY16:
  7018.  .db 2,1,16
  7019.  .db %00000000,%11111100
  7020.  .db %00000011,%11111110
  7021.  .db %00001111,%10111111
  7022.  .db %00011101,%11111111
  7023.  .db %00111011,%11100100
  7024.  .db %00110111,%11001100
  7025.  .db %00101110,%11011100
  7026.  .db %00111111,%01011010
  7027.  .db %00001111,%11100110
  7028.  .db %00010111,%11111110
  7029.  .db %00011111,%11110110
  7030.  .db %00001101,%11111100
  7031.  .db %00001111,%11111100
  7032.  .db %00011111,%11111010
  7033.  .db %01111111,%10110110
  7034.  .db %10110011,%01111111
  7035. ENEMY17:
  7036.  .db 2,1,16
  7037.  .db %00111100,%00111100
  7038.  .db %01111000,%00011110
  7039.  .db %11110000,%00001011
  7040.  .db %11010011,%10001111
  7041.  .db %10110100,%01001111
  7042.  .db %11111101,%10111011
  7043.  .db %01111011,%01011110
  7044.  .db %10011011,%11011001
  7045.  .db %01001010,%11010010
  7046.  .db %00000101,%10100001
  7047.  .db %00000010,%01100000
  7048.  .db %00011111,%11011100
  7049.  .db %11100100,%10010011
  7050.  .db %10111010,%10101101
  7051.  .db %01010101,%11010100
  7052.  .db %10001010,%10101011
  7053. ENEMY18:
  7054.  .db 2,1,16
  7055.  .db %01010000,%11110000
  7056.  .db %11100001,%11001000
  7057.  .db %00000010,%00100100
  7058.  .db %11000011,%11101010
  7059.  .db %10100010,%10100100
  7060.  .db %01010001,%11100000
  7061.  .db %00101100,%11000000
  7062.  .db %00011001,%01000001
  7063.  .db %00010110,%10110010
  7064.  .db %10000111,%01101011
  7065.  .db %01000010,%01101011
  7066.  .db %01100001,%10111010
  7067.  .db %10100011,%10101011
  7068.  .db %01100101,%00110010
  7069.  .db %10100101,%10101011
  7070.  .db %11101101,%01111011
  7071. ENEMY19:
  7072.  .db 2,1,16
  7073.  .db %01111111,%11111110
  7074.  .db %11111010,%01011111
  7075.  .db %10110001,%00001101
  7076.  .db %10110101,%10101101
  7077.  .db %10110101,%10101101
  7078.  .db %11010000,%10001011
  7079.  .db %11111010,%01011111
  7080.  .db %01111100,%00111110
  7081.  .db %01111100,%00111110
  7082.  .db %11011010,%01011011
  7083.  .db %10110000,%10001101
  7084.  .db %10110101,%10101101
  7085.  .db %10110101,%10101101
  7086.  .db %11110001,%00001111
  7087.  .db %11111010,%01011111
  7088.  .db %01111111,%11111110
  7089. ENEMY20:
  7090.  .db 2,1,16
  7091.  .db %00000000,%00110000
  7092.  .db %00000000,%01111000
  7093.  .db %00000000,%11111100
  7094.  .db %00111100,%11001100
  7095.  .db %01111110,%10110100
  7096.  .db %11100110,%11001110
  7097.  .db %10011001,%11111110
  7098.  .db %11001011,%10110101
  7099.  .db %11100111,%11001101
  7100.  .db %11100111,%01111011
  7101.  .db %11100111,%00110011
  7102.  .db %11100111,%11111101
  7103.  .db %11100111,%10101011
  7104.  .db %01100110,%11010111
  7105.  .db %01100110,%10101010
  7106.  .db %00111101,%01010111
  7107. ENEMY21:
  7108.  .db 2,1,16
  7109.  .db %00000110,%01100000
  7110.  .db %00001101,%01011000
  7111.  .db %00001111,%00110100
  7112.  .db %00000110,%00011110
  7113.  .db %01010000,%00001101
  7114.  .db %10101000,%00000111
  7115.  .db %11111100,%00011111
  7116.  .db %10101011,%11111101
  7117.  .db %11111010,%11011011
  7118.  .db %01110111,%10111011
  7119.  .db %00101101,%11110101
  7120.  .db %00001111,%11110110
  7121.  .db %00011010,%10111101
  7122.  .db %00110001,%00011001
  7123.  .db %01100011,%00011010
  7124.  .db %11000110,%00110000
  7125. ENEMY22:
  7126.  .db 2,1,16
  7127.  .db %10001000,%01010000
  7128.  .db %01010000,%11100100
  7129.  .db %10001001,%00001000
  7130.  .db %01101111,%00110100
  7131.  .db %00111111,%11000001
  7132.  .db %01111111,%11100010
  7133.  .db %01111111,%11101101
  7134.  .db %11100111,%11111000
  7135.  .db %11000011,%11110101
  7136.  .db %11011011,%11110000
  7137.  .db %11011011,%11110110
  7138.  .db %11011011,%11110000
  7139.  .db %01100111,%11110110
  7140.  .db %01111111,%11101001
  7141.  .db %00111111,%11000100
  7142.  .db %00001111,%00100010
  7143. ENEMY23:
  7144.  .db 2,1,16
  7145.  .db %01111100,%00001100
  7146.  .db %10101010,%00001100
  7147.  .db %11000110,%01111111
  7148.  .db %10010010,%01111111
  7149.  .db %01010100,%00001100
  7150.  .db %00111000,%00011100
  7151.  .db %11101100,%01101110
  7152.  .db %11000110,%11101110
  7153.  .db %10111111,%11011100
  7154.  .db %11110011,%10101100
  7155.  .db %11011111,%11001100
  7156.  .db %11011011,%01001100
  7157.  .db %11110011,%01001100
  7158.  .db %11110111,%10001100
  7159.  .db %10111111,%00001100
  7160.  .db %11101111,%00001100
  7161. ENEMY24:
  7162.  .db 2,1,16
  7163.  .db %01111111,%11000100
  7164.  .db %11100111,%01101000
  7165.  .db %11010011,%01101000
  7166.  .db %01011011,%11001000
  7167.  .db %00100100,%00001100
  7168.  .db %00111100,%10001110
  7169.  .db %00000011,%00000110
  7170.  .db %00000111,%00100011
  7171.  .db %00100111,%01100011
  7172.  .db %01100111,%00001011
  7173.  .db %11000111,%00110011
  7174.  .db %11000011,%10000110
  7175.  .db %11010000,%11001000
  7176.  .db %11011000,%00100010
  7177.  .db %11101011,%11111110
  7178.  .db %01111100,%11111100
  7179. ENEMY25:
  7180.  .db 2,1,16
  7181.  .db %01110011,%11011110
  7182.  .db %11000000,%01010011
  7183.  .db %10011111,%11111000
  7184.  .db %10110010,%00001101
  7185.  .db %00100111,%11100101
  7186.  .db %10101100,%00110100
  7187.  .db %10101001,%10011111
  7188.  .db %11100010,%11010001
  7189.  .db %00001011,%01000111
  7190.  .db %11111001,%10010101
  7191.  .db %10101100,%00110100
  7192.  .db %10100111,%11100101
  7193.  .db %00110000,%01001101
  7194.  .db %10011111,%11111001
  7195.  .db %11000101,%00000011
  7196.  .db %01111101,%11100110
  7197. BlankEnemy:
  7198.  .db 2,1,16
  7199.  .db %00000000, %00000000
  7200.  .db %00000000, %00000000
  7201.  .db %00000000, %00000000
  7202.  .db %00000000, %00000000
  7203.  .db %00000000, %00000000
  7204.  .db %00000000, %00000000
  7205.  .db %00000000, %00000000
  7206.  .db %00000000, %00000000
  7207.  .db %00000000, %00000000
  7208.  .db %00000000, %00000000
  7209.  .db %00000000, %00000000
  7210.  .db %00000000, %00000000
  7211.  .db %00000000, %00000000
  7212.  .db %00000000, %00000000
  7213.  .db %00000000, %00000000
  7214.  .db %00000000, %00000000
  7215.  
  7216. EnemyDead:
  7217.  .db 2,1,16
  7218.  .db %10001010, %10100100
  7219.  .db %01010110, %10101000
  7220.  .db %00101101, %11001001
  7221.  .db %01110101, %11010010
  7222.  .db %10011111, %11100100
  7223.  .db %01101111, %11011010
  7224.  .db %10011111, %11100101
  7225.  .db %01101111, %11111010
  7226.  .db %00111111, %11111100
  7227.  .db %01101111, %11110011
  7228.  .db %11011111, %11001100
  7229.  .db %00111101, %11110010
  7230.  .db %11110110, %10101100
  7231.  .db %00101011, %11010010
  7232.  .db %01010010, %10101000
  7233.  .db %00000101, %00100000
  7234.  
  7235. Leader1:
  7236.  .db 3,1,23
  7237.  .db %10001001,%00000000,%10100000
  7238.  .db %00010000,%00111100,%00001100
  7239.  .db %01000100,%01000010,%01011010
  7240.  .db %00010000,%11011001,%00011110
  7241.  .db %10000001,%00111101,%11001100
  7242.  .db %00001011,%01110101,%01100000
  7243.  .db %01010010,%11101100,%10110001
  7244.  .db %10000011,%11111101,%11010100
  7245.  .db %00100101,%11111001,%01110000
  7246.  .db %10000101,%11110010,%10110010
  7247.  .db %00001110,%11100101,%11010001
  7248.  .db %00011111,%00001111,%01110000
  7249.  .db %00111110,%10011110,%10110100
  7250.  .db %01111010,%00111101,%11010000
  7251.  .db %11110010,%01111001,%01110000
  7252.  .db %10100010,%11110111,%10100000
  7253.  .db %01000000,%10100101,%01001000
  7254.  .db %00000010,%01001011,%11101010
  7255.  .db %00000001,%00011011,%10000000
  7256.  .db %00000000,%11001111,%00000000
  7257.  .db %00000000,%11011001,%00000000
  7258.  .db %00000000,%01111111,%10000000
  7259.  .db %00000000,%11010101,%10000000
  7260.  
  7261. Leader2:
  7262.  .db 3,1,23
  7263.  .db %01001000, %11100100, %00100000
  7264.  .db %01100001, %11110010, %01100000
  7265.  .db %01110010, %11101000, %11100000
  7266.  .db %00011010, %10101000, %10100000
  7267.  .db %00101001, %00011010, %11000000
  7268.  .db %10101001, %01010001, %01000000
  7269.  .db %00101000, %10100101, %10010000
  7270.  .db %10010101, %11110001, %10100000
  7271.  .db %00101110, %11101111, %00000000
  7272.  .db %01011011, %01010110, %01000000
  7273.  .db %00011001, %01011001, %00010000
  7274.  .db %00010101, %11010110, %00101000
  7275.  .db %00011010, %00000101, %00010000
  7276.  .db %00010001, %01011110, %10000000
  7277.  .db %10001110, %00010001, %10000000
  7278.  .db %00000111, %01000110, %10000000
  7279.  .db %00100100, %01100000, %01010000
  7280.  .db %10000011, %10001010, %01000000
  7281.  .db %00010000, %11010010, %10000000
  7282.  .db %00000000, %00110101, %10000000
  7283.  .db %00000000, %00011100, %10000000
  7284.  .db %00000000, %00000110, %10000000
  7285.  .db %00000000, %00000001, %11000000
  7286.  
  7287. Leader5:
  7288.  .db 4,1,23
  7289.  .db %11111100,%00110001,%01010100,%00100000
  7290.  .db %00001000,%00101000,%11111001,%00010010
  7291.  .db %11110001,%00010100,%10101000,%10001001
  7292.  .db %01010000,%10001010,%01110000,%00000000
  7293.  .db %10010000,%00000101,%01111111,%10000010
  7294.  .db %00110100,%10000010,%11011101,%10001001
  7295.  .db %01010010,%01000001,%11011010,%10100100
  7296.  .db %10010000,%00100000,%10101101,%10010010
  7297.  .db %00110001,%00001111,%11111111,%00000000
  7298.  .db %01010101,%10110000,%01011111,%10000000
  7299.  .db %10010111,%11010101,%10110100,%11110010
  7300.  .db %00110101,%00100010,%01011100,%00111001
  7301.  .db %01010011,%11001100,%01011001,%00101100
  7302.  .db %10010010,%10000100,%11110010,%10110100
  7303.  .db %00110010,%01110001,%11100110,%01100100
  7304.  .db %01010010,%01001101,%00100010,%10011010
  7305.  .db %10010010,%10001011,%11011110,%01010110
  7306.  .db %00110011,%00001010,%10100011,%01101010
  7307.  .db %01010000,%00011101,%10100011,%01100101
  7308.  .db %11110000,%00010100,%11000010,%11010011
  7309.  .db %00001000,%00011000,%11000110,%00100001
  7310.  .db %11111000,%00011000,%10000100,%00100000
  7311.  .db %11111100,%00101001,%01001010,%01010000
  7312.  
  7313. Leader3:
  7314.  .db 9,1,19
  7315.  .db %00000001,%11000000,%00001110,%00001111,%11111100,%00011100,%00000000,%00000000,%00000000
  7316.  .db %00000010,%10110000,%00011011,%00011010,%10110110,%00110110,%00000000,%01100000,%00000000
  7317.  .db %00000101,%11101110,%00010101,%00110101,%11001011,%00101010,%00000101,%11000000,%00000000
  7318.  .db %00001011,%10111001,%11011111,%01101001,%10101101,%10010110,%00011010,%01111000,%00000000
  7319.  .db %00010010,%11010100,%10111111,%10001010,%01010010,%10111110,%01100100,%10011100,%00000000
  7320.  .db %00001011,%10101011,%01101111,%11101010,%11010010,%11111111,%10011000,%11110110,%00000000
  7321.  .db %00101101,%01011000,%11000111,%01001100,%11101100,%01111110,%00100001,%11101011,%00000000
  7322.  .db %00110111,%10101111,%00100110,%10100100,%11100100,%00111000,%01000011,%01100100,%10000000
  7323.  .db %00011101,%00011010,%11011001,%00101101,%01011110,%01110001,%10001110,%10010010,%01100000
  7324.  .db %01100111,%00001101,%00111101,%01001101,%01111001,%00010010,%01110110,%10010101,%00110000
  7325.  .db %00101010,%00000110,%10000110,%01010101,%11111111,%10001101,%10001101,%00001110,%10011000
  7326.  .db %01001100,%00000011,%01010010,%10100010,%11011010,%01011110,%00010110,%00001101,%01001000
  7327.  .db %01010100,%00000001,%10101100,%10100011,%10001110,%11111000,%00101100,%00000100,%10100100
  7328.  .db %01111000,%00000001,%01010111,%01000010,%01010010,%00100000,%11001000,%00000100,%11011010
  7329.  .db %11101000,%00000000,%10110001,%01000000,%10000000,%00011001,%00010000,%00000011,%00101101
  7330.  .db %10111000,%00000000,%01011000,%10000010,%10001010,%00001110,%00010000,%00000011,%01100110
  7331.  .db %01010000,%00000000,%00110100,%10000010,%00001000,%00000101,%11100000,%00000001,%10110011
  7332.  .db %01010000,%00000000,%00011011,%00000000,%00000000,%00000000,%01000000,%00000001,%00001001
  7333.  .db %01010000,%00000000,%00001110,%00000000,%00000000,%00000000,%10100000,%00000000,%11000100
  7334.  
  7335. Leader6:
  7336.  .db 9,1,19
  7337.  .db %00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%11111000,%00000000,%00000001
  7338.  .db %00001111,%00000000,%00000000,%00000000,%00000000,%00000011,%11111110,%00000000,%00000011
  7339.  .db %00011110,%11000000,%00000000,%00000000,%00000000,%00000101,%00110011,%10000000,%00000101
  7340.  .db %00111111,%01110000,%00000000,%00101111,%00000000,%00001110,%11001111,%11000000,%00001011
  7341.  .db %01111101,%11111000,%00000001,%11111101,%10000000,%00010100,%10011111,%11100000,%00010101
  7342.  .db %01101110,%01111111,%00000011,%11101110,%11000000,%00111000,%10111110,%11110000,%00111010
  7343.  .db %10111011,%11101111,%10000111,%11101011,%11000000,%00110010,%01111110,%10110000,%01111110
  7344.  .db %10011111,%11111110,%01111111,%10100111,%11110000,%11110110,%11111110,%10111110,%01100100
  7345.  .db %10101111,%00111111,%11111110,%01110000,%11111001,%11100111,%11110111,%01011111,%11011100
  7346.  .db %01111110,%10001111,%01101111,%11111111,%11111111,%11110111,%11000001,%10101111,%11010100
  7347.  .db %00110101,%11000111,%11101010,%11111011,%11011111,%11101001,%10000001,%11111001,%11101000
  7348.  .db %00011111,%11110011,%11010111,%11110011,%11101111,%11100011,%00000000,%11110011,%00111000
  7349.  .db %00010111,%11011000,%11111011,%10000000,%10110001,%11001110,%00000000,%01101100,%01110000
  7350.  .db %00000011,%11011000,%00111110,%00000000,%01011111,%11111100,%00000000,%00011001,%11100000
  7351.  .db %00000011,%00111000,%00000000,%00000000,%00111101,%11110000,%00000000,%00000111,%10000000
  7352.  .db %00000011,%11111100,%00000000,%00000000,%00011111,%11000000,%00000000,%00000000,%00000000
  7353.  .db %00000000,%11111100,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
  7354.  .db %00000000,%00111110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
  7355.  .db %00000000,%00000110,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
  7356.  
  7357. Leader7:
  7358.  .db 9,1,19
  7359.  .db %01000000,%00001000,%00000000,%00000000,%11111111,%00000000,%00000000,%00010000,%00000010
  7360.  .db %10000001,%00011100,%01000000,%00000001,%11111111,%10000000,%00000010,%00111000,%10000001
  7361.  .db %10000011,%10001000,%11100100,%00000011,%11111111,%11000000,%00100111,%00010001,%11000001
  7362.  .db %11110001,%00000000,%01001110,%00000011,%11011011,%11000000,%01110010,%00000000,%10001111
  7363.  .db %01011000,%00000000,%00000100,%01000111,%01111110,%11100010,%00100000,%00000000,%00011010
  7364.  .db %01001100,%00011110,%00000000,%11100101,%11011011,%10100111,%00000000,%01111000,%00110010
  7365.  .db %01100000,%01100001,%11110000,%01000111,%01111110,%11100010,%00001111,%10000110,%00000110
  7366.  .db %00100000,%10000000,%00001100,%00001101,%11111111,%10110000,%00110000,%00000001,%00000100
  7367.  .db %00010011,%00011100,%00000011,%00011111,%11111111,%11111000,%11000000,%00111000,%11001000
  7368.  .db %00000110,%01000011,%00100001,%11111101,%11111111,%10111111,%10000100,%11000010,%01100000
  7369.  .db %00001100,%10000100,%10001100,%00011001,%10100101,%10011000,%00110001,%00100001,%00110000
  7370.  .db %00011110,%00100000,%01010000,%00110100,%10100101,%00101100,%00001010,%00000100,%01111000
  7371.  .db %00100001,%10110000,%00110011,%10001000,%11000011,%00010001,%11001100,%01101100,%00000100
  7372.  .db %01001100,%11010000,%00000000,%00000100,%01000010,%00100000,%00000001,%11001010,%00110010
  7373.  .db %10011011,%01001000,%00111000,%00001010,%01000010,%01010000,%00011100,%00010010,%11011001
  7374.  .db %10111110,%11000100,%00000001,%11110111,%00000000,%11100111,%10000000,%00100011,%01111101
  7375.  .db %10101010,%10100110,%11010100,%01101110,%11111111,%01110110,%00101011,%01100101,%01010101
  7376.  .db %01010101,%01010101,%01010101,%10011111,%10110110,%11111001,%10101010,%10101010,%10101010
  7377.  .db %00110011,%00110010,%10101010,%00111111,%11111111,%11111100,%01010101,%01001100,%11001100
  7378.  
  7379. endpic:
  7380.  .db 7,1,56
  7381.  .db %00000000,%00000000,%00011000,%00000000,%10000011,%11111111,%11100000
  7382.  .db %00000000,%00000000,%00001111,%00011101,%11111111,%00111111,%11111000
  7383.  .db %00000000,%00000111,%11110001,%11101111,%00000000,%11111111,%11111111
  7384.  .db %00000000,%00011111,%11111101,%11101000,%00000001,%11111111,%11111111
  7385.  .db %00000000,%00001111,%11111111,%00000000,%00000111,%11111111,%11111111
  7386.  .db %00000000,%01111111,%11111111,%11000000,%00111111,%11111011,%00111011
  7387.  .db %00000000,%01111110,%01111111,%10000000,%00111111,%11111111,%11111111
  7388.  .db %00000000,%00111111,%11111111,%10000000,%01111111,%11111111,%11111111
  7389.  .db %00000000,%00111111,%11111111,%00010000,%11111101,%11111111,%11111111
  7390.  .db %00000000,%01111111,%11111111,%10010000,%01111111,%11111111,%11111111
  7391.  .db %00000001,%11111111,%11111111,%11110000,%00111111,%11111111,%11111111
  7392.  .db %00000011,%11111111,%11101111,%11111111,%11111111,%11111111,%11111111
  7393.  .db %00000111,%11111111,%11011100,%11111111,%11111111,%11111111,%11111110
  7394.  .db %11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%11111001
  7395.  .db %01111111,%01111111,%11111111,%11111111,%11111111,%01111111,%11111111
  7396.  .db %00111101,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111
  7397.  .db %00101011,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111
  7398.  .db %00011111,%11111111,%11111111,%11111111,%11110111,%11111111,%11001111
  7399.  .db %00010111,%11111111,%11111111,%11111111,%11111111,%11111111,%10000011
  7400.  .db %00011111,%11111111,%11111111,%11111111,%11111111,%11111111,%00000011
  7401.  .db %00111111,%10101111,111111111,%11111111,%11101111,%11111110,%00000011
  7402.  .db %00111111,%11011111,%11111111,%11111111,%11111111,%11111100,%00000011
  7403.  .db %00111111,%10111111,%11111111,%11111111,%11111111,%11111100,%00000111
  7404.  .db %00011111,%11111111,%11111111,%11111111,%11111111,%01111000,%00000111
  7405.  .db %00001111,%11111111,%11111111,%11011111,%11111110,%11111000,%00000110
  7406.  .db %00000011,%11111111,%11111111,%11111111,%10110000,%11100000,%00001100
  7407.  .db %00000000,%00011111,%11100111,%00011111,%11111100,%11000000,%00001001
  7408.  .db %00000000,%00001111,%00000111,%11111111,%11111111,%11110000,%00000110
  7409.  .db %00000000,%00000110,%01000111,%11111111,%11111111,%11111111,%00111111
  7410.  .db %00000000,%00000010,%01100001,%00000011,%01111111,%11100000,%00001111
  7411.  .db %00000000,%00000010,%01000000,%10000011,%11111011,%11100000,%00000101
  7412.  .db %00000000,%00000001,%01001100,%00100010,%11011000,%10000000,%00001111
  7413.  .db %00000000,%00000001,%01000010,%00011111,%11111000,%00000111,%00000000
  7414.  .db %00000000,%00000001,%01000110,%00000000,%00000000,%01000011,%01000000
  7415.  .db %00000000,%00000000,%01100111,%00000001,%00000000,%00000011,%00000011
  7416.  .db %00000000,%00000000,%00010100,%00000000,%10000000,%00000010,%00000000
  7417.  .db %00000000,%00000000,%00001001,%10000000,%00000000,%00000010,%00000000
  7418.  .db %00000000,%00000000,%00000100,%01000000,%00000000,%00000111,%01000000
  7419.  .db %00000000,%00000000,%00000001,%11100000,%00100000,%00001111,%10000000
  7420.  .db %00000000,%00000000,%00000000,%11110000,%00000000,%00001110,%00000000
  7421.  .db %00000000,%00000000,%00000000,%00110000,%00001000,%00000000,%00000000
  7422.  .db %00000000,%00000000,%00000000,%00011000,%00000000,%00000000,%00000000
  7423.  .db %00000000,%00000000,%00000000,%00001100,%00000000,%00000000,%00000000
  7424.  .db %00000000,%00000000,%00000000,%00000110,%00000000,%00000000,%00000000
  7425.  .db %00000000,%00000000,%00000000,%00000111,%00000000,%0000011,%110000000
  7426.  .db %00000000,%00000000,%00000111,%01111110,%01100000,%00000000,%00000000
  7427.  .db %00000000,%00000000,%01111100,%11000111,%00111000,%00000000,%00000000
  7428.  .db %00000000,%11111111,%11100000,%01111010,%10000100,%00000000,%00000001
  7429.  .db %00000010,%01111110,%11000000,%00011110,%00001000,%00000000,%00000110
  7430.  .db %00000111,%11111100,%10000000,%00000111,%00000000,%01000000,%00011000
  7431.  .db %00001111,%11100001,%00000000,%00000001,%10000000,%10111111,%11100000
  7432.  .db %00111111,%11100001,%00000000,%11000000,%00100000,%00100111,%10000000
  7433.  .db %01111111,%11101111,%11111111,%11100000,%00011000,%00000000,%10000001
  7434.  .db %01111000,%01111111,%11111111,%11111111,%00000111,%00000000,%00000110
  7435.  .db %10000000,%00001000,%11111111,%11111100,%00011011,%10001100,%00001000
  7436.  .db %11111111,%11111111,%11111111,%11111111,%00000000,%11100010,%00010001
  7437.     
  7438. KuraiPortrait:
  7439.  .db 3,1,29
  7440.  .db %00000000, %01101100, %00000000
  7441.  .db %00001011, %10111100, %00000000
  7442.  .db %00000101, %01010100, %00000000
  7443.  .db %00000010, %11101010, %00000000
  7444.  .db %00000011, %11011100, %00000000
  7445.  .db %00000101, %01010100, %00000000
  7446.  .db %00000000, %10001000, %00000000
  7447.  .db %00000000, %01010000, %00000000
  7448.  .db %00000000, %01001000, %00000000
  7449.  .db %00001111, %10011111, %11000000
  7450.  .db %00010011, %01000011, %00100000
  7451.  .db %00111011, %10011001, %11110000
  7452.  .db %00000100, %10010010, %01000000
  7453.  .db %00001110, %00101100, %01000000
  7454.  .db %00001011, %10000111, %01000000
  7455.  .db %00001001, %00100110, %01000000
  7456.  .db %00001010, %00111100, %10100000
  7457.  .db %00001011, %01111001, %11000000
  7458.  .db %00000111, %00010011, %11000000
  7459.  .db %00001110, %11101100, %01100000
  7460.  .db %00001111, %01001100, %11100000
  7461.  .db %00011011, %01101110, %10110000
  7462.  .db %00010101, %10110111, %00010000
  7463.  .db %00111011, %01010101, %10111000
  7464.  .db %00110111, %01001100, %11001000
  7465.  .db %01100001, %11111101, %01101100
  7466.  .db %11111111, %01001110, %10110110
  7467.  .db %00001110, %11011101, %11011000
  7468.  .db %00011111, %10111111, %10001000
  7469.  
  7470. KuraiBlank:
  7471.  .db 4,6,40
  7472.  .db %00000000, %00000000, %00000000, %00000000
  7473.  .db %00000000, %00000000, %00000000, %00000000
  7474.  .db %00000000, %00000000, %00000000, %00000000
  7475.  .db %00000000, %00000000, %00000000, %00000000
  7476.  .db %00000000, %00000000, %00000000, %00000000
  7477.  .db %00000000, %00000000, %00000000, %00000000
  7478.  .db %00000000, %00000000, %00000000, %00000000
  7479.  .db %00000000, %00000000, %00000000, %00000000
  7480.  .db %00000000, %00000000, %00000000, %00000000
  7481.  .db %00000000, %00000000, %00000000, %00000000
  7482.  .db %00000000, %00000000, %00000000, %00000000
  7483.  .db %00000000, %00000000, %00000000, %00000000
  7484.  .db %00000000, %00000000, %00000000, %00000000
  7485.  .db %00000000, %00000000, %00000000, %00000000
  7486.  .db %00000000, %00000000, %00000000, %00000000
  7487.  .db %00000000, %00000000, %00000000, %00000000
  7488.  .db %00000000, %00000000, %00000000, %00000000
  7489.  .db %00000000, %00000000, %00000000, %00000000
  7490.  .db %00000000, %00000000, %00000000, %00000000
  7491.  .db %00000000, %00000000, %00000000, %00000000
  7492.  .db %00000000, %00000000, %00000000, %00000000
  7493.  .db %00000000, %00000000, %00000000, %00000000
  7494.  .db %00000000, %00000000, %00000000, %00000000
  7495.  .db %00000000, %00000000, %00000000, %00000000
  7496.  .db %00000000, %00000000, %00000000, %00000000
  7497.  .db %00000000, %00000000, %00000000, %00000000
  7498.  .db %00000000, %00000000, %00000000, %00000000
  7499.  .db %00000000, %00000000, %00000000, %00000000
  7500.  .db %00000000, %00000000, %00000000, %00000000
  7501.  .db %00000000, %00000000, %00000000, %00000000
  7502.  .db %00000000, %00000000, %00000000, %00000000
  7503.  .db %00000000, %00000000, %00000000, %00000000
  7504.  .db %00000000, %00000000, %00000000, %00000000
  7505.  .db %00000000, %00000000, %00000000, %00000000
  7506.  .db %00000000, %00000000, %00000000, %00000000
  7507.  .db %00000000, %00000000, %00000000, %00000000
  7508.  .db %00000000, %00000000, %00000000, %00000000
  7509.  .db %00000000, %00000000, %00000000, %00000000
  7510.  .db %00000000, %00000000, %00000000, %00000000
  7511.  .db %00000000, %00000000, %00000000, %00000000
  7512.  
  7513. KuraiDefend:
  7514.  .db 3,1,31
  7515.  .db %00001110, %00000000, %00000000
  7516.  .db %00000011, %11000000, %00000000
  7517.  .db %00000000, %11111000, %00000000
  7518.  .db %00000000, %00011110, %00000000
  7519.  .db %00000000, %00000111, %11000000
  7520.  .db %00000000, %00000000, %11110001
  7521.  .db %00000000, %00011110, %00111110
  7522.  .db %00000000, %00110011, %00000111
  7523.  .db %00000000, %00101000, %10000101
  7524.  .db %00000000, %01000010, %10001011
  7525.  .db %00000000, %01001001, %00000101
  7526.  .db %00000000, %00100010, %00000110
  7527.  .db %00000000, %00011100, %00001010
  7528.  .db %00000000, %00010111, %10011100
  7529.  .db %00000111, %11100011, %11101000
  7530.  .db %00001011, %11000101, %10011000
  7531.  .db %00011111, %10101110, %11110000
  7532.  .db %00000010, %10111101, %11100000
  7533.  .db %00000101, %11001111, %01000000
  7534.  .db %00001110, %11101111, %10000000
  7535.  .db %00011100, %10110110, %10000000
  7536.  .db %00101001, %11110001, %00000000
  7537.  .db %01010000, %10111110, %00000000
  7538.  .db %10100000, %11011100, %00000000
  7539.  .db %11110000, %10100100, %00000000
  7540.  .db %10000001, %10001010, %00000000
  7541.  .db %00000001, %00010110, %00000000
  7542.  .db %00000010, %11110101, %00000000
  7543.  .db %00000011, %01101011, %00000000
  7544.  .db %00000101, %01001100, %10000000
  7545.  .db %00001000, %10000110, %10000000
  7546.  
  7547. BattleMenu:
  7548.  .db 4,1,33
  7549.  .db %01111111, %11111111, %11111111, %11111111
  7550.  .db %10000000, %00000000, %00000000, %00000001
  7551.  .db %10101011, %00000000, %00000000, %00000001
  7552.  .db %10101010, %10100000, %00000000, %00000001
  7553.  .db %10111011, %00000000, %00000000, %00000001
  7554.  .db %10101010, %00100000, %00000000, %00000001
  7555.  .db %10101010, %00000000, %00000000, %00000001
  7556.  .db %10000000, %00000000, %00000000, %00000001
  7557.  .db %10011111, %11111111, %11111111, %11111001
  7558.  .db %10100000, %00000000, %00000000, %00000101
  7559.  .db %10100000, %00000000, %00000000, %00000101
  7560.  .db %10011111, %11111111, %11111111, %11111001
  7561.  .db %10000000, %00000000, %00000000, %00000001
  7562.  .db %10011111, %11101111, %11110111, %11111001
  7563.  .db %10100000, %00010000, %00001000, %00000101
  7564.  .db %10101100, %00010011, %11001011, %11000101
  7565.  .db %10100110, %00010100, %00101000, %00000101
  7566.  .db %10100011, %01010111, %11101000, %11110101
  7567.  .db %10100101, %10010101, %10101000, %00000101
  7568.  .db %10101110, %11010100, %00101011, %11100101
  7569.  .db %10100101, %01010111, %11101000, %00000101
  7570.  .db %10100000, %00010000, %00001000, %00000101
  7571.  .db %10011111, %11101111, %11110111, %11111101
  7572.  .db %10100000, %00010000, %00001000, %00000101
  7573.  .db %10101001, %01010011, %11001000, %00000101
  7574.  .db %10100100, %10010111, %01101000, %00000101
  7575.  .db %10101011, %00010111, %10101000, %00000101
  7576.  .db %10100011, %01010111, %11101000, %00000101
  7577.  .db %10100100, %10010111, %11101000, %00000101
  7578.  .db %10101010, %01010011, %11001000, %00000101
  7579.  .db %10100000, %00010000, %00001000, %00000101
  7580.  .db %10011111, %11101111, %11110111, %11111001
  7581.  .db %10000000, %00000000, %00000000, %00000001
  7582.  
  7583. PLAYER:
  7584. .DB $01,$80, $03,$C0, $02,$40, $0F,$F0                  ; PLAYER
  7585. .DB $11,$88, $3B,$DC, $3C,$3C, $1B,$DE
  7586. .DB $1A,$52, $23,$D2, $27,$F2, $46,$6C
  7587. .DB $06,$60, $0E,$70, $0E,$70, $00,$00
  7588.  
  7589. MAP:  ;; here it is...the numbers for the map, which is 36x24
  7590. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7591. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7592.  
  7593. .DB 07,07,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
  7594. .DB 02,02,02,07,02,02,07,07,02,07,07,02,00,00,07,07,07,07
  7595.  
  7596. .DB 07,02,02,07,07,07,02,02,00,00,00,00,00,00,00,00,00,00
  7597. .DB 00,00,07,07,00,02,02,02,02,02,02,02,07,07,07,07,00,07
  7598.  
  7599. .DB 07,02,02,07,04,07,02,02,02,01,01,01,01,01,07,01,01,00
  7600. .DB 00,00,07,07,00,01,02,02,02,02,02,01,07,00,00,07,00,07
  7601.  
  7602. .DB 07,02,02,07,02,07,02,01,01,01,07,07,07,07,01,01,00,00
  7603. .DB 00,00,07,00,00,01,01,01,01,01,01,01,00,00,00,07,00,07
  7604.  
  7605. .DB 07,02,02,02,02,02,02,01,01,07,02,02,07,07,01,00,00,01
  7606. .DB 07,00,07,00,00,01,01,01,03,01,01,01,00,00,00,07,00,07
  7607.  
  7608. .DB 07,02,01,01,00,00,00,00,01,07,02,02,07,01,01,00,01,07
  7609. .DB 07,00,07,00,00,01,01,01,01,01,01,01,00,00,00,00,00,07
  7610.  
  7611. .DB 07,01,02,02,00,00,00,00,01,07,07,07,01,01,01,01,07,07
  7612. .DB 01,07,07,00,00,01,01,01,01,01,01,01,00,00,00,00,00,07
  7613.  
  7614. .DB 07,00,00,00,00,02,02,00,07,02,02,02,02,02,02,07,07,00
  7615. .DB 00,00,07,00,00,00,00,01,01,01,00,00,00,00,00,00,00,07
  7616.  
  7617. .DB 07,00,00,00,00,01,02,00,02,02,02,02,02,02,07,07,01,01
  7618. .DB 01,07,07,02,00,00,00,00,00,00,00,00,00,00,01,01,01,07
  7619.  
  7620. .DB 07,00,00,00,00,00,00,00,02,02,02,02,02,07,07,02,02,00
  7621. .DB 00,04,02,02,02,00,00,00,00,00,00,00,00,00,00,00,00,07
  7622.  
  7623. .DB 07,00,02,02,00,00,00,00,02,02,06,02,07,07,02,02,02,00
  7624. .DB 07,07,02,00,00,00,00,00,00,00,00,00,00,00,01,01,01,07
  7625.  
  7626. .DB 07,00,02,00,00,00,00,00,00,02,02,07,07,02,02,02,02,00
  7627. .DB 07,00,00,00,00,07,07,02,02,02,02,02,00,00,00,00,00,07
  7628.  
  7629. .DB 05,00,00,00,00,02,00,00,02,02,07,07,02,02,02,00,00,07
  7630. .DB 07,00,00,00,00,07,01,01,05,01,01,02,00,00,00,00,00,07
  7631.  
  7632. .DB 07,00,00,02,02,00,00,00,02,02,02,02,02,00,00,00,00,07
  7633. .DB 00,00,00,00,00,07,01,02,00,02,01,02,00,00,00,02,02,07
  7634.  
  7635. .DB 07,00,00,00,00,00,02,02,02,02,00,00,00,00,00,00,00,07
  7636. .DB 01,01,00,00,00,07,07,02,00,02,02,02,00,00,02,02,02,07
  7637.  
  7638. .DB 07,00,02,00,00,02,02,02,02,02,02,00,00,00,07,00,07,07
  7639. .DB 01,01,00,00,02,02,02,02,00,02,02,02,00,00,02,07,02,07
  7640.  
  7641. .DB 07,00,02,02,02,02,02,02,02,00,02,00,00,07,01,07,07,00
  7642. .DB 00,00,00,00,02,00,00,00,00,00,07,02,00,00,07,07,07,07
  7643.  
  7644. .DB 07,02,01,01,01,01,02,02,00,00,02,00,00,01,01,07,00,00
  7645. .DB 00,00,00,00,02,06,02,02,02,02,02,02,02,00,00,00,07,07
  7646.  
  7647. .DB 07,00,01,01,04,01,02,00,00,02,02,00,01,01,01,07,07,00
  7648. .DB 00,00,00,00,02,02,02,02,02,00,00,02,02,02,02,02,02,07
  7649.  
  7650. .DB 07,01,01,01,01,01,02,00,00,00,00,01,01,02,02,02,07,01
  7651. .DB 00,00,00,00,00,00,00,02,02,02,00,00,02,00,02,00,02,07
  7652.  
  7653. .DB 07,01,01,02,02,02,02,00,00,00,01,01,02,00,00,02,07,07
  7654. .DB 01,07,07,00,00,00,02,02,02,02,02,00,02,02,00,02,02,07
  7655.  
  7656. .DB 07,07,02,02,00,00,02,02,02,01,01,02,02,00,02,00,02,07
  7657. .DB 01,01,07,07,07,02,02,02,01,01,01,01,01,02,02,02,07,07
  7658.  
  7659. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7660. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7661.  
  7662. BITMAPS:
  7663. PLAIN: ;; 00
  7664. .db 00000010b,00001000b
  7665. .db 10000000b,10000000b
  7666. .db 00010100b,00000010b
  7667. .db 00000000b,00010000b
  7668. .db 00100010b,00000000b
  7669. .db 00001000b,01000001b
  7670. .db 00000000b,00000000b
  7671. .db 01000100b,00000100b
  7672. .db 00000001b,00000000b
  7673. .db 00000000b,00101001b
  7674. .db 00001000b,00000000b
  7675. .db 00000001b,00000000b
  7676. .db 00000000b,00001001b
  7677. .db 00100100b,00000000b
  7678. .db 00001000b,00100000b
  7679. .db 10000001b,00000000b
  7680.  
  7681. HILL: ;; 01
  7682. .db 00001100b,00011000b
  7683. .db 00010010b,00101100b
  7684. .db 00101001b,01010010b
  7685. .db 01010010b,10100101b
  7686. .db 10001100b,00011000b
  7687. .db 00010010b,00100100b
  7688. .db 00101001b,01011010b
  7689. .db 01010010b,10000001b
  7690. .db 00011000b,00110000b
  7691. .db 00100100b,01001000b
  7692. .db 01001010b,10110100b
  7693. .db 10100001b,01000010b
  7694. .db 00011000b,00110101b
  7695. .db 00100100b,01001000b
  7696. .db 01010010b,10100100b
  7697. .db 10100101b,01000010b
  7698.  
  7699. FOREST: ;; 02
  7700. .db 00010000b,00000100b
  7701. .db 00111000b,00001010b
  7702. .db 01010100b,00010101b
  7703. .db 10101010b,01001110b
  7704. .db 01010100b,10100100b
  7705. .db 00010001b,01010100b
  7706. .db 00010010b,10100100b
  7707. .db 01000001b,01010000b
  7708. .db 10100000b,01000100b
  7709. .db 01010010b,01001010b
  7710. .db 10100101b,00010101b
  7711. .db 01001010b,10001110b
  7712. .db 01010111b,01010101b
  7713. .db 01001010b,10000100b
  7714. .db 00000010b,00000100b
  7715. .db 00000010b,00000000b
  7716.  
  7717. TOWERX: ;; 03
  7718. .db 00000000b,00000010b
  7719. .db 01000011b,10000010b
  7720. .db 01000100b,01000010b
  7721. .db 01100101b,01000100b
  7722. .db 00100101b,01011000b
  7723. .db 00110100b,01010100b
  7724. .db 01010101b,01100110b
  7725. .db 01101101b,01001010b
  7726. .db 10100100b,01001001b
  7727. .db 10100101b,01010000b
  7728. .db 10010101b,01000000b
  7729. .db 00000100b,01100000b
  7730. .db 00001100b,10010000b
  7731. .db 00010010b,01001100b
  7732. .db 00101100b,00100010b
  7733. .db 01001000b,00010011b
  7734.  
  7735. CAVE: ;;04
  7736. .db 00000000b,00000000b
  7737. .db 00000000b,00000000b
  7738. .db 00010000b,00000000b
  7739. .db 00101000b,01110000b
  7740. .db 01010100b,11001100b
  7741. .db 10101001b,10000110b
  7742. .db 01010011b,00000011b
  7743. .db 00010010b,01110001b
  7744. .db 00010100b,11111001b
  7745. .db 00011101b,10001101b
  7746. .db 00001011b,00110101b
  7747. .db 00010010b,00010101b
  7748. .db 00111100b,00001011b
  7749. .db 01101000b,00010101b
  7750. .db 11010110b,00111011b
  7751. .db 10101001b,11110111b
  7752.  
  7753. C1ASTLE: ;; 05
  7754. .db 00000000b,00000000b
  7755. .db 00000000b,00000000b
  7756. .db 00000101b,10100000b
  7757. .db 00000111b,11100000b
  7758. .db 10101010b,01010101b
  7759. .db 11111011b,11011111b
  7760. .db 10001100b,00110001b
  7761. .db 10101011b,11010101b
  7762. .db 10101100b,00110101b
  7763. .db 10001010b,01010001b
  7764. .db 10001001b,10010001b
  7765. .db 10101010b,01010101b
  7766. .db 10101011b,11010101b
  7767. .db 10001010b,01010001b
  7768. .db 10001011b,11010001b
  7769. .db 10001010b,01010001b
  7770.  
  7771. TOWNX: ;; 06
  7772. .db 01100000b,00011000b
  7773. .db 00011011b,00111100b
  7774. .db 00000000b,01111110b
  7775. .db 11011001b,00111100b
  7776. .db 01100110b,01011011b
  7777. .db 00011001b,10000110b
  7778. .db 01100000b,11100000b
  7779. .db 11000000b,00000000b
  7780. .db 00000111b,11111000b
  7781. .db 00001000b,00000100b
  7782. .db 00001010b,01001111b
  7783. .db 01111010b,01010000b
  7784. .db 10000100b,00010101b
  7785. .db 10000100b,00010000b
  7786. .db 10110101b,10010011b
  7787. .db 10110101b,10010011b
  7788.  
  7789. MOUNTAIN: ;; 07
  7790. .db 00000000b,00000000b
  7791. .db 00000000b,00011000b
  7792. .db 00000000b,00101000b
  7793. .db 00000000b,01010100b
  7794. .db 00001100b,01010100b
  7795. .db 00010100b,10101010b
  7796. .db 00101010b,11001010b
  7797. .db 00101010b,10000101b
  7798. .db 01010101b,00110010b
  7799. .db 01111001b,01010000b
  7800. .db 10000100b,10101000b
  7801. .db 00001010b,10101000b
  7802. .db 00010110b,11010100b
  7803. .db 00101001b,00110100b
  7804. .db 00110011b,01001100b
  7805. .db 01000100b,10000010b
  7806.  
  7807.  
  7808. MAP2:  ;; here it is...the numbers for the map, which is 36x24
  7809. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7810. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7811.  
  7812. .DB 07,00,00,00,07,00,00,00,00,00,00,00,07,07,00,00,00,00
  7813. .DB 00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7814.  
  7815. .DB 07,07,07,00,07,02,07,07,07,07,07,07,07,07,07,00,07,07 ;; 0
  7816. .DB 07,00,00,07,07,07,00,00,07,00,00,07,00,00,07,00,00,07
  7817.  
  7818. .DB 07,00,00,00,07,00,07,00,00,00,00,00,07,07,07,03,07,00 ;; 1
  7819. .DB 00,00,00,07,07,07,00,00,07,00,00,07,00,00,07,00,00,07
  7820.  
  7821. .DB 07,00,07,07,07,00,07,03,00,00,00,00,07,07,07,07,07,07 ;; 2
  7822. .DB 07,00,07,07,07,07,07,02,07,07,02,07,07,02,07,00,00,07
  7823.  
  7824. .DB 07,00,00,00,07,00,07,07,07,07,02,07,07,07,00,07,07,00 ;; 3
  7825. .DB 07,00,00,07,07,03,00,00,00,00,00,00,00,00,00,00,00,07
  7826.  
  7827. .DB 07,00,00,07,07,00,07,00,00,00,00,00,07,07,00,00,06,00 ;; 4
  7828. .DB 00,00,00,03,07,07,07,02,07,07,02,07,07,02,07,00,00,07
  7829.  
  7830. .DB 07,07,02,07,07,00,07,07,07,07,07,00,07,07,07,07,07,07 ;; 5
  7831. .DB 07,07,07,07,07,07,06,00,07,00,00,07,00,00,07,00,00,07
  7832.  
  7833. .DB 07,00,00,00,00,00,07,00,00,00,00,00,07,07,03,07,07,07 ;; 6
  7834. .DB 00,00,00,00,07,07,07,00,07,00,00,07,07,07,07,07,07,07
  7835.  
  7836. .DB 07,00,07,07,07,07,07,07,00,07,07,07,07,07,00,00,07,07 ;; 7
  7837. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7838.  
  7839. .DB 07,00,07,00,07,00,00,02,00,00,00,00,07,07,00,00,07,00 ;; 8
  7840. .DB 00,00,03,07,07,06,00,00,00,07,00,00,07,00,07,00,00,07
  7841.  
  7842. .DB 07,00,07,00,07,00,00,07,07,07,07,07,07,07,00,00,07,00
  7843. .DB 00,00,07,07,07,07,00,00,00,02,00,00,07,00,07,00,00,07
  7844.  
  7845. .DB 07,00,07,00,02,00,00,07,00,00,00,00,07,07,00,00,07,00
  7846. .DB 07,07,07,07,07,00,00,00,00,07,00,00,02,00,02,00,00,07
  7847.  
  7848. .DB 07,00,07,00,07,00,07,07,00,00,07,00,07,07,00,00,07,00
  7849. .DB 07,00,03,07,07,00,00,00,00,07,00,00,07,00,07,00,00,07
  7850.  
  7851. .DB 07,00,07,00,07,07,07,03,00,00,07,00,07,07,00,00,07,00
  7852. .DB 00,00,07,07,07,07,07,07,07,07,07,07,07,00,07,07,07,07
  7853.  
  7854. .DB 07,00,07,00,07,00,07,07,07,07,07,00,07,07,03,07,07,07
  7855. .DB 07,07,07,07,07,03,00,00,00,00,00,00,00,00,00,00,00,07
  7856.  
  7857. .DB 07,00,00,00,00,00,07,00,00,00,00,00,07,07,07,07,07,00
  7858. .DB 00,00,00,07,07,07,07,07,07,07,07,07,07,07,02,07,07,07
  7859.  
  7860. .DB 07,00,07,07,07,07,07,07,02,02,07,07,07,07,07,07,07,07
  7861. .DB 07,07,07,07,07,07,03,00,00,00,00,00,07,00,00,00,00,07
  7862.  
  7863. .DB 07,00,00,07,07,00,00,00,00,00,00,00,07,07,05,07,05,07
  7864. .DB 05,07,00,07,07,07,07,07,02,07,07,00,07,00,00,00,00,07
  7865.  
  7866. .DB 07,02,07,07,07,07,07,07,07,07,02,07,07,07,00,07,00,07
  7867. .DB 00,07,00,05,07,07,06,00,00,00,07,00,07,00,00,00,00,07
  7868.  
  7869. .DB 07,00,00,07,00,07,00,07,00,00,00,00,07,07,00,00,00,00
  7870. .DB 00,00,00,07,07,07,07,00,00,00,07,00,07,00,00,00,00,07
  7871.  
  7872. .DB 07,07,00,07,00,02,00,00,00,07,07,00,07,07,00,00,00,00
  7873. .DB 00,00,00,07,07,07,07,00,00,00,07,00,02,00,00,00,00,07
  7874.  
  7875. .DB 07,06,00,00,00,07,00,07,00,07,06,00,07,07,00,00,00,07
  7876. .DB 03,07,00,00,00,07,07,00,00,00,07,00,07,00,00,00,00,07
  7877.  
  7878. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7879. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7880.  
  7881. ;;;;;;;;FUCKING MAPS!!!!!!!!!!!!!!!!! o_O %D
  7882.  
  7883. MAP3:  ;; here it is...the numbers for the map, which is 36x24
  7884. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7885. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7886.  
  7887. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7888. .DB 07,07,07,07,07,07,00,00,00,07,00,00,07,07,00,00,03,07
  7889.  
  7890. .DB 07,07,00,00,07,03,00,07,00,00,00,00,07,07,00,00,00,00
  7891. .DB 00,00,00,03,07,07,07,07,00,02,00,07,07,07,07,00,07,07
  7892.  
  7893. .DB 07,07,00,07,07,07,00,07,00,00,04,00,07,07,00,07,07,07
  7894. .DB 07,07,07,07,07,07,03,00,00,07,07,07,07,07,00,00,03,07
  7895.  
  7896. .DB 07,07,00,03,07,06,00,07,07,00,00,00,07,07,00,00,00,00
  7897. .DB 00,00,00,00,07,07,07,07,07,07,07,07,00,07,07,07,07,07
  7898.  
  7899. .DB 07,07,00,07,07,07,00,07,03,00,00,00,07,07,07,07,07,07
  7900. .DB 07,07,07,00,07,00,07,07,00,00,00,07,07,00,07,03,07,07
  7901.  
  7902. .DB 07,07,00,03,07,00,00,07,07,07,07,07,07,07,00,00,00,00
  7903. .DB 00,00,00,00,07,07,07,00,00,00,00,00,07,07,07,00,07,07
  7904.  
  7905. .DB 07,07,07,07,07,07,00,07,00,00,00,07,07,07,00,07,07,07
  7906. .DB 07,07,07,07,07,07,00,00,00,00,00,00,00,07,07,00,07,07
  7907.  
  7908. .DB 07,07,03,07,07,00,00,07,03,07,00,00,07,07,00,00,00,00
  7909. .DB 00,00,00,00,07,03,00,00,00,04,00,00,00,07,07,00,07,07
  7910.  
  7911. .DB 07,00,00,00,07,00,07,07,07,07,07,00,07,07,07,07,07,07
  7912. .DB 07,07,07,00,07,07,00,00,00,00,00,00,00,07,07,00,07,07
  7913.  
  7914. .DB 07,00,00,00,07,00,00,07,07,00,07,00,07,07,00,00,00,00
  7915. .DB 00,00,00,00,07,07,07,00,00,00,00,00,07,07,07,00,07,07
  7916.  
  7917. .DB 07,00,00,00,07,07,00,07,03,00,07,00,07,07,07,07,07,07
  7918. .DB 07,07,07,03,07,07,07,07,00,00,00,07,07,00,07,00,07,07
  7919.  
  7920. .DB 07,07,00,07,07,00,00,07,07,00,07,00,07,07,00,00,07,06
  7921. .DB 00,07,07,07,07,00,03,07,07,00,07,07,00,00,07,00,07,07
  7922.  
  7923. .DB 07,00,00,00,07,00,00,07,00,00,00,00,07,07,00,00,07,07
  7924. .DB 00,00,00,00,00,00,07,07,07,00,07,07,00,00,07,00,07,07
  7925.  
  7926. .DB 07,00,00,00,07,00,00,07,07,07,03,07,07,07,07,00,00,00
  7927. .DB 00,07,07,07,07,07,07,07,00,00,00,07,07,00,07,00,07,07
  7928.  
  7929. .DB 07,00,00,00,07,07,03,07,07,07,07,07,07,07,06,00,07,00
  7930. .DB 00,00,00,00,07,07,07,00,00,00,00,00,07,07,07,00,07,07
  7931.  
  7932. .DB 07,00,00,00,07,07,07,07,07,07,07,03,07,07,07,07,07,03
  7933. .DB 07,07,07,07,07,07,00,00,00,00,00,00,00,07,07,00,07,07
  7934.  
  7935. .DB 07,07,03,07,07,07,00,00,00,00,00,00,07,07,07,07,07,07
  7936. .DB 07,07,07,07,07,03,00,00,00,04,00,00,00,07,07,00,07,07
  7937.  
  7938. .DB 07,07,07,07,00,01,00,00,00,00,00,00,07,07,00,00,07,07
  7939. .DB 07,00,00,07,07,07,00,00,00,00,00,00,00,07,07,00,07,07
  7940.  
  7941. .DB 07,00,00,00,00,07,07,07,07,07,07,07,07,07,00,00,00,04
  7942. .DB 00,00,00,05,07,07,07,00,00,00,00,00,07,07,07,00,07,07
  7943.  
  7944. .DB 07,07,00,00,00,00,00,00,00,00,00,07,07,07,00,00,00,00
  7945. .DB 00,00,00,07,07,00,07,07,00,00,00,07,07,03,07,00,07,07
  7946.  
  7947. .DB 07,06,00,00,00,00,00,00,00,00,00,07,07,00,00,07,07,00
  7948. .DB 07,07,00,00,07,00,00,07,07,07,07,07,07,00,00,00,07,07
  7949.  
  7950. .DB 07,07,07,07,07,07,03,07,07,07,07,07,07,07,07,07,03,03
  7951. .DB 03,07,07,07,07,00,00,00,00,00,00,07,03,00,00,07,07,07
  7952.  
  7953. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7954. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7955.  
  7956.  
  7957. MAP4:  ;; THE LAST MAP! :) 36x24
  7958. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7959. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7960.  
  7961. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7962. .DB 07,07,07,07,07,00,00,00,07,07,04,00,00,00,00,00,07,07
  7963.  
  7964. .DB 07,07,06,00,06,07,00,07,00,00,07,03,07,07,07,00,07,07
  7965. .DB 04,03,04,07,07,07,02,07,07,07,07,00,00,00,07,00,07,07
  7966.  
  7967. .DB 07,07,06,00,06,07,00,07,07,00,07,00,07,07,00,00,07,07
  7968. .DB 04,00,04,07,07,03,00,00,03,07,07,07,07,07,07,00,07,07
  7969.  
  7970. .DB 07,07,06,00,06,07,06,00,00,00,07,00,07,07,00,07,07,07
  7971. .DB 04,00,04,07,07,07,00,00,07,07,03,00,07,03,07,00,07,07
  7972.  
  7973. .DB 07,07,07,07,07,07,07,07,00,00,07,00,07,07,00,00,07,07
  7974. .DB 00,00,00,07,07,07,07,01,07,07,07,00,07,00,00,00,07,07
  7975.  
  7976. .DB 07,07,07,07,07,00,00,00,00,00,07,00,07,07,07,00,07,07
  7977. .DB 07,00,07,07,07,07,01,01,07,07,00,00,00,00,00,00,07,07
  7978.  
  7979. .DB 07,07,00,07,00,00,07,00,07,00,07,00,07,07,00,00,03,07
  7980. .DB 07,03,07,07,07,07,01,07,07,07,07,07,07,07,02,07,07,07
  7981.  
  7982. .DB 07,07,00,00,00,00,03,00,07,00,07,00,07,07,07,00,07,07
  7983. .DB 07,07,07,07,07,07,00,00,07,07,06,00,01,00,00,00,07,07
  7984.  
  7985. .DB 07,07,07,07,07,07,07,07,07,07,07,00,07,07,07,07,07,07
  7986. .DB 07,07,07,07,07,07,00,00,03,07,07,00,07,07,02,07,07,07
  7987.  
  7988. .DB 07,07,07,07,07,07,07,07,07,07,00,00,00,07,07,07,07,07
  7989. .DB 07,07,07,07,07,03,00,00,07,07,06,00,07,00,00,00,07,07
  7990.  
  7991. .DB 07,07,03,00,00,00,00,00,00,00,00,03,00,00,00,00,00,00
  7992. .DB 00,00,03,07,07,07,00,00,00,07,07,00,07,00,00,00,07,07
  7993.  
  7994. .DB 07,07,07,07,07,07,07,07,07,07,00,00,00,07,07,07,07,07
  7995. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,03,07,07,07
  7996.  
  7997. .DB 07,07,00,00,00,00,00,00,00,07,07,00,07,07,00,07,00,00
  7998. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  7999.  
  8000. .DB 07,07,07,07,07,07,07,07,07,00,07,00,07,06,00,07,00,07
  8001. .DB 07,06,00,07,07,00,00,00,03,07,07,06,07,07,07,03,07,07
  8002.  
  8003. .DB 07,07,01,07,07,07,03,07,07,00,07,00,07,07,00,07,00,00
  8004. .DB 07,07,01,07,07,07,07,07,07,07,07,00,07,07,00,00,07,07
  8005.  
  8006. .DB 07,07,01,01,07,07,00,07,07,00,07,00,07,00,00,00,00,07
  8007. .DB 07,00,00,07,00,00,00,07,07,07,07,00,07,07,00,00,07,07
  8008.  
  8009. .DB 07,07,07,01,01,07,01,07,07,00,07,00,07,02,07,07,07,07
  8010. .DB 07,07,00,07,07,00,00,00,07,07,07,01,07,07,07,00,07,07
  8011.  
  8012. .DB 07,07,07,07,01,01,01,01,07,00,07,00,07,00,00,07,00,07
  8013. .DB 07,00,00,07,07,00,00,07,07,07,00,00,00,07,07,03,07,07
  8014.  
  8015. .DB 07,07,01,01,01,07,01,07,07,00,07,00,07,07,00,00,00,07
  8016. .DB 07,07,00,07,07,00,00,07,07,00,00,00,00,00,07,07,07,07
  8017.  
  8018. .DB 07,07,01,07,07,07,01,07,07,00,07,00,07,07,07,00,00,07
  8019. .DB 03,00,00,07,07,00,00,07,00,00,00,04,00,00,00,07,07,07
  8020.  
  8021. .DB 07,07,00,03,07,07,01,07,07,00,07,00,07,07,07,07,00,07
  8022. .DB 07,00,07,07,07,00,00,07,00,00,00,00,00,00,00,07,07,07
  8023.  
  8024. .DB 07,07,07,07,07,07,07,07,07,00,07,03,07,07,07,00,00,03
  8025. .DB 07,07,07,07,07,03,07,07,00,00,07,03,07,00,00,07,07,07
  8026.  
  8027. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  8028. .DB 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
  8029.  
  8030.  
  8031. BITMAPS2:
  8032. GROUND:
  8033.  .db %00000000,%00000000
  8034.  .db %00000000,%00000000
  8035.  .db %00000000,%00000010
  8036.  .db %00000100,%00000000
  8037.  .db %00000000,%00000000
  8038.  .db %00000000,%00100000
  8039.  .db %00000000,%00000000
  8040.  .db %01000000,%00000000
  8041.  .db %00000100,%00000000
  8042.  .db %00000000,%00000000
  8043.  .db %00000000,%00000000
  8044.  .db %00000000,%00100000
  8045.  .db %00000000,%00000000
  8046.  .db %00000100,%00000000
  8047.  .db %00000000,%00000000
  8048.  .db %00000000,%00000000
  8049. SWITCHDOOR:
  8050.  .db %11111111,%11111111
  8051.  .db %10010001,%00111001
  8052.  .db %11111111,%11111111
  8053.  .db %10100111,%00100101
  8054.  .db %11111111,%11111111
  8055.  .db %10001001,%00100001
  8056.  .db %11111110,%11011111
  8057.  .db %10010001,%00101001
  8058.  .db %11111011,%10011111
  8059.  .db %10011100,%11100001
  8060.  .db %11111111,%11111111
  8061.  .db %10000011,%10010001
  8062.  .db %11111111,%11111111
  8063.  .db %10100100,%01000001
  8064.  .db %11111111,%11111111
  8065.  .db %10000000,%00000001
  8066. DOOR:
  8067.  .db %01111111,%11111111
  8068.  .db %01010101,%01010101
  8069.  .db %01010101,%01010101
  8070.  .db %11010101,%01010101
  8071.  .db %01010101,%01010101
  8072.  .db %01010101,%01010101
  8073.  .db %01010101,%01010101
  8074.  .db %01111101,%01010101
  8075.  .db %01101101,%01010101
  8076.  .db %01111101,%01010101
  8077.  .db %01010101,%01010101
  8078.  .db %01010101,%01010101
  8079.  .db %11010101,%01010101
  8080.  .db %01010101,%01010101
  8081.  .db %01010101,%01010101
  8082.  .db %01111111,%11111111
  8083. STAIRSDRAW:
  8084.  .db %00111110,%00000000
  8085.  .db %01001001,%00000000
  8086.  .db %10010010,%10000000
  8087.  .db %10100100,%11000000
  8088.  .db %11001001,%00100000
  8089.  .db %11010010,%01010000
  8090.  .db %10100100,%10011000
  8091.  .db %10011001,%00100100
  8092.  .db %11001010,%01001010
  8093.  .db %10000100,%10010011
  8094.  .db %10100011,%00100100
  8095.  .db %10010001,%01001001
  8096.  .db %10001010,%10010010
  8097.  .db %10010010,%01100101
  8098.  .db %11001000,%00101011
  8099.  .db %11111111,%11111111
  8100. FOUNTAIN:
  8101.  .db %00000000,%10100000
  8102.  .db %00001010,%01001000
  8103.  .db %00010100,%10010000
  8104.  .db %00100010,%10100100
  8105.  .db %00001001,%01001000
  8106.  .db %01010101,%10110100
  8107.  .db %00100110,%11100010
  8108.  .db %00001111,%11110000
  8109.  .db %00111010,%11011100
  8110.  .db %11011101,%10111011
  8111.  .db %01101110,%11110110
  8112.  .db %00010111,%11101000
  8113.  .db %00001101,%10110000
  8114.  .db %00001011,%01010000
  8115.  .db %00011111,%11111000
  8116.  .db %00111100,%10111100
  8117. MAN:
  8118.  .db %00001110,%00000000
  8119.  .db %00011011,%01111111
  8120.  .db %00010001,%01011101
  8121.  .db %00001010,%01101011
  8122.  .db %00001110,%01110101
  8123.  .db %00110101,%10111110
  8124.  .db %00100100,%10000000
  8125.  .db %01100100,%11000000
  8126.  .db %11010101,%01100111
  8127.  .db %01010101,%01001100
  8128.  .db %00100100,%10010100
  8129.  .db %00011111,%00111111
  8130.  .db %00011111,%00100100
  8131.  .db %00011011,%00100100
  8132.  .db %00011011,%00100100
  8133.  .db %00011011,%00100100
  8134. CHEST:
  8135.  .db %00000000,%00000000
  8136.  .db %00000000,%00000000
  8137.  .db %00000001,%11111100
  8138.  .db %00000011,%00001100
  8139.  .db %00000111,%00010100
  8140.  .db %00001111,%00100100
  8141.  .db %00011111,%01010100
  8142.  .db %00111110,%10100100
  8143.  .db %01111101,%00001000
  8144.  .db %10000110,%00010000
  8145.  .db %11111010,%00100000
  8146.  .db %11110010,%01000000
  8147.  .db %11100010,%10000000
  8148.  .db %11000011,%00000000
  8149.  .db %11111110,%00000000
  8150.  .db %00000000,%00000000
  8151. WALL:
  8152.  .db %11111111,%11111111
  8153.  .db %10010001,%00111001
  8154.  .db %11111111,%11111111
  8155.  .db %10100111,%00100101
  8156.  .db %11111111,%11111111
  8157.  .db %10001001,%00100001
  8158.  .db %11111111,%11111111
  8159.  .db %10010011,%10001001
  8160.  .db %11111111,%11111111
  8161.  .db %10011100,%00100001
  8162.  .db %11111111,%11111111
  8163.  .db %10000011,%10010001
  8164.  .db %11111111,%11111111
  8165.  .db %10100100,%01000001
  8166.  .db %11111111,%11111111
  8167.  .db %10000000,%00000001
  8168.  
  8169. .end
  8170.