259 lines
12 KiB
PHP
259 lines
12 KiB
PHP
TheHighPriestess:
|
|
db 10, "THE HIGH "
|
|
db 10, "PRIESTESS "
|
|
db 9, "secrets "
|
|
db 9, "mystery "
|
|
db 9, "unknown "
|
|
dw .BackgroundCopyEnd - .BackgroundCopy
|
|
dw .BackgroundCopy
|
|
dw .KeyArtTilesEnd - .KeyArtTiles
|
|
dw .KeyArtTiles
|
|
dw .SpriteTilesEnd - .SpriteTiles
|
|
dw .SpriteTiles
|
|
dw .fInit
|
|
dw .fUpdate
|
|
dw .fDraw
|
|
dw .fPrintPrep
|
|
; original export script by gabriel reis, modified by shoofle
|
|
|
|
.fInit:
|
|
ld hl, CVS
|
|
ld a, 0
|
|
ld [hl+], a ; CVS timer for smoke
|
|
ld [hl+], a
|
|
ld [hl+], a ; CVS+2 frame of smoke
|
|
ret
|
|
.fUpdate:
|
|
ld hl, CVS
|
|
call IncrementTimer
|
|
|
|
ld a, [CVS+1] ; checking the high byte of the timer
|
|
cp a, $03 ; $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 $0600, reset it
|
|
ld a, 0
|
|
ld [CVS], a
|
|
ld [CVS+1], a
|
|
call .updateSmoke
|
|
.doneWithTimer1
|
|
ret
|
|
|
|
.updateSmoke:
|
|
ld b, 4
|
|
ld a, [CVS+2]
|
|
inc a
|
|
call ArrayClampLoopingB
|
|
ld [CVS+2], a
|
|
|
|
; multiply a by 4 bc the lower smoke is rows of four tiles
|
|
ld b, a
|
|
add a, b
|
|
add a, b
|
|
add a, b
|
|
|
|
ld b, 0
|
|
ld c, a
|
|
|
|
; add offset to .lowerSmoke to get the line we're interested in
|
|
ld hl, .lowerSmoke
|
|
add hl, bc
|
|
ld de, MY_OAM
|
|
ld bc, $100*(2+3)*8 + (1+3)*8
|
|
ld a, $14
|
|
call BuildMetaSprite
|
|
|
|
ld a, [CVS+2]
|
|
; multiply by 10 bc tthe upper smoke is pairs of rows of six tiles
|
|
ld b, a
|
|
add a, b ; a = 2b
|
|
add a, b ; a = 3b
|
|
add a, a ; a = 6b
|
|
add a, a ; a = 12b
|
|
|
|
ld b, 0
|
|
ld c, a
|
|
|
|
; add offset to .upperSmoke to get the metatile we're interested in.
|
|
ld hl, .upperSmoke
|
|
add hl, bc
|
|
ld de, MY_OAM+4*4
|
|
ld bc, $100*(2+1)*8 + (1+3)*8
|
|
ld a, $26
|
|
call BuildMetaSprite
|
|
ret
|
|
|
|
.upperSmoke:
|
|
db $24, $25, $13, $13, $13, $13
|
|
db $00, $2b, $26, $27, $28, $29
|
|
db $11, $12, $13, $13, $13, $13
|
|
db $00, $14, $15, $16, $17, $18
|
|
db $19, $1a, $13, $13, $13, $13
|
|
db $00, $1b, $1c, $1d, $1e, $1f
|
|
db $2a, $13, $13, $13, $13, $13
|
|
db $00, $20, $1c, $21, $22, $23
|
|
|
|
.lowerSmoke:
|
|
db $01, $02, $03, $04
|
|
db $05, $06, $07, $08
|
|
db $09, $0a, $0b, $0c
|
|
db $0d, $0e, $0f, $10
|
|
|
|
.fDraw:
|
|
ret
|
|
.fPrintPrep:
|
|
ret
|
|
|
|
.SpriteTiles:
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $1f,$00,$3f,$00,$7e,$00,$fc,$00,$78,$00,$30,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $e0,$00,$f0,$00,$f8,$00,$f0,$00,$60,$00,$00,$00,$00,$00,$00,$00
|
|
db $1f,$00,$3f,$00,$3f,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$bf,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$3e,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $e0,$00,$f0,$00,$60,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $1f,$00,$3f,$00,$7f,$00,$3f,$00,$1e,$00,$0c,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$6e,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$7f,$00,$1f,$00,$07,$00,$07,$00,$03,$00
|
|
db $e0,$00,$f0,$00,$f0,$00,$f0,$00,$c0,$00,$c0,$00,$80,$00,$00,$00
|
|
db $1f,$00,$3f,$00,$7f,$00,$7f,$00,$7e,$00,$7c,$00,$20,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$fc,$00,$78,$00,$20,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$3f,$00,$07,$00,$02,$00,$00,$00,$00,$00
|
|
db $e0,$00,$f0,$00,$f8,$00,$f8,$00,$f8,$00,$f8,$00,$78,$00,$30,$00
|
|
db $ff,$00,$ff,$00,$7f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$1f,$00,$0f,$00,$0f,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00
|
|
db $07,$00,$03,$00,$01,$00,$01,$00,$01,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$03,$00
|
|
db $ff,$00,$ff,$00,$fe,$00,$f8,$00,$f0,$00,$e0,$00,$e0,$00,$60,$00
|
|
db $ff,$00,$ff,$00,$38,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $3f,$00,$7f,$00,$7f,$00,$3f,$00,$1f,$00,$0c,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$3f,$00
|
|
db $3f,$00,$3f,$00,$1f,$00,$1f,$00,$1f,$00,$0f,$00,$03,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$bf,$00,$1f,$00
|
|
db $ff,$00,$fc,$00,$f8,$00,$f0,$00,$e0,$00,$e0,$00,$e0,$00,$e0,$00
|
|
db $ff,$00,$0f,$00,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$fe,$00,$fc,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $3f,$00,$1f,$00,$0f,$00,$07,$00,$07,$00,$07,$00,$03,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$fc,$00,$f8,$00,$e0,$00
|
|
db $ff,$00,$fe,$00,$f8,$00,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $df,$00,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $1f,$00,$1f,$00,$0f,$00,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$0f,$00,$07,$00,$03,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$3f,$00,$01,$00,$00,$00
|
|
db $ff,$00,$fc,$00,$f8,$00,$f0,$00,$e0,$00,$c0,$00,$80,$00,$00,$00
|
|
db $ff,$00,$7f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $86,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $1f,$00,$3f,$00,$3f,$00,$1f,$00,$03,$00,$03,$00,$01,$00,$00,$00
|
|
db $03,$00,$01,$00,$00,$00,$00,$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,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$ff,$00,$ff,$00,$ff,$01,$ff,$07,$ff,$1d,$fe,$37,$f8,$6f,$f0
|
|
db $00,$ff,$0f,$ff,$38,$ff,$e7,$f8,$7f,$80,$ff,$00,$ff,$00,$ff,$00
|
|
db $00,$ff,$c0,$ff,$78,$ff,$8f,$7f,$fc,$03,$fe,$01,$ff,$00,$ff,$00
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$c0,$ff,$60,$ff,$b8,$7f,$cc,$3f
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $00,$ff,$01,$ff,$00,$ff,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01
|
|
db $cf,$ff,$9f,$ff,$1f,$ff,$3f,$ff,$3f,$ff,$3f,$ff,$7f,$ff,$7f,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $e4,$ff,$f6,$ff,$f2,$ff,$f0,$ff,$f8,$ff,$f8,$ff,$fc,$ff,$fc,$ff
|
|
db $00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $00,$03,$00,$fd,$00,$01,$00,$01,$00,$01,$00,$01,$01,$01,$01,$03
|
|
db $7f,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$f8,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$3f,$ff
|
|
db $fe,$ff,$fe,$ff,$fe,$ff,$fe,$ff,$fe,$ff,$fe,$ff,$ff,$ff,$ff,$ff
|
|
db $00,$80,$00,$7f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80
|
|
db $00,$00,$00,$80,$00,$ff,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9
|
|
db $03,$07,$07,$1f,$1f,$ff,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f
|
|
db $e0,$ff,$e0,$ff,$c2,$fd,$c7,$fc,$cf,$f4,$8f,$f0,$13,$ec,$17,$e4
|
|
db $1f,$ff,$9f,$ff,$8f,$ff,$4f,$ff,$a7,$7f,$c7,$3f,$27,$df,$a7,$9f
|
|
db $80,$c0,$c0,$f8,$f8,$ff,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc
|
|
db $00,$00,$00,$01,$00,$ff,$00,$93,$00,$93,$00,$93,$00,$93,$00,$93
|
|
db $00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9
|
|
db $1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$fc,$ff,$fb,$fc
|
|
db $5e,$e1,$5f,$e0,$4c,$f3,$47,$f8,$13,$fc,$88,$f7,$44,$fb,$e0,$3f
|
|
db $ef,$1f,$ef,$3f,$ef,$3f,$c7,$7f,$87,$ff,$2f,$df,$41,$bf,$20,$c1
|
|
db $f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc
|
|
db $00,$93,$00,$93,$00,$93,$00,$93,$00,$93,$00,$93,$00,$93,$00,$93
|
|
db $f0,$f8,$e0,$f0,$e0,$f0,$c0,$e0,$c1,$e0,$c0,$e1,$c0,$e1,$c0,$e1
|
|
db $e3,$3c,$63,$34,$61,$32,$60,$31,$e0,$31,$e0,$31,$c0,$30,$c0,$30
|
|
db $40,$80,$00,$80,$00,$80,$0c,$80,$09,$06,$04,$03,$05,$03,$0d,$03
|
|
db $7f,$ff,$3f,$7f,$1f,$3f,$0f,$1f,$07,$0f,$83,$07,$43,$87,$41,$83
|
|
db $1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1f,$3f,$1e,$3f,$1c,$3f
|
|
db $c0,$e1,$c0,$e1,$c0,$f1,$e0,$f0,$a0,$f0,$20,$f0,$30,$e8,$30,$e8
|
|
db $80,$70,$80,$70,$bf,$40,$66,$81,$69,$87,$70,$8c,$64,$9c,$2e,$5e
|
|
db $0d,$03,$19,$07,$f0,$0f,$00,$ff,$f9,$fe,$fc,$fe,$7c,$7e,$3c,$3e
|
|
db $a1,$c3,$21,$c3,$41,$83,$81,$03,$01,$1f,$1e,$3f,$28,$3f,$44,$7f
|
|
db $f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$f8,$fc,$78,$fc,$38,$fc
|
|
db $18,$3f,$08,$3f,$0f,$3f,$11,$3f,$11,$3f,$0d,$3f,$05,$3f,$05,$3f
|
|
db $34,$e8,$58,$c4,$0a,$c4,$0b,$84,$45,$82,$42,$81,$61,$c0,$60,$c0
|
|
db $2f,$5f,$07,$3f,$00,$07,$00,$00,$c0,$00,$f0,$00,$3c,$c0,$cf,$30
|
|
db $19,$1f,$87,$99,$cf,$f3,$01,$ff,$03,$0c,$07,$08,$07,$08,$f7,$08
|
|
db $82,$ff,$01,$ff,$00,$ff,$00,$ff,$c0,$ff,$e0,$3f,$e0,$3f,$e0,$3f
|
|
db $18,$fc,$10,$fc,$f0,$fc,$88,$fc,$88,$fc,$b0,$fc,$a0,$fc,$a0,$fc
|
|
db $15,$3f,$15,$3f,$15,$3f,$15,$3f,$15,$3f,$05,$3f,$05,$3f,$05,$3f
|
|
db $60,$c0,$70,$c0,$38,$e0,$3e,$e0,$17,$f8,$08,$ff,$06,$ff,$01,$ff
|
|
db $03,$0c,$00,$03,$00,$00,$00,$00,$c0,$00,$ff,$00,$3e,$c1,$80,$ff
|
|
db $f0,$0f,$73,$88,$01,$78,$00,$00,$00,$00,$f0,$00,$20,$c0,$c0,$00
|
|
db $18,$ff,$fc,$0f,$fc,$07,$04,$07,$04,$07,$0c,$07,$0c,$07,$1c,$07
|
|
db $a8,$fc,$a8,$fc,$a8,$fc,$a8,$fc,$a8,$fc,$a0,$fc,$a0,$fc,$a0,$fc
|
|
db $05,$3f,$05,$3f,$04,$3f,$04,$3f,$04,$3f,$04,$3f,$04,$3f,$04,$3f
|
|
db $00,$ff,$ff,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $67,$f8,$fa,$f0,$08,$f0,$06,$f8,$06,$f8,$02,$fc,$02,$fc,$02,$fc
|
|
db $80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$03,$00,$07,$00
|
|
db $1c,$0f,$3f,$1f,$30,$1f,$70,$3f,$e0,$3f,$c0,$7f,$80,$7f,$00,$ff
|
|
db $a0,$fc,$a0,$fc,$20,$fc,$20,$fc,$20,$fc,$20,$fc,$20,$fc,$20,$fc
|
|
db $00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$c9,$00,$49
|
|
db $04,$3f,$04,$3f,$04,$3f,$07,$3f,$00,$3f,$00,$3f,$00,$3f,$00,$27
|
|
db $00,$ff,$00,$ff,$00,$ff,$ff,$ff,$00,$ff,$01,$ff,$06,$ff,$1e,$f8
|
|
db $02,$fc,$06,$fc,$0c,$f8,$f4,$f8,$68,$f0,$80,$e0,$00,$80,$00,$00
|
|
db $0e,$01,$1e,$01,$3e,$03,$7f,$03,$fc,$07,$10,$0f,$e4,$1f,$c7,$3f
|
|
db $00,$ff,$00,$ff,$00,$ff,$ff,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $20,$fc,$20,$fc,$20,$fc,$e0,$fc,$00,$fc,$00,$fc,$00,$fc,$00,$e4
|
|
db $00,$93,$00,$93,$00,$93,$00,$93,$00,$93,$00,$93,$00,$93,$00,$92
|
|
db $00,$49,$00,$c9,$00,$49,$00,$49,$00,$49,$00,$69,$00,$9f,$00,$00
|
|
db $00,$2b,$00,$33,$00,$23,$00,$23,$00,$23,$00,$63,$00,$93,$00,$0b
|
|
db $78,$e0,$83,$80,$c0,$b8,$7f,$e0,$18,$ff,$0c,$ff,$03,$fe,$00,$ff
|
|
db $04,$05,$03,$00,$60,$00,$07,$00,$00,$00,$70,$80,$dc,$00,$e3,$fc
|
|
db $0e,$f1,$c0,$00,$00,$00,$0f,$00,$00,$00,$03,$00,$00,$00,$ff,$0f
|
|
db $80,$ff,$60,$7f,$f0,$ff,$cc,$3f,$02,$0f,$fd,$03,$01,$3f,$3e,$ff
|
|
db $00,$d4,$00,$cc,$00,$c4,$00,$c4,$00,$c4,$00,$c6,$00,$c9,$00,$d0
|
|
db $00,$92,$00,$93,$00,$92,$00,$92,$00,$92,$00,$96,$00,$f9,$00,$00
|
|
db $00,$00,$00,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$ff
|
|
db $00,$07,$00,$ff,$00,$03,$00,$03,$00,$03,$00,$03,$00,$ff,$00,$ff
|
|
db $1f,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $f0,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $c0,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$e0,$00,$ff,$00,$c0,$00,$c0,$00,$c0,$00,$c0,$00,$ff,$00,$ff
|
|
db $00,$ff,$00,$e0,$04,$f9,$04,$f9,$04,$f9,$04,$f9,$04,$f9,$04,$f9
|
|
db $00,$ff,$00,$07,$40,$9f,$40,$9f,$40,$9f,$40,$9f,$40,$9f,$40,$9f
|
|
db $04,$f9,$04,$f9,$04,$f9,$04,$f9,$04,$f9,$04,$f9,$00,$e0,$00,$ff
|
|
db $40,$9f,$40,$9f,$40,$9f,$40,$9f,$40,$9f,$40,$9f,$00,$07,$00,$ff
|
|
.KeyArtTilesEnd:
|
|
|
|
.BackgroundCopy: ; tiles start at 26
|
|
db $1b, $1b, $1b, $1b, $1b, $1b, $1b, $1b
|
|
db $1b, $1b, $1c, $1d, $1e, $1f, $1b, $1b
|
|
db $20, $21, $22, $23, $23, $24, $20, $20
|
|
db $25, $26, $27, $28, $29, $2a, $2b, $25
|
|
db $2c, $2d, $23, $2e, $2f, $23, $30, $31
|
|
db $32, $33, $34, $35, $36, $23, $37, $38
|
|
db $32, $33, $39, $3a, $3b, $3c, $37, $38
|
|
db $32, $3d, $3e, $3f, $40, $41, $42, $38
|
|
db $32, $43, $44, $45, $46, $47, $48, $38
|
|
db $32, $49, $4a, $4b, $4c, $4d, $4e, $38
|
|
db $32, $4f, $50, $51, $52, $53, $54, $38
|
|
db $55, $56, $57, $58, $59, $5a, $5b, $5c
|
|
db $5d, $5e, $5f, $60, $61, $62, $63, $64
|
|
db $65, $66, $1b, $67, $68, $69, $6a, $65
|
|
db $1b, $1b, $1b, $6b, $6c, $1b, $1b, $1b
|
|
db $1b, $1b, $1b, $6d, $6e, $1b, $1b, $1b
|
|
.BackgroundCopyEnd:
|