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

use readable names instead of ram addresses

Browse source 
hg-commit-id: 49fdf90d76d0
This commit is contained in:
IIMarckus 2010-03-19 00:10:42 -06:00
parent dd95618085
commit 459a7c8ad0
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
pokered.asm
View file

@ -1,3 +1,13 @@
; wram locations
W_CURMAP EQU $D35E
W_GRASSRATE EQU $D887
W_GRASSMONS EQU $D888
W_WATERRATE EQU $D8A4
W_WATERMONS EQU $D8A5
; pokemon name constants
RHYDON EQU $01 RHYDON EQU $01
KANGASKHAN EQU $02 KANGASKHAN EQU $02
NIDORAN_M EQU $03 NIDORAN_M EQU $03
@ -175,7 +185,7 @@ INCBIN "baserom.gbc",$C000,$EB8
LoadWildData: ; 4EB8 LoadWildData: ; 4EB8
ld hl,WildDataPointers ld hl,WildDataPointers
ld a,[$D35E] ; current map number ld a,[W_CURMAP] ; current map number
; get wild data for current map ; get wild data for current map
ld c,a ld c,a
@ -186,11 +196,11 @@ LoadWildData: ; 4EB8
ld h,[hl] ld h,[hl]
ld l,a ; hl now points to wild data for current map ld l,a ; hl now points to wild data for current map
ld a,[hli] ld a,[hli]
ld [$D887],a ; grass encounter rate ld [W_GRASSRATE],a ; grass encounter rate
and a and a
jr z,.NoGrassData\@ ; if no grass data, skip to surfing data jr z,.NoGrassData\@ ; if no grass data, skip to surfing data
push hl push hl
ld de,$D888 ; otherwise, load grass data ld de,W_GRASSMONS ; otherwise, load grass data
ld bc,$0014 ld bc,$0014
call $B5 ; copy data call $B5 ; copy data
pop hl pop hl
@ -198,10 +208,10 @@ LoadWildData: ; 4EB8
add hl,bc add hl,bc
.NoGrassData\@ .NoGrassData\@
ld a,[hli] ld a,[hli]
ld [$D8A4],a ; surfing encounter rate ld [W_WATERRATE],a ; surfing encounter rate
and a and a
ret z ; if no water data, we're done ret z ; if no water data, we're done
ld de,$D8A5 ; otherwise, load surfing data ld de,W_WATERMONS ; otherwise, load surfing data
ld bc,$0014 ld bc,$0014
jp $B5 ; copy data jp $B5 ; copy data