From de58b8f8affa0ac79c07e5a23195245f374fe8e1 Mon Sep 17 00:00:00 2001
From: shoofle <xsigma@gmail.com>
Date: Sat, 4 Jan 2025 14:34:05 -0500
Subject: [PATCH] improved text rendering and made it so we can switcch card
 displayed

---
 tarot.asm            | 458 +++++++++++++++++++++++++++++++------------
 themagician.aseprite | Bin 6255 -> 6091 bytes
 themagician.asm      | 112 +++++++++++
 3 files changed, 445 insertions(+), 125 deletions(-)
 create mode 100644 themagician.asm

diff --git a/tarot.asm b/tarot.asm
index 715b980..d91af6d 100644
--- a/tarot.asm
+++ b/tarot.asm
@@ -11,7 +11,8 @@ DEF SCENE_DRAW EQU SCENE_UPDATE + 4
 DEF SCENE_TEARDOWN EQU SCENE_DRAW + 4
 DEF rMYBTN EQU $FF90
 DEF rMYBTNP EQU rMYBTN + 1
-
+DEF vSelectedTileIndex EQU $FF90+2
+DEF vPreviousCardIndex EQU $FF90+3
 INCLUDE "hardware.inc"
 
 SECTION "Header", ROM0[$100]
@@ -25,8 +26,6 @@ EntryPoint:
   ld a, 0
   ld [rNR52], a
 
-
-
   ld a, [Instructions] ; get the value of a call instruction so we can shove it into our handles
   ld hl, SCENE_SETUP - 1
   ld [hl], a
@@ -118,7 +117,7 @@ Loop:
   jp Loop
 
 
-
+;; CARD READ PAGE STARTS HERE
 CardReadSetup:
 ; Turn the LCD off
   ld a, 0
@@ -129,11 +128,6 @@ CardReadSetup:
   ld bc, UITilesEnd - UITiles ; length to copy
   call CopyRange
 
-  ld hl, BGTiles ; source
-  ld de, $8000 ; destination of copy
-  ld bc, BGTilesEnd - BGTiles ; length to copy
-  call CopyRange
-
   ld hl, LetterTiles ; map the small font into vram at ascii locations
   ld de, $8000 + (127 + $21)*16
   ld bc, LetterTilesEnd - LetterTiles
@@ -150,32 +144,17 @@ CardReadSetup:
   ld c, 20 ; width
   call CopyTilesToMap
 
-  ld de, BGTilemap ; origin
-  ld hl, $9800 + 32 + 1 ; destination
-  ld b, 16 ; height
-  ld c, 8 ; width
-  call CopyTilesToMap
-
-  ; TheFool is a sequence of length-prefixed strings in memory
-  ; so when we're done writing one, hl will be correctly placed to read the next
-  ; length-prefixed print doesn't require passing a length
-  ; so all we have to set is the destination for each
-  ld hl, TheFool
-  ld de, $9800 + 32*5 + 10
-  call PrintString
-  ld de, $9800 + 32*6 + 10
-  call PrintString
-  ld de, $9800 + 32*7 + 10
-  call PrintString
-  ld de, $9800 + 32*8 + 10
-  call PrintString
-
   ld de, BigLetters
   ld hl, $9800 + 32*1 + 10
   ld b, 2
   ld c, 8
   call CopyTilesToMap
 
+  ld a, $FF
+  ld [vPreviousCardIndex], a
+  ld a, 0
+  call LoadCardData
+
   ; Turn the LCD on
   ld a, LCDCF_BLK01 | LCDCF_ON | LCDCF_BGON
   ld [rLCDC], a
@@ -185,7 +164,7 @@ CardReadSetup:
   ld [rBGP], a
 
   ld a, 0
-  ldh [$FF90+2], a
+  ldh [vSelectedTileIndex], a
 
   ret ; return from cardreadsetup
 
@@ -193,31 +172,33 @@ CardReadUpdate:
   ldh a, [rMYBTNP]
   and a, %0000_1000 ; check if down is held
   jp z, CardReadUpdateDoneDown
-  ldh a, [$FF90+2]
+  ldh a, [vSelectedTileIndex]
   inc a ; increment when they press down because the stack has card 0 at the top
-  ldh [$FF90+2], a
+  ldh [vSelectedTileIndex], a
 CardReadUpdateDoneDown:
   ldh a, [rMYBTNP]
   and a, %0000_0100
   jp z, CardReadUpdateDoneUp
-  ldh a, [$FF90+2]
+  ldh a, [vSelectedTileIndex]
   dec a ; decrement when they press up because the stack has card 0 at the top
-  ldh [$FF90+2], a
+  ldh [vSelectedTileIndex], a
 CardReadUpdateDoneUp:
-  ldh a, [$FF90+2]
+  ldh a, [vSelectedTileIndex]
   cp a, 22
   jp nz, CardReadUpdateDoneZero
   ld a, 0
-  ldh [$FF90+2], a
+  ldh [vSelectedTileIndex], a
 CardReadUpdateDoneZero:
   cp a, $FF
   jp nz, CardReadUpdateReturn
   ld a, 21
-  ldh [$FF90+2], a
+  ldh [vSelectedTileIndex], a
 CardReadUpdateReturn:
   ret
 
 CardReadDraw:
+  ldh a, [vSelectedTileIndex]
+  call LoadCardData
   ld b, 11 ; 11 rows, and we stop before drawing row zero
   ld hl, $9800+32*4+19 ; start point
   ld de, 32 ; stride
@@ -230,7 +211,7 @@ CardReadDrawCopyTile:
   ld a, $87
   ld [hl], a ; draw the cap at the end
 CardReadDrawSelectedTile:
-  ldh a, [$FF90+2]
+  ldh a, [vSelectedTileIndex]
   ld b, a
   srl b
   ld hl, $9800+32*4+19 ; start point
@@ -241,7 +222,7 @@ CardReadDrawCountDownTile:
   dec b
   jp nz, CardReadDrawCountDownTile
 CardReadDrawDrawSelectedTile:
-  ldh a, [$FF90+2]
+  ldh a, [vSelectedTileIndex]
   and a, 1
   jp z, CardReadDraw_PickTileWithTop
   ld a, $90
@@ -259,31 +240,113 @@ CardReadDraw_PickTileWithTop:
   ld a, $82
   ld [hl], a
 CardReadDrawReturn:
+  ld a, [vSelectedTileIndex]
+  call LoadCardData
   ret
 
-
-
-
-
 CardReadTeardown:
   ret
 
+LoadCardData:
+  ld hl, vPreviousCardIndex
+  cp a, [hl]
+  ret z
+  ld [vPreviousCardIndex], a
+  ld [vSelectedTileIndex], a
+
+  ld a, [rLCDC]
+  cp 0
+  jp z, LoadCardData_DoneTurningOff
+
+  ld b, 144
+  call AwaitLine ; put the line you want to reach in b
+
+  ld a, 0
+  ld [rLCDC], a ; turn off the lcd so we don't cause memory corruption
+LoadCardData_DoneTurningOff:
+
+  ld a, [vSelectedTileIndex]
+
+  ld b, 0
+  ld c, a ; load bc from a. coming into this we have the number of the card in the card array in a
+  ld hl, Cards + 1 ; skip the length prefix
+  add hl, bc
+  add hl, bc ; add this twice to double the offset because it's two bytes per address
+
+
+  ; follow the pointer we're looking at
+  ld a, [hl+]
+  ld c, a
+  ld a, [hl+]
+  ld b, a
+
+  ld h, b
+  ld l, c ; hl now contains the address of the card data.
+
+  ; hl points to a card struct.
+  ; card struct starts with a sequence of length-prefixed strings in memory
+  ; so when we're done writing one, hl will be correctly placed to read the next
+  ; length-prefixed print doesn't require passing a length
+  ; so all we have to set is the destination for each
+  ld de, $9800 + 32*4 + 10
+  call PrintString
+  ld de, $9800 + 32*5 + 10
+  call PrintString
+  ld de, $9800 + 32*6 + 10
+  call PrintString
+  ld de, $9800 + 32*7 + 10
+  call PrintString
+  ld de, $9800 + 32*8 + 10
+  call PrintString
+
+  ; hl now contains the address after all the strings.
+  ; [hl+] and [hl+] read the length first, into bc
+  ld a, [hl+]
+  ld c, a
+  ld a, [hl+]
+  ld b, a ; bc has length
+  ld a, [hl+]
+  ld e, a
+  ld a, [hl+]
+  ld d, a ; de has source of tile range copy
+  push hl ; save the pointer to the next bit of card data (tile map)
+
+  ld h, d
+  ld l, e ; hl takes the source
+
+  ld de, $8000 ; always load tile data into the same spot in vram
+
+  call CopyRange
+
+  pop hl
+  ld a, [hl+]
+  ld c, a
+  ld a, [hl+]
+  ld b, a ; bc has length
+  ld a, [hl+]
+  ld e, a
+  ld a, [hl+]
+  ld d, a ; de has source of tile range copy
+
+  ld h, d
+  ld l, e ; hl takes the source
+
+  ; push hl ; we don't need to keep track of hl at this point and our stack is clean.
+  ld hl, $9800 + 32 + 1 ; destination
+  ld b, 16 ; height
+  ld c, 8 ; width
+  call CopyTilesToMap
+
+  ld a, LCDCF_BLK01 | LCDCF_ON | LCDCF_BGON
+  ld [rLCDC], a
+
 
 Instructions:
   call Instructions + 2
   ret
 
-TheFool:
-  db 8, "THE FOOL"
-  db 6, "-begin"
-  db 5, "-leap"
-  db 8, "-naivete"
-TheMagician:
-  db 3, "THE"
-  db 8, "MAGICIAN"
+
 ; subroutines
-
-
 PrintString: ; write ascii string which has been prefixed by its length.
   ld b, [hl]
   inc hl
@@ -353,33 +416,30 @@ DoneWithLine:
   jp nz, CopyTilesToMap
   ret
 
-SECTION "Tile data", ROM0
+SECTION "Card Data", ROM0
 
-Spreads:
+Cards:
+  db 2
+  dw TheFool
+  dw TheMagician
 
-UITiles:
-  db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-	db $0f,$0f,$10,$10,$10,$10,$10,$10,$0f,$0f,$10,$10,$10,$10,$10,$10
-	db $7f,$7f,$80,$80,$80,$80,$80,$80,$7f,$7f,$10,$10,$10,$10,$10,$10
-	db $00,$3c,$3c,$7e,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3
-	db $42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$3c,$7e,$00,$3c
-	db $00,$3c,$3c,$7e,$42,$c3,$5a,$db,$5a,$db,$5a,$db,$5a,$db,$5a,$db
-	db $5a,$db,$5a,$db,$5a,$db,$5a,$db,$5a,$db,$42,$c3,$3c,$7e,$00,$3c
-	db $0f,$0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-	db $ce,$f0,$c6,$f8,$0e,$f0,$16,$e8,$5e,$a0,$fe,$00,$fc,$00,$00,$00
-	db $ce,$f0,$c6,$f8,$ce,$f0,$c6,$f8,$ce,$f0,$c6,$f8,$ce,$f0,$c6,$f8
-	db $00,$00,$fc,$00,$fe,$00,$ae,$50,$1e,$e0,$06,$f8,$ce,$f0,$c6,$f8
-	db $00,$00,$3f,$00,$7f,$00,$7a,$05,$68,$17,$70,$0f,$63,$1f,$73,$0f
-	db $63,$1f,$73,$0f,$60,$1f,$78,$07,$75,$0a,$7f,$00,$3f,$00,$00,$00
-	db $00,$00,$ff,$00,$ff,$00,$aa,$55,$00,$ff,$00,$ff,$ff,$ff,$ff,$ff
-	db $63,$1f,$73,$0f,$63,$1f,$73,$0f,$63,$1f,$73,$0f,$63,$1f,$73,$0f
-	db $ff,$ff,$ff,$ff,$00,$ff,$00,$ff,$55,$aa,$ff,$00,$ff,$00,$00,$00
-	db $0f,$0f,$10,$10,$10,$10,$10,$10,$7f,$7f,$80,$80,$80,$80,$80,$80
-	db $7f,$7f,$10,$10,$10,$10,$10,$10,$0f,$0f,$10,$10,$10,$10,$10,$10
-	db $7f,$7f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-UITilesEnd:
-
-BGTiles:
+; this is a card struct
+; starts with five length-prefixed strings in memory
+; then a 16bit value of the offset between the tile set and the end
+; then the 16bit address of the tile set
+; then a 16bit value of the offset between tile map and end
+; then the 16bit address of the tile map
+TheFool:
+  db 8, "THE FOOL"
+  db 8, "        "
+  db 9, "-begin   "
+  db 9, "-leap    "
+  db 9, "-naivete "
+  dw FoolTilesEnd - FoolTiles
+  dw FoolTiles
+  dw FoolMapEnd - FoolMap
+  dw FoolMap, FoolMapEnd
+FoolTiles:
 	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
 	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$01,$00,$02
 	db $00,$00,$00,$00,$00,$1f,$00,$60,$00,$80,$00,$00,$00,$00,$00,$00
@@ -448,9 +508,176 @@ BGTiles:
 	db $00,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
 	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$06
 	db $00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-BGTilesEnd:
+FoolTilesEnd:
+
+FoolMap:
+	db $00, $00, $01, $02, $03, $00, $00, $00
+	db $00, $00, $04, $05, $06, $00, $00, $00
+	db $00, $00, $07, $08, $09, $00, $00, $00
+	db $00, $00, $0a, $0b, $0c, $0d, $00, $00
+	db $00, $00, $0e, $0f, $10, $11, $12, $00
+	db $00, $00, $13, $14, $15, $16, $17, $00
+	db $00, $00, $00, $18, $19, $1a, $1b, $00
+	db $00, $00, $42, $1c, $1d, $1e, $1f, $00
+	db $00, $38, $39, $3a, $20, $21, $00, $00
+	db $3e, $3b, $40, $00, $22, $23, $00, $00
+	db $3c, $3d, $41, $00, $24, $25, $00, $00
+	db $43, $3f, $00, $00, $26, $27, $28, $00
+	db $00, $29, $2a, $2b, $00, $2c, $2d, $00
+	db $00, $2e, $2f, $30, $31, $32, $33, $34
+	db $00, $35, $36, $00, $00, $00, $00, $00
+	db $00, $00, $37, $00, $00, $00, $00, $00
+FoolMapEnd:
+
+TheMagician:
+  db 8, "THE     "
+  db 8, "MAGICIAN"
+  db 9, "-capacity"
+  db 9, "-knowing "
+  db 9, "-manifest"
+  dw MagicianTilesEnd - MagicianTiles
+  dw MagicianTiles
+  dw MagicianMapEnd - MagicianMap
+  dw MagicianMap
+
+MagicianTiles:
+  db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$1f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$21,$00,$23,$00,$22,$01,$3e,$00,$02,$01,$02,$00,$02,$01,$02
+	db $00,$80,$00,$80,$00,$80,$00,$80,$00,$c0,$40,$a0,$00,$98,$70,$8e
+	db $00,$00,$00,$00,$00,$00,$00,$70,$00,$50,$00,$50,$00,$50,$00,$50
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$01,$00,$01,$00,$01
+	db $00,$50,$00,$50,$00,$50,$00,$d0,$00,$58,$00,$54,$00,$26,$00,$96
+	db $00,$01,$00,$01,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$56,$00,$ad,$00,$4b,$00,$b3,$00,$60,$00,$20,$00,$20,$00,$20
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$80,$00,$80,$00,$40
+	db $00,$40,$00,$40,$00,$40,$00,$20,$00,$10,$00,$08,$00,$07,$03,$04
+	db $00,$04,$03,$04,$00,$04,$03,$04,$00,$0c,$07,$88,$00,$58,$0f,$30
+	db $00,$00,$00,$00,$00,$3f,$00,$20,$00,$60,$00,$40,$00,$df,$00,$90
+	db $00,$00,$00,$00,$00,$fc,$00,$06,$00,$02,$00,$01,$00,$f1,$00,$19
+	db $00,$90,$00,$90,$00,$90,$00,$90,$00,$90,$00,$90,$00,$90,$00,$90
+	db $00,$09,$00,$09,$00,$09,$00,$09,$00,$09,$00,$09,$00,$09,$00,$09
+	db $00,$8b,$70,$89,$00,$89,$f0,$08,$00,$08,$e0,$18,$00,$10,$e0,$10
+	db $00,$20,$00,$20,$00,$20,$00,$20,$00,$20,$00,$20,$00,$20,$00,$20
+	db $00,$90,$00,$88,$00,$86,$00,$87,$00,$84,$00,$84,$00,$87,$00,$84
+	db $00,$08,$00,$10,$00,$70,$00,$f0,$00,$10,$00,$10,$00,$f0,$00,$20
+	db $00,$10,$e0,$10,$00,$10,$e0,$10,$00,$10,$e0,$10,$00,$10,$e0,$10
+	db $00,$14,$e0,$14,$00,$14,$e0,$12,$00,$0a,$f0,$0a,$00,$0a,$f0,$09
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,$00,$00,$00,$00
+	db $00,$80,$00,$80,$00,$80,$00,$80,$00,$80,$00,$f8,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$f8,$00,$80,$00,$80,$00,$80,$00,$80,$00,$80
+	db $00,$20,$00,$30,$00,$08,$00,$04,$00,$03,$00,$00,$00,$00,$00,$00
+	db $00,$10,$0f,$10,$00,$30,$1f,$20,$00,$20,$1f,$20,$00,$20,$1f,$20
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00
+	db $00,$20,$1f,$20,$00,$20,$1f,$20,$00,$20,$00,$ff,$00,$00,$00,$7f
+	db $00,$20,$c0,$20,$00,$20,$e0,$10,$00,$10,$00,$ff,$00,$00,$00,$fe
+	db $00,$02,$01,$02,$00,$02,$01,$02,$00,$02,$01,$e2,$00,$22,$01,$12
+	db $00,$92,$01,$52,$00,$4a,$01,$4a,$00,$8a,$01,$ca,$00,$36,$01,$e6
+	db $00,$46,$01,$82,$00,$03,$00,$03,$00,$81,$00,$40,$00,$20,$00,$40
+	db $00,$09,$f0,$08,$00,$08,$78,$84,$00,$84,$78,$84,$00,$84,$78,$84
+	db $00,$84,$78,$84,$00,$04,$08,$f4,$00,$1c,$00,$06,$00,$03,$00,$01
+	db $00,$84,$00,$84,$00,$82,$00,$82,$00,$82,$00,$82,$00,$82,$00,$82
+	db $00,$82,$00,$c2,$00,$62,$c0,$3e,$00,$20,$c0,$20,$00,$20,$c0,$20
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80
+	db $00,$20,$00,$20,$00,$21,$00,$21,$00,$21,$00,$21,$00,$21,$00,$21
+	db $00,$04,$00,$04,$00,$04,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02
+	db $00,$02,$00,$02,$00,$3e,$00,$62,$00,$42,$00,$c2,$00,$81,$00,$80
+	db $00,$84,$00,$a3,$00,$a9,$00,$7d,$00,$0d,$00,$05,$00,$05,$00,$07
+	db $00,$40,$00,$c0,$00,$03,$00,$0e,$00,$08,$00,$10,$00,$10,$00,$30
+	db $00,$02,$00,$00,$00,$01,$00,$07,$00,$18,$00,$30,$00,$60,$00,$c0
+	db $00,$10,$e0,$10,$00,$10,$e0,$10,$00,$18,$e0,$18,$00,$18,$e0,$18
+	db $00,$00,$00,$00,$00,$00,$00,$80,$00,$80,$00,$40,$00,$40,$00,$40
+	db $00,$20,$00,$20,$00,$20,$00,$10,$00,$10,$00,$10,$00,$08,$00,$08
+	db $00,$00,$00,$00,$00,$70,$00,$8c,$00,$02,$00,$03,$00,$8c,$00,$70
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$01,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$0e,$00,$31,$00,$c0,$00,$40,$00,$31,$00,$0e
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$80,$00,$00,$00,$00
+	db $00,$1f,$00,$20,$00,$1f,$00,$00,$00,$00,$00,$02,$00,$02,$00,$7f
+	db $00,$ff,$00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff
+	db $00,$80,$00,$00,$00,$80,$00,$7f,$00,$00,$00,$00,$00,$00,$00,$ff
+	db $00,$01,$00,$00,$00,$00,$00,$fe,$00,$01,$00,$07,$00,$18,$00,$ff
+	db $00,$42,$00,$7f,$00,$02,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$ff,$00,$00,$00,$1f,$00,$64,$00,$bb,$00,$8e,$00,$7b,$00,$1f
+	db $00,$84,$00,$02,$00,$01,$00,$c1,$00,$a3,$00,$25,$00,$c8,$00,$04
+	db $00,$03,$00,$ff,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$80,$00,$ff,$00,$81,$00,$ff,$00,$47,$00,$6c,$00,$38,$00,$50
+	db $00,$00,$00,$ff,$00,$18,$00,$ff,$00,$c0,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$ff,$00,$00,$00,$ff,$00,$c0,$00,$40,$00,$61,$00,$27
+	db $00,$2c,$00,$38,$00,$00,$00,$00,$00,$00,$00,$e0,$00,$a0,$00,$20
+	db $00,$00,$00,$ff,$00,$06,$00,$fc,$00,$04,$00,$04,$00,$f8,$00,$0c
+	db $00,$06,$00,$02,$00,$03,$00,$01,$00,$01,$00,$01,$00,$00,$00,$00
+	db $00,$d0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$01,$00,$03,$00,$02,$00,$00,$00,$00,$00,$00
+	db $00,$c0,$00,$80,$00,$80,$00,$00,$00,$00,$00,$1f,$00,$3e,$00,$26
+	db $00,$20,$00,$20,$00,$f8,$00,$0c,$00,$02,$00,$03,$00,$00,$00,$00
+	db $00,$64,$00,$7d,$00,$7d,$00,$66,$00,$4c,$00,$6b,$00,$3e,$00,$00
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$c0,$00,$60
+	db $00,$a0,$00,$60,$00,$40,$00,$c0,$00,$c0,$00,$00,$00,$00,$00,$00
+	db $00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$00,$0f,$00,$08
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$f8
+	db $00,$08,$00,$0e,$00,$1c,$00,$10,$00,$11,$00,$1b,$00,$0f,$00,$01
+	db $00,$88,$00,$08,$00,$08,$00,$78,$00,$10,$00,$10,$00,$30,$00,$e0
+	db $00,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$20,$00,$e0,$00,$60,$00,$20,$00,$60,$00,$c0,$00,$00,$00,$01
+	db $00,$00,$00,$00,$00,$00,$00,$3e,$00,$6f,$00,$cf,$00,$dc,$00,$d4
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$e0,$00,$60,$00,$70
+	db $00,$56,$00,$63,$00,$61,$00,$38,$00,$97,$00,$90,$00,$d1,$00,$7f
+	db $00,$70,$00,$f0,$00,$f0,$00,$20,$00,$e0,$00,$c0,$00,$80,$00,$00
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$0e,$00,$1a,$00,$11,$00,$19
+	db $00,$0c,$00,$30,$00,$62,$00,$46,$00,$6c,$00,$3f,$00,$00,$00,$00
+	db $00,$20,$1f,$20,$00,$20,$1f,$20,$00,$20,$1f,$20,$00,$20,$1f,$20
+MagicianTilesEnd:
+
+MagicianMap:
+  db $00, $04, $00, $00, $00, $00, $00, $00
+	db $05, $06, $30, $2f, $31, $32, $00, $00
+	db $07, $08, $09, $0c, $0d, $00, $00, $00
+	db $00, $11, $0a, $0e, $0f, $25, $00, $00
+	db $00, $19, $0b, $12, $13, $03, $00, $00
+	db $00, $00, $1a, $23, $26, $10, $2d, $00
+	db $00, $00, $56, $24, $02, $14, $2e, $00
+	db $1b, $1b, $1c, $1d, $1e, $2c, $27, $00
+	db $33, $34, $35, $36, $1f, $15, $28, $25
+	db $37, $38, $39, $3a, $20, $21, $29, $2a
+	db $3d, $3e, $40, $3b, $3c, $22, $2b, $45
+	db $54, $3f, $41, $00, $42, $43, $44, $47
+	db $55, $4f, $50, $51, $4a, $4b, $46, $48
+	db $00, $49, $52, $53, $4c, $4d, $00, $00
+	db $00, $00, $00, $01, $18, $4e, $00, $00
+	db $00, $00, $00, $16, $17, $00, $00, $00
+MagicianMapEnd:
+
+
+SECTION "Tile data", ROM0
+
+Spreads:
+
+UITiles:
+  db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $0f,$0f,$10,$10,$10,$10,$10,$10,$0f,$0f,$10,$10,$10,$10,$10,$10
+	db $7f,$7f,$80,$80,$80,$80,$80,$80,$7f,$7f,$10,$10,$10,$10,$10,$10
+	db $00,$3c,$3c,$7e,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3
+	db $42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$42,$c3,$3c,$7e,$00,$3c
+	db $00,$3c,$3c,$7e,$42,$c3,$5a,$db,$5a,$db,$5a,$db,$5a,$db,$5a,$db
+	db $5a,$db,$5a,$db,$5a,$db,$5a,$db,$5a,$db,$42,$c3,$3c,$7e,$00,$3c
+	db $0f,$0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $ce,$f0,$c6,$f8,$0e,$f0,$16,$e8,$5e,$a0,$fe,$00,$fc,$00,$00,$00
+	db $ce,$f0,$c6,$f8,$ce,$f0,$c6,$f8,$ce,$f0,$c6,$f8,$ce,$f0,$c6,$f8
+	db $00,$00,$fc,$00,$fe,$00,$ae,$50,$1e,$e0,$06,$f8,$ce,$f0,$c6,$f8
+	db $00,$00,$3f,$00,$7f,$00,$7a,$05,$68,$17,$70,$0f,$63,$1f,$73,$0f
+	db $63,$1f,$73,$0f,$60,$1f,$78,$07,$75,$0a,$7f,$00,$3f,$00,$00,$00
+	db $00,$00,$ff,$00,$ff,$00,$aa,$55,$00,$ff,$00,$ff,$ff,$ff,$ff,$ff
+	db $63,$1f,$73,$0f,$63,$1f,$73,$0f,$63,$1f,$73,$0f,$63,$1f,$73,$0f
+	db $ff,$ff,$ff,$ff,$00,$ff,$00,$ff,$55,$aa,$ff,$00,$ff,$00,$00,$00
+	db $0f,$0f,$10,$10,$10,$10,$10,$10,$7f,$7f,$80,$80,$80,$80,$80,$80
+	db $7f,$7f,$10,$10,$10,$10,$10,$10,$0f,$0f,$10,$10,$10,$10,$10,$10
+	db $7f,$7f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+UITilesEnd:
+
 LetterTiles:
- db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+  db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
 	db $04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$00,$00,$04,$04
 	db $28,$28,$28,$28,$28,$28,$08,$08,$00,$00,$00,$00,$00,$00,$00,$00
 	db $04,$04,$24,$24,$2c,$2c,$28,$28,$fc,$fc,$28,$28,$fe,$fe,$28,$28
@@ -515,32 +742,32 @@ LetterTiles:
 	db $08,$08,$1c,$1c,$34,$34,$04,$04,$00,$00,$00,$00,$00,$00,$00,$00
 	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3e,$3e,$00,$00
 	db $20,$20,$18,$18,$0c,$0c,$04,$04,$00,$00,$00,$00,$00,$00,$00,$00
-	db $00,$00,$00,$00,$38,$38,$04,$04,$3c,$3c,$44,$44,$3a,$3a,$00,$00
-	db $00,$00,$20,$20,$20,$20,$3c,$3c,$22,$22,$22,$22,$3c,$3c,$00,$00
-	db $00,$00,$00,$00,$1c,$1c,$20,$20,$20,$20,$20,$20,$1c,$1c,$00,$00
-	db $00,$00,$04,$04,$04,$04,$3c,$3c,$44,$44,$44,$44,$3c,$3c,$00,$00
-	db $00,$00,$00,$00,$38,$38,$44,$44,$78,$78,$40,$40,$3c,$3c,$00,$00
-	db $00,$00,$0c,$0c,$10,$10,$38,$38,$10,$10,$10,$10,$10,$10,$00,$00
-	db $00,$00,$00,$00,$3c,$3c,$44,$44,$44,$44,$3c,$3c,$04,$04,$38,$38
-	db $00,$00,$40,$40,$40,$40,$78,$78,$44,$44,$44,$44,$44,$44,$00,$00
-	db $00,$00,$10,$10,$00,$00,$30,$30,$10,$10,$10,$10,$38,$38,$00,$00
-	db $00,$00,$04,$04,$00,$00,$04,$04,$04,$04,$04,$04,$24,$24,$18,$18
-	db $00,$00,$20,$20,$28,$28,$28,$28,$30,$30,$28,$28,$24,$24,$00,$00
-	db $00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$0c,$0c,$00,$00
-	db $00,$00,$00,$00,$68,$68,$54,$54,$54,$54,$54,$54,$54,$54,$00,$00
-	db $00,$00,$00,$00,$78,$78,$44,$44,$44,$44,$44,$44,$44,$44,$00,$00
-	db $00,$00,$00,$00,$38,$38,$44,$44,$44,$44,$44,$44,$38,$38,$00,$00
-	db $00,$00,$00,$00,$78,$78,$44,$44,$44,$44,$78,$78,$40,$40,$40,$40
-	db $00,$00,$00,$00,$3c,$3c,$44,$44,$44,$44,$3c,$3c,$04,$04,$06,$06
-	db $00,$00,$00,$00,$1c,$1c,$20,$20,$20,$20,$20,$20,$20,$20,$00,$00
-	db $00,$00,$00,$00,$38,$38,$40,$40,$38,$38,$04,$04,$78,$78,$00,$00
-	db $00,$00,$10,$10,$38,$38,$10,$10,$10,$10,$10,$10,$0c,$0c,$00,$00
-	db $00,$00,$00,$00,$44,$44,$44,$44,$44,$44,$44,$44,$3c,$3c,$00,$00
-	db $00,$00,$00,$00,$44,$44,$44,$44,$44,$44,$28,$28,$10,$10,$00,$00
-	db $00,$00,$00,$00,$44,$44,$54,$54,$54,$54,$54,$54,$28,$28,$00,$00
-	db $00,$00,$00,$00,$44,$44,$28,$28,$10,$10,$28,$28,$44,$44,$00,$00
-	db $00,$00,$00,$00,$44,$44,$44,$44,$44,$44,$3c,$3c,$04,$04,$38,$38
-	db $00,$00,$00,$00,$7c,$7c,$08,$08,$10,$10,$20,$20,$7c,$7c,$00,$00
+	db $00,$00,$00,$00,$38,$38,$0c,$0c,$3c,$3c,$4c,$4c,$3a,$3a,$00,$00
+	db $00,$00,$30,$30,$30,$30,$3c,$3c,$32,$32,$32,$32,$3c,$3c,$00,$00
+	db $00,$00,$00,$00,$1c,$1c,$30,$30,$30,$30,$30,$30,$1c,$1c,$00,$00
+	db $00,$00,$0c,$0c,$0c,$0c,$3c,$3c,$4c,$4c,$4c,$4c,$3c,$3c,$00,$00
+	db $00,$00,$00,$00,$38,$38,$64,$64,$78,$78,$60,$60,$3c,$3c,$00,$00
+	db $00,$00,$0e,$0e,$18,$18,$3c,$3c,$18,$18,$18,$18,$18,$18,$00,$00
+	db $00,$00,$00,$00,$3c,$3c,$4c,$4c,$4c,$4c,$3c,$3c,$0c,$0c,$38,$38
+	db $00,$00,$60,$60,$60,$60,$78,$78,$64,$64,$64,$64,$64,$64,$00,$00
+	db $00,$00,$10,$10,$00,$00,$38,$38,$18,$18,$18,$18,$3c,$3c,$00,$00
+	db $00,$00,$04,$04,$00,$00,$0c,$0c,$0c,$0c,$0c,$0c,$2c,$2c,$18,$18
+	db $00,$00,$60,$60,$68,$68,$68,$68,$70,$70,$68,$68,$64,$64,$00,$00
+	db $00,$00,$30,$30,$30,$30,$30,$30,$30,$30,$30,$30,$0c,$0c,$00,$00
+	db $00,$00,$00,$00,$74,$74,$6a,$6a,$6a,$6a,$6a,$6a,$6a,$6a,$00,$00
+	db $00,$00,$00,$00,$78,$78,$64,$64,$64,$64,$64,$64,$64,$64,$00,$00
+	db $00,$00,$00,$00,$38,$38,$64,$64,$64,$64,$64,$64,$38,$38,$00,$00
+	db $00,$00,$00,$00,$78,$78,$64,$64,$64,$64,$78,$78,$60,$60,$60,$60
+	db $00,$00,$00,$00,$3c,$3c,$4c,$4c,$4c,$4c,$3c,$3c,$0c,$0c,$0e,$0e
+	db $00,$00,$00,$00,$1c,$1c,$30,$30,$30,$30,$30,$30,$30,$30,$00,$00
+	db $00,$00,$00,$00,$38,$38,$60,$60,$38,$38,$0c,$0c,$78,$78,$00,$00
+	db $00,$00,$30,$30,$78,$78,$30,$30,$30,$30,$30,$30,$1c,$1c,$00,$00
+	db $00,$00,$00,$00,$64,$64,$64,$64,$64,$64,$64,$64,$3c,$3c,$00,$00
+	db $00,$00,$00,$00,$64,$64,$64,$64,$64,$64,$28,$28,$10,$10,$00,$00
+	db $00,$00,$00,$00,$62,$62,$6a,$6a,$6a,$6a,$6a,$6a,$34,$34,$00,$00
+	db $00,$00,$00,$00,$64,$64,$38,$38,$18,$18,$2c,$2c,$46,$46,$00,$00
+	db $00,$00,$00,$00,$4c,$4c,$4c,$4c,$4c,$4c,$3c,$3c,$0c,$0c,$38,$38
+	db $00,$00,$00,$00,$7e,$7e,$0c,$0c,$18,$18,$30,$30,$7e,$7e,$00,$00
 	db $0e,$0e,$18,$18,$0c,$0c,$0c,$0c,$38,$38,$08,$08,$18,$18,$1c,$1c
 	db $20,$20,$30,$30,$20,$20,$10,$10,$10,$10,$10,$10,$00,$00,$00,$00
 	db $30,$30,$38,$38,$10,$10,$10,$10,$10,$10,$18,$18,$18,$18,$30,$30
@@ -625,25 +852,6 @@ UITilemap:
 	db $8c, $8f, $8f, $8f, $8f, $8f, $8f, $8f, $8f, $88, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80
 UITilemapEnd:
 
-BGTilemap:
-	db $00, $00, $01, $02, $03, $00, $00, $00
-	db $00, $00, $04, $05, $06, $00, $00, $00
-	db $00, $00, $07, $08, $09, $00, $00, $00
-	db $00, $00, $0a, $0b, $0c, $0d, $00, $00
-	db $00, $00, $0e, $0f, $10, $11, $12, $00
-	db $00, $00, $13, $14, $15, $16, $17, $00
-	db $00, $00, $00, $18, $19, $1a, $1b, $00
-	db $00, $00, $42, $1c, $1d, $1e, $1f, $00
-	db $00, $38, $39, $3a, $20, $21, $00, $00
-	db $3e, $3b, $40, $00, $22, $23, $00, $00
-	db $3c, $3d, $41, $00, $24, $25, $00, $00
-	db $43, $3f, $00, $00, $26, $27, $28, $00
-	db $00, $29, $2a, $2b, $00, $2c, $2d, $00
-	db $00, $2e, $2f, $30, $31, $32, $33, $34
-	db $00, $35, $36, $00, $00, $00, $00, $00
-	db $00, $00, $37, $00, $00, $00, $00, $00
-BGTilemapEnd:
-
 BigLetters:
 	db $c1, $b1, $b6, $b0, $c2, $ba, $ba, $c4
 	db $b3, $b2, $b5, $b0, $c3, $b9, $b9, $c5
diff --git a/themagician.aseprite b/themagician.aseprite
index f99b92b859b776fe7127d5aec6cea748f30fea30..b47076fe0414263621d0eb5a08856cfc72e7819a 100644
GIT binary patch
delta 935
zcmV;Y16cg;Fv~9j%NLOXeho_(008>&76D`c000)Tjlc^J&jJ7dBOn6+000I60038$
z!37t83jj-Hc|me?RB3EwbC?1E0C=3OR||H;APCgC|DoGNfdSEIvc7f+Dlp-vDdpz_
z*ErbTe{hR-Drze2x#+;7gqcX;ccM?B*1Ci#izsV)@RBK==mqg`J0XiGhJU7i2N{|^
zCHGTP4zlsi#8m20?dm~dQ>&NFdCjW-n48ysaIrN(-1AowN2s!4LoV%P9dcNL8?^G4
zev#E$xL{rNp#1GBS6g?v(978JV+AfLVbOn0esSdh+~x-&OUM(~=6za)*FEFWc?6y&
zYS>VD!`?{y>bAExn=&Wpj$XD9XE^OwCWW?ow2s~RvgY>&fQbv9^dpy7zD<Sn81f~5
z%6ryq&iEdc%2iU@sV09nZ;v;vy}o;+LGv%VKD7OG*oZxeffY*(DtR*N7vKcPKCcR|
zmgFj$V8w^n9}3Q?Drg?NZwFKfV|-6acN|ImFpY1tpfeS#g%y>whBITAkhXC|+hryD
znwp;bGq+<@NSs~4GO#Q$#DX(N&-;Xb=-yR-NAc%h;M1`kiXSX^!*(<#*F$s2(H(tl
zGKUbX7#1z69S9qS<8^Ft)P)8^!wGKy8w4ZH2R%W2OyB@ZCW|?iD=Y{cg)77JMXuw5
z^abeYg^rV7!NFwjb*h=H%JS_G{+!~E8X~K0O?zNyg@Yele0DuL%fs=CU>#R~yy3g$
zRDbcX5!cNcedKuCzPRS!Ir|@tz(JDkk8noJO&nBAe{~Hrw=$)ve@4G}0Gcp#Zps;~
zW^D3BnI@45`4Aj|KzG$Y&~F3g<F`s(y^nK5{H3TA*8!Xt)0dq#<6z{oXZUDfg`S_-
z*-3Zp1=0~^`Xm4YK5j^o>*QiC*&tmX>ee0)FdE8<;P&X}S2+VV&H131%z~jVMg1qp
zvM6Z0Hotd0{|B*_3J9~I2yg?lD-(SI0qK*e6gPi$(AQ3aK@bMewf7Eo#110%0`}g!
zg75z*9+SNwe|{!8H}hp?HXA|+?V)*f(8)Gi?6BLAchOA`{S2h+7@?OzhFD4DQ}i*)
z7;Py#rdeW@VKx%^FUz!&VKeq;qFHjxQKk^{J@z@^kUUw6@tqZ_9C6G%3#?J%jB_qI
z;gm8(*14m`1y}LjH8<SyK%Eah`Qn)u?s<$ePki&kD{m?P^It7Y^4=sLXCl%21L{Ez
J-m{h!*#gXEz|8;v

delta 1050
zcmV+#1m*k7FYhn{Zy1pRehu#z008>&8v$eh000}Yjlc^JJOcm#BOn6+000I6003N*
z!37t83jj-Hc|me?RB3Ewa|Htc0C=3eR|#_DAPl5h|NnE=My(5BGf6gVO&Tz|g~X2W
z>jT%&>G&Hw(Taew^B2MwHTKLt|F98(XT(SP@6{$B!^z)r04k6tuT}gV8uhH2N?36F
zb6H8B>+k(fa~J?gu)zcES_6+0Ay2lJ?H3DwJv3UtyZ%baSXNbE8DNdErU5*2sIy0;
zh{<@ov0%2Q$ms<>Wzn}PK-AztZi8WxBqwvs#^Ct3K%;@o?w$B2<#S_~e#)0xhX;}6
zWvADgcd0))cdV#YVa2Z4B>V-(Jm+P^Z|C8$gej)Yqcbx$#49%o=;!Y7)Xx)dL4Kuw
zqyF_8X7Wna<nIR~WFJb)jDajdV8_mDb}v2&I^gBum=ov?h__Be4_90^<Y}2e%F*o*
z9hfAd;UZoPrmFK8!^w+0H^q4E^^tURr<h1T6B0?{HdG5!a3n2v7>b`5rDn1~oBQx5
zm*Xf%EvShzf55<IEr`NPXO=|f>-BMePb4?C+udlB=)a7^61JuNas7mO`+%+~-bjzu
zpvzlliA5O&dsCZzGLHQl;R_pkRmyuRoZd|-{_#m`)9S|&net4weo;Ppr}|@q*x*3R
zy87UGAUoAcHQiPlO{VSqQhE~oxzcx$pk-E1p{4n%P2;Mexax!izPVD(HA~xn&017`
z#pEphZ_Tycpi(REXldf-DB>jvv&eq*0`OusCt}?u`;wyiCMj$q62SN~;1YUFX<ycW
zhBu>9oS-7qI)O+uKFYlV`0v0Kt(%*K(?i2NQG`AaH%81@k4Wt3_gXZyX1*vfO#GxG
zPGU^rq3wt3ivwml3YeA%@m2eOnHF$a{v0uXdH{=Cnx+2S?0|uJMj7;3CJ+XANr(N<
z;q{Sb;*|Iq8HXbjuI-%##zAkp;$15ua)0mw&a=rY8*9>Nd{Ls9{Fbg+2%JdV_dCVs
zTjgkh=gkPRlEU5n^t@@FM1fh&C+1!L*o+*fnfz*@6@i5Qs$(M1_UIoRH%`LYs!d2H
zF9&p^3^Uq1P7jy3e{*~ROmPi$v!Mv01G9`0eE|XPlL{0!e{IlZPlGWOfYIXaI%LB)
zWW(KM!`<Qk{|^pH6PEGb<fO@c`k`qEAvDm(G+A=tZyIT$pBV-iEbGm*(ncp;;s3PI
zPB%RXeUc7_7^WuS&J-!C=}qXVvOYpx+^@0D2Aga#N`36x?6Auo`=qIj{eVM`IOc>?
z&L~pioC_|wH{zNbX1V2#dmeb?iD%|`;gvVu`Cy&}@_h0|fkl>BW`))G#_xDmF+nEb
Ue|~3-@rvCK5l0Y@v+@+#0*K8B^8f$<

diff --git a/themagician.asm b/themagician.asm
new file mode 100644
index 0000000..8a873ea
--- /dev/null
+++ b/themagician.asm
@@ -0,0 +1,112 @@
+	; original export script by gabriel reis, modified by shoofle
+ 
+ 
+KeyArtTiles:
+
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$1f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$21,$00,$23,$00,$22,$01,$3e,$00,$02,$01,$02,$00,$02,$01,$02
+	db $00,$80,$00,$80,$00,$80,$00,$80,$00,$c0,$40,$a0,$00,$98,$70,$8e
+	db $00,$00,$00,$00,$00,$00,$00,$70,$00,$50,$00,$50,$00,$50,$00,$50
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$01,$00,$01,$00,$01
+	db $00,$50,$00,$50,$00,$50,$00,$d0,$00,$58,$00,$54,$00,$26,$00,$96
+	db $00,$01,$00,$01,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$56,$00,$ad,$00,$4b,$00,$b3,$00,$60,$00,$20,$00,$20,$00,$20
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$80,$00,$80,$00,$40
+	db $00,$40,$00,$40,$00,$40,$00,$20,$00,$10,$00,$08,$00,$07,$03,$04
+	db $00,$04,$03,$04,$00,$04,$03,$04,$00,$0c,$07,$88,$00,$58,$0f,$30
+	db $00,$00,$00,$00,$00,$3f,$00,$20,$00,$60,$00,$40,$00,$df,$00,$90
+	db $00,$00,$00,$00,$00,$fc,$00,$06,$00,$02,$00,$01,$00,$f1,$00,$19
+	db $00,$90,$00,$90,$00,$90,$00,$90,$00,$90,$00,$90,$00,$90,$00,$90
+	db $00,$09,$00,$09,$00,$09,$00,$09,$00,$09,$00,$09,$00,$09,$00,$09
+	db $00,$8b,$70,$89,$00,$89,$f0,$08,$00,$08,$e0,$18,$00,$10,$e0,$10
+	db $00,$20,$00,$20,$00,$20,$00,$20,$00,$20,$00,$20,$00,$20,$00,$20
+	db $00,$90,$00,$88,$00,$86,$00,$87,$00,$84,$00,$84,$00,$87,$00,$84
+	db $00,$08,$00,$10,$00,$70,$00,$f0,$00,$10,$00,$10,$00,$f0,$00,$20
+	db $00,$10,$e0,$10,$00,$10,$e0,$10,$00,$10,$e0,$10,$00,$10,$e0,$10
+	db $00,$14,$e0,$14,$00,$14,$e0,$12,$00,$0a,$f0,$0a,$00,$0a,$f0,$09
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,$00,$00,$00,$00
+	db $00,$80,$00,$80,$00,$80,$00,$80,$00,$80,$00,$f8,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$f8,$00,$80,$00,$80,$00,$80,$00,$80,$00,$80
+	db $00,$20,$00,$30,$00,$08,$00,$04,$00,$03,$00,$00,$00,$00,$00,$00
+	db $00,$10,$0f,$10,$00,$30,$1f,$20,$00,$20,$1f,$20,$00,$20,$1f,$20
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$00,$00,$00
+	db $00,$20,$1f,$20,$00,$20,$1f,$20,$00,$20,$00,$ff,$00,$00,$00,$7f
+	db $00,$20,$c0,$20,$00,$20,$e0,$10,$00,$10,$00,$ff,$00,$00,$00,$fe
+	db $00,$02,$01,$02,$00,$02,$01,$02,$00,$02,$01,$e2,$00,$22,$01,$12
+	db $00,$92,$01,$52,$00,$4a,$01,$4a,$00,$8a,$01,$ca,$00,$36,$01,$e6
+	db $00,$46,$01,$82,$00,$03,$00,$03,$00,$81,$00,$40,$00,$20,$00,$40
+	db $00,$09,$f0,$08,$00,$08,$78,$84,$00,$84,$78,$84,$00,$84,$78,$84
+	db $00,$84,$78,$84,$00,$04,$08,$f4,$00,$1c,$00,$06,$00,$03,$00,$01
+	db $00,$84,$00,$84,$00,$82,$00,$82,$00,$82,$00,$82,$00,$82,$00,$82
+	db $00,$82,$00,$c2,$00,$62,$c0,$3e,$00,$20,$c0,$20,$00,$20,$c0,$20
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80
+	db $00,$20,$00,$20,$00,$21,$00,$21,$00,$21,$00,$21,$00,$21,$00,$21
+	db $00,$04,$00,$04,$00,$04,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02
+	db $00,$02,$00,$02,$00,$3e,$00,$62,$00,$42,$00,$c2,$00,$81,$00,$80
+	db $00,$84,$00,$a3,$00,$a9,$00,$7d,$00,$0d,$00,$05,$00,$05,$00,$07
+	db $00,$40,$00,$c0,$00,$03,$00,$0e,$00,$08,$00,$10,$00,$10,$00,$30
+	db $00,$02,$00,$00,$00,$01,$00,$07,$00,$18,$00,$30,$00,$60,$00,$c0
+	db $00,$10,$e0,$10,$00,$10,$e0,$10,$00,$18,$e0,$18,$00,$18,$e0,$18
+	db $00,$00,$00,$00,$00,$00,$00,$80,$00,$80,$00,$40,$00,$40,$00,$40
+	db $00,$20,$00,$20,$00,$20,$00,$10,$00,$10,$00,$10,$00,$08,$00,$08
+	db $00,$00,$00,$00,$00,$70,$00,$8c,$00,$02,$00,$03,$00,$8c,$00,$70
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$01,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$0e,$00,$31,$00,$c0,$00,$40,$00,$31,$00,$0e
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$80,$00,$00,$00,$00
+	db $00,$1f,$00,$20,$00,$1f,$00,$00,$00,$00,$00,$02,$00,$02,$00,$7f
+	db $00,$ff,$00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff
+	db $00,$80,$00,$00,$00,$80,$00,$7f,$00,$00,$00,$00,$00,$00,$00,$ff
+	db $00,$01,$00,$00,$00,$00,$00,$fe,$00,$01,$00,$07,$00,$18,$00,$ff
+	db $00,$42,$00,$7f,$00,$02,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$ff,$00,$00,$00,$1f,$00,$64,$00,$bb,$00,$8e,$00,$7b,$00,$1f
+	db $00,$84,$00,$02,$00,$01,$00,$c1,$00,$a3,$00,$25,$00,$c8,$00,$04
+	db $00,$03,$00,$ff,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$80,$00,$ff,$00,$81,$00,$ff,$00,$47,$00,$6c,$00,$38,$00,$50
+	db $00,$00,$00,$ff,$00,$18,$00,$ff,$00,$c0,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$ff,$00,$00,$00,$ff,$00,$c0,$00,$40,$00,$61,$00,$27
+	db $00,$2c,$00,$38,$00,$00,$00,$00,$00,$00,$00,$e0,$00,$a0,$00,$20
+	db $00,$00,$00,$ff,$00,$06,$00,$fc,$00,$04,$00,$04,$00,$f8,$00,$0c
+	db $00,$06,$00,$02,$00,$03,$00,$01,$00,$01,$00,$01,$00,$00,$00,$00
+	db $00,$d0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$01,$00,$03,$00,$02,$00,$00,$00,$00,$00,$00
+	db $00,$c0,$00,$80,$00,$80,$00,$00,$00,$00,$00,$1f,$00,$3e,$00,$26
+	db $00,$20,$00,$20,$00,$f8,$00,$0c,$00,$02,$00,$03,$00,$00,$00,$00
+	db $00,$64,$00,$7d,$00,$7d,$00,$66,$00,$4c,$00,$6b,$00,$3e,$00,$00
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$c0,$00,$60
+	db $00,$a0,$00,$60,$00,$40,$00,$c0,$00,$c0,$00,$00,$00,$00,$00,$00
+	db $00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$00,$00,$00,$00,$00
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$06,$00,$0f,$00,$08
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$00,$f8
+	db $00,$08,$00,$0e,$00,$1c,$00,$10,$00,$11,$00,$1b,$00,$0f,$00,$01
+	db $00,$88,$00,$08,$00,$08,$00,$78,$00,$10,$00,$10,$00,$30,$00,$e0
+	db $00,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+	db $00,$20,$00,$e0,$00,$60,$00,$20,$00,$60,$00,$c0,$00,$00,$00,$01
+	db $00,$00,$00,$00,$00,$00,$00,$3e,$00,$6f,$00,$cf,$00,$dc,$00,$d4
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$e0,$00,$60,$00,$70
+	db $00,$56,$00,$63,$00,$61,$00,$38,$00,$97,$00,$90,$00,$d1,$00,$7f
+	db $00,$70,$00,$f0,$00,$f0,$00,$20,$00,$e0,$00,$c0,$00,$80,$00,$00
+	db $00,$00,$00,$00,$00,$00,$00,$00,$00,$0e,$00,$1a,$00,$11,$00,$19
+	db $00,$0c,$00,$30,$00,$62,$00,$46,$00,$6c,$00,$3f,$00,$00,$00,$00
+	db $00,$20,$1f,$20,$00,$20,$1f,$20,$00,$20,$1f,$20,$00,$20,$1f,$20
+
+ 
+ 
+BackgroundCopy: ; tiles start at 0
+	db $00, $04, $00, $00, $00, $00, $00, $00
+	db $05, $06, $30, $2f, $31, $32, $00, $00
+	db $07, $08, $09, $0c, $0d, $00, $00, $00
+	db $00, $11, $0a, $0e, $0f, $25, $00, $00
+	db $00, $19, $0b, $12, $13, $03, $00, $00
+	db $00, $00, $1a, $23, $26, $10, $2d, $00
+	db $00, $00, $56, $24, $02, $14, $2e, $00
+	db $1b, $1b, $1c, $1d, $1e, $2c, $27, $00
+	db $33, $34, $35, $36, $1f, $15, $28, $25
+	db $37, $38, $39, $3a, $20, $21, $29, $2a
+	db $3d, $3e, $40, $3b, $3c, $22, $2b, $45
+	db $54, $3f, $41, $00, $42, $43, $44, $47
+	db $55, $4f, $50, $51, $4a, $4b, $46, $48
+	db $00, $49, $52, $53, $4c, $4d, $00, $00
+	db $00, $00, $00, $01, $18, $4e, $00, $00
+	db $00, $00, $00, $16, $17, $00, $00, $00