mirror of https://github.com/pret/pokecrystal.git
492 lines
7.3 KiB
NASM
492 lines
7.3 KiB
NASM
GetUnownLetter:
|
|
; Return Unown letter in wUnownLetter based on DVs at hl
|
|
|
|
; Take the middle 2 bits of each DV and place them in order:
|
|
; atk def spd spc
|
|
; .ww..xx. .yy..zz.
|
|
|
|
; atk
|
|
ld a, [hl]
|
|
and %01100000
|
|
sla a
|
|
ld b, a
|
|
; def
|
|
ld a, [hli]
|
|
and %00000110
|
|
swap a
|
|
srl a
|
|
or b
|
|
ld b, a
|
|
|
|
; spd
|
|
ld a, [hl]
|
|
and %01100000
|
|
swap a
|
|
sla a
|
|
or b
|
|
ld b, a
|
|
; spc
|
|
ld a, [hl]
|
|
and %00000110
|
|
srl a
|
|
or b
|
|
|
|
; Divide by 10 to get 0-25
|
|
ldh [hDividend + 3], a
|
|
xor a
|
|
ldh [hDividend], a
|
|
ldh [hDividend + 1], a
|
|
ldh [hDividend + 2], a
|
|
ld a, $ff / NUM_UNOWN + 1
|
|
ldh [hDivisor], a
|
|
ld b, 4
|
|
call Divide
|
|
|
|
; Increment to get 1-26
|
|
ldh a, [hQuotient + 3]
|
|
inc a
|
|
ld [wUnownLetter], a
|
|
ret
|
|
|
|
GetMonFrontpic:
|
|
ld a, [wCurPartySpecies]
|
|
ld [wCurSpecies], a
|
|
call IsAPokemon
|
|
ret c
|
|
ldh a, [rSVBK]
|
|
push af
|
|
call _GetFrontpic
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
GetAnimatedFrontpic:
|
|
ld a, [wCurPartySpecies]
|
|
ld [wCurSpecies], a
|
|
call IsAPokemon
|
|
ret c
|
|
ldh a, [rSVBK]
|
|
push af
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call _GetFrontpic
|
|
call GetAnimatedEnemyFrontpic
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
_GetFrontpic:
|
|
push de
|
|
call GetBaseData
|
|
ld a, [wBasePicSize]
|
|
and $f
|
|
ld b, a
|
|
push bc
|
|
call GetFrontpicPointer
|
|
ld a, BANK(wDecompressEnemyFrontpic)
|
|
ldh [rSVBK], a
|
|
ld a, b
|
|
ld de, wDecompressEnemyFrontpic
|
|
call FarDecompress
|
|
pop bc
|
|
ld hl, wDecompressScratch
|
|
ld de, wDecompressEnemyFrontpic
|
|
call PadFrontpic
|
|
pop hl
|
|
push hl
|
|
ld de, wDecompressScratch
|
|
ld c, 7 * 7
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
pop hl
|
|
ret
|
|
|
|
GetFrontpicPointer:
|
|
ld a, [wCurPartySpecies]
|
|
cp UNOWN
|
|
jr z, .unown
|
|
ld a, [wCurPartySpecies]
|
|
ld d, BANK(PokemonPicPointers)
|
|
jr .ok
|
|
.unown
|
|
ld a, [wUnownLetter]
|
|
ld d, BANK(UnownPicPointers)
|
|
.ok
|
|
; These are assumed to be at the same address in their respective banks.
|
|
assert PokemonPicPointers == UnownPicPointers
|
|
ld hl, PokemonPicPointers
|
|
dec a
|
|
ld bc, 6
|
|
call AddNTimes
|
|
ld a, d
|
|
call GetFarByte
|
|
call FixPicBank
|
|
push af
|
|
inc hl
|
|
ld a, d
|
|
call GetFarWord
|
|
pop bc
|
|
ret
|
|
|
|
GetAnimatedEnemyFrontpic:
|
|
ld a, BANK(vTiles3)
|
|
ldh [rVBK], a
|
|
push hl
|
|
ld de, wDecompressScratch
|
|
ld c, 7 * 7
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
pop hl
|
|
ld de, 7 * 7 tiles
|
|
add hl, de
|
|
push hl
|
|
ld a, BANK(wBasePicSize)
|
|
ld hl, wBasePicSize
|
|
call GetFarWRAMByte
|
|
pop hl
|
|
and $f
|
|
ld de, wDecompressEnemyFrontpic + 5 * 5 tiles
|
|
ld c, 5 * 5
|
|
cp 5
|
|
jr z, .got_dims
|
|
ld de, wDecompressEnemyFrontpic + 6 * 6 tiles
|
|
ld c, 6 * 6
|
|
cp 6
|
|
jr z, .got_dims
|
|
ld de, wDecompressEnemyFrontpic + 7 * 7 tiles
|
|
ld c, 7 * 7
|
|
.got_dims
|
|
push hl
|
|
push bc
|
|
call LoadFrontpicTiles
|
|
pop bc
|
|
pop hl
|
|
ld de, wDecompressScratch
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
xor a
|
|
ldh [rVBK], a
|
|
ret
|
|
|
|
LoadFrontpicTiles:
|
|
ld hl, wDecompressScratch
|
|
swap c
|
|
ld a, c
|
|
and $f
|
|
ld b, a
|
|
ld a, c
|
|
and $f0
|
|
ld c, a
|
|
push bc
|
|
call LoadOrientedFrontpic
|
|
pop bc
|
|
.loop
|
|
push bc
|
|
ld c, 0
|
|
call LoadOrientedFrontpic
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop
|
|
ret
|
|
|
|
GetMonBackpic:
|
|
ld a, [wCurPartySpecies]
|
|
call IsAPokemon
|
|
ret c
|
|
|
|
ld a, [wCurPartySpecies]
|
|
ld b, a
|
|
ld a, [wUnownLetter]
|
|
ld c, a
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wDecompressScratch)
|
|
ldh [rSVBK], a
|
|
push de
|
|
|
|
; These are assumed to be at the same address in their respective banks.
|
|
assert PokemonPicPointers == UnownPicPointers
|
|
ld hl, PokemonPicPointers
|
|
ld a, b
|
|
ld d, BANK(PokemonPicPointers)
|
|
cp UNOWN
|
|
jr nz, .ok
|
|
ld a, c
|
|
ld d, BANK(UnownPicPointers)
|
|
.ok
|
|
dec a
|
|
ld bc, 6
|
|
call AddNTimes
|
|
ld bc, 3
|
|
add hl, bc
|
|
ld a, d
|
|
call GetFarByte
|
|
call FixPicBank
|
|
push af
|
|
inc hl
|
|
ld a, d
|
|
call GetFarWord
|
|
ld de, wDecompressScratch
|
|
pop af
|
|
call FarDecompress
|
|
ld hl, wDecompressScratch
|
|
ld c, 6 * 6
|
|
call FixBackpicAlignment
|
|
pop hl
|
|
ld de, wDecompressScratch
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
FixPicBank:
|
|
; This is a thing for some reason.
|
|
|
|
DEF PICS_FIX EQU $36
|
|
EXPORT PICS_FIX
|
|
|
|
push hl
|
|
push bc
|
|
sub BANK("Pics 1") - PICS_FIX
|
|
ld c, a
|
|
ld b, 0
|
|
ld hl, .PicsBanks
|
|
add hl, bc
|
|
ld a, [hl]
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
|
|
.PicsBanks:
|
|
db BANK("Pics 1") ; BANK("Pics 1") + 0
|
|
db BANK("Pics 2") ; BANK("Pics 1") + 1
|
|
db BANK("Pics 3") ; BANK("Pics 1") + 2
|
|
db BANK("Pics 4") ; BANK("Pics 1") + 3
|
|
db BANK("Pics 5") ; BANK("Pics 1") + 4
|
|
db BANK("Pics 6") ; BANK("Pics 1") + 5
|
|
db BANK("Pics 7") ; BANK("Pics 1") + 6
|
|
db BANK("Pics 8") ; BANK("Pics 1") + 7
|
|
db BANK("Pics 9") ; BANK("Pics 1") + 8
|
|
db BANK("Pics 10") ; BANK("Pics 1") + 9
|
|
db BANK("Pics 11") ; BANK("Pics 1") + 10
|
|
db BANK("Pics 12") ; BANK("Pics 1") + 11
|
|
db BANK("Pics 13") ; BANK("Pics 1") + 12
|
|
db BANK("Pics 14") ; BANK("Pics 1") + 13
|
|
db BANK("Pics 15") ; BANK("Pics 1") + 14
|
|
db BANK("Pics 16") ; BANK("Pics 1") + 15
|
|
db BANK("Pics 17") ; BANK("Pics 1") + 16
|
|
db BANK("Pics 18") ; BANK("Pics 1") + 17
|
|
db BANK("Pics 19") ; BANK("Pics 1") + 18
|
|
db BANK("Pics 20") ; BANK("Pics 1") + 19
|
|
db BANK("Pics 21") ; BANK("Pics 1") + 20
|
|
db BANK("Pics 22") ; BANK("Pics 1") + 21
|
|
db BANK("Pics 23") ; BANK("Pics 1") + 22
|
|
db BANK("Pics 24") ; BANK("Pics 1") + 23
|
|
|
|
GSIntro_GetMonFrontpic: ; unreferenced
|
|
ld a, c
|
|
push de
|
|
ld hl, PokemonPicPointers
|
|
dec a
|
|
ld bc, 6
|
|
call AddNTimes
|
|
ld a, BANK(PokemonPicPointers)
|
|
call GetFarByte
|
|
call FixPicBank
|
|
push af
|
|
inc hl
|
|
ld a, BANK(PokemonPicPointers)
|
|
call GetFarWord
|
|
pop af
|
|
pop de
|
|
call FarDecompress
|
|
ret
|
|
|
|
GetTrainerPic:
|
|
ld a, [wTrainerClass]
|
|
and a
|
|
ret z
|
|
cp NUM_TRAINER_CLASSES + 1
|
|
ret nc
|
|
call WaitBGMap
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ld hl, TrainerPicPointers
|
|
ld a, [wTrainerClass]
|
|
dec a
|
|
ld bc, 3
|
|
call AddNTimes
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wDecompressScratch)
|
|
ldh [rSVBK], a
|
|
push de
|
|
ld a, BANK(TrainerPicPointers)
|
|
call GetFarByte
|
|
call FixPicBank
|
|
push af
|
|
inc hl
|
|
ld a, BANK(TrainerPicPointers)
|
|
call GetFarWord
|
|
pop af
|
|
ld de, wDecompressScratch
|
|
call FarDecompress
|
|
pop hl
|
|
ld de, wDecompressScratch
|
|
ld c, 7 * 7
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
pop af
|
|
ldh [rSVBK], a
|
|
call WaitBGMap
|
|
ld a, 1
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
DecompressGet2bpp:
|
|
; Decompress lz data from b:hl to wDecompressScratch, then copy it to address de.
|
|
|
|
ldh a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wDecompressScratch)
|
|
ldh [rSVBK], a
|
|
|
|
push de
|
|
push bc
|
|
ld a, b
|
|
ld de, wDecompressScratch
|
|
call FarDecompress
|
|
pop bc
|
|
ld de, wDecompressScratch
|
|
pop hl
|
|
ldh a, [hROMBank]
|
|
ld b, a
|
|
call Get2bpp
|
|
|
|
pop af
|
|
ldh [rSVBK], a
|
|
ret
|
|
|
|
FixBackpicAlignment:
|
|
push de
|
|
push bc
|
|
ld a, [wBoxAlignment]
|
|
and a
|
|
jr z, .keep_dims
|
|
ld a, c
|
|
cp 7 * 7
|
|
ld de, 7 * 7 tiles
|
|
jr z, .got_dims
|
|
cp 6 * 6
|
|
ld de, 6 * 6 tiles
|
|
jr z, .got_dims
|
|
ld de, 5 * 5 tiles
|
|
|
|
.got_dims
|
|
ld a, [hl]
|
|
ld b, 0
|
|
ld c, 8
|
|
.loop
|
|
rra
|
|
rl b
|
|
dec c
|
|
jr nz, .loop
|
|
ld a, b
|
|
ld [hli], a
|
|
dec de
|
|
ld a, e
|
|
or d
|
|
jr nz, .got_dims
|
|
|
|
.keep_dims
|
|
pop bc
|
|
pop de
|
|
ret
|
|
|
|
PadFrontpic:
|
|
; pads frontpic to fill 7x7 box
|
|
ld a, b
|
|
cp 6
|
|
jr z, .six
|
|
cp 5
|
|
jr z, .five
|
|
|
|
.seven_loop
|
|
ld c, 7 << 4
|
|
call LoadOrientedFrontpic
|
|
dec b
|
|
jr nz, .seven_loop
|
|
ret
|
|
|
|
.six
|
|
ld c, 7 << 4
|
|
xor a
|
|
call .Fill
|
|
.six_loop
|
|
ld c, (7 - 6) << 4
|
|
xor a
|
|
call .Fill
|
|
ld c, 6 << 4
|
|
call LoadOrientedFrontpic
|
|
dec b
|
|
jr nz, .six_loop
|
|
ret
|
|
|
|
.five
|
|
ld c, 7 << 4
|
|
xor a
|
|
call .Fill
|
|
.five_loop
|
|
ld c, (7 - 5) << 4
|
|
xor a
|
|
call .Fill
|
|
ld c, 5 << 4
|
|
call LoadOrientedFrontpic
|
|
dec b
|
|
jr nz, .five_loop
|
|
ld c, 7 << 4
|
|
xor a
|
|
call .Fill
|
|
ret
|
|
|
|
.Fill:
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .Fill
|
|
ret
|
|
|
|
LoadOrientedFrontpic:
|
|
ld a, [wBoxAlignment]
|
|
and a
|
|
jr nz, .x_flip
|
|
.left_loop
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .left_loop
|
|
ret
|
|
|
|
.x_flip
|
|
push bc
|
|
.right_loop
|
|
ld a, [de]
|
|
inc de
|
|
ld b, a
|
|
xor a
|
|
rept 8
|
|
rr b
|
|
rla
|
|
endr
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .right_loop
|
|
pop bc
|
|
ret
|