mirror of
https://github.com/thornAvery/jep-hack.git
synced 2026-02-06 16:15:24 +13:00
First Commit
Upload literally everything from the pokecrystal16 expand-move-ID branch
This commit is contained in:
Zeta_Null
commit
2f8a41f833
4618 changed files with 480386 additions and 0 deletions
86
engine/tilesets/map_palettes.asm
Normal file
86
engine/tilesets/map_palettes.asm
Normal file
|
|
@ -0,0 +1,86 @@
|
|||
_SwapTextboxPalettes::
|
||||
hlcoord 0, 0
|
||||
decoord 0, 0, wAttrmap
|
||||
ld b, SCREEN_HEIGHT
|
||||
.loop
|
||||
push bc
|
||||
ld c, SCREEN_WIDTH
|
||||
.innerloop
|
||||
ld a, [hl]
|
||||
push hl
|
||||
srl a
|
||||
jr c, .UpperNybble
|
||||
ld hl, wTilesetPalettes
|
||||
add [hl]
|
||||
ld l, a
|
||||
ld a, [wTilesetPalettes + 1]
|
||||
adc 0
|
||||
ld h, a
|
||||
ld a, [hl]
|
||||
and $f
|
||||
jr .next
|
||||
|
||||
.UpperNybble:
|
||||
ld hl, wTilesetPalettes
|
||||
add [hl]
|
||||
ld l, a
|
||||
ld a, [wTilesetPalettes + 1]
|
||||
adc 0
|
||||
ld h, a
|
||||
ld a, [hl]
|
||||
swap a
|
||||
and $f
|
||||
|
||||
.next
|
||||
pop hl
|
||||
ld [de], a
|
||||
res 7, [hl]
|
||||
inc hl
|
||||
inc de
|
||||
dec c
|
||||
jr nz, .innerloop
|
||||
pop bc
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
_ScrollBGMapPalettes::
|
||||
ld hl, wBGMapBuffer
|
||||
ld de, wBGMapPalBuffer
|
||||
.loop
|
||||
ld a, [hl]
|
||||
push hl
|
||||
srl a
|
||||
jr c, .UpperNybble
|
||||
|
||||
; .LowerNybble
|
||||
ld hl, wTilesetPalettes
|
||||
add [hl]
|
||||
ld l, a
|
||||
ld a, [wTilesetPalettes + 1]
|
||||
adc 0
|
||||
ld h, a
|
||||
ld a, [hl]
|
||||
and $f
|
||||
jr .next
|
||||
|
||||
.UpperNybble:
|
||||
ld hl, wTilesetPalettes
|
||||
add [hl]
|
||||
ld l, a
|
||||
ld a, [wTilesetPalettes + 1]
|
||||
adc 0
|
||||
ld h, a
|
||||
ld a, [hl]
|
||||
swap a
|
||||
and $f
|
||||
|
||||
.next
|
||||
pop hl
|
||||
ld [de], a
|
||||
res 7, [hl]
|
||||
inc hl
|
||||
inc de
|
||||
dec c
|
||||
jr nz, .loop
|
||||
ret
|
||||
18
engine/tilesets/mapgroup_roofs.asm
Normal file
18
engine/tilesets/mapgroup_roofs.asm
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
LoadMapGroupRoof::
|
||||
ld a, [wMapGroup]
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, MapGroupRoofs
|
||||
add hl, de
|
||||
ld a, [hl]
|
||||
cp -1
|
||||
ret z
|
||||
ld hl, Roofs
|
||||
ld bc, ROOF_LENGTH tiles
|
||||
call AddNTimes
|
||||
ld de, vTiles2 tile $0a
|
||||
ld bc, ROOF_LENGTH tiles
|
||||
call CopyBytes
|
||||
ret
|
||||
|
||||
INCLUDE "data/maps/roofs.asm"
|
||||
1049
engine/tilesets/tileset_anims.asm
Normal file
1049
engine/tilesets/tileset_anims.asm
Normal file
File diff suppressed because it is too large
Load diff
137
engine/tilesets/tileset_palettes.asm
Normal file
137
engine/tilesets/tileset_palettes.asm
Normal file
|
|
@ -0,0 +1,137 @@
|
|||
LoadSpecialMapPalette:
|
||||
ld a, [wMapTileset]
|
||||
cp TILESET_POKECOM_CENTER
|
||||
jr z, .pokecom_2f
|
||||
cp TILESET_BATTLE_TOWER_INSIDE
|
||||
jr z, .battle_tower_inside
|
||||
cp TILESET_ICE_PATH
|
||||
jr z, .ice_path
|
||||
cp TILESET_HOUSE
|
||||
jr z, .house
|
||||
cp TILESET_RADIO_TOWER
|
||||
jr z, .radio_tower
|
||||
cp TILESET_MANSION
|
||||
jr z, .mansion_mobile
|
||||
jr .do_nothing
|
||||
|
||||
.pokecom_2f
|
||||
call LoadPokeComPalette
|
||||
scf
|
||||
ret
|
||||
|
||||
.battle_tower_inside
|
||||
call LoadBattleTowerInsidePalette
|
||||
scf
|
||||
ret
|
||||
|
||||
.ice_path
|
||||
ld a, [wEnvironment]
|
||||
and $7
|
||||
cp INDOOR ; Hall of Fame
|
||||
jr z, .do_nothing
|
||||
call LoadIcePathPalette
|
||||
scf
|
||||
ret
|
||||
|
||||
.house
|
||||
call LoadHousePalette
|
||||
scf
|
||||
ret
|
||||
|
||||
.radio_tower
|
||||
call LoadRadioTowerPalette
|
||||
scf
|
||||
ret
|
||||
|
||||
.mansion_mobile
|
||||
call LoadMansionPalette
|
||||
scf
|
||||
ret
|
||||
|
||||
.do_nothing
|
||||
and a
|
||||
ret
|
||||
|
||||
LoadPokeComPalette:
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1
|
||||
ld hl, PokeComPalette
|
||||
ld bc, 8 palettes
|
||||
call FarCopyWRAM
|
||||
ret
|
||||
|
||||
PokeComPalette:
|
||||
INCLUDE "gfx/tilesets/pokecom_center.pal"
|
||||
|
||||
LoadBattleTowerInsidePalette:
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1
|
||||
ld hl, BattleTowerInsidePalette
|
||||
ld bc, 8 palettes
|
||||
call FarCopyWRAM
|
||||
ret
|
||||
|
||||
BattleTowerInsidePalette:
|
||||
INCLUDE "gfx/tilesets/battle_tower_inside.pal"
|
||||
|
||||
LoadIcePathPalette:
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1
|
||||
ld hl, IcePathPalette
|
||||
ld bc, 8 palettes
|
||||
call FarCopyWRAM
|
||||
ret
|
||||
|
||||
IcePathPalette:
|
||||
INCLUDE "gfx/tilesets/ice_path.pal"
|
||||
|
||||
LoadHousePalette:
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1
|
||||
ld hl, HousePalette
|
||||
ld bc, 8 palettes
|
||||
call FarCopyWRAM
|
||||
ret
|
||||
|
||||
HousePalette:
|
||||
INCLUDE "gfx/tilesets/house.pal"
|
||||
|
||||
LoadRadioTowerPalette:
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1
|
||||
ld hl, RadioTowerPalette
|
||||
ld bc, 8 palettes
|
||||
call FarCopyWRAM
|
||||
ret
|
||||
|
||||
RadioTowerPalette:
|
||||
INCLUDE "gfx/tilesets/radio_tower.pal"
|
||||
|
||||
MansionPalette1:
|
||||
INCLUDE "gfx/tilesets/mansion_1.pal"
|
||||
|
||||
LoadMansionPalette:
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1
|
||||
ld hl, MansionPalette1
|
||||
ld bc, 8 palettes
|
||||
call FarCopyWRAM
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1 palette PAL_BG_YELLOW
|
||||
ld hl, MansionPalette2
|
||||
ld bc, 1 palettes
|
||||
call FarCopyWRAM
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1 palette PAL_BG_WATER
|
||||
ld hl, MansionPalette1 palette 6
|
||||
ld bc, 1 palettes
|
||||
call FarCopyWRAM
|
||||
ld a, BANK(wBGPals1)
|
||||
ld de, wBGPals1 palette PAL_BG_ROOF
|
||||
ld hl, MansionPalette1 palette 8
|
||||
ld bc, 1 palettes
|
||||
call FarCopyWRAM
|
||||
ret
|
||||
|
||||
MansionPalette2:
|
||||
INCLUDE "gfx/tilesets/mansion_2.pal"
|
||||
384
engine/tilesets/timeofday_pals.asm
Normal file
384
engine/tilesets/timeofday_pals.asm
Normal file
|
|
@ -0,0 +1,384 @@
|
|||
DummyPredef35:
|
||||
DummyPredef36:
|
||||
ret
|
||||
|
||||
UpdateTimeOfDayPal::
|
||||
call UpdateTime
|
||||
ld a, [wTimeOfDay]
|
||||
ld [wCurTimeOfDay], a
|
||||
call GetTimePalette
|
||||
ld [wTimeOfDayPal], a
|
||||
ret
|
||||
|
||||
_TimeOfDayPals::
|
||||
; return carry if pals are changed
|
||||
|
||||
; forced pals?
|
||||
ld hl, wTimeOfDayPalFlags
|
||||
bit 7, [hl]
|
||||
jr nz, .dontchange
|
||||
|
||||
; do we need to bother updating?
|
||||
ld a, [wTimeOfDay]
|
||||
ld hl, wCurTimeOfDay
|
||||
cp [hl]
|
||||
jr z, .dontchange
|
||||
|
||||
; if so, the time of day has changed
|
||||
ld a, [wTimeOfDay]
|
||||
ld [wCurTimeOfDay], a
|
||||
|
||||
; get palette id
|
||||
call GetTimePalette
|
||||
|
||||
; same palette as before?
|
||||
ld hl, wTimeOfDayPal
|
||||
cp [hl]
|
||||
jr z, .dontchange
|
||||
|
||||
; update palette id
|
||||
ld [wTimeOfDayPal], a
|
||||
|
||||
; save bg palette 7
|
||||
ld hl, wBGPals1 palette PAL_BG_TEXT
|
||||
|
||||
; save wram bank
|
||||
ldh a, [rSVBK]
|
||||
ld b, a
|
||||
|
||||
ld a, BANK(wBGPals1)
|
||||
ldh [rSVBK], a
|
||||
|
||||
; push palette
|
||||
ld c, NUM_PAL_COLORS
|
||||
.push
|
||||
ld d, [hl]
|
||||
inc hl
|
||||
ld e, [hl]
|
||||
inc hl
|
||||
push de
|
||||
dec c
|
||||
jr nz, .push
|
||||
|
||||
; restore wram bank
|
||||
ld a, b
|
||||
ldh [rSVBK], a
|
||||
|
||||
; update sgb pals
|
||||
ld b, SCGB_MAPPALS
|
||||
call GetSGBLayout
|
||||
|
||||
; restore bg palette 7
|
||||
ld hl, wOBPals1 - 1 ; last byte in wBGPals1
|
||||
|
||||
; save wram bank
|
||||
ldh a, [rSVBK]
|
||||
ld d, a
|
||||
|
||||
ld a, BANK(wOBPals1)
|
||||
ldh [rSVBK], a
|
||||
|
||||
; pop palette
|
||||
ld e, NUM_PAL_COLORS
|
||||
.pop
|
||||
pop bc
|
||||
ld [hl], c
|
||||
dec hl
|
||||
ld [hl], b
|
||||
dec hl
|
||||
dec e
|
||||
jr nz, .pop
|
||||
|
||||
; restore wram bank
|
||||
ld a, d
|
||||
ldh [rSVBK], a
|
||||
|
||||
; update palettes
|
||||
call _UpdateTimePals
|
||||
call DelayFrame
|
||||
|
||||
; successful change
|
||||
scf
|
||||
ret
|
||||
|
||||
.dontchange
|
||||
; no change occurred
|
||||
and a
|
||||
ret
|
||||
|
||||
_UpdateTimePals::
|
||||
ld c, $9 ; normal
|
||||
call GetTimePalFade
|
||||
call DmgToCgbTimePals
|
||||
ret
|
||||
|
||||
FadeInPalettes::
|
||||
ld c, $12
|
||||
call GetTimePalFade
|
||||
ld b, $4
|
||||
call ConvertTimePalsDecHL
|
||||
ret
|
||||
|
||||
FadeOutPalettes::
|
||||
call FillWhiteBGColor
|
||||
ld c, $9
|
||||
call GetTimePalFade
|
||||
ld b, $4
|
||||
call ConvertTimePalsIncHL
|
||||
ret
|
||||
|
||||
BattleTowerFade:
|
||||
call FillWhiteBGColor
|
||||
ld c, $9
|
||||
call GetTimePalFade
|
||||
ld b, $4
|
||||
.loop
|
||||
call DmgToCgbTimePals
|
||||
inc hl
|
||||
inc hl
|
||||
inc hl
|
||||
ld c, $7
|
||||
call DelayFrames
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
FadeInQuickly:
|
||||
ld c, $0
|
||||
call GetTimePalFade
|
||||
ld b, $4
|
||||
call ConvertTimePalsIncHL
|
||||
ret
|
||||
|
||||
FadeBlackQuickly:
|
||||
ld c, $9
|
||||
call GetTimePalFade
|
||||
ld b, $4
|
||||
call ConvertTimePalsDecHL
|
||||
ret
|
||||
|
||||
FillWhiteBGColor:
|
||||
ldh a, [rSVBK]
|
||||
push af
|
||||
ld a, BANK(wBGPals1)
|
||||
ldh [rSVBK], a
|
||||
|
||||
ld hl, wBGPals1
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
ld hl, wBGPals1 + 1 palettes
|
||||
ld c, 6
|
||||
.loop
|
||||
ld a, e
|
||||
ld [hli], a
|
||||
ld a, d
|
||||
ld [hli], a
|
||||
rept 6
|
||||
inc hl
|
||||
endr
|
||||
dec c
|
||||
jr nz, .loop
|
||||
|
||||
pop af
|
||||
ldh [rSVBK], a
|
||||
ret
|
||||
|
||||
ReplaceTimeOfDayPals:
|
||||
ld hl, .BrightnessLevels
|
||||
ld a, [wMapTimeOfDay]
|
||||
cp PALETTE_DARK
|
||||
jr z, .NeedsFlash
|
||||
maskbits NUM_MAP_PALETTES
|
||||
add l
|
||||
ld l, a
|
||||
ld a, 0
|
||||
adc h
|
||||
ld h, a
|
||||
ld a, [hl]
|
||||
ld [wTimeOfDayPalset], a
|
||||
ret
|
||||
|
||||
.NeedsFlash:
|
||||
ld a, [wStatusFlags]
|
||||
bit STATUSFLAGS_FLASH_F, a
|
||||
jr nz, .UsedFlash
|
||||
ld a, DARKNESS_PALSET
|
||||
ld [wTimeOfDayPalset], a
|
||||
ret
|
||||
|
||||
.UsedFlash:
|
||||
ld a, (NITE_F << 6) | (NITE_F << 4) | (NITE_F << 2) | NITE_F
|
||||
ld [wTimeOfDayPalset], a
|
||||
ret
|
||||
|
||||
.BrightnessLevels:
|
||||
; actual palettes used when time is
|
||||
; DARKNESS_F, NITE_F, DAY_F, MORN_F
|
||||
dc DARKNESS_F, NITE_F, DAY_F, MORN_F ; PALETTE_AUTO
|
||||
dc DAY_F, DAY_F, DAY_F, DAY_F ; PALETTE_DAY
|
||||
dc NITE_F, NITE_F, NITE_F, NITE_F ; PALETTE_NITE
|
||||
dc MORN_F, MORN_F, MORN_F, MORN_F ; PALETTE_MORN
|
||||
dc DARKNESS_F, DARKNESS_F, DARKNESS_F, DARKNESS_F ; PALETTE_DARK
|
||||
dc DARKNESS_F, NITE_F, DAY_F, MORN_F
|
||||
dc DARKNESS_F, NITE_F, DAY_F, MORN_F
|
||||
dc DARKNESS_F, NITE_F, DAY_F, MORN_F
|
||||
|
||||
GetTimePalette:
|
||||
jumptable .TimePalettes, wTimeOfDay
|
||||
|
||||
.TimePalettes:
|
||||
dw .MorningPalette ; MORN_F
|
||||
dw .DayPalette ; DAY_F
|
||||
dw .NitePalette ; NITE_F
|
||||
dw .DarknessPalette ; DARKNESS_F
|
||||
|
||||
.MorningPalette:
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %00000011
|
||||
ret
|
||||
|
||||
.DayPalette:
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %00001100
|
||||
srl a
|
||||
srl a
|
||||
ret
|
||||
|
||||
.NitePalette:
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %00110000
|
||||
swap a
|
||||
ret
|
||||
|
||||
.DarknessPalette:
|
||||
ld a, [wTimeOfDayPalset]
|
||||
and %11000000
|
||||
rlca
|
||||
rlca
|
||||
ret
|
||||
|
||||
DmgToCgbTimePals:
|
||||
push hl
|
||||
push de
|
||||
ld a, [hli]
|
||||
call DmgToCgbBGPals
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld a, [hli]
|
||||
ld d, a
|
||||
call DmgToCgbObjPals
|
||||
pop de
|
||||
pop hl
|
||||
ret
|
||||
|
||||
ConvertTimePalsIncHL:
|
||||
.loop
|
||||
call DmgToCgbTimePals
|
||||
inc hl
|
||||
inc hl
|
||||
inc hl
|
||||
ld c, 2
|
||||
call DelayFrames
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
ConvertTimePalsDecHL:
|
||||
.loop
|
||||
call DmgToCgbTimePals
|
||||
dec hl
|
||||
dec hl
|
||||
dec hl
|
||||
ld c, 2
|
||||
call DelayFrames
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
GetTimePalFade:
|
||||
; check cgb
|
||||
ldh a, [hCGB]
|
||||
and a
|
||||
jr nz, .cgb
|
||||
|
||||
; else: dmg
|
||||
|
||||
; index
|
||||
ld a, [wTimeOfDayPal]
|
||||
and %11
|
||||
|
||||
; get fade table
|
||||
push bc
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, .dmgfades
|
||||
add hl, bc
|
||||
add hl, bc
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
pop bc
|
||||
|
||||
; get place in fade table
|
||||
ld b, 0
|
||||
add hl, bc
|
||||
ret
|
||||
|
||||
.cgb
|
||||
ld hl, .cgbfade
|
||||
ld b, 0
|
||||
add hl, bc
|
||||
ret
|
||||
|
||||
.dmgfades
|
||||
dw .morn
|
||||
dw .day
|
||||
dw .nite
|
||||
dw .darkness
|
||||
|
||||
.morn
|
||||
dc 3,3,3,3, 3,3,3,3, 3,3,3,3
|
||||
dc 3,3,3,2, 3,3,3,2, 3,3,3,2
|
||||
dc 3,3,2,1, 3,2,1,0, 3,2,1,0
|
||||
dc 3,2,1,0, 3,1,0,0, 3,1,0,0
|
||||
dc 2,1,0,0, 2,0,0,0, 2,0,0,0
|
||||
dc 1,0,0,0, 1,0,0,0, 1,0,0,0
|
||||
dc 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||||
|
||||
.day
|
||||
dc 3,3,3,3, 3,3,3,3, 3,3,3,3
|
||||
dc 3,3,3,2, 3,3,3,2, 3,3,3,2
|
||||
dc 3,3,2,1, 3,2,1,0, 3,2,1,0
|
||||
dc 3,2,1,0, 3,1,0,0, 3,1,0,0
|
||||
dc 2,1,0,0, 2,0,0,0, 2,0,0,0
|
||||
dc 1,0,0,0, 1,0,0,0, 1,0,0,0
|
||||
dc 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||||
|
||||
.nite
|
||||
dc 3,3,3,3, 3,3,3,3, 3,3,3,3
|
||||
dc 3,3,3,2, 3,3,3,2, 3,3,3,2
|
||||
dc 3,3,2,1, 3,2,1,0, 3,2,1,0
|
||||
dc 3,2,2,1, 3,1,0,0, 3,1,0,0
|
||||
dc 2,1,0,0, 2,0,0,0, 2,0,0,0
|
||||
dc 1,0,0,0, 1,0,0,0, 1,0,0,0
|
||||
dc 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||||
|
||||
.darkness
|
||||
dc 3,3,3,3, 3,3,3,3, 3,3,3,3
|
||||
dc 3,3,3,2, 3,3,3,2, 3,3,3,3
|
||||
dc 3,3,3,2, 3,2,1,0, 3,3,3,3
|
||||
dc 3,3,3,1, 3,1,0,0, 3,3,3,3
|
||||
dc 3,3,3,1, 2,0,0,0, 3,3,3,3
|
||||
dc 0,0,0,0, 1,0,0,0, 0,0,0,0
|
||||
dc 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||||
|
||||
.cgbfade
|
||||
dc 3,3,3,3, 3,3,3,3, 3,3,3,3
|
||||
dc 3,3,3,2, 3,3,3,2, 3,3,3,2
|
||||
dc 3,3,2,1, 3,3,2,1, 3,3,2,1
|
||||
dc 3,2,1,0, 3,2,1,0, 3,2,1,0
|
||||
dc 2,1,0,0, 2,1,0,0, 2,1,0,0
|
||||
dc 1,0,0,0, 1,0,0,0, 1,0,0,0
|
||||
dc 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||||
Loading…
Add table
Add a link
Reference in a new issue