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: