mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-11-17 02:22:29 +13:00
Whitespace.
hg-commit-id: de73bb7aef32
This commit is contained in:
IIMarckus
parent
d2c8727eb2
commit
868181ea90
312
main.asm
312
main.asm
|
|
@ -5141,7 +5141,7 @@ IncGradGBPalTable_01: ; 210D
|
||||||
db %11111111 ;BG Pal
|
db %11111111 ;BG Pal
|
||||||
db %11111111 ;OBJ Pal 1
|
db %11111111 ;OBJ Pal 1
|
||||||
db %11111111 ;OBJ Pal 2
|
db %11111111 ;OBJ Pal 2
|
||||||
;and so on...
|
;and so on...
|
||||||
db %11111110
|
db %11111110
|
||||||
db %11111110
|
db %11111110
|
||||||
db %11111000
|
db %11111000
|
||||||
|
|
@ -18432,133 +18432,133 @@ INCBIN "baserom.gbc",$11380,$12953 - $11380
|
||||||
|
|
||||||
; Predef 0x37
|
; Predef 0x37
|
||||||
StatusScreen: ; 0x12953
|
StatusScreen: ; 0x12953
|
||||||
call LoadMonData
|
call LoadMonData
|
||||||
ld a, [$cc49]
|
ld a, [$cc49]
|
||||||
cp $2 ; 2 means we're in a PC box
|
cp $2 ; 2 means we're in a PC box
|
||||||
jr c, .DontRecalculate ; 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 ; Recalculate stats
|
call $3936 ; Recalculate stats
|
||||||
.DontRecalculate
|
.DontRecalculate
|
||||||
ld hl, $d72c
|
ld hl, $d72c
|
||||||
set 1, [hl]
|
set 1, [hl]
|
||||||
ld a, $33
|
ld a, $33
|
||||||
ld [$ff00+$24], a ; Reduce the volume
|
ld [$ff00+$24], a ; Reduce the volume
|
||||||
call GBPalWhiteOutWithDelay3
|
call GBPalWhiteOutWithDelay3
|
||||||
call ClearScreen
|
call ClearScreen
|
||||||
call $2429 ; move sprites (?)
|
call $2429 ; move sprites (?)
|
||||||
call LoadHpBarAndStatusTilePatterns
|
call LoadHpBarAndStatusTilePatterns
|
||||||
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 ; ·│ :L and halfarrow line end
|
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, PTile
|
ld de, PTile
|
||||||
ld hl, $9720
|
ld hl, $9720
|
||||||
ld bc,(BANK(PTile) << 8 | $01)
|
ld bc,(BANK(PTile) << 8 | $01)
|
||||||
call CopyVideoDataDouble ; P (for PP), inline
|
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
|
||||||
FuncCoord 19,1
|
FuncCoord 19,1
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld bc, $060a
|
ld bc, $060a
|
||||||
call DrawLineBox ; Draws the box around name, HP and status
|
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 ; . after No ("." is a different one)
|
ld [hl], $f2 ; . after No ("." is a different one)
|
||||||
dec hl
|
dec hl
|
||||||
ld [hl], $74 ; No
|
ld [hl], $74 ; No
|
||||||
FuncCoord 19,9
|
FuncCoord 19,9
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld bc, $0806
|
ld bc, $0806
|
||||||
call DrawLineBox ; Draws the box around types, ID No. and OT
|
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/"
|
||||||
FuncCoord 11,3
|
FuncCoord 11,3
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld a, $5f
|
ld a, $5f
|
||||||
call Predef ; Draws HP bar
|
call Predef ; Draws HP bar
|
||||||
ld hl, $cf25
|
ld hl, $cf25
|
||||||
call $3df9
|
call $3df9
|
||||||
ld b, $3
|
ld b, $3
|
||||||
call GoPAL_SET ; SGB palette
|
call GoPAL_SET ; SGB palette
|
||||||
FuncCoord 16,6
|
FuncCoord 16,6
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld de, $cf9c
|
ld de, $cf9c
|
||||||
call PrintStatusCondition
|
call PrintStatusCondition
|
||||||
jr nz, .StatusWritten\@ ; 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"
|
||||||
.StatusWritten\@
|
.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/"
|
||||||
FuncCoord 14,2
|
FuncCoord 14,2
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
call PrintLevel ; Pokémon level
|
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
|
||||||
FuncCoord 3,7
|
FuncCoord 3,7
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld de, $d11e
|
ld de, $d11e
|
||||||
ld bc, $8103 ; Zero-padded, 3
|
ld bc, $8103 ; Zero-padded, 3
|
||||||
call PrintNumber ; Pokémon no.
|
call PrintNumber ; Pokémon no.
|
||||||
FuncCoord 11,10
|
FuncCoord 11,10
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld a, $4b
|
ld a, $4b
|
||||||
call Predef ; Prints the type (?)
|
call Predef ; Prints the type (?)
|
||||||
ld hl, $6a9d
|
ld hl, $6a9d
|
||||||
call .unk_12a7e
|
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 .unk_12a7e
|
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
|
||||||
FuncCoord 12,14
|
FuncCoord 12,14
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld de, $cfa4
|
ld de, $cfa4
|
||||||
ld bc, $8205 ; 5
|
ld bc, $8205 ; 5
|
||||||
call PrintNumber ; ID Number
|
call PrintNumber ; ID Number
|
||||||
ld d, $0
|
ld d, $0
|
||||||
call PrintStatsBox
|
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
|
||||||
.unk_12a7e ; 0x12a7e ; I don't know what this does, iterates over pointers?
|
.unk_12a7e ; 0x12a7e ; I don't know what this does, iterates over pointers?
|
||||||
ld a, [$cc49]
|
ld a, [$cc49]
|
||||||
add a
|
add a
|
||||||
|
|
@ -18578,22 +18578,22 @@ StatusScreen: ; 0x12953
|
||||||
INCBIN "baserom.gbc",$12a95,$12aa5 - $12a95 ; This is some pointers..
|
INCBIN "baserom.gbc",$12a95,$12aa5 - $12a95 ; This is some pointers..
|
||||||
|
|
||||||
Type1Text: ; 0x12aa5
|
Type1Text: ; 0x12aa5
|
||||||
db "TYPE1/", $4e
|
db "TYPE1/", $4e
|
||||||
|
|
||||||
Type2Text: ;
|
Type2Text: ;
|
||||||
db "TYPE2/", $4e
|
db "TYPE2/", $4e
|
||||||
|
|
||||||
IDNoText:
|
IDNoText:
|
||||||
db $73, $74, "/", $4e
|
db $73, $74, "/", $4e
|
||||||
|
|
||||||
OTText:
|
OTText:
|
||||||
db "OT/", $4e, "@"
|
db "OT/", $4e, "@"
|
||||||
|
|
||||||
StatusText:
|
StatusText:
|
||||||
db "STATUS/@"
|
db "STATUS/@"
|
||||||
|
|
||||||
OKText: ; 0x12ac4
|
OKText: ; 0x12ac4
|
||||||
db "OK@"
|
db "OK@"
|
||||||
|
|
||||||
; Draws a line starting from hl high b and wide c
|
; Draws a line starting from hl high b and wide c
|
||||||
DrawLineBox ; 0x12ac7
|
DrawLineBox ; 0x12ac7
|
||||||
|
|
@ -18630,7 +18630,7 @@ PrintStatsBox: ; 12ae4
|
||||||
ld bc, $0019 ; Number offset
|
ld bc, $0019 ; Number offset
|
||||||
jr .PrintStats ; 0x12af8 $10
|
jr .PrintStats ; 0x12af8 $10
|
||||||
.DifferentBox
|
.DifferentBox
|
||||||
FuncCoord 9,2
|
FuncCoord 9,2
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld b, $8
|
ld b, $8
|
||||||
ld c, $9
|
ld c, $9
|
||||||
|
|
@ -18663,10 +18663,10 @@ PrintStat
|
||||||
ret
|
ret
|
||||||
|
|
||||||
StatsText:
|
StatsText:
|
||||||
db "ATTACK", $4e
|
db "ATTACK", $4e
|
||||||
db "DEFENSE", $4e
|
db "DEFENSE", $4e
|
||||||
db "SPEED", $4e
|
db "SPEED", $4e
|
||||||
db "SPECIAL", $50
|
db "SPECIAL", $50
|
||||||
|
|
||||||
StatusScreen2: ; 12b57
|
StatusScreen2: ; 12b57
|
||||||
ld a, [$ff00+$d7]
|
ld a, [$ff00+$d7]
|
||||||
|
|
@ -18771,7 +18771,7 @@ StatusScreen2: ; 12b57
|
||||||
cp $4
|
cp $4
|
||||||
jr nz, .PrintPP ; 0x12c0f $b2
|
jr nz, .PrintPP ; 0x12c0f $b2
|
||||||
.PPDone
|
.PPDone
|
||||||
FuncCoord 9,3
|
FuncCoord 9,3
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld de, EXPPointsText
|
ld de, EXPPointsText
|
||||||
call PlaceString
|
call PlaceString
|
||||||
|
|
@ -18782,7 +18782,7 @@ StatusScreen2: ; 12b57
|
||||||
inc a
|
inc a
|
||||||
ld [$cfb9], a ; Increase temporarily if not 100
|
ld [$cfb9], a ; Increase temporarily if not 100
|
||||||
.Level100
|
.Level100
|
||||||
FuncCoord 14,6
|
FuncCoord 14,6
|
||||||
ld hl, Coord
|
ld hl, Coord
|
||||||
ld [hl], $70 ; 1-tile "to"
|
ld [hl], $70 ; 1-tile "to"
|
||||||
inc hl
|
inc hl
|
||||||
|
|
@ -18854,10 +18854,10 @@ StatusScreen2: ; 12b57
|
||||||
ret
|
ret
|
||||||
|
|
||||||
EXPPointsText:
|
EXPPointsText:
|
||||||
db "EXP POINTS", $4e
|
db "EXP POINTS", $4e
|
||||||
|
|
||||||
LevelUpText:
|
LevelUpText:
|
||||||
db "LEVEL UP", $50
|
db "LEVEL UP", $50
|
||||||
|
|
||||||
INCBIN "baserom.gbc",$12cc3,$12cd2 - $12cc3
|
INCBIN "baserom.gbc",$12cc3,$12cd2 - $12cc3
|
||||||
|
|
||||||
|
|
@ -66731,10 +66731,10 @@ DecrementPP: ; 0x68000
|
||||||
ld a, [de]
|
ld a, [de]
|
||||||
cp a, STRUGGLE
|
cp a, STRUGGLE
|
||||||
ret z ; if the pokemon is using "struggle", there's nothing to do
|
ret z ; if the pokemon is using "struggle", there's nothing to do
|
||||||
; we don't decrement PP for "struggle"
|
; we don't decrement PP for "struggle"
|
||||||
ld hl, W_PLAYERBATTSTATUS1
|
ld hl, W_PLAYERBATTSTATUS1
|
||||||
ld a, [hli] ; load the W_PLAYERBATTSTATUS1 pokemon status flags and increment hl to load the
|
ld a, [hli] ; load the W_PLAYERBATTSTATUS1 pokemon status flags and increment hl to load the
|
||||||
; W_PLAYERBATTSTATUS2 status flags later
|
; W_PLAYERBATTSTATUS2 status flags later
|
||||||
and a, 7 ; check to see if bits 0, 1, or 2 are set
|
and a, 7 ; check to see if bits 0, 1, or 2 are set
|
||||||
ret nz ; if any of these statuses are true, don't decrement PP
|
ret nz ; if any of these statuses are true, don't decrement PP
|
||||||
bit 6, [hl] ; check 6th bit status flag on W_PLAYERBATTSTATUS2
|
bit 6, [hl] ; check 6th bit status flag on W_PLAYERBATTSTATUS2
|
||||||
|
|
@ -66745,14 +66745,14 @@ DecrementPP: ; 0x68000
|
||||||
ld a, [$D064] ; load pokemon status bits?
|
ld a, [$D064] ; load pokemon status bits?
|
||||||
bit 3, a ; XXX transform status?
|
bit 3, a ; XXX transform status?
|
||||||
ret nz ; If it is, return. Pokemon Red stores the "current pokemon's" PP
|
ret nz ; If it is, return. Pokemon Red stores the "current pokemon's" PP
|
||||||
; separately from the "Pokemon in your party's" PP. This is
|
; separately from the "Pokemon in your party's" PP. This is
|
||||||
; duplication -- in all cases *other* than Pokemon with Transform.
|
; duplication -- in all cases *other* than Pokemon with Transform.
|
||||||
; Normally, this means we have to go on and make the same
|
; Normally, this means we have to go on and make the same
|
||||||
; modification to the "party's pokemon" PP that we made to the
|
; modification to the "party's pokemon" PP that we made to the
|
||||||
; "current pokemon's" PP. But, if we're dealing with a Transformed
|
; "current pokemon's" PP. But, if we're dealing with a Transformed
|
||||||
; Pokemon, it has separate PP for the move set that it copied from
|
; Pokemon, it has separate PP for the move set that it copied from
|
||||||
; its opponent, which is *not* the same as its real PP as part of your
|
; its opponent, which is *not* the same as its real PP as part of your
|
||||||
; party. So we return, and don't do that part.
|
; party. So we return, and don't do that part.
|
||||||
|
|
||||||
ld hl, $D188 ; PP of first move (in party)
|
ld hl, $D188 ; PP of first move (in party)
|
||||||
ld a, [$CC2F] ; which mon in party is active
|
ld a, [$CC2F] ; which mon in party is active
|
||||||
|
|
@ -66763,7 +66763,7 @@ DecrementPP: ; 0x68000
|
||||||
ld c, a
|
ld c, a
|
||||||
ld b, 0
|
ld b, 0
|
||||||
add hl ,bc ; calculate the address in memory of the PP we need to decrement
|
add hl ,bc ; calculate the address in memory of the PP we need to decrement
|
||||||
; based on the move chosen.
|
; based on the move chosen.
|
||||||
dec [hl] ; Decrement PP
|
dec [hl] ; Decrement PP
|
||||||
ret
|
ret
|
||||||
; 0x6802f
|
; 0x6802f
|
||||||
|
|
@ -68066,9 +68066,11 @@ TheEndGfx: ; 473E
|
||||||
INCBIN "baserom.gbc",$747de,$74872 - $747de
|
INCBIN "baserom.gbc",$747de,$74872 - $747de
|
||||||
|
|
||||||
Unnamed_ASM_74872: ; 0x74872
|
Unnamed_ASM_74872: ; 0x74872
|
||||||
; code similar to this appears in a lot of banks; this particular
|
; code similar to this appears in a lot of banks; this particular
|
||||||
call $20EF ; one is called after you beat the Rocket that gives you TM28 DIG
|
; one is called after you beat the Rocket that gives you TM28 DIG.
|
||||||
ld a, $07 ; the screen then fades out, he disappears, and fades back in
|
; the screen then fades out, he disappears, and fades back in
|
||||||
|
call $20EF
|
||||||
|
ld a, $07
|
||||||
ld [$CC4D], a
|
ld [$CC4D], a
|
||||||
ld a, $15
|
ld a, $15
|
||||||
call $3E6D
|
call $3E6D
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue