gb-tarot/05TheHierophant.inc

275 lines
13 KiB
PHP

nop
nop
TheHierophant:
db 10, "THE "
db 10, "HIEROPHANT"
db 9, "tradition"
db 9, "marriage "
db 9, "religion "
dw .BackgroundCopyEnd - .BackgroundCopy
dw .BackgroundCopy
dw .KeyArtTilesEnd - .KeyArtTiles
dw .KeyArtTiles
dw .SpriteTilesEnd - .SpriteTiles
dw .SpriteTiles
dw .fInit
dw .fUpdate
dw .fDraw
dw .fPrintPrep
.fInit:
ld hl, CVS
ld a, 0
ld [hl+], a ; CVS timer for halo
ld [hl+], a
ld [hl+], a ; CVS+2 frame of halo
ret
.fUpdate:
ld hl, CVS
call IncrementTimer
ld a, [CVS+1] ; checking the high byte of the timer
cp a, $07 ; $10 = 1 second, $02 = 1/8 of a second
jp c, .doneWithTimer1 ; if the timer is less than $0600, skip
; if the timer is greater or equal to $0700, reset it
ld a, 0
ld [CVS], a
ld [CVS+1], a
; and increment frame number
ld b, 4
ld a, [CVS+2]
inc a
call ArrayClampLoopingB
ld [CVS+2], a
.doneWithTimer1
call .updateHalo
ret
.updateHalo
ld a, [CVS+2] ; this is the frame number, we need to multiply it by 35
; to get the memory index
ld b, a ; a = b
add a, b ;a = 2b
add a, a ; a = 4b
add a, a ; a = 8b
add a, a ; a = 16b
add a, a ; a = 32b
add a, b
add a, b
add a, b ; a = 35b
ld b, 0
ld c, a
; add offset to .halo to get the metasprite we're interested in
ld hl, .halo
add hl, bc
ld de, MY_OAM
ld b, 3*8
ld c, 2*8
ld a, $57
call BuildMetaSprite
ret
.fDraw:
ret
.fPrintPrep: ret
.halo ; 5 tall 7 wide sprites
db $00, $2a, $2b, $1c, $2c, $2d, $00
db $19, $1d, $1e, $00, $1f, $20, $00
db $2e, $21, $22, $00, $23, $24, $1a
db $2f, $30, $25, $00, $26, $27, $31
db $28, $00, $00, $00, $00, $1b, $32
db $00, $2a, $2b, $1c, $2c, $2d, $00
db $19, $03, $02, $00, $0a, $0b, $00
db $2e, $04, $01, $00, $29, $08, $1a
db $2f, $30, $05, $00, $06, $07, $31
db $28, $00, $00, $00, $00, $1b, $32
db $00, $2a, $2b, $1c, $2c, $2d, $00
db $19, $0e, $0f, $00, $10, $16, $00
db $2e, $0c, $0d, $00, $09, $15, $18
db $2f, $17, $11, $00, $12, $13, $14
db $28, $00, $00, $00, $00, $1b, $32
db $00, $2a, $2b, $1c, $2c, $2d, $00
db $19, $03, $02, $00, $0a, $0b, $00
db $2e, $04, $01, $00, $29, $08, $1a
db $2f, $30, $05, $00, $06, $07, $31
db $28, $00, $00, $00, $00, $1b, $32
.SpriteTiles:
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $34,$40,$14,$60,$1c,$20,$0c,$70,$7c,$80,$cc,$00,$6c,$00,$3c,$00
db $80,$40,$00,$80,$00,$00,$00,$00,$00,$f8,$f0,$0c,$dc,$00,$74,$80
db $19,$20,$3b,$40,$76,$81,$5c,$82,$f8,$05,$90,$09,$f0,$09,$a0,$10
db $60,$10,$c0,$20,$40,$20,$c0,$20,$80,$43,$83,$4c,$80,$70,$80,$60
db $1e,$00,$26,$00,$3f,$00,$07,$00,$03,$04,$00,$03,$00,$00,$00,$00
db $02,$00,$02,$00,$03,$00,$06,$01,$0c,$02,$00,$0c,$00,$00,$00,$00
db $4e,$01,$f8,$06,$c0,$38,$00,$c0,$00,$00,$00,$00,$00,$00,$00,$00
db $80,$00,$80,$00,$80,$00,$80,$00,$00,$80,$80,$60,$e0,$18,$f8,$06
db $03,$00,$02,$00,$02,$00,$03,$00,$03,$00,$00,$00,$01,$00,$03,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$03,$00,$03,$00
db $30,$40,$1c,$20,$0c,$10,$00,$00,$00,$60,$60,$80,$e0,$00,$20,$10
db $60,$10,$c0,$20,$40,$20,$c0,$21,$81,$4e,$8f,$70,$b0,$40,$80,$60
db $6c,$80,$64,$80,$3c,$40,$7c,$80,$ec,$00,$5c,$00,$74,$00,$34,$00
db $19,$20,$3b,$40,$76,$81,$5c,$83,$f8,$07,$91,$0a,$f0,$09,$a0,$11
db $80,$40,$00,$80,$00,$00,$00,$f0,$f0,$0c,$dc,$00,$9c,$00,$f4,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$03,$00,$03,$00,$02,$00
db $3e,$00,$2a,$00,$23,$00,$05,$00,$06,$00,$03,$04,$00,$00,$00,$00
db $01,$00,$07,$00,$05,$00,$03,$00,$0e,$01,$0c,$02,$00,$00,$00,$00
db $23,$00,$ee,$01,$f8,$06,$c0,$38,$00,$c0,$00,$00,$00,$00,$00,$00
db $20,$c0,$20,$c0,$20,$40,$20,$40,$20,$40,$60,$80,$40,$80,$40,$80
db $80,$00,$80,$00,$00,$00,$80,$00,$80,$60,$e0,$18,$f8,$06,$ae,$01
db $30,$40,$1c,$20,$0c,$10,$00,$60,$60,$80,$e0,$00,$80,$00,$b0,$08
db $80,$60,$80,$40,$80,$40,$80,$40,$80,$40,$c0,$00,$00,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$20,$40,$20,$40,$20,$40,$20,$c0
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$01,$01,$02,$01,$02
db $00,$00,$00,$00,$00,$00,$00,$00,$20,$40,$20,$40,$20,$40,$20,$40
db $00,$01,$00,$01,$01,$02,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $00,$c0,$80,$00,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $19,$20,$3b,$40,$76,$81,$5c,$82,$f8,$05,$90,$08,$f0,$08,$a0,$10
db $80,$40,$00,$80,$00,$00,$00,$00,$00,$e0,$60,$98,$38,$c4,$3c,$40
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$03,$00
db $30,$40,$1c,$20,$0c,$10,$00,$00,$00,$00,$00,$60,$60,$80,$c0,$20
db $60,$10,$c0,$20,$40,$20,$c0,$20,$80,$40,$80,$41,$80,$48,$80,$70
db $18,$20,$0c,$30,$0c,$10,$04,$18,$04,$78,$7c,$80,$6c,$00,$1c,$00
db $00,$00,$03,$00,$01,$00,$03,$00,$02,$01,$02,$01,$03,$00,$03,$00
db $80,$00,$80,$00,$00,$80,$00,$80,$00,$00,$00,$c0,$c0,$30,$70,$0c
db $26,$00,$3e,$00,$0f,$30,$03,$0c,$00,$03,$00,$00,$00,$00,$00,$00
db $01,$00,$07,$00,$07,$00,$00,$07,$00,$0c,$00,$00,$00,$00,$00,$00
db $bc,$03,$e0,$1c,$00,$e0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $03,$04,$01,$02,$01,$02,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00
db $01,$00,$01,$00,$02,$00,$03,$00,$01,$00,$03,$00,$01,$00,$02,$00
db $00,$00,$00,$00,$00,$00,$00,$01,$01,$02,$03,$04,$06,$08,$0f,$10
db $00,$07,$07,$18,$1f,$60,$75,$80,$e7,$00,$bc,$03,$70,$0c,$c0,$30
db $00,$3c,$3c,$03,$1f,$00,$03,$00,$0e,$00,$07,$08,$01,$06,$00,$01
db $00,$00,$00,$00,$00,$c0,$c0,$30,$70,$08,$58,$04,$dc,$00,$6c,$80
db $03,$04,$03,$04,$02,$04,$02,$04,$07,$08,$04,$08,$06,$08,$04,$08
db $06,$08,$04,$08,$06,$08,$04,$08,$07,$08,$03,$04,$02,$04,$03,$04
db $80,$40,$80,$40,$80,$40,$80,$40,$80,$40,$c0,$00,$00,$00,$00,$00
db $20,$c0,$20,$40,$20,$40,$20,$40,$20,$40,$60,$80,$40,$80,$40,$80
db $c0,$00,$80,$00,$80,$00,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00
.SpriteTilesEnd:
.KeyArtTiles:
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $00,$00,$18,$19,$3c,$3f,$26,$27,$42,$43,$43,$43,$41,$41,$40,$40
db $00,$00,$00,$80,$00,$80,$00,$c0,$00,$c0,$00,$e0,$80,$e0,$80,$f0
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$01
db $00,$00,$00,$00,$00,$00,$0f,$0f,$0f,$09,$0f,$09,$0f,$09,$ff,$f9
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$f8,$f8
db $00,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01
db $80,$80,$80,$80,$80,$80,$80,$80,$00,$00,$00,$00,$00,$00,$00,$00
db $c0,$f0,$40,$78,$60,$78,$20,$38,$30,$38,$10,$18,$18,$18,$08,$08
db $01,$01,$00,$00,$00,$00,$00,$00,$0f,$0f,$0f,$0f,$00,$00,$00,$00
db $ff,$f9,$0f,$09,$0f,$09,$0f,$09,$ff,$f9,$ff,$f9,$0f,$09,$0f,$09
db $f8,$f8,$00,$00,$00,$00,$00,$00,$ff,$ff,$ff,$ff,$00,$00,$00,$00
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$80,$80
db $00,$00,$00,$3f,$1e,$61,$3f,$c0,$7f,$80,$76,$89,$7f,$99,$7f,$80
db $08,$08,$08,$08,$08,$c8,$88,$68,$c8,$38,$e8,$18,$e0,$98,$e0,$18
db $00,$00,$3f,$3f,$3f,$3f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $0f,$09,$ff,$f9,$ff,$f9,$0f,$09,$0f,$09,$0f,$09,$0f,$09,$0f,$09
db $00,$00,$ff,$ff,$ff,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $c0,$c0,$c0,$40,$c0,$40,$c0,$40,$d8,$58,$e8,$78,$d8,$68,$7b,$cb
db $39,$c6,$3f,$40,$18,$67,$1f,$20,$0f,$30,$0f,$1f,$00,$1f,$c6,$f9
db $e0,$18,$e0,$10,$c0,$30,$e0,$20,$c0,$40,$80,$80,$00,$80,$3c,$ff
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0
db $7b,$44,$6b,$54,$6b,$54,$3f,$38,$1f,$30,$1f,$18,$0b,$0c,$0b,$0c
db $fe,$1e,$fa,$1e,$f2,$1e,$f1,$3f,$a1,$7f,$a0,$7f,$40,$ff,$80,$7f
db $0f,$30,$0f,$10,$0f,$10,$06,$19,$00,$1f,$89,$8f,$89,$8f,$89,$8f
db $04,$87,$04,$87,$04,$87,$08,$8f,$08,$8f,$10,$1f,$10,$1f,$12,$1f
db $00,$e0,$00,$f0,$00,$f8,$00,$f8,$04,$fc,$04,$fe,$02,$fe,$02,$fe
db $0e,$0f,$1b,$1f,$1f,$17,$1f,$1c,$10,$3f,$1f,$30,$31,$5e,$3f,$90
db $00,$00,$80,$80,$c0,$c0,$c0,$40,$c0,$40,$c0,$40,$c0,$40,$c0,$40
db $0f,$08,$1f,$18,$17,$18,$1f,$10,$1f,$10,$3f,$30,$3f,$20,$3f,$20
db $80,$7f,$80,$7f,$80,$7f,$90,$7f,$90,$7f,$90,$7f,$90,$7f,$b0,$7f
db $89,$8f,$89,$8f,$89,$8f,$89,$8f,$89,$8f,$89,$8f,$89,$8f,$89,$8f
db $12,$1f,$12,$1f,$12,$1f,$12,$1f,$12,$1f,$12,$1f,$12,$1f,$12,$1f
db $02,$ff,$04,$fe,$09,$fc,$17,$f8,$2f,$f0,$6f,$f0,$5f,$e0,$7f,$c0
db $71,$1e,$ff,$1f,$ef,$19,$ef,$19,$cf,$29,$cf,$29,$8f,$49,$8f,$49
db $c0,$40,$c0,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $3f,$20,$7f,$60,$7f,$40,$ff,$c0,$bf,$c0,$bf,$c0,$be,$c1,$bc,$c3
db $b0,$7f,$70,$ff,$70,$ff,$70,$ff,$f1,$ff,$e1,$ff,$e1,$ff,$e1,$ff
db $89,$8f,$89,$8f,$89,$8f,$89,$8f,$09,$0f,$09,$0f,$09,$0f,$09,$0f
db $13,$1f,$13,$1f,$13,$1f,$13,$1f,$09,$0f,$09,$0f,$09,$0f,$09,$0f
db $7f,$c0,$7f,$c0,$7e,$c1,$fe,$c1,$fd,$c3,$db,$e7,$c7,$ff,$ff,$ff
db $4f,$c9,$4f,$c9,$cf,$c9,$cf,$c9,$cf,$c9,$cf,$c9,$cf,$c9,$cf,$c9
db $91,$ef,$c7,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$7f,$7f,$7f,$7f
db $e1,$ff,$e1,$ff,$c1,$ff,$80,$80,$80,$80,$00,$00,$00,$7f,$00,$7f
db $ff,$ff,$ff,$ff,$ff,$ff,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$ff
db $8f,$89,$8f,$89,$8f,$89,$8f,$89,$8f,$89,$8f,$89,$0f,$09,$0f,$09
db $3e,$3e,$1e,$1e,$0c,$0c,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
db $20,$3f,$55,$7f,$4f,$7f,$47,$7f,$63,$7f,$61,$7f,$60,$7f,$60,$7f
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00
db $82,$7e,$d4,$7c,$f8,$78,$f0,$70,$e0,$70,$c0,$70,$80,$78,$80,$78
db $0f,$09,$0f,$09,$0f,$09,$0f,$09,$0f,$09,$0f,$09,$0f,$09,$0f,$09
db $60,$7f,$60,$7f,$60,$7f,$60,$7f,$60,$7f,$60,$7f,$60,$7f,$60,$7f
db $80,$78,$80,$78,$80,$78,$80,$78,$80,$78,$80,$78,$80,$7c,$80,$7c
db $60,$7f,$60,$7f,$60,$7f,$e0,$ff,$e0,$ff,$e0,$ff,$e0,$ff,$e0,$ff
db $80,$7c,$80,$7c,$80,$7c,$80,$7c,$80,$7c,$80,$7c,$80,$7c,$80,$7c
db $e0,$ff,$e0,$ff,$f4,$ff,$f4,$ff,$f4,$ff,$f4,$ff,$f4,$ff,$f4,$ff
db $03,$ff,$03,$ff,$03,$ff,$03,$ff,$03,$ff,$03,$ff,$03,$ff,$03,$ff
db $ff,$7f,$ff,$ff,$ff,$ff,$ff,$fc,$ff,$80,$ff,$01,$ff,$03,$fe,$02
db $c0,$c0,$c0,$c0,$c0,$40,$c0,$40,$80,$80,$00,$00,$00,$00,$00,$00
db $9f,$7f,$ff,$7f,$ff,$7b,$ff,$6b,$fe,$4e,$fc,$4c,$fe,$5e,$f7,$5f
db $e1,$7f,$c0,$7f,$80,$ff,$80,$ff,$80,$ff,$80,$ff,$00,$ff,$00,$ff
db $01,$ff,$01,$ff,$03,$ff,$82,$ff,$c6,$7f,$fe,$7f,$fe,$7f,$fe,$7f
db $80,$7c,$80,$7c,$80,$7c,$80,$7c,$81,$7d,$81,$7d,$83,$7e,$83,$7e
db $0f,$09,$0f,$09,$3f,$3f,$ff,$f1,$ff,$80,$ff,$00,$ff,$00,$ff,$7f
db $00,$00,$00,$00,$00,$00,$80,$80,$c0,$40,$c0,$40,$c0,$c0,$c0,$c0
db $ff,$c3,$fe,$c2,$fe,$82,$fe,$e6,$3c,$3c,$00,$00,$00,$00,$00,$00
db $fc,$fc,$3e,$3e,$16,$1e,$12,$1e,$12,$1e,$33,$3f,$23,$3f,$61,$7f
db $e1,$e1,$3f,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
db $c3,$ff,$01,$ff,$01,$ff,$01,$ff,$01,$ff,$01,$ff,$03,$ff,$03,$ff
db $00,$00,$00,$00,$00,$00,$01,$01,$03,$03,$03,$02,$03,$03,$03,$03
db $00,$00,$00,$00,$fc,$fc,$ff,$8f,$ff,$01,$ff,$00,$ff,$00,$ff,$fe
db $03,$03,$03,$03,$03,$02,$03,$02,$01,$01,$00,$00,$00,$00,$00,$00
db $ff,$fe,$ff,$ff,$ff,$ff,$ff,$3f,$ff,$01,$ff,$80,$ff,$c0,$ff,$c0
db $c0,$ff,$c0,$ff,$c0,$ff,$c0,$ff,$c0,$ff,$c0,$ff,$c0,$ff,$c0,$ff
db $3f,$3f,$7c,$7c,$68,$78,$48,$78,$48,$78,$cc,$fc,$c4,$fc,$86,$fe
db $ff,$c3,$7f,$43,$7f,$41,$7f,$67,$3c,$3c,$00,$00,$00,$00,$00,$00
db $fc,$ff,$fe,$ff,$fe,$df,$fe,$d7,$7e,$73,$3e,$33,$7e,$7b,$ee,$fb
db $c3,$ff,$80,$ff,$80,$ff,$80,$ff,$80,$ff,$80,$ff,$c0,$ff,$c0,$ff
db $87,$87,$fc,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
db $86,$ff,$02,$ff,$01,$ff,$01,$ff,$01,$ff,$01,$ff,$00,$ff,$00,$ff
db $80,$ff,$80,$ff,$c0,$ff,$41,$ff,$63,$ff,$7f,$ff,$7f,$ff,$7f,$ff
db $83,$7e,$83,$7e,$83,$7e,$83,$7e,$83,$7e,$83,$7e,$87,$7e,$8f,$7e
db $f4,$7f,$f4,$7f,$fc,$7f,$fc,$7f,$fc,$7f,$fc,$7f,$fc,$7f,$fc,$7f
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$03
db $06,$05,$06,$05,$06,$05,$06,$05,$06,$05,$0e,$0d,$1f,$1c,$3f,$20
db $08,$0f,$08,$0f,$08,$0f,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$ff
db $09,$0f,$09,$0f,$09,$0f,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$ff
db $ff,$00,$ff,$fc,$ff,$10,$ff,$10,$ff,$30,$ef,$30,$ff,$21,$ff,$21
db $ff,$61,$df,$61,$ff,$41,$ff,$c0,$bf,$c0,$ff,$80,$ff,$f0,$ff,$00
db $ff,$00,$ff,$3f,$ff,$08,$ff,$08,$ff,$0c,$f7,$0c,$ff,$84,$ff,$84
db $ff,$86,$fb,$86,$ff,$82,$ff,$03,$fd,$03,$ff,$01,$ff,$0f,$ff,$00
db $ff,$00,$ff,$00,$ff,$08,$ff,$1c,$ff,$36,$ff,$0f,$ff,$19,$ff,$03
db $ff,$00,$ff,$00,$ff,$08,$ff,$1c,$ff,$36,$ff,$f8,$ff,$cc,$ff,$60
db $ff,$06,$ff,$7e,$cf,$7c,$f7,$4c,$f7,$6c,$ff,$3c,$ff,$00,$ff,$00
db $ff,$30,$ff,$3f,$f9,$1f,$f7,$19,$f7,$1b,$ff,$1e,$ff,$00,$ff,$00
.KeyArtTilesEnd:
.BackgroundCopy: ; tiles start at 26
db $1a, $1a, $1a, $1b, $1c, $1d, $1e, $1f
db $1a, $1a, $20, $21, $22, $23, $24, $25
db $1a, $6e, $26, $27, $28, $29, $2a, $2b
db $1a, $6f, $2c, $2d, $2e, $2f, $4c, $1a
db $1a, $30, $31, $32, $33, $34, $35, $36
db $1a, $37, $38, $39, $3a, $3b, $3c, $3d
db $1a, $3e, $3f, $40, $41, $42, $43, $1a
db $1a, $44, $45, $71, $70, $46, $47, $1a
db $1a, $48, $49, $4a, $4a, $4b, $4c, $1a
db $1a, $1a, $4d, $76, $77, $4e, $4c, $1a
db $1a, $1a, $4f, $78, $79, $50, $4c, $1a
db $5f, $60, $51, $4a, $4a, $58, $59, $5a
db $61, $62, $6c, $4a, $4a, $6b, $53, $54
db $64, $65, $66, $4a, $4a, $55, $5b, $5c
db $67, $68, $69, $74, $72, $56, $5d, $5e
db $63, $6d, $6a, $75, $73, $57, $6d, $52
.BackgroundCopyEnd: