pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-09-08 08:13:02 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix last commit

Browse Source
This commit is contained in:
padz
2012-09-23 12:50:44 -04:00
parent 25a04a6838
commit ea897c2a37
3 changed files with 71 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
constants.asm
View File

@@ -263,6 +263,8 @@ LUGIA EQU 249
HO_OH EQU 250 HO_OH EQU 250
CELEBI EQU 251 CELEBI EQU 251
EGG EQU 253
; move name constants ; move name constants
POUND EQU $01 POUND EQU $01
KARATE_CHOP EQU $02 KARATE_CHOP EQU $02
@@ -2988,3 +2990,7 @@ OPTION EQU 2
MYSTERY_GIFT EQU 3 MYSTERY_GIFT EQU 3
MOBILE EQU 4 MOBILE EQU 4
MOBILE_STUDIUM EQU 5 MOBILE_STUDIUM EQU 5
; name length
PLAYER_NAME_LENGTH EQU 8
PKMN_NAME_LENGTH EQU 11

59
main.asm
View File

@@ -913,9 +913,9 @@ IsInArray: ; 30e1
ret ret
; 0x30f4 ; 0x30f4
INCBIN "baserom.gbc",$30f4,$30f7 - $30f4 SkipNames: ; 0x30f4
; skips n names where n = a
AddNTimesCopied: ; 0x30f7 ld bc, $000b ; name length
and a and a
ret z ret z
.loop .loop
@@ -926,6 +926,7 @@ AddNTimesCopied: ; 0x30f7
; 0x30fe ; 0x30fe
AddNTimes: ; 0x30fe AddNTimes: ; 0x30fe
; adds bc n times where n = a
and a and a
ret z ret z
.loop .loop
@@ -1263,7 +1264,25 @@ PrintBCDDigit: ; 38f2
ret ret
; 0x3917 ; 0x3917
INCBIN "baserom.gbc",$3917,$4000 - $3917 Function3917: ; 3917
push bc
ld hl, $dcdf
ld c, a
ld b, $00
add hl, bc
ld a, [$d109]
call Function3927
pop bc
ret
; 3927
Function3927: ; 3927
; a is typically [$d109]
ld bc, $0030
jp AddNTimes
; 392d
INCBIN "baserom.gbc",$392d,$4000 - $392d
SECTION "bank1",DATA,BANK[$1] SECTION "bank1",DATA,BANK[$1]
@@ -1627,7 +1646,7 @@ CheckFlag: ; c721
ret ret
; c731 ; c731
INCBIN "baserom.gbc",$c658,$ffff - $c731 INCBIN "baserom.gbc",$c731,$ffff - $c731
SECTION "bank4",DATA,BANK[$4] SECTION "bank4",DATA,BANK[$4]
@@ -10869,7 +10888,7 @@ Function3e8eb: ; 3e8eb
jr z, .asm_3e925 jr z, .asm_3e925
ld a, [$d109] ld a, [$d109]
ld hl, $d289 ld hl, $d289
call $3927 call Function3927
ld a, [hl] ld a, [hl]
jr .asm_3e945 jr .asm_3e945
.asm_3e925 .asm_3e925
@@ -11024,9 +11043,9 @@ Function3e8eb: ; 3e8eb
ld [hli], a ld [hli], a
xor a xor a
ld [hli], a ld [hli], a
ld a, [$d218] ; EnemyMonMaxHP ld a, [EnemyMonMaxHPHi]
ld [hli], a ld [hli], a
ld a, [$d219] ; EnemyMonMaxHP + 1 ld a, [EnemyMonMaxHPLo]
ld [hl], a ld [hl], a
ld a, [BattleType] ld a, [BattleType]
cp a, $05 cp a, $05
@@ -11036,20 +11055,20 @@ Function3e8eb: ; 3e8eb
and a and a
jr z, .asm_3ea6e jr z, .asm_3ea6e
ld a, [hl] ld a, [hl]
ld [$d217], a ; EnemyMonHP + 1 ld [EnemyMonHPLo], a
jr .asm_3ea90 jr .asm_3ea90
.asm_3ea6e .asm_3ea6e
ld a, [$d217] ; EnemyMonHP + 1 ld a, [EnemyMonHPLo]
ld [hl], a ld [hl], a
jr .asm_3ea90 jr .asm_3ea90
.asm_3ea74 .asm_3ea74
ld hl, $d2ab ld hl, $d2ab
ld a, [$d109] ld a, [$d109]
call $3927 call Function3927
ld a, [hld] ld a, [hld]
ld [$d217], a ; EnemyMonHP + 1 ld [EnemyMonHPLo], a
ld a, [hld] ld a, [hld]
ld [$d216], a ; EnemyMonHP ld [EnemyMonHPHi], a
ld a, [$d109] ld a, [$d109]
ld [$c663], a ld [$c663], a
dec hl dec hl
@@ -11069,7 +11088,7 @@ Function3e8eb: ; 3e8eb
jr nz, .asm_3eab6 jr nz, .asm_3eab6
ld hl, OTPartyMon1Moves ld hl, OTPartyMon1Moves
ld a, [$d109] ld a, [$d109]
call $3927 call Function3927
ld bc, $0004 ld bc, $0004
call CopyBytes call CopyBytes
jr .asm_3eac5 jr .asm_3eac5
@@ -11096,7 +11115,7 @@ Function3e8eb: ; 3e8eb
.asm_3ead9 .asm_3ead9
ld hl, $d29f ld hl, $d29f
ld a, [$d109] ld a, [$d109]
call $3927 call Function3927
ld de, EnemyMonPP ld de, EnemyMonPP
ld bc, $0004 ld bc, $0004
call CopyBytes call CopyBytes
@@ -51457,7 +51476,6 @@ Flags: ; 80462
dwb $dca6, %10000000 dwb $dca6, %10000000
dwb $dca7, %00000001 dwb $dca7, %00000001
dwb $dca7, %00000010
dwb $dca7, %00000100 dwb $dca7, %00000100
dwb $dca7, %00001000 dwb $dca7, %00001000
dwb $dca7, %00010000 dwb $dca7, %00010000
@@ -51465,11 +51483,10 @@ Flags: ; 80462
dwb $dca7, %01000000 dwb $dca7, %01000000
dwb $dca7, %10000000 dwb $dca7, %10000000
dwb $dca7, %00000001 dwb $dca8, %00000001
dwb $dca7, %00000010 dwb $dca8, %00000010
dwb $dca7, %00000100 dwb $dca8, %00000100
dwb $dca7, %00001000 dwb $dca8, %00010000
dwb $dca7, %00010000
dwb $dc9d, %00000001 dwb $dc9d, %00000001
dwb $d84d, %00001000 dwb $d84d, %00001000

32
wram.asm
View File

@@ -107,10 +107,17 @@ EnemyMonLevel: ; d213
EnemyMonStatus: ; d214 EnemyMonStatus: ; d214
ds 2 ds 2
EnemyMonHP: ; d216 EnemyMonHP:
ds 2 EnemyMonHPHi: ; d216
EnemyMonMaxHP: ; d218 ds 1
ds 2 EnemyMonHPLo: ; d217
ds 1
EnemyMonMaxHP:
EnemyMonMaxHPHi: ; d218
ds 1
EnemyMonMaxHPLo: ; d219
ds 1
EnemyMonAtk: ; d21a EnemyMonAtk: ; d21a
ds 2 ds 2
@@ -131,8 +138,8 @@ OtherTrainerClass: ; 0xd22f
ds 1 ds 1
BattleType: ; 0xd230 BattleType: ; 0xd230
; 00 trainer ; 00 normal
; 08 headbutt ; 08 headbutt/rock smash. probably bit 3
ds 1 ds 1
OtherTrainerID: ; 0xd231 OtherTrainerID: ; 0xd231
@@ -687,6 +694,14 @@ PlayerName: ; 0xd47d
PlayerSprite: ; 0xd4d8 PlayerSprite: ; 0xd4d8
ds 1 ds 1
PlayerDirection: ; d4de
; uses bits 2 and 3 / $0c / %00001100
; %00 down
; %01 up
; %10 left
; $11 right
ds 1
SECTION "Status",BSS[$d84e] SECTION "Status",BSS[$d84e]
Money: ; d84e Money: ; d84e
ds 3 ds 3
@@ -716,6 +731,11 @@ NumBalls: ; d8d7
Balls: ; d8d8 Balls: ; d8d8
ds 25 ds 25
SECTION "overworld",BSS[$d95d]
PlayerState: ; d95d
; surfing = $04
ds 1
SECTION "scriptram",BSS[$d962] SECTION "scriptram",BSS[$d962]
MooMooBerries: ; 0xd962 MooMooBerries: ; 0xd962
ds 1 ; how many berries fed to MooMoo ds 1 ; how many berries fed to MooMoo