mirror of https://github.com/pret/pokecrystal.git
1518 lines
19 KiB
NASM
Executable File
1518 lines
19 KiB
NASM
Executable File
ColorTest: ; 818ac
|
|
; A debug menu to test monster and trainer palettes at runtime.
|
|
|
|
ld a, [hCGB]
|
|
and a
|
|
jr nz, .asm_818b5
|
|
ld a, [hSGB]
|
|
and a
|
|
ret z
|
|
|
|
.asm_818b5
|
|
ld a, [hInMenu]
|
|
push af
|
|
ld a, $1
|
|
ld [hInMenu], a
|
|
call DisableLCD
|
|
call Function81948
|
|
call Function8197c
|
|
call Function819a7
|
|
call Function818f4
|
|
call EnableLCD
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
ld [wcf66], a
|
|
ld [wd003], a
|
|
.asm_818de
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
jr nz, .asm_818f0
|
|
call Function81a74
|
|
call Function81f5e
|
|
call DelayFrame
|
|
jr .asm_818de
|
|
|
|
.asm_818f0
|
|
pop af
|
|
ld [hInMenu], a
|
|
ret
|
|
; 818f4
|
|
|
|
Function818f4: ; 818f4
|
|
ld a, [wd002]
|
|
and a
|
|
jr nz, Function81911
|
|
ld hl, PokemonPalettes
|
|
|
|
Function818fd: ; 818fd
|
|
ld de, OverworldMap
|
|
ld c, NUM_POKEMON + 1
|
|
.asm_81902
|
|
push bc
|
|
push hl
|
|
call Function81928
|
|
pop hl
|
|
ld bc, 8
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .asm_81902
|
|
ret
|
|
|
|
Function81911: ; 81911
|
|
ld hl, TrainerPalettes
|
|
ld de, OverworldMap
|
|
ld c, NUM_TRAINER_CLASSES
|
|
.asm_81919
|
|
push bc
|
|
push hl
|
|
call Function81928
|
|
pop hl
|
|
ld bc, 4
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .asm_81919
|
|
ret
|
|
; 81928
|
|
|
|
Function81928: ; 81928
|
|
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
|
|
call GetFarByte
|
|
ld [de], a
|
|
inc de
|
|
inc hl
|
|
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
|
|
call GetFarByte
|
|
ld [de], a
|
|
inc de
|
|
inc hl
|
|
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
|
|
call GetFarByte
|
|
ld [de], a
|
|
inc de
|
|
inc hl
|
|
ld a, BANK(PokemonPalettes) ; BANK(TrainerPalettes)
|
|
call GetFarByte
|
|
ld [de], a
|
|
inc de
|
|
ret
|
|
; 81948
|
|
|
|
Function81948: ; 81948
|
|
ld a, $1
|
|
ld [rVBK], a
|
|
ld hl, VTiles0
|
|
ld bc, sScratch - VTiles0
|
|
xor a
|
|
call ByteFill
|
|
ld a, $0
|
|
ld [rVBK], a
|
|
ld hl, VTiles0
|
|
ld bc, sScratch - VTiles0
|
|
xor a
|
|
call ByteFill
|
|
hlcoord 0, 0, AttrMap
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
xor a
|
|
call ByteFill
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
xor a
|
|
call ByteFill
|
|
call ClearSprites
|
|
ret
|
|
; 8197c
|
|
|
|
Function8197c: ; 8197c
|
|
ld hl, DebugColorTestGFX + $10
|
|
ld de, VTiles2 tile $6a
|
|
ld bc, $160
|
|
call CopyBytes
|
|
ld hl, DebugColorTestGFX
|
|
ld de, VTiles0
|
|
ld bc, $10
|
|
call CopyBytes
|
|
call LoadStandardFont
|
|
ld hl, VTiles1
|
|
lb bc, 8, 0
|
|
.asm_8199d
|
|
ld a, [hl]
|
|
xor $ff
|
|
ld [hli], a
|
|
dec bc
|
|
ld a, c
|
|
or b
|
|
jr nz, .asm_8199d
|
|
ret
|
|
; 819a7
|
|
|
|
Function819a7: ; 819a7
|
|
ld a, [hCGB]
|
|
and a
|
|
ret z
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld hl, Palette_819f4
|
|
ld de, BGPals
|
|
ld bc, $80
|
|
call CopyBytes
|
|
ld a, $80
|
|
ld [rBGPI], a
|
|
ld hl, Palette_819f4
|
|
ld c, $40
|
|
xor a
|
|
.asm_819c8
|
|
ld [rBGPD], a
|
|
dec c
|
|
jr nz, .asm_819c8
|
|
ld a, $80
|
|
ld [rOBPI], a
|
|
ld hl, Palette_81a34
|
|
ld c, $40
|
|
.asm_819d6
|
|
ld a, [hli]
|
|
ld [rOBPD], a
|
|
dec c
|
|
jr nz, .asm_819d6
|
|
ld a, $94
|
|
ld [wc608], a
|
|
ld a, $52
|
|
ld [wc608 + 1], a
|
|
ld a, $4a
|
|
ld [wc608 + 2], a
|
|
ld a, $29
|
|
ld [wc608 + 3], a
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
; 819f4
|
|
|
|
Palette_819f4: ; 819f4
|
|
; white
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
; red
|
|
RGB 31, 00, 00
|
|
RGB 31, 00, 00
|
|
RGB 31, 00, 00
|
|
RGB 00, 00, 00
|
|
|
|
; green
|
|
RGB 00, 31, 00
|
|
RGB 00, 31, 00
|
|
RGB 00, 31, 00
|
|
RGB 00, 00, 00
|
|
|
|
; blue
|
|
RGB 00, 00, 31
|
|
RGB 00, 00, 31
|
|
RGB 00, 00, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
Palette_81a34: ; 81a34
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 00
|
|
|
|
; red
|
|
RGB 31, 31, 31
|
|
RGB 31, 00, 00
|
|
RGB 31, 00, 00
|
|
RGB 00, 00, 00
|
|
|
|
; green
|
|
RGB 31, 31, 31
|
|
RGB 00, 31, 00
|
|
RGB 00, 31, 00
|
|
RGB 00, 00, 00
|
|
|
|
; blue
|
|
RGB 31, 31, 31
|
|
RGB 00, 00, 31
|
|
RGB 00, 00, 31
|
|
RGB 00, 00, 00
|
|
; 81a74
|
|
|
|
Function81a74: ; 81a74
|
|
call JoyTextDelay
|
|
ld a, [wJumptableIndex]
|
|
cp $4
|
|
jr nc, .asm_81a8b
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and SELECT
|
|
jr nz, .asm_81a9a
|
|
ld a, [hl]
|
|
and START
|
|
jr nz, .asm_81aab
|
|
|
|
.asm_81a8b
|
|
ld a, [wJumptableIndex]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, Jumptable_81acf
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
|
|
.asm_81a9a
|
|
call Function81eca
|
|
call Function81ac3
|
|
ld e, a
|
|
ld a, [wcf66]
|
|
inc a
|
|
cp e
|
|
jr c, .asm_81aba
|
|
xor a
|
|
jr .asm_81aba
|
|
|
|
.asm_81aab
|
|
call Function81eca
|
|
ld a, [wcf66]
|
|
dec a
|
|
cp $ff
|
|
jr nz, .asm_81aba
|
|
call Function81ac3
|
|
dec a
|
|
|
|
.asm_81aba
|
|
ld [wcf66], a
|
|
ld a, $0
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81ac3
|
|
|
|
Function81ac3: ; 81ac3
|
|
; Looping back around the pic set.
|
|
ld a, [wd002]
|
|
and a
|
|
jr nz, .asm_81acc
|
|
ld a, NUM_POKEMON ; CELEBI
|
|
ret
|
|
|
|
.asm_81acc
|
|
ld a, NUM_TRAINER_CLASSES - 1 ; MYSTICALMAN
|
|
ret
|
|
; 81acf
|
|
|
|
Jumptable_81acf: ; 81acf
|
|
dw Function81adb
|
|
dw Function81c18
|
|
dw Function81c33
|
|
dw Function81cc2
|
|
dw Function81d8e
|
|
dw Function81daf
|
|
; 81adb
|
|
|
|
Function81adb: ; 81adb
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
ld a, $6f
|
|
call ByteFill
|
|
hlcoord 1, 3
|
|
lb bc, 7, 18
|
|
ld a, $6c
|
|
call Bank20_FillBoxWithByte
|
|
hlcoord 11, 0
|
|
lb bc, 2, 3
|
|
ld a, $6d
|
|
call Bank20_FillBoxWithByte
|
|
hlcoord 16, 0
|
|
lb bc, 2, 3
|
|
ld a, $6e
|
|
call Bank20_FillBoxWithByte
|
|
call Function81bc0
|
|
call Function81bf4
|
|
ld a, [wcf66]
|
|
inc a
|
|
ld [CurPartySpecies], a
|
|
ld [wd265], a
|
|
hlcoord 0, 1
|
|
ld de, wd265
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 3
|
|
call PrintNum
|
|
ld a, [wd002]
|
|
and a
|
|
jr nz, .asm_81b7a
|
|
ld a, $1
|
|
ld [UnownLetter], a
|
|
call GetPokemonName
|
|
hlcoord 4, 1
|
|
call PlaceString
|
|
xor a
|
|
ld [wBoxAlignment], a
|
|
hlcoord 12, 3
|
|
call _PrepMonFrontpic
|
|
ld de, VTiles2 tile $31
|
|
predef GetBackpic
|
|
ld a, $31
|
|
ld [hFillBox], a
|
|
hlcoord 2, 4
|
|
lb bc, 6, 6
|
|
predef FillBox
|
|
ld a, [wd003]
|
|
and a
|
|
jr z, .asm_81b66
|
|
ld de, String_81baf
|
|
jr .asm_81b69
|
|
|
|
.asm_81b66
|
|
ld de, String_81bb4
|
|
|
|
.asm_81b69
|
|
hlcoord 7, 17
|
|
call PlaceString
|
|
hlcoord 0, 17
|
|
ld de, String_81bb9
|
|
call PlaceString
|
|
jr .asm_81ba9
|
|
|
|
.asm_81b7a
|
|
ld a, [wd265]
|
|
ld [TrainerClass], a
|
|
callab GetTrainerAttributes
|
|
ld de, StringBuffer1
|
|
hlcoord 4, 1
|
|
call PlaceString
|
|
ld de, VTiles2
|
|
callab GetTrainerPic
|
|
xor a
|
|
ld [TempEnemyMonSpecies], a
|
|
ld [hFillBox], a
|
|
hlcoord 2, 3
|
|
lb bc, 7, 7
|
|
predef FillBox
|
|
|
|
.asm_81ba9
|
|
ld a, $1
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81baf
|
|
|
|
String_81baf: db "レア", $6f, $6f, "@" ; rare (shiny)
|
|
String_81bb4: db "ノーマル@" ; normal
|
|
String_81bb9: db $7a, "きりかえ▶@" ; (A) switches
|
|
; 81bc0
|
|
|
|
Function81bc0: ; 81bc0
|
|
decoord 0, 11, AttrMap
|
|
hlcoord 2, 11
|
|
ld a, $1
|
|
call Function81bde
|
|
decoord 0, 13, AttrMap
|
|
hlcoord 2, 13
|
|
ld a, $2
|
|
call Function81bde
|
|
decoord 0, 15, AttrMap
|
|
hlcoord 2, 15
|
|
ld a, $3
|
|
|
|
Function81bde: ; 81bde
|
|
push af
|
|
ld a, $6a
|
|
ld [hli], a
|
|
ld bc, $f
|
|
ld a, $6b
|
|
call ByteFill
|
|
ld l, e
|
|
ld h, d
|
|
pop af
|
|
ld bc, $28
|
|
call ByteFill
|
|
ret
|
|
; 81bf4
|
|
|
|
Function81bf4: ; 81bf4
|
|
ld a, [wcf66]
|
|
inc a
|
|
ld l, a
|
|
ld h, $0
|
|
rept 2
|
|
add hl, hl
|
|
endr
|
|
ld de, OverworldMap
|
|
add hl, de
|
|
ld de, wc608
|
|
ld bc, 4
|
|
call CopyBytes
|
|
xor a
|
|
ld [wcf64], a
|
|
ld [wcf65], a
|
|
ld de, wc608
|
|
call Function81ea5
|
|
ret
|
|
; 81c18
|
|
|
|
Function81c18: ; 81c18
|
|
ld a, [hCGB]
|
|
and a
|
|
jr z, .asm_81c2a
|
|
ld a, $2
|
|
ld [hBGMapMode], a
|
|
call DelayFrame
|
|
call DelayFrame
|
|
call DelayFrame
|
|
|
|
.asm_81c2a
|
|
call WaitBGMap
|
|
ld a, $2
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81c33
|
|
|
|
Function81c33: ; 81c33
|
|
ld a, [hCGB]
|
|
and a
|
|
jr z, .asm_81c69
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld hl, BGPals
|
|
ld de, wc608
|
|
ld c, $1
|
|
call Function81ee3
|
|
hlcoord 10, 2
|
|
ld de, wc608
|
|
call Function81ca7
|
|
hlcoord 15, 2
|
|
ld de, wc608 + 2
|
|
call Function81ca7
|
|
ld a, $1
|
|
ld [hCGBPalUpdate], a
|
|
ld a, $3
|
|
ld [wJumptableIndex], a
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
|
|
.asm_81c69
|
|
ld hl, wSGBPals
|
|
ld a, $1
|
|
ld [hli], a
|
|
ld a, $ff
|
|
ld [hli], a
|
|
ld a, $7f
|
|
ld [hli], a
|
|
ld a, [wc608]
|
|
ld [hli], a
|
|
ld a, [wc608 + 1]
|
|
ld [hli], a
|
|
ld a, [wc608 + 2]
|
|
ld [hli], a
|
|
ld a, [wc608 + 3]
|
|
ld [hli], a
|
|
xor a
|
|
rept 2
|
|
ld [hli], a
|
|
endr
|
|
ld [hl], a
|
|
ld hl, wSGBPals
|
|
call Function81f0c
|
|
hlcoord 10, 2
|
|
ld de, wc608
|
|
call Function81ca7
|
|
hlcoord 15, 2
|
|
ld de, wc608 + 2
|
|
call Function81ca7
|
|
ld a, $3
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81ca7
|
|
|
|
Function81ca7: ; 81ca7
|
|
rept 3
|
|
inc hl
|
|
endr
|
|
ld a, [de]
|
|
call Function81cbc
|
|
ld a, [de]
|
|
swap a
|
|
call Function81cbc
|
|
inc de
|
|
ld a, [de]
|
|
call Function81cbc
|
|
ld a, [de]
|
|
swap a
|
|
|
|
Function81cbc: ; 81cbc
|
|
and $f
|
|
add $70
|
|
ld [hld], a
|
|
ret
|
|
; 81cc2
|
|
|
|
Function81cc2: ; 81cc2
|
|
ld a, [hJoyLast]
|
|
and B_BUTTON
|
|
jr nz, .asm_81cdf
|
|
ld a, [hJoyLast]
|
|
and A_BUTTON
|
|
jr nz, .asm_81ce5
|
|
ld a, [wcf64]
|
|
and $3
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, Jumptable_81d02
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
|
|
.asm_81cdf
|
|
ld a, $4
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.asm_81ce5
|
|
ld a, [wd002]
|
|
and a
|
|
ret nz
|
|
ld a, [wd003]
|
|
xor $4
|
|
ld [wd003], a
|
|
ld c, a
|
|
ld b, 0
|
|
ld hl, PokemonPalettes
|
|
add hl, bc
|
|
call Function818fd
|
|
ld a, $0
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81d02
|
|
|
|
Jumptable_81d02: ; 81d02
|
|
dw Function81d0a
|
|
dw Function81d34
|
|
dw Function81d46
|
|
dw Function81d58
|
|
; 81d0a
|
|
|
|
Function81d0a: ; 81d0a
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Function81d89
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .asm_81d1d
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, .asm_81d28
|
|
ret
|
|
|
|
.asm_81d1d
|
|
xor a
|
|
ld [wcf65], a
|
|
ld de, wc608
|
|
call Function81ea5
|
|
ret
|
|
|
|
.asm_81d28
|
|
ld a, $1
|
|
ld [wcf65], a
|
|
ld de, wc608 + 2
|
|
call Function81ea5
|
|
ret
|
|
|
|
Function81d34: ; 81d34
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Function81d89
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Function81d84
|
|
ld hl, wc608 + 10
|
|
jr Function81d63
|
|
|
|
Function81d46: ; 81d46
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Function81d89
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Function81d84
|
|
ld hl, wc608 + 11
|
|
jr Function81d63
|
|
|
|
Function81d58: ; 81d58
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Function81d84
|
|
ld hl, wc608 + 12
|
|
|
|
Function81d63: ; 81d63
|
|
ld a, [hJoyLast]
|
|
and D_RIGHT
|
|
jr nz, Function81d70
|
|
ld a, [hJoyLast]
|
|
and D_LEFT
|
|
jr nz, Function81d77
|
|
ret
|
|
|
|
Function81d70: ; 81d70
|
|
ld a, [hl]
|
|
cp $1f
|
|
ret nc
|
|
inc [hl]
|
|
jr Function81d7b
|
|
|
|
Function81d77: ; 81d77
|
|
ld a, [hl]
|
|
and a
|
|
ret z
|
|
dec [hl]
|
|
|
|
Function81d7b: ; 81d7b
|
|
call Function81e67
|
|
ld a, $2
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
Function81d84: ; 81d84
|
|
ld hl, wcf64
|
|
dec [hl]
|
|
ret
|
|
|
|
Function81d89: ; 81d89
|
|
ld hl, wcf64
|
|
inc [hl]
|
|
ret
|
|
; 81d8e
|
|
|
|
Function81d8e: ; 81d8e
|
|
hlcoord 0, 10
|
|
ld bc, $a0
|
|
ld a, $6f
|
|
call ByteFill
|
|
hlcoord 2, 12
|
|
ld de, String_81fcd
|
|
call PlaceString
|
|
xor a
|
|
ld [wd004], a
|
|
call Function81df4
|
|
ld a, $5
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81daf
|
|
|
|
Function81daf: ; 81daf
|
|
ld hl, hJoyPressed
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .asm_81dbb
|
|
call Function81dc7
|
|
ret
|
|
|
|
.asm_81dbb
|
|
ld a, $0
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
; 81dc1
|
|
|
|
Function81dc1: ; 81dc1
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
ret
|
|
; 81dc7
|
|
|
|
Function81dc7: ; 81dc7
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, .asm_81dd5
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, .asm_81de2
|
|
ret
|
|
|
|
.asm_81dd5
|
|
ld a, [wd004]
|
|
cp $3b
|
|
jr z, .asm_81ddf
|
|
inc a
|
|
jr .asm_81ded
|
|
|
|
.asm_81ddf
|
|
xor a
|
|
jr .asm_81ded
|
|
|
|
.asm_81de2
|
|
ld a, [wd004]
|
|
and a
|
|
jr z, .asm_81deb
|
|
dec a
|
|
jr .asm_81ded
|
|
|
|
.asm_81deb
|
|
ld a, $3b
|
|
|
|
.asm_81ded
|
|
ld [wd004], a
|
|
call Function81df4
|
|
ret
|
|
; 81df4
|
|
|
|
Function81df4: ; 81df4
|
|
hlcoord 10, 11
|
|
call Function81e5e
|
|
hlcoord 10, 12
|
|
call Function81e5e
|
|
hlcoord 10, 13
|
|
call Function81e5e
|
|
hlcoord 10, 14
|
|
call Function81e5e
|
|
ld a, [wd004]
|
|
inc a
|
|
ld [wd265], a
|
|
predef GetTMHMMove
|
|
ld a, [wd265]
|
|
ld [wPutativeTMHMMove], a
|
|
call GetMoveName
|
|
hlcoord 10, 12
|
|
call PlaceString
|
|
ld a, [wd004]
|
|
call Function81e55
|
|
ld [CurItem], a
|
|
predef CanLearnTMHMMove
|
|
ld a, c
|
|
and a
|
|
ld de, String_81e46
|
|
jr nz, .asm_81e3f
|
|
ld de, String_81e4d
|
|
|
|
.asm_81e3f
|
|
hlcoord 10, 14
|
|
call PlaceString
|
|
ret
|
|
; 81e46
|
|
|
|
String_81e46: db "おぼえられる@" ; can be taught
|
|
String_81e4d: db "おぼえられない@" ; cannot be taught
|
|
; 81e55
|
|
|
|
Function81e55: ; 81e55
|
|
cp $32
|
|
jr c, .asm_81e5b
|
|
rept 2
|
|
inc a
|
|
endr
|
|
|
|
.asm_81e5b
|
|
add $bf
|
|
ret
|
|
; 81e5e
|
|
|
|
Function81e5e: ; 81e5e
|
|
ld bc, $a
|
|
ld a, $6f
|
|
call ByteFill
|
|
ret
|
|
; 81e67
|
|
|
|
Function81e67: ; 81e67
|
|
ld a, [wc608 + 10]
|
|
and $1f
|
|
ld e, a
|
|
ld a, [wc608 + 11]
|
|
and $7
|
|
sla a
|
|
swap a
|
|
or e
|
|
ld e, a
|
|
ld a, [wc608 + 11]
|
|
and $18
|
|
sla a
|
|
swap a
|
|
ld d, a
|
|
ld a, [wc608 + 12]
|
|
and $1f
|
|
sla a
|
|
sla a
|
|
or d
|
|
ld d, a
|
|
ld a, [wcf65]
|
|
and a
|
|
jr z, .asm_81e9c
|
|
ld a, e
|
|
ld [wc608 + 2], a
|
|
ld a, d
|
|
ld [wc608 + 3], a
|
|
ret
|
|
|
|
.asm_81e9c
|
|
ld a, e
|
|
ld [wc608], a
|
|
ld a, d
|
|
ld [wc608 + 1], a
|
|
ret
|
|
; 81ea5
|
|
|
|
Function81ea5: ; 81ea5
|
|
ld a, [de]
|
|
and $1f
|
|
ld [wc608 + 10], a
|
|
ld a, [de]
|
|
and $e0
|
|
swap a
|
|
srl a
|
|
ld b, a
|
|
inc de
|
|
ld a, [de]
|
|
and $3
|
|
swap a
|
|
srl a
|
|
or b
|
|
ld [wc608 + 11], a
|
|
ld a, [de]
|
|
and $7c
|
|
srl a
|
|
srl a
|
|
ld [wc608 + 12], a
|
|
ret
|
|
; 81eca
|
|
|
|
Function81eca: ; 81eca
|
|
ld a, [wcf66]
|
|
inc a
|
|
ld l, a
|
|
ld h, $0
|
|
rept 2
|
|
add hl, hl
|
|
endr
|
|
ld de, OverworldMap
|
|
add hl, de
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, wc608
|
|
ld bc, 4
|
|
call CopyBytes
|
|
ret
|
|
; 81ee3
|
|
|
|
Function81ee3: ; 81ee3
|
|
.asm_81ee3
|
|
ld a, $ff
|
|
ld [hli], a
|
|
ld a, $7f
|
|
ld [hli], a
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
xor a
|
|
rept 2
|
|
ld [hli], a
|
|
endr
|
|
dec c
|
|
jr nz, .asm_81ee3
|
|
ret
|
|
; 81efc
|
|
|
|
Bank20_FillBoxWithByte: ; 81efc
|
|
; For some reason, we have another copy of FillBoxWithByte here
|
|
.row
|
|
push bc
|
|
push hl
|
|
.col
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .col
|
|
pop hl
|
|
ld bc, SCREEN_WIDTH
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .row
|
|
ret
|
|
; 81f0c
|
|
|
|
Function81f0c: ; 81f0c
|
|
ld a, [wcfbe]
|
|
push af
|
|
set 7, a
|
|
ld [wcfbe], a
|
|
call Function81f1d
|
|
pop af
|
|
ld [wcfbe], a
|
|
ret
|
|
; 81f1d
|
|
|
|
Function81f1d: ; 81f1d
|
|
ld a, [hl]
|
|
and $7
|
|
ret z
|
|
ld b, a
|
|
.asm_81f22
|
|
push bc
|
|
xor a
|
|
ld [rJOYP], a
|
|
ld a, $30
|
|
ld [rJOYP], a
|
|
ld b, $10
|
|
.asm_81f2c
|
|
ld e, $8
|
|
ld a, [hli]
|
|
ld d, a
|
|
.asm_81f30
|
|
bit 0, d
|
|
ld a, $10
|
|
jr nz, .asm_81f38
|
|
ld a, $20
|
|
|
|
.asm_81f38
|
|
ld [rJOYP], a
|
|
ld a, $30
|
|
ld [rJOYP], a
|
|
rr d
|
|
dec e
|
|
jr nz, .asm_81f30
|
|
dec b
|
|
jr nz, .asm_81f2c
|
|
ld a, $20
|
|
ld [rJOYP], a
|
|
ld a, $30
|
|
ld [rJOYP], a
|
|
ld de, 7000
|
|
.asm_81f51
|
|
nop
|
|
nop
|
|
nop
|
|
dec de
|
|
ld a, d
|
|
or e
|
|
jr nz, .asm_81f51
|
|
pop bc
|
|
dec b
|
|
jr nz, .asm_81f22
|
|
ret
|
|
; 81f5e
|
|
|
|
Function81f5e: ; 81f5e
|
|
ld a, $6f
|
|
hlcoord 10, 0
|
|
ld [hl], a
|
|
hlcoord 15, 0
|
|
ld [hl], a
|
|
hlcoord 1, 11
|
|
ld [hl], a
|
|
hlcoord 1, 13
|
|
ld [hl], a
|
|
hlcoord 1, 15
|
|
ld [hl], a
|
|
ld a, [wJumptableIndex]
|
|
cp $3
|
|
jr nz, .asm_81fc9
|
|
ld a, [wcf64]
|
|
and a
|
|
jr z, .asm_81f8d
|
|
dec a
|
|
hlcoord 1, 11
|
|
ld bc, 2 * SCREEN_WIDTH
|
|
call AddNTimes
|
|
ld [hl], $ed
|
|
|
|
.asm_81f8d
|
|
ld a, [wcf65]
|
|
and a
|
|
jr z, .asm_81f98
|
|
hlcoord 15, 0
|
|
jr .asm_81f9b
|
|
|
|
.asm_81f98
|
|
hlcoord 10, 0
|
|
|
|
.asm_81f9b
|
|
ld [hl], $ed
|
|
ld b, $70
|
|
ld c, $5
|
|
ld hl, Sprites
|
|
ld de, wc608 + 10
|
|
call .asm_81fb7
|
|
ld de, wc608 + 11
|
|
call .asm_81fb7
|
|
ld de, wc608 + 12
|
|
call .asm_81fb7
|
|
ret
|
|
|
|
.asm_81fb7
|
|
ld a, b
|
|
ld [hli], a
|
|
ld a, [de]
|
|
rept 2
|
|
add a
|
|
endr
|
|
add $18
|
|
ld [hli], a
|
|
xor a
|
|
ld [hli], a
|
|
ld a, c
|
|
ld [hli], a
|
|
ld a, $10
|
|
add b
|
|
ld b, a
|
|
inc c
|
|
ret
|
|
|
|
.asm_81fc9
|
|
call ClearSprites
|
|
ret
|
|
; 81fcd
|
|
|
|
String_81fcd: ; 81fcd
|
|
db "おわりますか?" ; Are you finished?
|
|
next "はい", $f2, $f2, $f2, $7a ; YES (A)
|
|
next "いいえ", $f2, $f2, $7b ; NO (B)
|
|
db "@"
|
|
; 81fe3
|
|
|
|
DebugColorTestGFX:
|
|
INCBIN "gfx/debug/color_test.2bpp"
|
|
|
|
|
|
TilesetColorTest:
|
|
ret
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
ld [wcf64], a
|
|
ld [wcf65], a
|
|
ld [wcf66], a
|
|
ld [hMapAnims], a
|
|
call ClearSprites
|
|
call OverworldTextModeSwitch
|
|
call WaitBGMap2
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld de, DebugColorTestGFX + $10
|
|
ld hl, VTiles2 tile $6a
|
|
lb bc, BANK(DebugColorTestGFX), $16
|
|
call Request2bpp
|
|
ld de, DebugColorTestGFX
|
|
ld hl, VTiles1
|
|
lb bc, BANK(DebugColorTestGFX), 1
|
|
call Request2bpp
|
|
ld a, VBGMap1 / $100
|
|
ld [hBGMapAddress + 1], a
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
ld a, $6f
|
|
call ByteFill
|
|
hlcoord 0, 0, AttrMap
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
ld a, $7
|
|
call ByteFill
|
|
ld de, $15
|
|
ld a, $6c
|
|
call Function821d2
|
|
ld de, $1a
|
|
ld a, $6d
|
|
call Function821d2
|
|
ld de, $1f
|
|
ld a, $6e
|
|
call Function821d2
|
|
ld de, $24
|
|
ld a, $6f
|
|
call Function821d2
|
|
call Function821f4
|
|
call Function8220f
|
|
call WaitBGMap2
|
|
ld [wJumptableIndex], a
|
|
ld a, $40
|
|
ld [hWY], a
|
|
ret
|
|
; 821d2
|
|
|
|
Function821d2: ; 821d2
|
|
hlcoord 0, 0
|
|
call Function821de
|
|
|
|
Function821d8: ; 821d8
|
|
ld a, [wcf64]
|
|
hlcoord 0, 0, AttrMap
|
|
|
|
Function821de: ; 821de
|
|
add hl, de
|
|
rept 4
|
|
ld [hli], a
|
|
endr
|
|
ld bc, $10
|
|
add hl, bc
|
|
rept 4
|
|
ld [hli], a
|
|
endr
|
|
ld bc, $10
|
|
add hl, bc
|
|
rept 4
|
|
ld [hli], a
|
|
endr
|
|
ret
|
|
; 821f4
|
|
|
|
Function821f4: ; 821f4
|
|
hlcoord 2, 4
|
|
call Function82203
|
|
hlcoord 2, 6
|
|
call Function82203
|
|
hlcoord 2, 8
|
|
|
|
Function82203: ; 82203
|
|
ld a, $6a
|
|
ld [hli], a
|
|
ld bc, $10 - 1
|
|
ld a, $6b
|
|
call ByteFill
|
|
ret
|
|
; 8220f
|
|
|
|
Function8220f: ; 8220f
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld a, [wcf64]
|
|
ld l, a
|
|
ld h, $0
|
|
rept 3
|
|
add hl, hl
|
|
endr
|
|
ld de, UnknBGPals
|
|
add hl, de
|
|
ld de, wc608
|
|
ld bc, 8
|
|
call CopyBytes
|
|
ld de, wc608
|
|
call Function81ea5
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
; 82236
|
|
|
|
|
|
Function82236: ; 82236
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and SELECT
|
|
jr nz, .loop7
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .asm_82299
|
|
call Function822f0
|
|
ret
|
|
|
|
.loop7
|
|
ld hl, wcf64
|
|
ld a, [hl]
|
|
inc a
|
|
and $7
|
|
cp $7
|
|
jr nz, .asm_82253
|
|
xor a
|
|
|
|
.asm_82253
|
|
ld [hl], a
|
|
ld de, $15
|
|
call Function821d8
|
|
ld de, $1a
|
|
call Function821d8
|
|
ld de, $1f
|
|
call Function821d8
|
|
ld de, $24
|
|
call Function821d8
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld hl, BGPals
|
|
ld a, [wcf64]
|
|
ld bc, 8
|
|
call AddNTimes
|
|
ld de, wc608
|
|
ld bc, 8
|
|
call CopyBytes
|
|
pop af
|
|
ld [rSVBK], a
|
|
ld a, $2
|
|
ld [hBGMapMode], a
|
|
ld c, 3
|
|
call DelayFrames
|
|
ld a, $1
|
|
ld [hBGMapMode], a
|
|
ret
|
|
|
|
.asm_82299
|
|
call ClearSprites
|
|
ld a, [hWY]
|
|
xor $d0
|
|
ld [hWY], a
|
|
ret
|
|
; 822a3
|
|
|
|
Function822a3: ; 822a3
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld hl, BGPals
|
|
ld a, [wcf64]
|
|
ld bc, 8
|
|
call AddNTimes
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, wc608
|
|
ld bc, 8
|
|
call CopyBytes
|
|
hlcoord 1, 0
|
|
ld de, wc608
|
|
call Function81ca7
|
|
hlcoord 6, 0
|
|
ld de, wc608 + 2
|
|
call Function81ca7
|
|
hlcoord 11, 0
|
|
ld de, wc608 + 4
|
|
call Function81ca7
|
|
hlcoord 16, 0
|
|
ld de, wc608 + 6
|
|
call Function81ca7
|
|
pop af
|
|
ld [rSVBK], a
|
|
ld a, $1
|
|
ld [hCGBPalUpdate], a
|
|
call DelayFrame
|
|
ret
|
|
; 822f0
|
|
|
|
Function822f0: ; 822f0
|
|
ld a, [wcf65]
|
|
and 3
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .jumptable
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
; 82301
|
|
|
|
.jumptable: ; 82301
|
|
dw Function82309
|
|
dw Function82339
|
|
dw Function8234b
|
|
dw Function8235d
|
|
; 82309
|
|
|
|
Function82309: ; 82309
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Function8238c
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .asm_8231c
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, .asm_82322
|
|
ret
|
|
|
|
.asm_8231c
|
|
ld a, [wcf66]
|
|
dec a
|
|
jr .asm_82326
|
|
|
|
.asm_82322
|
|
ld a, [wcf66]
|
|
inc a
|
|
|
|
.asm_82326
|
|
and $3
|
|
ld [wcf66], a
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, wc608
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld e, l
|
|
ld d, h
|
|
call Function81ea5
|
|
ret
|
|
|
|
Function82339: ; 82338
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Function8238c
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Function82387
|
|
ld hl, wc608 + 10
|
|
jr Function82368
|
|
|
|
Function8234b: ; 8234b
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_DOWN
|
|
jr nz, Function8238c
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Function82387
|
|
ld hl, wc608 + 11
|
|
jr Function82368
|
|
|
|
Function8235d: ; 8235d
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_UP
|
|
jr nz, Function82387
|
|
ld hl, wc608 + 12
|
|
|
|
Function82368: ; 82368
|
|
ld a, [hJoyLast]
|
|
and D_RIGHT
|
|
jr nz, .asm_82375
|
|
ld a, [hJoyLast]
|
|
and D_LEFT
|
|
jr nz, .asm_8237c
|
|
ret
|
|
|
|
.asm_82375
|
|
ld a, [hl]
|
|
cp $1f
|
|
ret nc
|
|
inc [hl]
|
|
jr .asm_82380
|
|
|
|
.asm_8237c
|
|
ld a, [hl]
|
|
and a
|
|
ret z
|
|
dec [hl]
|
|
|
|
.asm_82380
|
|
call Function82391
|
|
call Function822a3
|
|
ret
|
|
|
|
Function82387: ; 82387
|
|
ld hl, wcf65
|
|
dec [hl]
|
|
ret
|
|
|
|
Function8238c: ; 8238c
|
|
ld hl, wcf65
|
|
inc [hl]
|
|
ret
|
|
; 82391
|
|
|
|
Function82391: ; 82391
|
|
ld a, [wc608 + 10]
|
|
and $1f
|
|
ld e, a
|
|
ld a, [wc608 + 11]
|
|
and $7
|
|
sla a
|
|
swap a
|
|
or e
|
|
ld e, a
|
|
ld a, [wc608 + 11]
|
|
and $18
|
|
sla a
|
|
swap a
|
|
ld d, a
|
|
ld a, [wc608 + 12]
|
|
and $1f
|
|
sla a
|
|
sla a
|
|
or d
|
|
ld d, a
|
|
ld a, [wcf66]
|
|
ld c, a
|
|
ld b, $0
|
|
ld hl, wc608
|
|
rept 2
|
|
add hl, bc
|
|
endr
|
|
ld a, e
|
|
ld [hli], a
|
|
ld [hl], d
|
|
ret
|
|
; 823c6
|
|
|
|
Function823c6: ; 823c6
|
|
ret
|
|
|
|
Function823c7: ; 823c7
|
|
ret
|
|
; 823c8
|