265 lines
11 KiB
PHP
265 lines
11 KiB
PHP
Temperance:
|
|
db 10, "TEMPERANCE"
|
|
db 10, " "
|
|
db 9, "balance "
|
|
db 9, "moderate "
|
|
db 9, "effort "
|
|
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 waterfall
|
|
ld [hl+], a
|
|
ld [hl+], a ; CVS+2 frame of animation
|
|
ret
|
|
.fUpdate:
|
|
ld hl, CVS
|
|
call IncrementTimer
|
|
|
|
ld a, [CVS+1] ; checking the high byte of the timer
|
|
cp a, $01 ; $10 = 1 second, $02 = 1/8 of a second
|
|
jp c, :+
|
|
|
|
ld a, 0
|
|
ld [CVS], a
|
|
ld [CVS+1], a
|
|
|
|
ld b, 6
|
|
ld a, [CVS+2]
|
|
inc a
|
|
call ArrayClampLoopingB
|
|
ld [CVS+2], a
|
|
|
|
call .waterfall
|
|
|
|
:
|
|
|
|
ret
|
|
.fDraw:
|
|
ld a, [CVS+2]
|
|
sra a
|
|
cp a, 0
|
|
jp z, .frame0
|
|
cp a, 1
|
|
jp z, .frame1
|
|
cp a, 2
|
|
jp z, .frame2
|
|
|
|
.frame0
|
|
ld a, %10_01_00_00
|
|
ld [rOBP0], a
|
|
ret
|
|
.frame1
|
|
ld a, %01_00_10_00
|
|
ld [rOBP0], a
|
|
ret
|
|
.frame2
|
|
ld a, %00_10_01_00
|
|
ld [rOBP0], a
|
|
ret
|
|
|
|
.waterfall:
|
|
ld hl, .waterfall2
|
|
ld a, [CVS+2]
|
|
bit 0, a
|
|
jp nz, :+
|
|
ld hl, .waterfall1
|
|
:
|
|
ld de, MY_OAM
|
|
ld b, 5*8
|
|
ld c, 3*8
|
|
ld a, $82
|
|
call BuildMetaSprite
|
|
ret
|
|
|
|
.fPrintPrep: ret
|
|
|
|
.waterfall1
|
|
db $00, $01
|
|
db $02, $03
|
|
db $04, $05
|
|
db $06, $07
|
|
db $08, $09
|
|
db $0a, $0b
|
|
db $0c, $0f
|
|
db $0d, $0e
|
|
.waterfall2
|
|
db $00, $11
|
|
db $12, $10
|
|
db $13, $14
|
|
db $15, $16
|
|
db $17, $1a
|
|
db $18, $19
|
|
db $1b, $1c
|
|
db $0d, $0e
|
|
.SpriteTiles:
|
|
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,$01,$01,$07,$07,$1f,$0f
|
|
db $00,$00,$00,$00,$00,$00,$00,$01,$00,$03,$03,$03,$03,$03,$03,$01
|
|
db $3f,$03,$7e,$00,$fe,$00,$00,$fe,$00,$fc,$fc,$fc,$fc,$fc,$f8,$f8
|
|
db $03,$00,$03,$00,$03,$00,$01,$02,$00,$03,$00,$03,$00,$03,$00,$03
|
|
db $f0,$00,$f0,$00,$f0,$00,$f0,$00,$00,$f0,$00,$f0,$00,$f0,$00,$f0
|
|
db $00,$03,$02,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03
|
|
db $00,$f0,$10,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$e0,$e0,$e0,$e0,$e0,$e0
|
|
db $03,$03,$03,$03,$07,$03,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00
|
|
db $e0,$e0,$e0,$e0,$e0,$c0,$e0,$00,$e0,$00,$f0,$00,$f0,$00,$f0,$00
|
|
db $07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$03,$04
|
|
db $f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$e0,$10
|
|
db $00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07
|
|
db $00,$07,$00,$07,$00,$07,$00,$07,$00,$03,$00,$00,$00,$00,$00,$00
|
|
db $00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$e0,$00,$00,$00,$00,$00,$00
|
|
db $00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0
|
|
db $3e,$3f,$7e,$0e,$fe,$00,$fe,$00,$00,$fc,$00,$fc,$0c,$fc,$f8,$f8
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$04,$07,$1c,$1f
|
|
db $00,$00,$00,$00,$00,$00,$01,$00,$00,$03,$00,$03,$03,$03,$03,$03
|
|
db $03,$03,$03,$01,$03,$00,$03,$00,$03,$00,$03,$00,$01,$02,$00,$03
|
|
db $f0,$f0,$f0,$f0,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$00,$f0
|
|
db $00,$03,$00,$03,$00,$03,$00,$03,$00,$03,$02,$03,$03,$03,$03,$03
|
|
db $00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$e0,$e0,$e0,$e0,$e0
|
|
db $03,$03,$03,$03,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07
|
|
db $07,$07,$07,$03,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00
|
|
db $f0,$f0,$f0,$e0,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00
|
|
db $e0,$e0,$e0,$e0,$e0,$e0,$e0,$e0,$e0,$e0,$f0,$f0,$f0,$f0,$f0,$f0
|
|
db $07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$07,$00,$03,$04,$00,$07
|
|
db $f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$f0,$00,$e0,$10,$00,$f0
|
|
.SpriteTilesEnd:
|
|
|
|
|
|
|
|
; 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,$01,$01,$01,$03,$03,$02,$03,$06,$06,$04,$06,$0f,$0f,$00,$00
|
|
db $09,$19,$09,$19,$0f,$0f,$06,$0f,$06,$0f,$06,$06,$ff,$ff,$00,$00
|
|
db $00,$80,$00,$80,$00,$00,$00,$00,$00,$00,$00,$00,$80,$80,$00,$00
|
|
db $00,$07,$f0,$f0,$60,$60,$40,$60,$c0,$c0,$80,$c0,$80,$c0,$80,$80
|
|
db $00,$00,$0f,$0f,$04,$06,$06,$06,$02,$03,$03,$03,$01,$01,$01,$01
|
|
db $00,$00,$ff,$ff,$60,$60,$20,$60,$30,$30,$10,$30,$10,$30,$19,$19
|
|
db $00,$00,$ff,$ff,$11,$33,$31,$33,$21,$63,$61,$63,$41,$c3,$81,$c3
|
|
db $c1,$c3,$41,$c3,$61,$63,$21,$63,$31,$33,$11,$33,$ff,$ff,$00,$00
|
|
db $7e,$81,$7c,$83,$18,$e7,$00,$ff,$00,$00,$00,$fe,$00,$00,$00,$00
|
|
db $07,$f8,$00,$0f,$00,$7f,$00,$01,$00,$00,$00,$0f,$00,$00,$00,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00
|
|
db $ff,$00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$00,$ff,$00,$ff,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$01,$ff,$03,$ff,$03
|
|
db $ff,$00,$ff,$00,$ff,$03,$ff,$1f,$ff,$7f,$ff,$ff,$ff,$3f,$ff,$cf
|
|
db $ff,$00,$ff,$00,$ff,$c0,$ff,$f8,$ff,$fe,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$80,$ff,$c0
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$01,$ff,$03,$ff,$fe
|
|
db $ff,$06,$ff,$0f,$fe,$09,$f9,$1f,$f3,$7f,$e7,$ff,$cf,$ff,$ce,$ff
|
|
db $ff,$f7,$80,$ff,$3c,$ff,$ff,$ff,$df,$ff,$bf,$ff,$72,$ff,$e7,$ff
|
|
db $07,$ff,$73,$ff,$7d,$ff,$3c,$ff,$be,$ff,$fe,$ff,$fe,$ff,$fe,$df
|
|
db $ff,$e0,$ff,$e0,$ff,$f0,$ff,$f0,$ff,$f0,$ff,$f0,$ff,$f0,$ff,$f0
|
|
db $ff,$03,$ff,$0f,$fc,$1f,$f8,$3f,$f0,$3f,$e0,$3f,$e0,$3f,$e0,$3f
|
|
db $ff,$ff,$87,$ff,$01,$ff,$00,$ff,$00,$ff,$00,$fe,$00,$f8,$00,$e0
|
|
db $dd,$7f,$9b,$ff,$bf,$ff,$c0,$c0,$c0,$c0,$c0,$c0,$fb,$fb,$fb,$e9
|
|
db $ce,$ff,$9c,$ff,$b0,$ff,$ff,$ff,$61,$7f,$2d,$33,$8b,$87,$8b,$07
|
|
db $3e,$df,$3e,$df,$7a,$df,$fa,$df,$fa,$df,$fa,$df,$f2,$ff,$f7,$bf
|
|
db $ff,$e0,$ff,$e0,$ff,$e0,$ff,$c0,$ff,$80,$ff,$80,$ff,$00,$ff,$00
|
|
db $e0,$3f,$e0,$3f,$e0,$3f,$e0,$3e,$e0,$1e,$f0,$1e,$e8,$0e,$e6,$0e
|
|
db $00,$c0,$01,$81,$01,$01,$01,$01,$03,$03,$01,$01,$02,$02,$0f,$0e
|
|
db $e0,$e4,$b0,$87,$b0,$80,$b3,$83,$98,$00,$c7,$00,$03,$04,$c3,$04
|
|
db $0b,$07,$0b,$16,$1e,$05,$b5,$8b,$29,$17,$db,$27,$fa,$03,$00,$03
|
|
db $b7,$6f,$e5,$ff,$cd,$ff,$db,$fe,$b3,$fe,$37,$fc,$6f,$fc,$dc,$ff
|
|
db $e0,$06,$e0,$06,$e0,$04,$e0,$04,$e0,$04,$e0,$04,$e0,$04,$e0,$04
|
|
db $04,$0c,$06,$0f,$03,$0c,$07,$08,$07,$08,$06,$08,$04,$08,$00,$08
|
|
db $03,$04,$01,$86,$01,$82,$00,$81,$20,$40,$20,$40,$00,$60,$00,$70
|
|
db $01,$07,$91,$0f,$81,$0f,$c0,$1f,$20,$df,$00,$7f,$00,$3f,$00,$1f
|
|
db $98,$ff,$30,$ff,$e0,$f1,$00,$e0,$00,$c0,$00,$c0,$00,$80,$00,$80
|
|
db $7f,$80,$3f,$c0,$3f,$c0,$3f,$40,$3f,$00,$3f,$00,$7f,$00,$7f,$00
|
|
db $e0,$04,$e0,$04,$e0,$04,$e0,$04,$f0,$04,$f8,$04,$f8,$04,$f8,$04
|
|
db $00,$08,$00,$09,$00,$09,$01,$0b,$01,$1b,$06,$1f,$0e,$1d,$0e,$11
|
|
db $88,$f0,$84,$f8,$82,$fc,$01,$fe,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$0f,$00,$07,$00,$02,$00,$00,$80,$00,$40,$80,$20,$c0,$10,$e0
|
|
db $00,$00,$00,$00,$01,$00,$01,$01,$03,$03,$03,$03,$07,$07,$06,$07
|
|
db $df,$20,$bf,$40,$ff,$80,$ff,$80,$ff,$80,$ff,$80,$ff,$80,$7f,$80
|
|
db $f8,$04,$f0,$0c,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08
|
|
db $0e,$11,$0e,$11,$0f,$10,$0f,$10,$07,$18,$07,$08,$07,$08,$07,$08
|
|
db $00,$ff,$00,$ff,$00,$ff,$ff,$7f,$ff,$7f,$fe,$7f,$f8,$7f,$ff,$7f
|
|
db $08,$f0,$04,$f8,$00,$ff,$ff,$ff,$80,$ff,$aa,$ff,$00,$ff,$ff,$ff
|
|
db $09,$0f,$06,$3f,$78,$ff,$82,$ff,$29,$ff,$86,$ff,$78,$ff,$80,$ff
|
|
db $ff,$80,$7f,$80,$ff,$80,$7f,$80,$ff,$80,$7f,$80,$7f,$80,$7f,$80
|
|
db $f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08
|
|
db $07,$08,$07,$08,$07,$08,$07,$08,$07,$08,$07,$08,$07,$08,$07,$08
|
|
db $e0,$ff,$e0,$ff,$c0,$ff,$c0,$ff,$c0,$ff,$c0,$ff,$80,$ff,$80,$ff
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $7f,$80,$7f,$80,$7f,$80,$7f,$80,$3f,$c0,$3f,$c0,$1f,$e0,$1f,$e0
|
|
db $f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$08,$f0,$38
|
|
db $07,$08,$07,$08,$07,$08,$07,$08,$07,$08,$07,$08,$07,$08,$06,$0f
|
|
db $80,$ff,$80,$ff,$80,$ff,$80,$ff,$c0,$ff,$c0,$7f,$c0,$7f,$c0,$7f
|
|
db $00,$ff,$00,$ff,$01,$ff,$07,$ff,$08,$ff,$10,$ff,$20,$ff,$40,$ff
|
|
db $1f,$e0,$0f,$f0,$ff,$f8,$0f,$fc,$07,$fc,$03,$fe,$03,$fe,$03,$ff
|
|
db $ff,$00,$fc,$03,$f1,$0f,$e1,$1f,$01,$ff,$00,$ff,$00,$ff,$1f,$e0
|
|
db $40,$f8,$80,$f8,$00,$f8,$80,$f8,$c0,$fc,$f8,$ff,$ff,$ff,$ff,$ff
|
|
db $01,$0f,$00,$0f,$00,$0f,$00,$0f,$01,$1f,$0f,$ff,$ff,$ff,$ff,$ff
|
|
db $60,$ff,$e0,$ff,$60,$ff,$e0,$ff,$e0,$ff,$e0,$ff,$e3,$ff,$e0,$ff
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$01,$ff,$0e,$ff,$f0,$ff,$00,$ff
|
|
db $40,$ff,$00,$ff,$80,$ff,$80,$ff,$00,$ff,$00,$ff,$00,$ff,$01,$ff
|
|
db $01,$ff,$01,$ff,$00,$ff,$00,$ff,$00,$ff,$3f,$ff,$c0,$ff,$00,$ff
|
|
db $3f,$c0,$80,$ff,$80,$ff,$c0,$ff,$c0,$ff,$e0,$ff,$30,$ff,$10,$ff
|
|
db $ff,$4f,$ff,$79,$ff,$3f,$ff,$3f,$ff,$3f,$3f,$ff,$3f,$ff,$ff,$3f
|
|
db $ff,$fc,$ff,$27,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $a0,$ff,$a0,$ff,$20,$ff,$20,$ff,$20,$ff,$20,$ff,$20,$ff,$20,$ff
|
|
db $02,$ff,$04,$ff,$08,$ff,$10,$ff,$10,$ff,$20,$ff,$20,$ff,$00,$ff
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$07,$ff
|
|
db $1f,$f0,$1f,$f0,$1f,$f0,$0f,$f8,$0f,$f8,$0b,$fc,$08,$ff,$fb,$fc
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$00,$00,$01,$01
|
|
db $ff,$3f,$ff,$3f,$ff,$3f,$ff,$3f,$ff,$7f,$ff,$67,$ff,$fc,$ff,$bf
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$f9,$ff,$0f,$ff,$fe
|
|
db $30,$ff,$10,$ff,$10,$ff,$10,$ff,$90,$ff,$80,$9f,$c1,$cf,$e0,$ef
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$01,$ff,$06,$ff,$f8,$ff,$00,$ff
|
|
db $40,$ff,$40,$ff,$83,$ff,$83,$ff,$06,$fe,$06,$fe,$1c,$fc,$18,$f8
|
|
db $3f,$ff,$e0,$e0,$80,$80,$00,$00,$1c,$00,$fe,$00,$ff,$00,$03,$fc
|
|
db $f3,$fc,$03,$04,$03,$04,$03,$04,$02,$05,$00,$0f,$e7,$18,$cf,$30
|
|
db $01,$01,$03,$03,$03,$03,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07
|
|
db $ff,$ef,$ff,$fd,$ff,$3f,$ff,$cf,$ff,$f8,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $ff,$fb,$ff,$5f,$ff,$ff,$ff,$fc,$ff,$07,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $e0,$ef,$f0,$ff,$f0,$3f,$f8,$ff,$fb,$ff,$f8,$ff,$f8,$ff,$ff,$ff
|
|
db $00,$ff,$00,$ff,$00,$ff,$01,$ff,$ff,$ff,$01,$ff,$01,$ff,$ff,$ff
|
|
db $38,$f8,$78,$f8,$78,$f8,$f0,$f0,$e3,$e0,$80,$e0,$c0,$30,$e0,$18
|
|
db $78,$87,$7e,$81,$7e,$81,$3c,$c3,$b9,$46,$13,$6c,$47,$38,$e7,$18
|
|
db $07,$77,$07,$87,$03,$73,$00,$00,$00,$1c,$00,$07,$00,$00,$00,$00
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$7f,$7f,$01,$01,$00,$80,$00,$fc,$00,$00
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$e0,$e0,$00,$00,$00,$03,$00,$00
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$80,$80,$00,$00,$00,$0f,$00,$f8,$00,$00
|
|
db $ff,$ff,$ff,$ff,$fc,$ff,$00,$07,$00,$1d,$00,$9f,$00,$e0,$00,$00
|
|
db $f0,$0f,$f8,$07,$ff,$00,$ff,$00,$7f,$80,$7f,$80,$00,$7f,$00,$00
|
|
db $07,$f8,$17,$e8,$f3,$0c,$f3,$0c,$f3,$0c,$e0,$1f,$0f,$f0,$0f,$f0
|
|
db $ff,$00,$ff,$00,$ff,$00,$7f,$80,$ff,$00,$ff,$00,$ff,$00,$ff,$00
|
|
db $1f,$e0,$00,$ff,$1e,$e1,$7f,$80,$ff,$00,$ff,$00,$ff,$00,$fe,$01
|
|
db $fe,$01,$fe,$01,$fe,$01,$fe,$01,$fc,$03,$00,$ff,$3c,$c3,$7e,$81
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$00,$ff,$7f,$80,$ff,$00
|
|
.KeyArtTilesEnd:
|
|
|
|
.BackgroundCopy: ; tiles start at 26
|
|
db $25, $25, $25, $27, $28, $29, $2a, $25
|
|
db $25, $25, $2b, $2c, $2d, $2e, $2f, $25
|
|
db $25, $30, $31, $32, $33, $34, $35, $25
|
|
db $25, $36, $37, $38, $39, $3a, $25, $25
|
|
db $25, $3b, $3c, $3d, $3e, $3f, $40, $25
|
|
db $25, $41, $42, $43, $44, $45, $46, $25
|
|
db $25, $47, $48, $49, $4a, $4b, $4c, $25
|
|
db $25, $4d, $4e, $4f, $50, $50, $51, $25
|
|
db $25, $52, $53, $54, $50, $55, $56, $25
|
|
db $57, $58, $59, $5a, $5b, $5c, $5d, $5e
|
|
db $7e, $5f, $60, $61, $50, $62, $63, $64
|
|
db $65, $66, $67, $68, $69, $6a, $6b, $6c
|
|
db $6d, $6e, $6f, $70, $71, $72, $73, $7c
|
|
db $74, $75, $76, $77, $78, $79, $7a, $7d
|
|
db $1a, $1a, $1f, $21, $20, $1e, $24, $23
|
|
db $1a, $1a, $1b, $22, $1c, $1d, $1a, $1a
|
|
|
|
.BackgroundCopyEnd:
|