_AnimateTileset:: ; Increment [hTileAnimFrame] and run that frame's function ; from the array pointed to by wTilesetAnim. ; Called in WRAM bank 1, VRAM bank 0, so map tiles ; $80 and above in VRAM bank 1 cannot be animated ; without switching to that bank themselves. ld a, [wTilesetAnim] ld e, a ld a, [wTilesetAnim + 1] ld d, a ldh a, [hTileAnimFrame] ld l, a inc a ldh [hTileAnimFrame], a ld h, 0 add hl, hl add hl, hl add hl, de ; 2-byte parameter ; All functions take input de ld e, [hl] inc hl ld d, [hl] inc hl ; Function address ld a, [hli] ld h, [hl] ld l, a jp hl Tileset0Anim: TilesetJohtoModernAnim: TilesetKantoAnim: dw vTiles2 tile $14, AnimateWaterTile dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, AnimateWaterPalette dw NULL, WaitTileAnimation dw NULL, AnimateFlowerTile dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, StandingTileFrame8 dw NULL, DoneTileAnimation TilesetParkAnim: dw vTiles2 tile $14, AnimateWaterTile dw NULL, WaitTileAnimation dw vTiles2 tile $5f, AnimateFountainTile dw NULL, WaitTileAnimation dw NULL, AnimateWaterPalette dw NULL, WaitTileAnimation dw NULL, AnimateFlowerTile dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, StandingTileFrame8 dw NULL, DoneTileAnimation TilesetForestAnim: dw NULL, ForestTreeLeftAnimation dw NULL, ForestTreeRightAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, ForestTreeLeftAnimation2 dw NULL, ForestTreeRightAnimation2 dw NULL, AnimateFlowerTile dw vTiles2 tile $14, AnimateWaterTile dw NULL, AnimateWaterPalette dw NULL, StandingTileFrame8 dw NULL, DoneTileAnimation TilesetJohtoAnim: if DEF(_DEBUG) TilesetBoardDebug1Anim: endc dw vTiles2 tile $14, AnimateWaterTile dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, AnimateWaterPalette dw NULL, WaitTileAnimation dw NULL, AnimateFlowerTile dw WhirlpoolFrames1, AnimateWhirlpoolTile dw WhirlpoolFrames2, AnimateWhirlpoolTile dw WhirlpoolFrames3, AnimateWhirlpoolTile dw WhirlpoolFrames4, AnimateWhirlpoolTile dw NULL, WaitTileAnimation dw NULL, StandingTileFrame8 dw NULL, DoneTileAnimation UnusedTilesetAnim1: ; unreferenced ; Scrolls tile $03 like cave water, but also has the standard $03 flower tile. dw vTiles2 tile $03, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileRightLeft dw vTiles2 tile $03, WriteTileFromAnimBuffer dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, AnimateFlowerTile dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, DoneTileAnimation UnusedTilesetAnim2: ; unreferenced ; Scrolls tile $14 like cave water. dw vTiles2 tile $14, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileRightLeft dw vTiles2 tile $14, WriteTileFromAnimBuffer dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, DoneTileAnimation TilesetPortAnim: dw vTiles2 tile $14, AnimateWaterTile dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, AnimateWaterPalette dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, StandingTileFrame8 dw NULL, DoneTileAnimation TilesetEliteFourRoomAnim: dw NULL, AnimateLavaBubbleTile2 dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, AnimateLavaBubbleTile1 dw NULL, WaitTileAnimation dw NULL, StandingTileFrame8 dw NULL, DoneTileAnimation UnusedTilesetAnim3: ; unreferenced ; Scrolls tile $53 like a waterfall; scrolls tile $03 like cave water. dw vTiles2 tile $53, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileDown dw wTileAnimBuffer, ScrollTileDown dw vTiles2 tile $53, WriteTileFromAnimBuffer dw vTiles2 tile $03, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileRightLeft dw vTiles2 tile $03, WriteTileFromAnimBuffer dw vTiles2 tile $53, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileDown dw wTileAnimBuffer, ScrollTileDown dw vTiles2 tile $53, WriteTileFromAnimBuffer dw NULL, DoneTileAnimation UnusedTilesetAnim4: ; unreferenced ; Scrolls tile $54 like a waterfall; scrolls tile $03 like cave water. dw vTiles2 tile $54, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileDown dw wTileAnimBuffer, ScrollTileDown dw vTiles2 tile $54, WriteTileFromAnimBuffer dw NULL, WaitTileAnimation dw vTiles2 tile $03, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileRightLeft dw vTiles2 tile $03, WriteTileFromAnimBuffer dw NULL, WaitTileAnimation dw vTiles2 tile $54, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileDown dw wTileAnimBuffer, ScrollTileDown dw vTiles2 tile $54, WriteTileFromAnimBuffer dw NULL, DoneTileAnimation TilesetCaveAnim: TilesetDarkCaveAnim: if DEF(_DEBUG) TilesetBoardDebug2Anim: endc dw vTiles2 tile $14, ReadTileToAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileRightLeft dw NULL, FlickeringCaveEntrancePalette dw vTiles2 tile $14, WriteTileFromAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw NULL, AnimateWaterPalette dw NULL, FlickeringCaveEntrancePalette dw vTiles2 tile $40, ReadTileToAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileDown dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileDown dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileDown dw NULL, FlickeringCaveEntrancePalette dw vTiles2 tile $40, WriteTileFromAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw NULL, DoneTileAnimation TilesetIcePathAnim: dw vTiles2 tile $35, ReadTileToAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileRightLeft dw NULL, FlickeringCaveEntrancePalette dw vTiles2 tile $35, WriteTileFromAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw NULL, AnimateWaterPalette dw NULL, FlickeringCaveEntrancePalette dw vTiles2 tile $31, ReadTileToAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileDown dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileDown dw NULL, FlickeringCaveEntrancePalette dw wTileAnimBuffer, ScrollTileDown dw NULL, FlickeringCaveEntrancePalette dw vTiles2 tile $31, WriteTileFromAnimBuffer dw NULL, FlickeringCaveEntrancePalette dw NULL, DoneTileAnimation TilesetTowerAnim: dw TowerPillarTilePointer9, AnimateTowerPillarTile dw TowerPillarTilePointer10, AnimateTowerPillarTile dw TowerPillarTilePointer7, AnimateTowerPillarTile dw TowerPillarTilePointer8, AnimateTowerPillarTile dw TowerPillarTilePointer5, AnimateTowerPillarTile dw TowerPillarTilePointer6, AnimateTowerPillarTile dw TowerPillarTilePointer3, AnimateTowerPillarTile dw TowerPillarTilePointer4, AnimateTowerPillarTile dw TowerPillarTilePointer1, AnimateTowerPillarTile dw TowerPillarTilePointer2, AnimateTowerPillarTile dw NULL, StandingTileFrame dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, DoneTileAnimation UnusedTilesetAnim5: ; unreferenced ; Scrolls tile $4f like cave water. dw vTiles2 tile $4f, ReadTileToAnimBuffer dw wTileAnimBuffer, ScrollTileRightLeft dw vTiles2 tile $4f, WriteTileFromAnimBuffer dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, DoneTileAnimation TilesetBattleTowerOutsideAnim: TilesetHouseAnim: TilesetPlayersHouseAnim: TilesetPokecenterAnim: TilesetGateAnim: TilesetLabAnim: TilesetFacilityAnim: TilesetMartAnim: TilesetMansionAnim: TilesetGameCornerAnim: TilesetTraditionalHouseAnim: TilesetTrainStationAnim: TilesetChampionsRoomAnim: TilesetLighthouseAnim: TilesetPlayersRoomAnim: TilesetPokeComCenterAnim: TilesetBattleTowerInsideAnim: TilesetRuinsOfAlphAnim: TilesetRadioTowerAnim: TilesetUndergroundAnim: TilesetBetaWordRoomAnim: TilesetHoOhWordRoomAnim: TilesetKabutoWordRoomAnim: TilesetOmanyteWordRoomAnim: TilesetAerodactylWordRoomAnim: dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, WaitTileAnimation dw NULL, DoneTileAnimation DoneTileAnimation: ; Reset the animation command loop. xor a ldh [hTileAnimFrame], a WaitTileAnimation: ; Do nothing this frame. ret StandingTileFrame8: ; Tick the wTileAnimationTimer, wrapping from 7 to 0. ld a, [wTileAnimationTimer] inc a and %111 ld [wTileAnimationTimer], a ret ScrollTileRightLeft: ; Scroll right for 4 ticks, then left for 4 ticks. ld a, [wTileAnimationTimer] inc a and %111 ld [wTileAnimationTimer], a and %100 jr nz, ScrollTileLeft jr ScrollTileRight ScrollTileUpDown: ; unreferenced ; Scroll up for 4 ticks, then down for 4 ticks. ld a, [wTileAnimationTimer] inc a and %111 ld [wTileAnimationTimer], a and %100 jr nz, ScrollTileDown jr ScrollTileUp ScrollTileLeft: ld h, d ld l, e ld c, LEN_2BPP_TILE / 4 .loop rept 4 ld a, [hl] rlca ld [hli], a endr dec c jr nz, .loop ret ScrollTileRight: ld h, d ld l, e ld c, LEN_2BPP_TILE / 4 .loop rept 4 ld a, [hl] rrca ld [hli], a endr dec c jr nz, .loop ret ScrollTileUp: ld h, d ld l, e ld d, [hl] inc hl ld e, [hl] ld bc, LEN_2BPP_TILE - 2 add hl, bc ld a, LEN_2BPP_TILE / 4 .loop ld c, [hl] ld [hl], e dec hl ld b, [hl] ld [hl], d dec hl ld e, [hl] ld [hl], c dec hl ld d, [hl] ld [hl], b dec hl dec a jr nz, .loop ret ScrollTileDown: ld h, d ld l, e ld de, LEN_2BPP_TILE - 2 push hl add hl, de ld d, [hl] inc hl ld e, [hl] pop hl ld a, LEN_2BPP_TILE / 4 .loop ld b, [hl] ld [hl], d inc hl ld c, [hl] ld [hl], e inc hl ld d, [hl] ld [hl], b inc hl ld e, [hl] ld [hl], c inc hl dec a jr nz, .loop ret AnimateFountainTile: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ld hl, .FountainTileFramePointers ; A cycle of 8 frames, updating every tick ld a, [wTileAnimationTimer] and %111 ; hl = [.FountainTileFramePointers + a * 2] add a add l ld l, a jr nc, .okay inc h .okay ld a, [hli] ld h, [hl] ld l, a ; Write the tile graphic from hl (now sp) to de (now hl) ld sp, hl ld l, e ld h, d jp WriteTile .FountainTileFramePointers: dw .FountainTile1 dw .FountainTile2 dw .FountainTile3 dw .FountainTile4 dw .FountainTile3 dw .FountainTile4 dw .FountainTile5 dw .FountainTile1 .FountainTile1: INCBIN "gfx/tilesets/fountain/1.2bpp" .FountainTile2: INCBIN "gfx/tilesets/fountain/2.2bpp" .FountainTile3: INCBIN "gfx/tilesets/fountain/3.2bpp" .FountainTile4: INCBIN "gfx/tilesets/fountain/4.2bpp" .FountainTile5: INCBIN "gfx/tilesets/fountain/5.2bpp" AnimateWaterTile: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; A cycle of 4 frames, updating every other tick ld a, [wTileAnimationTimer] and %110 ; hl = .WaterTileFrames + a * 8 ; (a was pre-multiplied by 2 from 'and %110') add a add a add a add LOW(.WaterTileFrames) ld l, a ld a, 0 adc HIGH(.WaterTileFrames) ld h, a ; Write the tile graphic from hl (now sp) to de (now hl) ld sp, hl ld l, e ld h, d jp WriteTile .WaterTileFrames: INCBIN "gfx/tilesets/water/water.2bpp" ForestTreeLeftAnimation: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; Only animate this during the Celebi event ld a, [wCelebiEvent] bit CELEBIEVENT_FOREST_IS_RESTLESS_F, a jr nz, .do_animation ld hl, ForestTreeLeftFrames jr .got_frames .do_animation ; A cycle of 2 frames, updating every tick ld a, [wTileAnimationTimer] call GetForestTreeFrame ; hl = ForestTreeLeftFrames + a * 8 ; (a was pre-multiplied by 2 from GetForestTreeFrame) add a add a add a add LOW(ForestTreeLeftFrames) ld l, a ld a, 0 adc HIGH(ForestTreeLeftFrames) ld h, a .got_frames ; Write the tile graphic from hl (now sp) to tile $0c (now hl) ld sp, hl ld hl, vTiles2 tile $0c jp WriteTile ForestTreeLeftFrames: INCBIN "gfx/tilesets/forest-tree/1.2bpp" INCBIN "gfx/tilesets/forest-tree/2.2bpp" ForestTreeRightFrames: INCBIN "gfx/tilesets/forest-tree/3.2bpp" INCBIN "gfx/tilesets/forest-tree/4.2bpp" ForestTreeRightAnimation: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; Only animate this during the Celebi event ld a, [wCelebiEvent] bit CELEBIEVENT_FOREST_IS_RESTLESS_F, a jr nz, .do_animation ld hl, ForestTreeRightFrames jr .got_frames .do_animation ; A cycle of 2 frames, updating every tick ld a, [wTileAnimationTimer] call GetForestTreeFrame ; hl = ForestTreeRightFrames + a * 8 ; (a was pre-multiplied by 2 from GetForestTreeFrame) add a add a add a add LOW(ForestTreeLeftFrames) ld l, a ld a, 0 adc HIGH(ForestTreeLeftFrames) ld h, a push bc ld bc, ForestTreeRightFrames - ForestTreeLeftFrames add hl, bc pop bc .got_frames ; Write the tile graphic from hl (now sp) to tile $0f (now hl) ld sp, hl ld hl, vTiles2 tile $0f jp WriteTile ForestTreeLeftAnimation2: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; Only animate this during the Celebi event ld a, [wCelebiEvent] bit CELEBIEVENT_FOREST_IS_RESTLESS_F, a jr nz, .do_animation ld hl, ForestTreeLeftFrames jr .got_frames .do_animation ; A cycle of 2 frames, updating every tick ld a, [wTileAnimationTimer] call GetForestTreeFrame ; Offset by 1 frame from ForestTreeLeftAnimation xor %10 ; hl = ForestTreeLeftFrames + a * 8 ; (a was pre-multiplied by 2 from GetForestTreeFrame) add a add a add a add LOW(ForestTreeLeftFrames) ld l, a ld a, 0 adc HIGH(ForestTreeLeftFrames) ld h, a .got_frames ; Write the tile graphic from hl (now sp) to tile $0c (now hl) ld sp, hl ld hl, vTiles2 tile $0c jp WriteTile ForestTreeRightAnimation2: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; Only animate this during the Celebi event ld a, [wCelebiEvent] bit CELEBIEVENT_FOREST_IS_RESTLESS_F, a jr nz, .do_animation ld hl, ForestTreeRightFrames jr .got_frames .do_animation ; A cycle of 2 frames, updating every tick ld a, [wTileAnimationTimer] call GetForestTreeFrame ; Offset by 1 frame from ForestTreeRightAnimation xor %10 ; hl = ForestTreeRightFrames + a * 8 ; (a was pre-multiplied by 2 from GetForestTreeFrame) add a add a add a add LOW(ForestTreeLeftFrames) ld l, a ld a, 0 adc HIGH(ForestTreeLeftFrames) ld h, a push bc ld bc, ForestTreeRightFrames - ForestTreeLeftFrames add hl, bc pop bc .got_frames ; Write the tile graphic from hl (now sp) to tile $0f (now hl) ld sp, hl ld hl, vTiles2 tile $0f jp WriteTile GetForestTreeFrame: ; Return 0 if a is even, or 2 if odd. and a jr z, .even cp 1 jr z, .odd cp 2 jr z, .even cp 3 jr z, .odd cp 4 jr z, .even cp 5 jr z, .odd cp 6 jr z, .even .odd ld a, 2 scf ret .even xor a ret AnimateFlowerTile: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; A cycle of 2 frames, updating every other tick ld a, [wTileAnimationTimer] and %10 srl a ; hl = .FlowerTileFrames + a * 16 swap a ld e, a ld d, 0 ld hl, .FlowerTileFrames add hl, de ; Write the tile graphic from hl (now sp) to tile $03 (now hl) ld sp, hl ld hl, vTiles2 tile $03 jp WriteTile .FlowerTileFrames: INCBIN "gfx/tilesets/flower/cgb_1.2bpp" INCBIN "gfx/tilesets/flower/cgb_2.2bpp" AnimateLavaBubbleTile1: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; A cycle of 4 frames, updating every other tick ld a, [wTileAnimationTimer] and %110 ; Offset by 2 frames from AnimateLavaBubbleTile2 srl a inc a inc a and %011 ; hl = LavaBubbleTileFrames + a * 16 swap a ld e, a ld d, 0 ld hl, LavaBubbleTileFrames add hl, de ; Write the tile graphic from hl (now sp) to tile $5b (now hl) ld sp, hl ld hl, vTiles2 tile $5b jp WriteTile AnimateLavaBubbleTile2: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; A cycle of 4 frames, updating every other tick ld a, [wTileAnimationTimer] and %110 ; hl = LavaBubbleTileFrames + a * 8 ; (a was pre-multiplied by 2 from 'and %110') add a add a add a ld e, a ld d, 0 ld hl, LavaBubbleTileFrames add hl, de ; Write the tile graphic from hl (now sp) to tile $38 (now hl) ld sp, hl ld hl, vTiles2 tile $38 jp WriteTile LavaBubbleTileFrames: INCBIN "gfx/tilesets/lava/1.2bpp" INCBIN "gfx/tilesets/lava/2.2bpp" INCBIN "gfx/tilesets/lava/3.2bpp" INCBIN "gfx/tilesets/lava/4.2bpp" AnimateTowerPillarTile: ; Input de points to the destination in VRAM, then the source tile frames ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; A cycle of 8 frames, updating every tick ld a, [wTileAnimationTimer] and %111 ; a = [.TowerPillarTileFrameOffsets + a] ld hl, .TowerPillarTileFrameOffsets add l ld l, a ld a, 0 adc h ld h, a ld a, [hl] ; de = the destination in VRAM ld l, e ld h, d ld e, [hl] inc hl ld d, [hl] inc hl ; hl = the source tile frames + offset a add [hl] inc hl ld h, [hl] ld l, a ld a, 0 adc h ld h, a ; Write the tile graphic from hl (now sp) to de (now hl) ld sp, hl ld l, e ld h, d jr WriteTile .TowerPillarTileFrameOffsets: db 0 tiles db 1 tiles db 2 tiles db 3 tiles db 4 tiles db 3 tiles db 2 tiles db 1 tiles StandingTileFrame: ; Tick the wTileAnimationTimer. ld hl, wTileAnimationTimer inc [hl] ret AnimateWhirlpoolTile: ; Input de points to the destination in VRAM, then the source tile frames ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; de = the destination in VRAM ld l, e ld h, d ld e, [hl] inc hl ld d, [hl] inc hl ; A cycle of 4 frames, updating every tick ld a, [wTileAnimationTimer] and %11 ; hl = the source tile frames + a * 16 swap a add [hl] inc hl ld h, [hl] ld l, a ld a, 0 adc h ld h, a ; Write the tile graphic from hl (now sp) to de (now hl) ld sp, hl ld l, e ld h, d jr WriteTile WriteTileFromAnimBuffer: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; Write the tile graphic from wTileAnimBuffer (now sp) to de (now hl) ld hl, wTileAnimBuffer ld sp, hl ld h, d ld l, e jr WriteTile ReadTileToAnimBuffer: ; Save the stack pointer in bc for WriteTile to restore ld hl, sp+0 ld b, h ld c, l ; Write the tile graphic from de (now sp) to wTileAnimBuffer (now hl) ld h, d ld l, e ld sp, hl ld hl, wTileAnimBuffer ; fallthrough WriteTile: ; Write one tile from sp to hl. ; The stack pointer has been saved in bc. ; This function cannot be called, only jumped to, ; because it relocates the stack pointer to quickly ; copy data with a "pop slide". pop de ld [hl], e inc hl ld [hl], d rept (LEN_2BPP_TILE - 2) / 2 pop de inc hl ld [hl], e inc hl ld [hl], d endr ; Restore the stack pointer from bc ld h, b ld l, c ld sp, hl ret AnimateWaterPalette: ; Transition between color values 0-2 for color 0 in palette 3. ; Don't update a non-standard palette order ldh a, [rBGP] cp %11100100 ret nz ; Only update on even ticks ld a, [wTileAnimationTimer] ld l, a and 1 ; odd ret nz ; Ready for BGPD input ld a, (1 << rBGPI_AUTO_INCREMENT) palette PAL_BG_WATER color 0 ldh [rBGPI], a ldh a, [rSVBK] push af ld a, BANK(wBGPals1) ldh [rSVBK], a ; A cycle of 4 colors (0 1 2 1), updating every other tick ld a, l and %110 jr z, .color0 cp %100 jr z, .color2 ; Copy one color from hl to rBGPI via rBGPD ; color1 ld hl, wBGPals1 palette PAL_BG_WATER color 1 ld a, [hli] ldh [rBGPD], a ld a, [hli] ldh [rBGPD], a jr .end .color0 ld hl, wBGPals1 palette PAL_BG_WATER color 0 ld a, [hli] ldh [rBGPD], a ld a, [hli] ldh [rBGPD], a jr .end .color2 ld hl, wBGPals1 palette PAL_BG_WATER color 2 ld a, [hli] ldh [rBGPD], a ld a, [hli] ldh [rBGPD], a .end pop af ldh [rSVBK], a ret FlickeringCaveEntrancePalette: ; Don't update a non-standard palette order ldh a, [rBGP] cp %11100100 ret nz ; We only want to be here if we're in a dark cave. ld a, [wTimeOfDayPalset] cp DARKNESS_PALSET ret nz ldh a, [rSVBK] push af ld a, BANK(wBGPals1) ldh [rSVBK], a ; Ready for BGPD input ld a, (1 << rBGPI_AUTO_INCREMENT) palette PAL_BG_YELLOW color 0 ldh [rBGPI], a ; A cycle of 2 colors (0 2), updating every other vblank ldh a, [hVBlankCounter] and %10 jr nz, .color1 ; Copy one color from hl to rBGPI via rBGPD ; color0 ld hl, wBGPals1 palette PAL_BG_YELLOW color 0 jr .okay .color1 ld hl, wBGPals1 palette PAL_BG_YELLOW color 1 .okay ld a, [hli] ldh [rBGPD], a ld a, [hli] ldh [rBGPD], a pop af ldh [rSVBK], a ret TowerPillarTilePointer1: dw vTiles2 tile $2d, TowerPillarTile1 TowerPillarTilePointer2: dw vTiles2 tile $2f, TowerPillarTile2 TowerPillarTilePointer3: dw vTiles2 tile $3d, TowerPillarTile3 TowerPillarTilePointer4: dw vTiles2 tile $3f, TowerPillarTile4 TowerPillarTilePointer5: dw vTiles2 tile $3c, TowerPillarTile5 TowerPillarTilePointer6: dw vTiles2 tile $2c, TowerPillarTile6 TowerPillarTilePointer7: dw vTiles2 tile $4d, TowerPillarTile7 TowerPillarTilePointer8: dw vTiles2 tile $4f, TowerPillarTile8 TowerPillarTilePointer9: dw vTiles2 tile $5d, TowerPillarTile9 TowerPillarTilePointer10: dw vTiles2 tile $5f, TowerPillarTile10 TowerPillarTile1: INCBIN "gfx/tilesets/tower-pillar/1.2bpp" TowerPillarTile2: INCBIN "gfx/tilesets/tower-pillar/2.2bpp" TowerPillarTile3: INCBIN "gfx/tilesets/tower-pillar/3.2bpp" TowerPillarTile4: INCBIN "gfx/tilesets/tower-pillar/4.2bpp" TowerPillarTile5: INCBIN "gfx/tilesets/tower-pillar/5.2bpp" TowerPillarTile6: INCBIN "gfx/tilesets/tower-pillar/6.2bpp" TowerPillarTile7: INCBIN "gfx/tilesets/tower-pillar/7.2bpp" TowerPillarTile8: INCBIN "gfx/tilesets/tower-pillar/8.2bpp" TowerPillarTile9: INCBIN "gfx/tilesets/tower-pillar/9.2bpp" TowerPillarTile10: INCBIN "gfx/tilesets/tower-pillar/10.2bpp" WhirlpoolFrames1: dw vTiles2 tile $32, WhirlpoolTiles1 WhirlpoolFrames2: dw vTiles2 tile $33, WhirlpoolTiles2 WhirlpoolFrames3: dw vTiles2 tile $42, WhirlpoolTiles3 WhirlpoolFrames4: dw vTiles2 tile $43, WhirlpoolTiles4 WhirlpoolTiles1: INCBIN "gfx/tilesets/whirlpool/1.2bpp" WhirlpoolTiles2: INCBIN "gfx/tilesets/whirlpool/2.2bpp" WhirlpoolTiles3: INCBIN "gfx/tilesets/whirlpool/3.2bpp" WhirlpoolTiles4: INCBIN "gfx/tilesets/whirlpool/4.2bpp"