340 lines
11 KiB
PHP
340 lines
11 KiB
PHP
TheMoon:
|
|
db 10, "THE MOON "
|
|
db 10, " "
|
|
db 10, " "
|
|
db 10, "doubt "
|
|
db 10, "fear "
|
|
db 10, "dreams "
|
|
|
|
db 10, "THE MOON "
|
|
db 10, "(reversed)"
|
|
db 10, " "
|
|
db 10, "fear "
|
|
db 10, "deception "
|
|
db 10, "unveiled "
|
|
|
|
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 animating all the clouds
|
|
ld [hl+], a
|
|
ld a, 50
|
|
ld [hl+], a ; CVS+2 x of cloud 1
|
|
ld a, 70
|
|
ld [hl+], a ; CVS+3 x of cloud 2
|
|
ld a, 56
|
|
ld [hl+], a ; CVS+4 x of cloud 3
|
|
ld a, 36
|
|
ld [hl+], a ; CVS+5 x of cloud 4
|
|
ld a, 108
|
|
ld [hl+], a ; CVS+6 x of cloud 5
|
|
|
|
call SetUpEdgeMasks
|
|
|
|
ld hl, .cloud1
|
|
ld de, MY_OAM + 10*4
|
|
ld b, 76
|
|
ld a, [CVS+2]
|
|
sub a, 0
|
|
ld c, a
|
|
ld a, $11
|
|
call BuildMetaSprite
|
|
|
|
ld hl, .cloud2
|
|
ld de, MY_OAM + 11*4
|
|
ld b, 68
|
|
ld a, [CVS+3]
|
|
sub a, 0
|
|
ld c, a
|
|
ld a, $11
|
|
call BuildMetaSprite
|
|
|
|
ld hl, .cloud3
|
|
ld de, MY_OAM + 12*4
|
|
ld b, 60
|
|
ld a, [CVS+4]
|
|
sub a, 16
|
|
ld c, a
|
|
ld a, $15
|
|
call BuildMetaSprite
|
|
|
|
|
|
ld hl, .cloud4
|
|
ld de, MY_OAM + 18*4
|
|
ld b, 40
|
|
ld a, [CVS+5]
|
|
sub a, 40
|
|
ld c, a
|
|
ld a, $27
|
|
call BuildMetaSprite
|
|
|
|
|
|
ld hl, .cloud5
|
|
ld de, MY_OAM + 31*4
|
|
ld b, 32
|
|
ld a, [CVS+6]
|
|
sub a, 32
|
|
ld c, a
|
|
ld a, $15
|
|
call BuildMetaSprite
|
|
|
|
ret
|
|
.fUpdate:
|
|
ld a, 1
|
|
ld [cvNeedsCleanup], a
|
|
|
|
ld hl, CVS
|
|
call IncrementTimer
|
|
|
|
ld a, [CVS+1] ; checking the high byte of the timer
|
|
cp a, $02 ; $10 = 1 second, $02 = 1/8 of a second
|
|
ret c
|
|
|
|
ld a, 0
|
|
ld [CVS], a
|
|
ld [CVS+1], a
|
|
|
|
ld a, [CVS+2]
|
|
sub a, 1
|
|
cp a, 100
|
|
jr c, :+
|
|
ld a, 100
|
|
: ld [CVS+2], a
|
|
|
|
ld a, [CVS+3]
|
|
sub a, 1
|
|
cp a, 80
|
|
jr c, :+
|
|
ld a, 80
|
|
: ld [CVS+3], a
|
|
|
|
ld a, [CVS+4]
|
|
sub a, 2
|
|
cp a, 105
|
|
jr c, :+
|
|
ld a, 105
|
|
: ld [CVS+4], a
|
|
|
|
ld a, [CVS+5]
|
|
sub a, 1
|
|
cp a, 120
|
|
jr c, :+
|
|
ld a, 120
|
|
: ld [CVS+5], a
|
|
|
|
ld a, [CVS+6]
|
|
sub a, 2
|
|
cp a, 110
|
|
jr c, :+
|
|
ld a, 110
|
|
: ld [CVS+6], a
|
|
|
|
call .drawClouds
|
|
|
|
ret
|
|
|
|
.drawClouds:
|
|
ld de, MY_OAM + 10*4
|
|
ld b, 76
|
|
ld a, [CVS+2]
|
|
sub a, 0
|
|
ld c, a
|
|
ld a, $11
|
|
call PositionMetaSprite
|
|
|
|
ld de, MY_OAM + 11*4
|
|
ld b, 68
|
|
ld a, [CVS+3]
|
|
sub a, 0
|
|
ld c, a
|
|
ld a, $11
|
|
call PositionMetaSprite
|
|
|
|
ld de, MY_OAM + 12*4
|
|
ld b, 60
|
|
ld a, [CVS+4]
|
|
sub a, 16
|
|
ld c, a
|
|
ld a, $15
|
|
call PositionMetaSprite
|
|
|
|
ld de, MY_OAM + 18*4
|
|
ld b, 40
|
|
ld a, [CVS+5]
|
|
sub a, 40
|
|
ld c, a
|
|
ld a, $27
|
|
call PositionMetaSprite
|
|
|
|
ld de, MY_OAM + 31*4
|
|
ld b, 32
|
|
ld a, [CVS+6]
|
|
sub a, 32
|
|
ld c, a
|
|
ld a, $15
|
|
call PositionMetaSprite
|
|
|
|
ret
|
|
.fDraw: ret
|
|
.fPrintPrep: ret
|
|
|
|
.cloud1
|
|
db $17
|
|
.cloud2
|
|
db $16
|
|
.cloud3 ; $15
|
|
db $11, $12, $13, $14, $15
|
|
.cloud4 ; $27
|
|
db $02, $03, $04, $05, $00, $00, $00
|
|
db $06, $07, $07, $08, $09, $0a, $0b
|
|
.cloud5 ; $15
|
|
db $0c, $0d, $0e, $0f, $10
|
|
|
|
.SpriteTiles:
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1f,$00,$7f
|
|
db $00,$00,$00,$00,$00,$00,$00,$0e,$00,$3f,$00,$7f,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$83,$00,$e7,$00,$ef,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$e0,$00,$f0,$00,$f8,$00,$fc
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$7f,$00,$3f,$00,$0f
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$fc,$00,$fe,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$8c,$00,$fe,$00,$fe,$00,$fc,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$d8,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$00,$fc
|
|
db $00,$3c,$00,$7e,$00,$ff,$00,$ff,$00,$7f,$00,$7f,$00,$7f,$00,$3f
|
|
db $00,$0f,$00,$1f,$00,$bf,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$80,$00,$c0,$00,$e0,$00,$f0,$00,$fc,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0,$00,$f8
|
|
db $00,$01,$00,$03,$00,$7f,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$1f
|
|
db $00,$e0,$00,$f1,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$c0,$00,$e0,$00,$f0,$00,$f8,$00,$fe,$00,$ff,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1c,$00,$3f,$00,$ff
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$40,$00,$f0,$00,$7f
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$40,$00,$e0,$00,$f8,$00,$7f
|
|
.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 $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$77,$ff,$ff,$ff,$df,$ff,$ff,$ff,$76,$fe
|
|
db $ff,$ff,$ff,$ff,$fc,$fc,$70,$f0,$e7,$e0,$8f,$80,$7f,$00,$ff,$00
|
|
db $f0,$f0,$00,$00,$7e,$00,$fb,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00
|
|
db $0f,$0f,$00,$00,$00,$00,$f8,$00,$80,$00,$07,$00,$81,$00,$c0,$00
|
|
db $ff,$ff,$ff,$ff,$3f,$3f,$07,$0f,$07,$07,$01,$01,$c0,$00,$40,$00
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$77,$ff,$ff,$ff,$df,$ff,$ff,$ff,$77,$7f
|
|
db $fd,$fc,$f9,$f8,$fb,$f8,$77,$f0,$ef,$e0,$de,$e0,$df,$c0,$5f,$c0
|
|
db $3f,$3f,$1d,$1f,$1f,$1f,$07,$0f,$07,$07,$45,$07,$23,$03,$33,$03
|
|
db $9f,$80,$9f,$80,$8f,$80,$1e,$80,$09,$00,$09,$00,$19,$00,$01,$00
|
|
db $11,$01,$11,$01,$19,$01,$09,$01,$08,$00,$00,$00,$00,$00,$00,$00
|
|
db $00,$00,$00,$00,$30,$00,$20,$00,$90,$80,$18,$80,$80,$80,$00,$80
|
|
db $00,$00,$00,$00,$00,$00,$80,$00,$81,$01,$81,$01,$01,$01,$01,$01
|
|
db $c0,$c0,$40,$c0,$e0,$e0,$40,$e0,$f0,$f0,$50,$f8,$b8,$f8,$54,$fc
|
|
db $03,$03,$01,$03,$03,$07,$05,$07,$0f,$0f,$15,$1f,$1b,$1f,$15,$3f
|
|
db $fe,$fe,$55,$ff,$bb,$ff,$55,$ff,$ee,$ff,$55,$ff,$ab,$ff,$55,$ff
|
|
db $06,$00,$03,$00,$80,$80,$40,$e0,$e0,$f0,$55,$fc,$aa,$ff,$55,$ff
|
|
db $00,$00,$80,$00,$00,$00,$06,$00,$c3,$00,$90,$00,$18,$00,$58,$f0
|
|
db $00,$00,$00,$00,$00,$00,$1c,$00,$f0,$00,$00,$00,$00,$00,$05,$0f
|
|
db $00,$00,$00,$00,$01,$01,$05,$07,$0e,$0f,$15,$3f,$ab,$ff,$55,$ff
|
|
db $7e,$7f,$55,$ff,$bb,$ff,$55,$ff,$ee,$ff,$55,$ff,$ab,$ff,$55,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$77,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$f7,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$77,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$7f,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$77,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$77,$ff
|
|
db $ff,$ff,$fd,$ff,$ff,$ff,$77,$ff,$ff,$ff,$dd,$ff,$ff,$ff,$77,$ff
|
|
db $ff,$ff,$ff,$ff,$ff,$ff,$77,$ff,$ff,$ff,$dd,$ff,$ff,$ff,$57,$ff
|
|
db $ff,$ff,$dd,$ff,$ff,$ff,$75,$ff,$ff,$ff,$dd,$ff,$ff,$ff,$55,$ff
|
|
db $ff,$ff,$dd,$ff,$ff,$ff,$75,$ff,$ff,$ff,$5d,$ff,$ff,$ff,$55,$ff
|
|
db $ff,$ff,$dd,$ff,$ff,$ff,$55,$ff,$ff,$ff,$55,$ff,$ff,$ff,$55,$ff
|
|
db $ff,$ff,$55,$ff,$fb,$ff,$55,$ff,$ff,$ff,$55,$ff,$bb,$ff,$55,$ff
|
|
db $ff,$ff,$55,$ff,$ff,$ff,$55,$ff,$ff,$ff,$55,$ff,$bb,$ff,$55,$ff
|
|
db $ff,$ff,$55,$ff,$bb,$ff,$55,$ff,$ee,$ff,$55,$ff,$bb,$ff,$55,$ff
|
|
db $ff,$ff,$55,$ff,$bb,$ff,$55,$ff,$ef,$ff,$55,$ff,$bb,$ff,$55,$ff
|
|
db $fe,$ff,$55,$ff,$ba,$ff,$55,$ff,$ee,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ee,$ff,$55,$ff,$ba,$ff,$55,$ff,$ee,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ee,$ff,$55,$ff,$aa,$ff,$55,$ff,$ae,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ee,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ee,$ff,$55,$ff,$ba,$ff,$55,$ff,$ae,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ee,$ff,$55,$ff,$bb,$ff,$55,$ff,$ee,$ff,$55,$ff,$ab,$ff,$55,$ff
|
|
db $ee,$ff,$55,$ff,$aa,$ff,$55,$ff,$ee,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ea,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff
|
|
db $ea,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$11,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$51,$ff,$aa,$ff,$55,$ff,$aa,$ff,$11,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$11,$ff
|
|
db $ea,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$15,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$11,$ff,$aa,$ff,$44,$ff,$aa,$ff,$11,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$11,$ff,$aa,$ff,$45,$ff,$aa,$ff,$11,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$11,$ff,$aa,$ff,$55,$ff,$aa,$ff,$11,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$55,$ff,$aa,$ff,$15,$ff
|
|
db $aa,$ff,$54,$ff,$aa,$ff,$11,$ff,$aa,$ff,$44,$ff,$aa,$ff,$11,$ff
|
|
db $aa,$ff,$44,$ff,$aa,$ff,$10,$ff,$aa,$ff,$44,$ff,$aa,$ff,$00,$ff
|
|
db $aa,$ff,$44,$ff,$aa,$ff,$11,$ff,$aa,$ff,$44,$ff,$aa,$ff,$01,$ff
|
|
db $ea,$ff,$ff,$ff,$ff,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $aa,$ff,$54,$ff,$aa,$ff,$11,$ff,$af,$ff,$5f,$ff,$fc,$ff,$f0,$ff
|
|
db $aa,$ff,$44,$ff,$ab,$ff,$7f,$ff,$fc,$ff,$80,$ff,$00,$ff,$00,$ff
|
|
db $aa,$ff,$4f,$ff,$ff,$ff,$c0,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $bf,$ff,$ff,$ff,$ff,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $aa,$ff,$fc,$ff,$ff,$ff,$3f,$ff,$01,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $aa,$ff,$44,$ff,$aa,$ff,$ff,$ff,$ff,$ff,$1f,$ff,$00,$ff,$00,$ff
|
|
db $aa,$ff,$55,$ff,$aa,$ff,$11,$ff,$fe,$ff,$ff,$ff,$7f,$ff,$07,$ff
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ef,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$8f,$00
|
|
db $df,$00,$df,$00,$bf,$00,$bf,$00,$ff,$00,$7f,$00,$7f,$00,$7f,$00
|
|
db $fe,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00
|
|
db $00,$00,$80,$00,$80,$00,$c0,$00,$c0,$00,$e0,$00,$e0,$00,$f0,$00
|
|
db $cf,$00,$ef,$00,$ff,$00,$ff,$00,$ff,$00,$fb,$00,$f9,$00,$f8,$00
|
|
db $ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$7c,$00
|
|
db $f0,$00,$f0,$00,$f0,$00,$f0,$00,$e0,$00,$80,$00,$00,$00,$00,$00
|
|
db $3f,$00,$2f,$00,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $f0,$00,$f0,$00,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $1c,$00,$3e,$00,$7f,$00,$ff,$00,$ff,$00,$ff,$00,$7f,$00,$3e,$00
|
|
db $1c,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
db $00,$00,$00,$00,$00,$00,$20,$00,$20,$00,$20,$00,$23,$00,$26,$00
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$40,$00,$c0,$00,$00,$00,$00,$00
|
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$00,$18,$00,$0c,$00
|
|
db $02,$fc,$05,$f8,$00,$f9,$08,$f3,$00,$f3,$04,$f3,$00,$e0,$00,$ff
|
|
db $00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff,$00,$ff
|
|
db $00,$ff,$00,$e0,$04,$f3,$00,$f3,$08,$f3,$00,$f9,$04,$f9,$00,$fc
|
|
db $00,$ff,$00,$00,$44,$93,$00,$93,$28,$93,$08,$33,$40,$39,$84,$79
|
|
db $00,$ff,$00,$00,$24,$c9,$04,$c9,$14,$c9,$14,$c9,$04,$99,$24,$99
|
|
db $00,$ff,$00,$03,$90,$27,$90,$27,$90,$27,$90,$27,$90,$27,$90,$27
|
|
db $04,$79,$40,$3d,$00,$3c,$22,$9c,$00,$9e,$40,$9e,$00,$00,$00,$ff
|
|
db $24,$99,$04,$b9,$04,$39,$44,$39,$04,$79,$04,$79,$00,$00,$00,$ff
|
|
db $90,$27,$90,$27,$90,$27,$90,$27,$90,$27,$90,$27,$00,$03,$00,$ff
|
|
.KeyArtTilesEnd:
|
|
|
|
.BackgroundCopy: ; tiles start at 26
|
|
db $1b, $30, $31, $31, $31, $31, $30, $32
|
|
db $31, $1c, $1d, $1e, $1f, $20, $21, $33
|
|
db $34, $22, $58, $59, $5b, $5c, $23, $35
|
|
db $36, $24, $5a, $5d, $5e, $5f, $25, $37
|
|
db $38, $26, $60, $61, $1a, $62, $27, $38
|
|
db $39, $28, $66, $64, $65, $63, $29, $3a
|
|
db $3b, $2a, $2b, $2c, $2d, $2e, $2f, $3c
|
|
db $3d, $3e, $3f, $40, $40, $3f, $41, $42
|
|
db $43, $44, $45, $46, $46, $47, $48, $3f
|
|
db $44, $46, $49, $49, $49, $4a, $4b, $4c
|
|
db $46, $4d, $4e, $4e, $4e, $4f, $4a, $4b
|
|
db $51, $52, $53, $54, $50, $55, $56, $57
|
|
db $68, $68, $68, $68, $68, $68, $68, $68
|
|
db $68, $68, $68, $68, $68, $68, $68, $68
|
|
db $68, $68, $69, $6a, $6b, $6c, $68, $68
|
|
db $68, $68, $67, $6d, $6e, $6f, $68, $68
|
|
.BackgroundCopyEnd:
|