thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-09-17 02:40:50 +12:00
Code Issues Actions Packages Projects Releases Wiki Activity

More status screen disasm

Browse source 
hg-commit-id: 41da2aa53cdc
This commit is contained in:
Sanky 2012-02-25 22:03:30 +01:00
parent 732e298db2
commit 23175c2500
1 changed files with 122 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

165
main.asm
View file

@ -18475,16 +18475,16 @@ INCBIN "baserom.gbc",$11380,$12953 - $11380
StatusScreen: ; 0x12953 StatusScreen: ; 0x12953
call LoadMonData call LoadMonData
ld a, [$cc49] ld a, [$cc49]
cp $2 cp $2 ; 2 means we're in a PC box
jr c, .asm_12971 ; 0x1295b $14 jr c, .DontRecalculate ; 0x1295b $14
ld a, [$cf9b] ld a, [$cf9b]
ld [$cfb9], a ld [$cfb9], a
ld [$d127], a ld [$d127], a
ld hl, $cfa8 ld hl, $cfa8
ld de, $cfba ld de, $cfba
ld b, $1 ld b, $1
call $3936 call $3936 ; Recalculate stats
.asm_12971 .DontRecalculate
ld hl, $d72c ld hl, $d72c
set 1, [hl] set 1, [hl]
ld a, $33 ld a, $33
@ -18496,103 +18496,111 @@ StatusScreen: ; 0x12953
ld de, $6080 ; source ld de, $6080 ; source
ld hl, $96d0 ; dest ld hl, $96d0 ; dest
ld bc, $0403 ; bank bytes/8 ld bc, $0403 ; bank bytes/8
call CopyVideoDataDouble call CopyVideoDataDouble ; ·│ :L and halfarrow line end
ld de, $6098 ld de, $6098
ld hl, $9780 ld hl, $9780
ld bc, $0401 ld bc, $0401
call CopyVideoDataDouble call CopyVideoDataDouble ; │
ld de, $60b0 ld de, $60b0
ld hl, $9760 ld hl, $9760
ld bc, $0402 ld bc, $0402
call CopyVideoDataDouble call CopyVideoDataDouble ; ─┘
ld de, $6adc ld de, PTile
ld hl, $9720 ld hl, $9720
ld bc, $0401 ld bc,(BANK(PTile) << 8 | $01)
call CopyVideoDataDouble call CopyVideoDataDouble ; P (for PP), inline
ld a, [$ff00+$d7] ld a, [$ff00+$d7]
push af push af
xor a xor a
ld [$ff00+$d7], a ld [$ff00+$d7], a
ld hl, $c3c7 FuncCoord 19,1
ld hl, Coord
ld bc, $060a ld bc, $060a
call $6ac7 call DrawLineBox ; Draws the box around name, HP and status
ld de, $fffa ld de, $fffa
add hl, de add hl, de
ld [hl], $f2 ld [hl], $f2 ; . after No ("." is a different one)
dec hl dec hl
ld [hl], $74 ld [hl], $74 ; No
ld hl, $c467 FuncCoord 19,9
ld hl, Coord
ld bc, $0806 ld bc, $0806
call $6ac7 call DrawLineBox ; Draws the box around types, ID No. and OT
FuncCoord 10,9 FuncCoord 10,9
ld hl, Coord ld hl, Coord
ld de, Type1Text ld de, Type1Text
call PlaceString ; "TYPE1/" call PlaceString ; "TYPE1/"
ld hl, $c3e7 FuncCoord 11,3
ld hl, Coord
ld a, $5f ld a, $5f
call Predef call Predef ; Draws HP bar
ld hl, $cf25 ld hl, $cf25
call $3df9 call $3df9
ld b, $3 ld b, $3
call $3def ; SGB palette call GoPAL_SET ; SGB palette
ld hl, $c428 FuncCoord 16,6
ld hl, Coord
ld de, $cf9c ld de, $cf9c
call $14e1 call PrintStatusCondition
jr nz, .PassOK\@ ; 0x129fc $9 jr nz, .StatusWritten\@ ; 0x129fc $9
FuncCoord 16,6 FuncCoord 16,6
ld hl, Coord ld hl, Coord
ld de, OKText ld de, OKText
call PlaceString ; "OK" call PlaceString ; "OK"
.PassOK\@ .StatusWritten\@
FuncCoord 9,6 FuncCoord 9,6
ld hl, Coord ld hl, Coord
ld de, StatusText ld de, StatusText
call PlaceString ; "STATUS/" call PlaceString ; "STATUS/"
ld hl, $c3d6 FuncCoord 14,2
call $150b ld hl, Coord
call PrintLevel ; Pokémon level
ld a, [$d0b8] ld a, [$d0b8]
ld [$d11e], a ld [$d11e], a
ld [$d0b5], a ld [$d0b5], a
ld a, $3a ld a, $3a
call Predef call Predef
ld hl, $c42f FuncCoord 3,7
ld hl, Coord
ld de, $d11e ld de, $d11e
ld bc, $8103 ld bc, $8103 ; Zero-padded, 3
call PrintNumber call PrintNumber ; Pokémon no.
ld hl, $c473 FuncCoord 11,10
ld hl, Coord
ld a, $4b ld a, $4b
call Predef call Predef ; Prints the type (?)
ld hl, $6a9d ld hl, $6a9d
call .LoadString call .unk_12a7e
ld d, h ld d, h
ld e, l ld e, l
FuncCoord 9,1 FuncCoord 9,1
ld hl, Coord ld hl, Coord
call PlaceString ; Pokémon name call PlaceString ; Pokémon name
ld hl, $6a95 ld hl, $6a95
call .LoadString call .unk_12a7e
ld d, h ld d, h
ld e, l ld e, l
FuncCoord 12,16 FuncCoord 12,16
ld hl, Coord ld hl, Coord
call PlaceString ; OT call PlaceString ; OT
ld hl, $c4c4 FuncCoord 12,14
ld de, $cfa4 ; source ld hl, Coord
ld bc, $8205 ld de, $cfa4
call PrintNumber ld bc, $8205 ; 5
call PrintNumber ; ID Number
ld d, $0 ld d, $0
call $6ae4 call PrintStatsBox
call Delay3 call Delay3
call GBPalNormal call GBPalNormal
ld hl, $c3a1 ld hl, $c3a1
call $1384 ; draw Pokémon picture call $1384 ; draw Pokémon picture
ld a, [$cf91] ld a, [$cf91]
call $13d0 ; play Pokémon cry call $13d0 ; play Pokémon cry
call $3865 ; wait for button? call $3865 ; wait for button
pop af pop af
ld [$ff00+$d7], a ld [$ff00+$d7], a
ret ret
.LoadString ; 0x12a7e .unk_12a7e ; 0x12a7e ; I don't know what this does, iterates over pointers?
ld a, [$cc49] ld a, [$cc49]
add a add a
ld c, a ld c, a
@ -18608,7 +18616,7 @@ StatusScreen: ; 0x12953
jp $3a7d jp $3a7d
; 0x12a95 ; 0x12a95
INCBIN "baserom.gbc",$12a95,$12aa5 - $12a95 INCBIN "baserom.gbc",$12a95,$12aa5 - $12a95 ; This is some pointers..
Type1Text: ; 0x12aa5 Type1Text: ; 0x12aa5
db "TYPE1/", $4e db "TYPE1/", $4e
@ -18628,9 +18636,80 @@ StatusText:
OKText: ; 0x12ac4 OKText: ; 0x12ac4
db "OK@" db "OK@"
INCBIN "baserom.gbc",$12ac7,$12b57 - $12ac7 ; Draws a line starting from hl high b and wide c
DrawLineBox ; 0x12ac7
ld de, $0014 ; New line
.PrintVerticalLine
ld [hl], $78 ; │
add hl, de
dec b
jr nz, .PrintVerticalLine ; 0x12ace $fa
ld [hl], $77 ; ┘
dec hl
.PrintHorizLine
ld [hl], $76 ; ─
dec hl
dec c
jr nz, .PrintHorizLine ; 0x12ad7 $fa
ld [hl], $6f ; ← (halfarrow ending)
ret
StatusScreen2: PTile: ; This is a single 1bpp "P" tile
INCBIN "baserom.gbc",$12adc,$12ae4 - $12adc
PrintStatsBox: ; 12ae4
ld a, d
and a ; a is 0 from the status screen
jr nz, .DifferentBox ; 0x12ae6 $12
FuncCoord 0,8
ld hl, Coord
ld b, $8
ld c, $8
call TextBoxBorder ; Draws the box
FuncCoord 1,9 ; Start printing stats from here
ld hl, Coord
ld bc, $0019 ; Number offset
jr .PrintStats ; 0x12af8 $10
.DifferentBox
FuncCoord 9,2
ld hl, Coord
ld b, $8
ld c, $9
call TextBoxBorder
ld hl, $c3e7
ld bc, $0018
.PrintStats
push bc
push hl
ld de, StatsText
call PlaceString
pop hl
pop bc
add hl, bc
ld de, $cfbc
ld bc, $0203 ; three digits
call PrintStat
ld de, $cfbe
call PrintStat
ld de, $cfc0
call PrintStat
ld de, $cfc2
jp PrintNumber
PrintStat
push hl
call PrintNumber
pop hl
ld de, $0028
add hl, de
ret
StatsText:
db "ATTACK", $4e
db "DEFENSE", $4e
db "SPEED", $4e
db "SPECIAL", $50
StatusScreen2: ; 12b57
ld a, [$ff00+$d7] ld a, [$ff00+$d7]
push af push af
xor a xor a
@ -49887,7 +49966,7 @@ PredefPointers: ; 7E79
dbw $01,$4DE1 dbw $01,$4DE1
dbw $09,$7D98 dbw $09,$7D98
dbw $03,$7473 dbw $03,$7473
dbw $04,$68EF dbw $04,$68EF ; 5F draw HP bar
dbw $04,$68F6 dbw $04,$68F6
dbw $07,$49C6 dbw $07,$49C6
dbw $16,$5035 dbw $16,$5035