mirror of https://github.com/pret/pokecrystal.git
Disassemble Kris's PC.
This commit is contained in:
IIMarckus
parent
56d0175ad8
commit
620cf7a2a7
|
|
@ -1,4 +1,4 @@
|
||||||
#!/bin/bash
|
#!/bin/sh
|
||||||
# Compares baserom.gbc and pokecrystal.gbc
|
# Compares baserom.gbc and pokecrystal.gbc
|
||||||
|
|
||||||
# create baserom.txt if necessary
|
# create baserom.txt if necessary
|
||||||
|
|
|
||||||
|
|
@ -3214,6 +3214,15 @@ MYSTERY_GIFT EQU 3
|
||||||
MOBILE EQU 4
|
MOBILE EQU 4
|
||||||
MOBILE_STUDIUM EQU 5
|
MOBILE_STUDIUM EQU 5
|
||||||
|
|
||||||
|
; kris's pc menu items
|
||||||
|
WITHDRAW_ITEM EQU 0
|
||||||
|
DEPOSIT_ITEM EQU 1
|
||||||
|
TOSS_ITEM EQU 2
|
||||||
|
MAIL_BOX EQU 3
|
||||||
|
DECORATION EQU 4
|
||||||
|
TURN_OFF EQU 5
|
||||||
|
LOG_OFF EQU 6
|
||||||
|
|
||||||
; name length
|
; name length
|
||||||
PLAYER_NAME_LENGTH EQU 8
|
PLAYER_NAME_LENGTH EQU 8
|
||||||
PKMN_NAME_LENGTH EQU 11
|
PKMN_NAME_LENGTH EQU 11
|
||||||
|
|
|
||||||
889
main.asm
889
main.asm
|
|
@ -2801,7 +2801,7 @@ Function2b74: ; 0x2b74
|
||||||
ld hl, VramState
|
ld hl, VramState
|
||||||
set 0, [hl]
|
set 0, [hl]
|
||||||
call $1ad2
|
call $1ad2
|
||||||
call $3200
|
call Function3200
|
||||||
ld b, $9
|
ld b, $9
|
||||||
call GetSGBLayout
|
call GetSGBLayout
|
||||||
ld a, $12
|
ld a, $12
|
||||||
|
|
@ -3712,7 +3712,24 @@ WaitBGMap: ; 31f6
|
||||||
ret
|
ret
|
||||||
; 3200
|
; 3200
|
||||||
|
|
||||||
INCBIN "baserom.gbc", $3200, $3317 - $3200
|
Function3200: ; 0x3200
|
||||||
|
ld a, [hCGB]
|
||||||
|
and a
|
||||||
|
jr z, .asm_320e
|
||||||
|
ld a, $2
|
||||||
|
ld [hBGMapMode], a
|
||||||
|
ld c, $4
|
||||||
|
call DelayFrames
|
||||||
|
|
||||||
|
.asm_320e
|
||||||
|
ld a, $1
|
||||||
|
ld [hBGMapMode], a
|
||||||
|
ld c, $4
|
||||||
|
call DelayFrames
|
||||||
|
ret
|
||||||
|
; 0x3218
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $3218, $3317 - $3218
|
||||||
|
|
||||||
ClearPalettes: ; 3317
|
ClearPalettes: ; 3317
|
||||||
; Make all palettes white
|
; Make all palettes white
|
||||||
|
|
@ -6619,7 +6636,30 @@ Function0xd47f: ; d47f
|
||||||
; d486
|
; d486
|
||||||
|
|
||||||
|
|
||||||
INCBIN "baserom.gbc", $d486, $e722 - $d486
|
INCBIN "baserom.gbc", $d486, $e58b - $d486
|
||||||
|
|
||||||
|
ClearPCItemScreen: ; e58b
|
||||||
|
call Function2ed3
|
||||||
|
xor a
|
||||||
|
ld [hBGMapMode], a
|
||||||
|
call WhiteBGMap
|
||||||
|
call ClearSprites
|
||||||
|
ld hl, TileMap
|
||||||
|
ld bc, 18 * 20
|
||||||
|
ld a, " "
|
||||||
|
call ByteFill
|
||||||
|
hlcoord 0,0
|
||||||
|
ld bc, $0a12
|
||||||
|
call TextBox
|
||||||
|
hlcoord 0,12
|
||||||
|
ld bc, $0412
|
||||||
|
call TextBox
|
||||||
|
call Function3200
|
||||||
|
call $32f9 ; load regular palettes?
|
||||||
|
ret
|
||||||
|
; 0xe5bb
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $e5bb, $e722 - $e5bb
|
||||||
|
|
||||||
|
|
||||||
DoItemEffect: ; e722
|
DoItemEffect: ; e722
|
||||||
|
|
@ -7006,7 +7046,7 @@ OpenMenu: ; 0x125cd
|
||||||
pop af
|
pop af
|
||||||
ld [hOAMUpdate], a
|
ld [hOAMUpdate], a
|
||||||
.end
|
.end
|
||||||
call $1c07
|
call Function1c07
|
||||||
call $2dcf
|
call $2dcf
|
||||||
call $0485
|
call $0485
|
||||||
ret
|
ret
|
||||||
|
|
@ -7456,7 +7496,454 @@ BlackoutPoints: ; 0x152ab
|
||||||
db GROUP_FAST_SHIP_CABINS_SW_SSW_NW, MAP_FAST_SHIP_CABINS_SW_SSW_NW, 6, 2
|
db GROUP_FAST_SHIP_CABINS_SW_SSW_NW, MAP_FAST_SHIP_CABINS_SW_SSW_NW, 6, 2
|
||||||
db $ff, $ff, $ff, $ff
|
db $ff, $ff, $ff, $ff
|
||||||
|
|
||||||
INCBIN "baserom.gbc", $1531f, $174ba - $1531f
|
INCBIN "baserom.gbc", $1531f, $15736 - $1531f
|
||||||
|
|
||||||
|
KrissPCMenuData: ; 0x15736
|
||||||
|
db %01000000
|
||||||
|
db 0, 0 ; top left corner coords (y, x)
|
||||||
|
db $c, $f ; bottom right corner coords (y, x)
|
||||||
|
dw .KrissPCMenuData2
|
||||||
|
db 1 ; default selected option
|
||||||
|
|
||||||
|
.KrissPCMenuData2
|
||||||
|
db %10100000 ; bit7
|
||||||
|
db 0 ; # items?
|
||||||
|
dw .KrissPCMenuList1
|
||||||
|
db $8d
|
||||||
|
db $1f
|
||||||
|
dw .KrissPCMenuPointers
|
||||||
|
|
||||||
|
.KrissPCMenuPointers ; 0x15746
|
||||||
|
dw KrisWithdrawItemMenu ; 57d1
|
||||||
|
dw .WithdrawItem
|
||||||
|
dw KrisDepositItemMenu ; 588b
|
||||||
|
dw .DepositItem
|
||||||
|
dw KrisTossItemMenu ; 585f
|
||||||
|
dw .TossItem
|
||||||
|
dw KrisMailBoxMenu ; 587d
|
||||||
|
dw .MailBox
|
||||||
|
dw KrisDecorationMenu ; 597d
|
||||||
|
dw .Decoration
|
||||||
|
dw KrisLogOffMenu ; 5888
|
||||||
|
dw .LogOff
|
||||||
|
dw KrisLogOffMenu ; 5888
|
||||||
|
dw .TurnOff
|
||||||
|
|
||||||
|
.WithdrawItem
|
||||||
|
db "WITHDRAW ITEM@"
|
||||||
|
.DepositItem
|
||||||
|
db "DEPOSIT ITEM@"
|
||||||
|
.TossItem
|
||||||
|
db "TOSS ITEM@"
|
||||||
|
.MailBox
|
||||||
|
db "MAIL BOX@"
|
||||||
|
.Decoration
|
||||||
|
db "DECORATION@"
|
||||||
|
.TurnOff
|
||||||
|
db "TURN OFF@"
|
||||||
|
.LogOff
|
||||||
|
db "LOG OFF@"
|
||||||
|
|
||||||
|
.KrissPCMenuList1
|
||||||
|
db 5
|
||||||
|
db WITHDRAW_ITEM
|
||||||
|
db DEPOSIT_ITEM
|
||||||
|
db TOSS_ITEM
|
||||||
|
db MAIL_BOX
|
||||||
|
db TURN_OFF
|
||||||
|
db $FF
|
||||||
|
|
||||||
|
.KrissPCMenuList2
|
||||||
|
db 6
|
||||||
|
db WITHDRAW_ITEM
|
||||||
|
db DEPOSIT_ITEM
|
||||||
|
db TOSS_ITEM
|
||||||
|
db MAIL_BOX
|
||||||
|
db DECORATION
|
||||||
|
db LOG_OFF
|
||||||
|
db $FF
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $157bb, $157d1 - $157bb
|
||||||
|
|
||||||
|
KrisWithdrawItemMenu: ; 0x157d1
|
||||||
|
call $1d6e
|
||||||
|
ld a, BANK(ClearPCItemScreen)
|
||||||
|
ld hl, ClearPCItemScreen
|
||||||
|
rst $8
|
||||||
|
.asm_157da
|
||||||
|
call Function15985
|
||||||
|
jr c, .asm_157e4
|
||||||
|
call Function157e9
|
||||||
|
jr .asm_157da
|
||||||
|
|
||||||
|
.asm_157e4
|
||||||
|
call $2b3c
|
||||||
|
xor a
|
||||||
|
ret
|
||||||
|
; 0x157e9
|
||||||
|
|
||||||
|
Function157e9: ; 0x157e9
|
||||||
|
; check if the item has a quantity
|
||||||
|
ld a, BANK(CheckTossableItem)
|
||||||
|
ld hl, CheckTossableItem
|
||||||
|
rst $8
|
||||||
|
ld a, [$d142]
|
||||||
|
and a
|
||||||
|
jr z, .askquantity
|
||||||
|
|
||||||
|
; items without quantity are always ×1
|
||||||
|
ld a, 1
|
||||||
|
ld [$d10c], a
|
||||||
|
jr .withdraw
|
||||||
|
|
||||||
|
.askquantity
|
||||||
|
ld hl, .HowManyText
|
||||||
|
call $1d4f
|
||||||
|
ld a, $9
|
||||||
|
ld hl, $4fbf
|
||||||
|
rst $8
|
||||||
|
call Function1c07
|
||||||
|
call Function1c07
|
||||||
|
jr c, .done
|
||||||
|
|
||||||
|
.withdraw
|
||||||
|
ld a, [$d10c]
|
||||||
|
ld [Buffer1], a ; quantity
|
||||||
|
ld a, [$d107]
|
||||||
|
ld [Buffer2], a
|
||||||
|
ld hl, NumItems
|
||||||
|
call $2f66
|
||||||
|
jr nc, .PackFull
|
||||||
|
ld a, [Buffer1]
|
||||||
|
ld [$d10c], a
|
||||||
|
ld a, [Buffer2]
|
||||||
|
ld [$d107], a
|
||||||
|
ld hl, $d8f1
|
||||||
|
call $2f53
|
||||||
|
ld a, $3b
|
||||||
|
call Predef
|
||||||
|
ld hl, .WithdrewText
|
||||||
|
call $1d4f
|
||||||
|
xor a
|
||||||
|
ld [hBGMapMode], a
|
||||||
|
call Function1c07
|
||||||
|
ret
|
||||||
|
|
||||||
|
.PackFull
|
||||||
|
ld hl, .NoRoomText
|
||||||
|
call $1d67
|
||||||
|
ret
|
||||||
|
|
||||||
|
.done
|
||||||
|
ret
|
||||||
|
; 0x15850
|
||||||
|
|
||||||
|
.HowManyText ; 0x15850
|
||||||
|
TX_FAR _KrissPCHowManyWithdrawText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.WithdrewText ; 0x15855
|
||||||
|
TX_FAR _KrissPCWithdrewItemsText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.NoRoomText ; 0x1585a
|
||||||
|
TX_FAR _KrissPCNoRoomWithdrawText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
|
||||||
|
KrisTossItemMenu: ; 0x1585f
|
||||||
|
call $1d6e
|
||||||
|
ld a, BANK(ClearPCItemScreen)
|
||||||
|
ld hl, ClearPCItemScreen
|
||||||
|
rst $8
|
||||||
|
.asm_15868
|
||||||
|
call Function15985
|
||||||
|
jr c, .asm_15878
|
||||||
|
ld de, $d8f1
|
||||||
|
ld a, $4
|
||||||
|
ld hl, $69f4
|
||||||
|
rst $8
|
||||||
|
jr .asm_15868
|
||||||
|
|
||||||
|
.asm_15878
|
||||||
|
call $2b3c
|
||||||
|
xor a
|
||||||
|
ret
|
||||||
|
; 0x1587d
|
||||||
|
|
||||||
|
|
||||||
|
KrisDecorationMenu: ; 0x1587d
|
||||||
|
ld a, BANK(_KrisDecorationMenu)
|
||||||
|
ld hl, _KrisDecorationMenu
|
||||||
|
rst $8
|
||||||
|
ld a, c
|
||||||
|
and a
|
||||||
|
ret z
|
||||||
|
scf
|
||||||
|
ret
|
||||||
|
; 0x15888
|
||||||
|
|
||||||
|
|
||||||
|
KrisLogOffMenu: ; 0x15888
|
||||||
|
xor a
|
||||||
|
scf
|
||||||
|
ret
|
||||||
|
; 0x1588b
|
||||||
|
|
||||||
|
|
||||||
|
KrisDepositItemMenu: ; 0x1588b
|
||||||
|
call Function158b8
|
||||||
|
jr c, .asm_158b6
|
||||||
|
call Function2ed3
|
||||||
|
call $1d6e
|
||||||
|
ld a, $4
|
||||||
|
ld hl, $46a5
|
||||||
|
rst $8
|
||||||
|
.asm_1589c
|
||||||
|
ld a, $4
|
||||||
|
ld hl, $46be
|
||||||
|
rst $8
|
||||||
|
ld a, [$cf66]
|
||||||
|
and a
|
||||||
|
jr z, .asm_158b3
|
||||||
|
call Function158cc
|
||||||
|
ld a, $4
|
||||||
|
ld hl, $7345
|
||||||
|
rst $8
|
||||||
|
jr .asm_1589c
|
||||||
|
|
||||||
|
.asm_158b3
|
||||||
|
call $2b3c
|
||||||
|
|
||||||
|
.asm_158b6
|
||||||
|
xor a
|
||||||
|
ret
|
||||||
|
; 0x158b8
|
||||||
|
|
||||||
|
Function158b8: ; 0x158b8
|
||||||
|
ld a, $4
|
||||||
|
ld hl, $69d5
|
||||||
|
rst $8
|
||||||
|
ret nc
|
||||||
|
ld hl, Text158c7
|
||||||
|
call $1d67
|
||||||
|
scf
|
||||||
|
ret
|
||||||
|
; 0x158c7
|
||||||
|
|
||||||
|
Text158c7: ; 0x15c87
|
||||||
|
TX_FAR UnknownText_0x1c13df
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
|
||||||
|
Function158cc: ; 0x158cc
|
||||||
|
ld a, [$c2ce]
|
||||||
|
push af
|
||||||
|
ld a, $0
|
||||||
|
ld [$c2ce], a
|
||||||
|
ld a, $3
|
||||||
|
ld hl, $5453
|
||||||
|
rst $8
|
||||||
|
ld a, [$d142]
|
||||||
|
ld hl, JumpTable158e7
|
||||||
|
rst $28
|
||||||
|
pop af
|
||||||
|
ld [$c2ce], a
|
||||||
|
ret
|
||||||
|
; 0x158e7
|
||||||
|
|
||||||
|
JumpTable158e7: ; 0x158e7
|
||||||
|
dw .jump2
|
||||||
|
dw .jump1
|
||||||
|
dw .jump1
|
||||||
|
dw .jump1
|
||||||
|
dw .jump2
|
||||||
|
dw .jump2
|
||||||
|
dw .jump2
|
||||||
|
|
||||||
|
.jump1:
|
||||||
|
ret
|
||||||
|
.jump2:
|
||||||
|
ld a, [Buffer1]
|
||||||
|
push af
|
||||||
|
ld a, [Buffer2]
|
||||||
|
push af
|
||||||
|
call Function1590a
|
||||||
|
pop af
|
||||||
|
ld [Buffer2], a
|
||||||
|
pop af
|
||||||
|
ld [Buffer1], a
|
||||||
|
ret
|
||||||
|
; 0x1590a
|
||||||
|
|
||||||
|
Function1590a: ; 0x1590a
|
||||||
|
ld a, $3
|
||||||
|
ld hl, $5427
|
||||||
|
rst $8
|
||||||
|
ld a, [$d142]
|
||||||
|
and a
|
||||||
|
jr z, .asm_1591d
|
||||||
|
ld a, $1
|
||||||
|
ld [$d10c], a
|
||||||
|
jr .asm_15933
|
||||||
|
|
||||||
|
.asm_1591d
|
||||||
|
ld hl, .HowManyText
|
||||||
|
call $1d4f
|
||||||
|
ld a, $9
|
||||||
|
ld hl, $4fbf
|
||||||
|
rst $8
|
||||||
|
push af
|
||||||
|
call $1c07
|
||||||
|
call $1c07
|
||||||
|
pop af
|
||||||
|
jr c, .asm_1596c
|
||||||
|
|
||||||
|
.asm_15933
|
||||||
|
ld a, [$d10c]
|
||||||
|
ld [Buffer1], a
|
||||||
|
ld a, [$d107]
|
||||||
|
ld [Buffer2], a
|
||||||
|
ld hl, $d8f1
|
||||||
|
call $2f66
|
||||||
|
jr nc, .asm_15965
|
||||||
|
ld a, [Buffer1]
|
||||||
|
ld [$d10c], a
|
||||||
|
ld a, [Buffer2]
|
||||||
|
ld [$d107], a
|
||||||
|
ld hl, NumItems
|
||||||
|
call $2f53
|
||||||
|
ld a, $3b
|
||||||
|
call Predef
|
||||||
|
ld hl, .DepositText
|
||||||
|
call PrintText
|
||||||
|
ret
|
||||||
|
|
||||||
|
.asm_15965
|
||||||
|
ld hl, .NoRoomText
|
||||||
|
call PrintText
|
||||||
|
ret
|
||||||
|
|
||||||
|
.asm_1596c
|
||||||
|
and a
|
||||||
|
ret
|
||||||
|
; 0x1596e
|
||||||
|
|
||||||
|
|
||||||
|
.HowManyText ; 0x1596e
|
||||||
|
TX_FAR _KrissPCHowManyDepositText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.DepositText ; 0x15973
|
||||||
|
TX_FAR _KrissPCDepositItemsText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.NoRoomText ; 0x15978
|
||||||
|
TX_FAR _KrissPCNoRoomDepositText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
|
||||||
|
KrisMailBoxMenu: ; 0x1597d
|
||||||
|
ld a, $11
|
||||||
|
ld hl, $47a0
|
||||||
|
rst $8
|
||||||
|
xor a
|
||||||
|
ret
|
||||||
|
; 0x15985
|
||||||
|
|
||||||
|
|
||||||
|
Function15985: ; 0x15985
|
||||||
|
xor a
|
||||||
|
ld [$d0e3], a
|
||||||
|
ld a, [$c2ce]
|
||||||
|
push af
|
||||||
|
ld a, $0
|
||||||
|
ld [$c2ce], a
|
||||||
|
ld hl, MenuData15a08
|
||||||
|
call $1d3c
|
||||||
|
hlcoord 0, 0
|
||||||
|
ld b, $a
|
||||||
|
ld c, $12
|
||||||
|
call TextBox
|
||||||
|
ld a, [$d0d7]
|
||||||
|
ld [$cf88], a
|
||||||
|
ld a, [$d0dd]
|
||||||
|
ld [$d0e4], a
|
||||||
|
call $350c
|
||||||
|
ld a, [$d0e4]
|
||||||
|
ld [$d0dd], a
|
||||||
|
ld a, [$cfa9]
|
||||||
|
ld [$d0d7], a
|
||||||
|
pop af
|
||||||
|
ld [$c2ce], a
|
||||||
|
ld a, [$d0e3]
|
||||||
|
and a
|
||||||
|
jr nz, .asm_159d8
|
||||||
|
ld a, [$cf73]
|
||||||
|
cp $2
|
||||||
|
jr z, .asm_15a06
|
||||||
|
cp $1
|
||||||
|
jr z, .asm_159fb
|
||||||
|
cp $4
|
||||||
|
jr z, .asm_159f2
|
||||||
|
jr .asm_159f8
|
||||||
|
|
||||||
|
.asm_159d8
|
||||||
|
ld a, [$cf73]
|
||||||
|
cp $2
|
||||||
|
jr z, .asm_159e9
|
||||||
|
cp $1
|
||||||
|
jr z, .asm_159ef
|
||||||
|
cp $4
|
||||||
|
jr z, .asm_159ef
|
||||||
|
jr .asm_159f8
|
||||||
|
|
||||||
|
.asm_159e9
|
||||||
|
xor a
|
||||||
|
ld [$d0e3], a
|
||||||
|
jr .asm_159f8
|
||||||
|
|
||||||
|
.asm_159ef
|
||||||
|
call $56c7
|
||||||
|
|
||||||
|
.asm_159f2
|
||||||
|
ld a, $9
|
||||||
|
ld hl, $490c
|
||||||
|
rst $8
|
||||||
|
|
||||||
|
.asm_159f8
|
||||||
|
jp $5989
|
||||||
|
|
||||||
|
.asm_159fb
|
||||||
|
ld a, $9
|
||||||
|
ld hl, $4706
|
||||||
|
rst $8
|
||||||
|
call $1bee
|
||||||
|
and a
|
||||||
|
ret
|
||||||
|
|
||||||
|
.asm_15a06
|
||||||
|
scf
|
||||||
|
ret
|
||||||
|
; 0x15a08
|
||||||
|
|
||||||
|
MenuData15a08: ; 0x15a08
|
||||||
|
db %01000000
|
||||||
|
db 1, 4 ; top left corner coords (y, x)
|
||||||
|
db $a, $12 ; bottorm right corner coords (y, x)
|
||||||
|
dw .MenuData2
|
||||||
|
db 1 ; default selected option
|
||||||
|
|
||||||
|
.MenuData2
|
||||||
|
db %10110000
|
||||||
|
db 4, 8 ; rows/cols?
|
||||||
|
db 2 ; horizontal spacing?
|
||||||
|
dbw 0, $d8f1
|
||||||
|
dbw BANK(Function24ab4), Function24ab4
|
||||||
|
dbw BANK(Function24ac3), Function24ac3
|
||||||
|
dbw BANK(Function244c3), Function244c3
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $15a20, $174ba - $15a20
|
||||||
|
|
||||||
|
|
||||||
SECTION "bank6",DATA,BANK[$6]
|
SECTION "bank6",DATA,BANK[$6]
|
||||||
|
|
@ -7766,7 +8253,61 @@ INCLUDE "stats/egg_moves.asm"
|
||||||
|
|
||||||
SECTION "bank9",DATA,BANK[$9]
|
SECTION "bank9",DATA,BANK[$9]
|
||||||
|
|
||||||
INCBIN "baserom.gbc", $24000, $265d3 - $24000
|
INCBIN "baserom.gbc", $24000, $244c3 - $24000
|
||||||
|
|
||||||
|
Function244c3: ; 0x244c3
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
ld [CurSpecies], a
|
||||||
|
hlcoord 0, 12
|
||||||
|
ld b, $4
|
||||||
|
ld c, $12
|
||||||
|
call TextBox
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
cp $ff
|
||||||
|
ret z
|
||||||
|
ld de, $c5b9
|
||||||
|
ld a, BANK(GetItemDescription)
|
||||||
|
ld hl, GetItemDescription
|
||||||
|
rst $8
|
||||||
|
ret
|
||||||
|
; 0x244e3
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $244e3, $24ab4 - $244e3
|
||||||
|
|
||||||
|
Function24ab4: ; 0x24ab4
|
||||||
|
push de
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
ld [$d265], a
|
||||||
|
call GetItemName
|
||||||
|
pop hl
|
||||||
|
call PlaceString
|
||||||
|
ret
|
||||||
|
; 0x24ac3
|
||||||
|
|
||||||
|
Function24ac3: ; 0x24ac3
|
||||||
|
push de
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
ld [CurItem], a
|
||||||
|
ld a, BANK(CheckTossableItem)
|
||||||
|
ld hl, CheckTossableItem
|
||||||
|
rst $8
|
||||||
|
ld a, [$d142]
|
||||||
|
pop hl
|
||||||
|
and a
|
||||||
|
jr nz, .done
|
||||||
|
ld de, $0015
|
||||||
|
add hl, de
|
||||||
|
ld [hl], $f1
|
||||||
|
inc hl
|
||||||
|
ld de, $cf75
|
||||||
|
ld bc, $0102
|
||||||
|
call $3198
|
||||||
|
|
||||||
|
.done
|
||||||
|
ret
|
||||||
|
; 0x24ae8
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $24ae8, $265d3 - $24ae8
|
||||||
|
|
||||||
ProfOaksPC: ; 0x265d3
|
ProfOaksPC: ; 0x265d3
|
||||||
ld hl, OakPCText1
|
ld hl, OakPCText1
|
||||||
|
|
@ -7778,7 +8319,7 @@ ProfOaksPC: ; 0x265d3
|
||||||
ld hl, OakPCText4
|
ld hl, OakPCText4
|
||||||
call PrintText
|
call PrintText
|
||||||
call $0a36
|
call $0a36
|
||||||
call $1c07
|
call Function1c07
|
||||||
ret
|
ret
|
||||||
; 0x265ee
|
; 0x265ee
|
||||||
|
|
||||||
|
|
@ -8049,7 +8590,40 @@ OakPCText4: ; 0x2674c
|
||||||
TX_FAR _OakPCText4
|
TX_FAR _OakPCText4
|
||||||
db "@"
|
db "@"
|
||||||
|
|
||||||
INCBIN "baserom.gbc", $26751, $270c4 - $26751
|
INCBIN "baserom.gbc", $26751, $2675c - $26751
|
||||||
|
|
||||||
|
_KrisDecorationMenu: ; 0x2675c
|
||||||
|
ld a, [$cf76]
|
||||||
|
push af
|
||||||
|
ld hl, $679a
|
||||||
|
call $1d35
|
||||||
|
xor a
|
||||||
|
ld [$d1ee], a
|
||||||
|
ld a, $1
|
||||||
|
ld [$d1ef], a
|
||||||
|
.asm_2676f
|
||||||
|
ld a, [$d1ef]
|
||||||
|
ld [$cf88], a
|
||||||
|
call $6806
|
||||||
|
call $1e5d
|
||||||
|
ld a, [$cfa9]
|
||||||
|
ld [$d1ef], a
|
||||||
|
jr c, .asm_2678e
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
ld hl, $67aa
|
||||||
|
call $1fa7
|
||||||
|
jr nc, .asm_2676f
|
||||||
|
|
||||||
|
.asm_2678e
|
||||||
|
call $1c07
|
||||||
|
pop af
|
||||||
|
ld [$cf76], a
|
||||||
|
ld a, [$d1ee]
|
||||||
|
ld c, a
|
||||||
|
ret
|
||||||
|
; 0x2679a
|
||||||
|
|
||||||
|
INCBIN "baserom.gbc", $2679a, $270c4 - $2679a
|
||||||
|
|
||||||
GetTrainerDVs: ; 270c4
|
GetTrainerDVs: ; 270c4
|
||||||
; get dvs based on trainer class
|
; get dvs based on trainer class
|
||||||
|
|
@ -10048,8 +10622,295 @@ PokedexDataPointerTable: ; 0x44378
|
||||||
INCLUDE "stats/pokedex/entry_pointers.asm"
|
INCLUDE "stats/pokedex/entry_pointers.asm"
|
||||||
|
|
||||||
|
|
||||||
INCBIN "baserom.gbc", $4456e, $44997 - $4456e
|
INCBIN "baserom.gbc", $4456e, $447a0 - $4456e
|
||||||
|
|
||||||
|
_KrisMailBoxMenu: ; 0x447a0
|
||||||
|
call InitMail
|
||||||
|
jr z, .nomail
|
||||||
|
call $1d6e
|
||||||
|
call $4806
|
||||||
|
jp $1c17
|
||||||
|
|
||||||
|
.nomail
|
||||||
|
ld hl, .EmptyMailboxText
|
||||||
|
jp $1d67
|
||||||
|
; 0x447b4
|
||||||
|
|
||||||
|
.EmptyMailboxText ; 0x447b4
|
||||||
|
TX_FAR _EmptyMailboxText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
InitMail: ; 0x447b9
|
||||||
|
; initialize $d0f2 and beyond with incrementing values, one per mail
|
||||||
|
; set z if no mail
|
||||||
|
ld a, $0
|
||||||
|
call GetSRAMBank
|
||||||
|
ld a, [$a834]
|
||||||
|
call CloseSRAM
|
||||||
|
ld hl, $d0f2
|
||||||
|
ld [hli], a
|
||||||
|
and a
|
||||||
|
|
||||||
|
jr z, .done ; if no mail, we're done
|
||||||
|
|
||||||
|
; load values in memory with incrementing values starting at $d0f2
|
||||||
|
ld b, a
|
||||||
|
ld a, $1
|
||||||
|
.loop
|
||||||
|
ld [hli], a
|
||||||
|
inc a
|
||||||
|
dec b
|
||||||
|
jr nz, .loop
|
||||||
|
.done
|
||||||
|
ld [hl], $ff ; terminate
|
||||||
|
|
||||||
|
ld a, [$d0f2]
|
||||||
|
and a
|
||||||
|
ret
|
||||||
|
; 0x447da
|
||||||
|
|
||||||
|
Function447da: ; 0x447da
|
||||||
|
dec a
|
||||||
|
ld hl, $a856
|
||||||
|
ld bc, $002f
|
||||||
|
call AddNTimes
|
||||||
|
ld a, $0
|
||||||
|
call GetSRAMBank
|
||||||
|
ld de, StringBuffer2
|
||||||
|
push de
|
||||||
|
ld bc, $a
|
||||||
|
call CopyBytes
|
||||||
|
ld a, $50
|
||||||
|
ld [de], a
|
||||||
|
call CloseSRAM
|
||||||
|
pop de
|
||||||
|
ret
|
||||||
|
; 0x447fb
|
||||||
|
|
||||||
|
Function447fb: ; 0x447fb
|
||||||
|
push de
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
call Function447da
|
||||||
|
pop hl
|
||||||
|
jp PlaceString
|
||||||
|
; 0x44806
|
||||||
|
|
||||||
|
Function44806: ; 0x44806
|
||||||
|
xor a
|
||||||
|
ld [$d0f0], a
|
||||||
|
ld a, $1
|
||||||
|
ld [$d0f1], a
|
||||||
|
.asm_4480f
|
||||||
|
call InitMail
|
||||||
|
ld hl, $494c
|
||||||
|
call $1d3c
|
||||||
|
xor a
|
||||||
|
ld [hBGMapMode], a
|
||||||
|
call $352f
|
||||||
|
call $1ad2
|
||||||
|
ld a, [$d0f1]
|
||||||
|
ld [$cf88], a
|
||||||
|
ld a, [$d0f0]
|
||||||
|
ld [$d0e4], a
|
||||||
|
call $350c
|
||||||
|
ld a, [$d0e4]
|
||||||
|
ld [$d0f0], a
|
||||||
|
ld a, [$cfa9]
|
||||||
|
ld [$d0f1], a
|
||||||
|
ld a, [$cf73]
|
||||||
|
cp $2
|
||||||
|
jr z, .asm_44848
|
||||||
|
call $484a
|
||||||
|
jr .asm_4480f
|
||||||
|
|
||||||
|
.asm_44848
|
||||||
|
xor a
|
||||||
|
ret
|
||||||
|
; 0x4484a
|
||||||
|
|
||||||
|
Function4484a: ; 0x4484a
|
||||||
|
ld hl, MenuData44964
|
||||||
|
call $1d35
|
||||||
|
call $1d81
|
||||||
|
call $1c07
|
||||||
|
jr c, .asm_44860
|
||||||
|
ld a, [$cfa9]
|
||||||
|
dec a
|
||||||
|
ld hl, $4861
|
||||||
|
rst $28
|
||||||
|
|
||||||
|
.asm_44860
|
||||||
|
ret
|
||||||
|
; 0x44861
|
||||||
|
|
||||||
|
.JumpTable
|
||||||
|
dw .ReadMail
|
||||||
|
dw .PutInPack
|
||||||
|
dw .AttachMail
|
||||||
|
dw .Cancel
|
||||||
|
|
||||||
|
.ReadMail ; 0x44869
|
||||||
|
call $2b29
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
dec a
|
||||||
|
ld b, a
|
||||||
|
call $45f4
|
||||||
|
jp $2b3c
|
||||||
|
; 0x44877
|
||||||
|
|
||||||
|
.PutInPack ; 0x44877
|
||||||
|
ld hl, .MessageLostText
|
||||||
|
call $1d4f
|
||||||
|
call $1dcf
|
||||||
|
call $1c07
|
||||||
|
ret c
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
dec a
|
||||||
|
call .Function448bb
|
||||||
|
ld a, $1
|
||||||
|
ld [$d10c], a
|
||||||
|
ld hl, NumItems
|
||||||
|
call $2f66
|
||||||
|
jr c, .asm_4489e
|
||||||
|
ld hl, .PackFullText
|
||||||
|
jp $1d67
|
||||||
|
|
||||||
|
.asm_4489e
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
dec a
|
||||||
|
ld b, a
|
||||||
|
call $45c0
|
||||||
|
ld hl, .PutAwayText
|
||||||
|
jp $1d67
|
||||||
|
; 0x448ac
|
||||||
|
|
||||||
|
.PutAwayText ; 0x448ac
|
||||||
|
TX_FAR ClearedMailPutAwayText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.PackFullText ; 0x448b1
|
||||||
|
TX_FAR MailPackFullText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.MessageLostText ; 0x448b6
|
||||||
|
TX_FAR MailMessageLostText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.Function448bb: ; 0x448bb
|
||||||
|
push af
|
||||||
|
ld a, $0
|
||||||
|
call GetSRAMBank
|
||||||
|
pop af
|
||||||
|
ld hl, $a863
|
||||||
|
ld bc, $002f
|
||||||
|
call AddNTimes
|
||||||
|
ld a, [hl]
|
||||||
|
ld [CurItem], a
|
||||||
|
jp CloseSRAM
|
||||||
|
; 0x448d2
|
||||||
|
|
||||||
|
.AttachMail ; 0x448d2
|
||||||
|
call $2b29
|
||||||
|
xor a
|
||||||
|
ld [$d141], a
|
||||||
|
call $31f3
|
||||||
|
.asm_448dc
|
||||||
|
ld a, $14
|
||||||
|
ld hl, $404f
|
||||||
|
rst $8
|
||||||
|
ld a, $14
|
||||||
|
ld hl, $4405
|
||||||
|
rst $8
|
||||||
|
ld a, $14
|
||||||
|
ld hl, $43e0
|
||||||
|
rst $8
|
||||||
|
ld a, $14
|
||||||
|
ld hl, $405f
|
||||||
|
rst $8
|
||||||
|
ld a, $14
|
||||||
|
ld hl, $449a
|
||||||
|
rst $8
|
||||||
|
call $31f6
|
||||||
|
call $32f9
|
||||||
|
call DelayFrame
|
||||||
|
ld a, $14
|
||||||
|
ld hl, $4457
|
||||||
|
rst $8
|
||||||
|
jr c, .asm_44939
|
||||||
|
ld a, [CurPartySpecies]
|
||||||
|
cp $fd
|
||||||
|
jr z, .asm_44923
|
||||||
|
ld a, $1
|
||||||
|
call GetPartyParamLocation
|
||||||
|
ld a, [hl]
|
||||||
|
and a
|
||||||
|
jr z, .asm_4492b
|
||||||
|
ld hl, .HoldingMailText
|
||||||
|
call PrintText
|
||||||
|
jr .asm_448dc
|
||||||
|
|
||||||
|
.asm_44923
|
||||||
|
ld hl, .EggText
|
||||||
|
call PrintText
|
||||||
|
jr .asm_448dc
|
||||||
|
|
||||||
|
.asm_4492b
|
||||||
|
ld a, [MenuSelection]
|
||||||
|
dec a
|
||||||
|
ld b, a
|
||||||
|
call $4607
|
||||||
|
ld hl, .MailMovedText
|
||||||
|
call PrintText
|
||||||
|
|
||||||
|
.asm_44939
|
||||||
|
jp $2b3c
|
||||||
|
; 0x4493c
|
||||||
|
|
||||||
|
.HoldingMailText ; 0x4493c
|
||||||
|
TX_FAR MailAlreadyHoldingItemText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.EggText ; 0x44941
|
||||||
|
TX_FAR MailEggText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.MailMovedText ; 0x44946
|
||||||
|
TX_FAR MailMovedFromBoxText
|
||||||
|
db "@"
|
||||||
|
|
||||||
|
.Cancel
|
||||||
|
ret
|
||||||
|
|
||||||
|
MenuData4494c: ; 0x4494c
|
||||||
|
db %01000000 ; flags
|
||||||
|
db 1, 8 ; start coords
|
||||||
|
db $a, $12 ; end coords
|
||||||
|
dw .MenuData2
|
||||||
|
db 1 ; default option
|
||||||
|
|
||||||
|
.MenuData2
|
||||||
|
db %00010000 ; flags
|
||||||
|
db 4, 0 ; rows/columns?
|
||||||
|
db 1 ; horizontal spacing?
|
||||||
|
dbw 0,$d0f2 ; text pointer
|
||||||
|
dbw BANK(Function447fb), Function447fb
|
||||||
|
dbw 0,0
|
||||||
|
dbw 0,0
|
||||||
|
|
||||||
|
MenuData44964: ; 0x44964
|
||||||
|
db %01000000 ; flags
|
||||||
|
db 0, 0 ; start coords
|
||||||
|
db 9, $d ; end coords
|
||||||
|
dw .MenuData2
|
||||||
|
db 1 ; default option
|
||||||
|
|
||||||
|
.MenuData2
|
||||||
|
db %10000000 ; flags
|
||||||
|
db 4 ; items
|
||||||
|
db "READ MAIL@"
|
||||||
|
db "PUT IN PACK@"
|
||||||
|
db "ATTACH MAIL@"
|
||||||
|
db "CANCEL@"
|
||||||
|
|
||||||
SECTION "bank12",DATA,BANK[$12]
|
SECTION "bank12",DATA,BANK[$12]
|
||||||
|
|
||||||
|
|
@ -11130,7 +11991,7 @@ WritePartyMenuTilemap: ; 0x5005f
|
||||||
ld hl, TileMap
|
ld hl, TileMap
|
||||||
ld bc, $0168
|
ld bc, $0168
|
||||||
ld a, " "
|
ld a, " "
|
||||||
call $3041 ; blank the tilemap
|
call ByteFill ; blank the tilemap
|
||||||
call $4396 ; This reads from a pointer table???
|
call $4396 ; This reads from a pointer table???
|
||||||
.asm_50077
|
.asm_50077
|
||||||
ld a, [hli]
|
ld a, [hli]
|
||||||
|
|
@ -18215,15 +19076,15 @@ Function117b4f:
|
||||||
ld a, [$cf64]
|
ld a, [$cf64]
|
||||||
and a
|
and a
|
||||||
jr nz, .asm_117ba4 ; 0x117b93 $f
|
jr nz, .asm_117ba4 ; 0x117b93 $f
|
||||||
call $1c07
|
call Function1c07
|
||||||
call $1c07
|
call Function1c07
|
||||||
ld a, $41
|
ld a, $41
|
||||||
ld hl, $4061
|
ld hl, $4061
|
||||||
rst FarCall
|
rst FarCall
|
||||||
jp Function117cdd
|
jp Function117cdd
|
||||||
.asm_117ba4
|
.asm_117ba4
|
||||||
call $1c07
|
call Function1c07
|
||||||
call $1c07
|
call Function1c07
|
||||||
ld a, $41
|
ld a, $41
|
||||||
ld hl, $4061
|
ld hl, $4061
|
||||||
rst FarCall
|
rst FarCall
|
||||||
|
|
|
||||||
|
|
@ -863,36 +863,36 @@ UnknownText_0x1c0ec6: ; 1c0ec6
|
||||||
db $0, ".", $58
|
db $0, ".", $58
|
||||||
; 1c0ee3
|
; 1c0ee3
|
||||||
|
|
||||||
UnknownText_0x1c0ee3: ; 1c0ee3
|
_EmptyMailboxText: ; 1c0ee3
|
||||||
db $0, "There's no MAIL", $4f
|
db $0, "There's no MAIL", $4f
|
||||||
db "here.", $58
|
db "here.", $58
|
||||||
; 1c0ef9
|
; 1c0ef9
|
||||||
|
|
||||||
UnknownText_0x1c0ef9: ; 1c0ef9
|
ClearedMailPutAwayText: ; 1c0ef9
|
||||||
db $0, "The cleared MAIL", $4f
|
db $0, "The cleared MAIL", $4f
|
||||||
db "was put away.", $58
|
db "was put away.", $58
|
||||||
; 1c0f19
|
; 1c0f19
|
||||||
|
|
||||||
UnknownText_0x1c0f19: ; 1c0f19
|
MailPackFullText: ; 1c0f19
|
||||||
db $0, "The PACK is full.", $58
|
db $0, "The PACK is full.", $58
|
||||||
; 1c0f2c
|
; 1c0f2c
|
||||||
|
|
||||||
UnknownText_0x1c0f2c: ; 1c0f2c
|
MailMessageLostText: ; 1c0f2c
|
||||||
db $0, "The MAIL's message", $4f
|
db $0, "The MAIL's message", $4f
|
||||||
db "will be lost. OK?", $57
|
db "will be lost. OK?", $57
|
||||||
; 1c0f51
|
; 1c0f51
|
||||||
|
|
||||||
UnknownText_0x1c0f51: ; 1c0f51
|
MailAlreadyHoldingItemText: ; 1c0f51
|
||||||
db $0, "It's already hold-", $4f
|
db $0, "It's already hold-", $4f
|
||||||
db "ing an item.", $58
|
db "ing an item.", $58
|
||||||
; 1c0f71
|
; 1c0f71
|
||||||
|
|
||||||
UnknownText_0x1c0f71: ; 1c0f71
|
MailEggText: ; 1c0f71
|
||||||
db $0, "An EGG can't hold", $4f
|
db $0, "An EGG can't hold", $4f
|
||||||
db "any MAIL.", $58
|
db "any MAIL.", $58
|
||||||
; 1c0f8d
|
; 1c0f8d
|
||||||
|
|
||||||
UnknownText_0x1c0f8d: ; 1c0f8d
|
MailMovedFromBoxText: ; 1c0f8d
|
||||||
db $0, "The MAIL was moved", $4f
|
db $0, "The MAIL was moved", $4f
|
||||||
db "from the MAILBOX.", $58
|
db "from the MAILBOX.", $58
|
||||||
; 1c0fb3
|
; 1c0fb3
|
||||||
|
|
@ -1108,12 +1108,12 @@ UnknownText_0x1c1368: ; 1c1368
|
||||||
db "to do?", $57
|
db "to do?", $57
|
||||||
; 1c1381
|
; 1c1381
|
||||||
|
|
||||||
UnknownText_0x1c1381: ; 1c1381
|
_KrissPCHowManyWithdrawText: ; 1c1381
|
||||||
db $0, "How many do you", $4f
|
db $0, "How many do you", $4f
|
||||||
db "want to withdraw?", $57
|
db "want to withdraw?", $57
|
||||||
; 1c13a4
|
; 1c13a4
|
||||||
|
|
||||||
UnknownText_0x1c13a4: ; 1c13a4
|
_KrissPCWithdrewItemsText: ; 1c13a4
|
||||||
db $0, "Withdrew @"
|
db $0, "Withdrew @"
|
||||||
deciram $d10c, $12
|
deciram $d10c, $12
|
||||||
db $0, $4f
|
db $0, $4f
|
||||||
|
|
@ -1122,7 +1122,7 @@ UnknownText_0x1c13a4: ; 1c13a4
|
||||||
db $0, "(S).", $58
|
db $0, "(S).", $58
|
||||||
; 1c13bf
|
; 1c13bf
|
||||||
|
|
||||||
UnknownText_0x1c13bf: ; 1c13bf
|
_KrissPCNoRoomWithdrawText: ; 1c13bf
|
||||||
db $0, "There's no room", $4f
|
db $0, "There's no room", $4f
|
||||||
db "for more items.", $58
|
db "for more items.", $58
|
||||||
; 1c13df
|
; 1c13df
|
||||||
|
|
@ -1131,12 +1131,12 @@ UnknownText_0x1c13df: ; 1c13df
|
||||||
db $0, "No items here!", $58
|
db $0, "No items here!", $58
|
||||||
; 1c13ef
|
; 1c13ef
|
||||||
|
|
||||||
UnknownText_0x1c13ef: ; 1c13ef
|
_KrissPCHowManyDepositText: ; 1c13ef
|
||||||
db $0, "How many do you", $4f
|
db $0, "How many do you", $4f
|
||||||
db "want to deposit?", $57
|
db "want to deposit?", $57
|
||||||
; 1c1411
|
; 1c1411
|
||||||
|
|
||||||
UnknownText_0x1c1411: ; 1c1411
|
_KrissPCDepositItemsText: ; 1c1411
|
||||||
db $0, "Deposited @"
|
db $0, "Deposited @"
|
||||||
deciram $d10c, $12
|
deciram $d10c, $12
|
||||||
db $0, $4f
|
db $0, $4f
|
||||||
|
|
@ -1145,7 +1145,7 @@ UnknownText_0x1c1411: ; 1c1411
|
||||||
db $0, "(S).", $58
|
db $0, "(S).", $58
|
||||||
; 1c142d
|
; 1c142d
|
||||||
|
|
||||||
UnknownText_0x1c142d: ; 1c142d
|
_KrissPCNoRoomDepositText: ; 1c142d
|
||||||
db $0, "There's no room to", $4f
|
db $0, "There's no room to", $4f
|
||||||
db "store items.", $58
|
db "store items.", $58
|
||||||
; 1c144d
|
; 1c144d
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue