summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorU-Fish-PC\Daniel <corrnondacqb@yahoo.com>2014-05-16 16:15:59 -0400
committerU-Fish-PC\Daniel <corrnondacqb@yahoo.com>2014-05-16 16:15:59 -0400
commit529680889403e0c9c28bb39bad8c4144611ef173 (patch)
tree30435f0c9aea44acc17803c096f9e48adb436ad9
parent285cf2650d0587fb73704092cbef943a692cd73b (diff)
Use more trainer/mon/palette constants
-rw-r--r--constants/palette_constants.asm6
-rwxr-xr-xmain.asm166
2 files changed, 86 insertions, 86 deletions
diff --git a/constants/palette_constants.asm b/constants/palette_constants.asm
index 56e48080..669c5296 100644
--- a/constants/palette_constants.asm
+++ b/constants/palette_constants.asm
@@ -13,8 +13,8 @@ PAL_INDIGO EQU $0A
PAL_SAFFRON EQU $0B
PAL_TOWNMAP EQU $0C
PAL_LOGO1 EQU $0D
-; XXX
-PAL_LOGO2 EQU $0F
+PAL_LOGO2 EQU $0E
+;PAL_0F EQU $0F
PAL_MEWMON EQU $10
PAL_BLUEMON EQU $11
PAL_REDMON EQU $12
@@ -35,4 +35,4 @@ PAL_YELLOWBAR EQU $20
PAL_REDBAR EQU $21
PAL_BADGE EQU $22
PAL_CAVE EQU $23
-; XXX \ No newline at end of file
+PAL_GAMEFREAK EQU $24 \ No newline at end of file
diff --git a/main.asm b/main.asm
index 513d0186..e6266e13 100755
--- a/main.asm
+++ b/main.asm
@@ -12010,13 +12010,13 @@ Func_4da6: ; 4da6 (1:4da6)
ld [hl], a
ld a, $1
ld [$cf91], a
- ld a, $14
+ ld a, 20
ld [W_CURENEMYLVL], a
xor a
ld [$cc49], a
ld [W_CURMAP], a
call AddPokemonToParty
- ld a, $1
+ ld a, RHYDON
ld [W_CUROPPONENT], a
ld a, $2c
call Predef
@@ -13204,7 +13204,7 @@ Func_5345: ; 5345
jr nz, .asm_5506
ld a, $4
ld [W_ISLINKBATTLE], a ; $d12b
- ld a, $e1
+ ld a, SONY1 + $c8
ld [W_CUROPPONENT], a ; $d059
call ClearScreen
call Delay3
@@ -34901,7 +34901,7 @@ CeruleanCityScript0: ; 194c8 (6:54c8)
ld [H_CURRENTPRESSEDBUTTONS], a
ld a, $f0
ld [wJoypadForbiddenButtonsMask], a
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $14
jr z, .asm_19535 ; 0x19526 $d
ld a, $1
@@ -34958,8 +34958,8 @@ CeruleanCityScript1: ; 19567 (6:5567)
ld hl, UnnamedText_1966d
ld de, UnnamedText_19672
call PreBattleSaveRegisters
- ld a, $e1
- ld [$d059], a
+ ld a, SONY1 + $c8
+ ld [W_CUROPPONENT], a
; select which team to use during the encounter
ld a, [W_RIVALSTARTER]
@@ -35005,7 +35005,7 @@ CeruleanCityScript2: ; 195b1 (6:55b1)
ld a, $1
ld [$ff8c], a
call SetSpriteMovementBytesToFF
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $14
jr nz, .asm_195f0 ; 0x195e9 $5
ld de, CeruleanCityMovement4
@@ -37712,10 +37712,10 @@ CinnabarIslandScript0: ; 1ca38 (7:4a38)
ld b, SECRET_KEY
call IsItemInBag
ret nz
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $4
ret nz
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $12
ret nz
ld a, $8
@@ -38311,7 +38311,7 @@ OaksLabScript14: ; 1ce6d (7:4e6d)
ld a, [$cf0f]
cp $5
jr nz, .asm_1cea8 ; 0x1ce91 $15
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $4
jr nz, .asm_1cea1 ; 0x1ce98 $7
ld a, $c
@@ -38512,7 +38512,7 @@ OaksLabScript_1d02b: ; 1d02b (7:502b)
ld [$ffeb], a
ld a, $8
ld [$ffee], a
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $3
jr nz, .asm_1d045 ; 0x1d038 $b
ld a, $4
@@ -38532,7 +38532,7 @@ OaksLabScript_1d02b: ; 1d02b (7:502b)
ld a, $3
ld [$cd37], a
ld b, $a
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $4
jr nz, .asm_1d066 ; 0x1d060 $4
ld a, $40
@@ -41488,7 +41488,7 @@ Route22GateScript: ; 1e683 (7:6683)
ld hl, Route22GateScriptPointers
ld a, [W_ROUTE22GATECURSCRIPT]
call CallFunctionInTable
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $4
ld a, $22
jr c, .asm_1e69a ; 0x1e696 $2
@@ -51686,7 +51686,7 @@ ReadTrainer: ; 39c53 (e:5c53)
; check if our trainer's team has special moves
; get trainer class number
- ld a,[$D059]
+ ld a,[W_CUROPPONENT]
sub $C8
ld b,a
ld hl,TeamMoves
@@ -71905,10 +71905,10 @@ SeafoamIslands4Script0: ; 46603 (11:6603)
and $3
cp $3
ret z
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $8
ret nz
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $f
ret nz
ld hl, $ccd3
@@ -74738,13 +74738,13 @@ CeladonGameCornerScript1: ; 48c19 (12:4c19)
ld [H_SPRITEHEIGHT], a
call SetSpriteMovementBytesToFF
ld de, MovementData_48c5a
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $6
jr nz, .asm_48c43
ld de, MovementData_48c63
jr .asm_48c4d
.asm_48c43
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $8
jr nz, .asm_48c4d
ld de, MovementData_48c63
@@ -78749,8 +78749,8 @@ Route22Script1: ; 50f62 (14:4f62)
ld hl, UnnamedText_511b7
ld de, UnnamedText_511bc
call PreBattleSaveRegisters
- ld a, $e1
- ld [$d059], a
+ ld a, SONY1 + $c8
+ ld [W_CUROPPONENT], a
ld hl, StarterMons_50faf ; $4faf
call Func_50ed6
ld a, $2
@@ -78896,7 +78896,7 @@ Route22Script4: ; 51087 (14:5087)
ld hl, UnnamedText_511cb ; $51cb
ld de, UnnamedText_511d0 ; $51d0
call PreBattleSaveRegisters
- ld a, $f2
+ ld a, SONY2 + $c8
ld [W_CUROPPONENT], a ; $d059
ld hl, StarterMons_510d9 ; $50d9
call Func_50ed6
@@ -80476,15 +80476,15 @@ SilphCo7Script3: ; 51c82 (14:5c82)
ld hl, SilphCo7Text14 ; $5ec8
ld de, UnnamedText_51ecd ; $5ecd
call PreBattleSaveRegisters
- ld a, $f2
+ ld a, SONY2 + $c8
ld [W_CUROPPONENT], a ; $d059
ld a, [W_RIVALSTARTER] ; $d715
- cp $b1
+ cp SQUIRTLE
jr nz, .asm_51cb6
ld a, $7
jr .asm_51cc0
.asm_51cb6
- cp $99
+ cp BULBASAUR
jr nz, .asm_51cbe
ld a, $8
jr .asm_51cc0
@@ -88688,9 +88688,9 @@ Route16Script0: ; 59959 (16:5959)
ld a, $a
ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
call DisplayTextID
- ld a, $84
+ ld a, SNORLAX
ld [W_CUROPPONENT], a ; $d059
- ld a, $1e
+ ld a, 30
ld [W_CURENEMYLVL], a ; $d127
ld a, $21
ld [$cc4d], a
@@ -90356,13 +90356,13 @@ Museum1FScriptPointers: ; 5c109 (17:4109)
dw Museum1FScript1
Museum1FScript0: ; 5c10d (17:410d)
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $4
ret nz
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $9
jr z, .asm_5c120 ; 0x5c118 $6
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $a
ret nz
.asm_5c120
@@ -90384,17 +90384,17 @@ Museum1FTextPointers: ; 5c12b (17:412b)
Museum1FText1: ; 5c135 (17:4135)
db $8
- ld a, [$d361]
+ ld a, [W_YCOORD]
cp $4
jr nz, asm_8774b ; 0x5c13b $a
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $d
jp z, Func_5c1f9
jr asm_b8709 ; 0x5c145 $1c
asm_8774b: ; 5c147 (17:4147)
cp $3
jr nz, asm_d49e7 ; 0x5c149 $8
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $c
jp z, Func_5c1f9
asm_d49e7: ; 5c153 (17:4153)
@@ -94479,8 +94479,8 @@ PokemonTower2Text1: ; 605df (18:45df)
ld hl, UnnamedText_60632
ld de, UnnamedText_60637 ; XXX $4637
call PreBattleSaveRegisters
- ld a, $f2
- ld [$d059], a
+ ld a, SONY2 + $c8
+ ld [W_CUROPPONENT], a
; select which team to use during the encounter
ld a, [W_RIVALSTARTER]
@@ -95068,9 +95068,9 @@ PokemonTower6Script0: ; 60b17 (18:4b17)
ld a, $6
ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
call DisplayTextID
- ld a, $91
+ ld a, MAROWAK
ld [W_CUROPPONENT], a ; $d059
- ld a, $1e
+ ld a, 30
ld [W_CURENEMYLVL], a ; $d127
ld a, $4
ld [W_POKEMONTOWER6CURSCRIPT], a
@@ -96121,8 +96121,8 @@ SSAnne2Script1: ; 61430 (18:5430)
ld [$ff8c], a
call DisplayTextID
call Delay3
- ld a, $f2
- ld [$d059], a
+ ld a, SONY2 + $c8
+ ld [W_CUROPPONENT], a
; select which team to use during the encounter
ld a, [W_RIVALSTARTER]
@@ -96158,7 +96158,7 @@ SSAnne2Script2: ; 6146d (18:546d)
ld a, $2
ld [$ff8c], a
call SetSpriteMovementBytesToFF
- ld a, [$d362]
+ ld a, [W_XCOORD]
cp $25
jr nz, .asm_61497 ; 0x61490 $5
ld de, MovementData_614b9
@@ -101998,12 +101998,12 @@ Func_71ddf: ; 71ddf (1c:5ddf)
jp [hl]
Func_71dff: ; 71dff (1c:5dff)
- ld hl, PalPacket_72448
+ ld hl, PalPacket_Black
ld de, BlkPacket_721b5
ret
Func_71e06: ; 71e06 (1c:5e06)
- ld hl, PalPacket_72428
+ ld hl, PalPacket_Empty
ld de, $cf2d
ld bc, $10
call CopyData
@@ -102036,12 +102036,12 @@ Func_71e06: ; 71e06 (1c:5e06)
ret
Func_71e48: ; 71e48 (1c:5e48)
- ld hl, PalPacket_72458
+ ld hl, PalPacket_TownMap
ld de, BlkPacket_7219e
ret
Func_71e4f: ; 71e4f (1c:5e4f)
- ld hl, PalPacket_72428
+ ld hl, PalPacket_Empty
ld de, $cf2d
ld bc, $10
call CopyData
@@ -102064,12 +102064,12 @@ Func_71e4f: ; 71e4f (1c:5e4f)
ret
Func_71e7b: ; 71e7b (1c:5e7b)
- ld hl, PalPacket_72438
+ ld hl, PalPacket_PartyMenu
ld de, $cf2e
ret
Func_71e82: ; 71e82 (1c:5e82)
- ld hl, PalPacket_72468
+ ld hl, PalPacket_Pokedex
ld de, $cf2d
ld bc, $10
call CopyData
@@ -102082,34 +102082,34 @@ Func_71e82: ; 71e82 (1c:5e82)
ret
Func_71e9f: ; 71e9f (1c:5e9f)
- ld hl, PalPacket_72478
+ ld hl, PalPacket_Slots
ld de, BlkPacket_7224f
ret
Func_71ea6: ; 71ea6 (1c:5ea6)
- ld hl, PalPacket_72488
+ ld hl, PalPacket_Titlescreen
ld de, BlkPacket_7228e
ret
Func_71ead: ; 71ead (1c:5ead)
- ld hl, PalPacket_724a8
+ ld hl, PalPacket_Generic
ld de, BlkPacket_7219e
ret
Func_71eb4: ; 71eb4 (1c:5eb4)
- ld hl, PalPacket_724b8
+ ld hl, PalPacket_NidorinoIntro
ld de, BlkPacket_722c1
ret
Func_71ebb: ; 71ebb (1c:5ebb)
- ld hl, PalPacket_724c8
+ ld hl, PalPacket_GameFreakIntro
ld de, BlkPacket_723dd
ld a, $8
ld [$cf1c], a
ret
GetMapPaletteID: ; 71ec7 (1c:5ec7)
- ld hl, PalPacket_72428
+ ld hl, PalPacket_Empty
ld de, $cf2d
ld bc, $10
call CopyData
@@ -102155,7 +102155,7 @@ GetMapPaletteID: ; 71ec7 (1c:5ec7)
Func_71f17: ; 71f17 (1c:5f17)
push bc
- ld hl, PalPacket_72428
+ ld hl, PalPacket_Empty
ld de, $cf2d
ld bc, $10
call CopyData
@@ -102206,7 +102206,7 @@ LoadTrainerCardBadgePalettes: ; 71f3b (1c:5f3b)
inc de
dec c
jr nz, .asm_71f52
- ld hl, PalPacket_72498
+ ld hl, PalPacket_TrainerInfo
ld de, $cc5b
ret
@@ -102648,38 +102648,38 @@ BlkPacket_723dd: ; 723dd (1c:63dd)
db $0d,$01,$03,$08,$0b,$13,$0d,$00,$03,$00,$0e,$13,$11,$00,$03,$08
db $0b,$09,$0d,$02,$03,$0c,$0b,$0e,$0d,$03,$00
-PalPacket_72428: ; 72428 (1c:6428)
+PalPacket_Empty: ; 72428 (1c:6428)
db $51,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72438: ; 72438 (1c:6438)
- db $51,$10,$00,$1F,$00,$20,$00,$21,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_PartyMenu: ; 72438 (1c:6438)
+ db $51,PAL_MEWMON,$00,PAL_GREENBAR,$00,PAL_YELLOWBAR,$00,PAL_REDBAR,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72448: ; 72448 (1c:6448)
- db $51,$1E,$00,$1E,$00,$1E,$00,$1E,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_Black: ; 72448 (1c:6448)
+ db $51,PAL_BLACK,$00,PAL_BLACK,$00,PAL_BLACK,$00,PAL_BLACK,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72458: ; 72458 (1c:6458)
- db $51,$0C,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_TownMap: ; 72458 (1c:6458)
+ db $51,PAL_TOWNMAP,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72468: ; 72468 (1c:6468)
- db $51,$15,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_Pokedex: ; 72468 (1c:6468)
+ db $51,PAL_BROWNMON,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72478: ; 72478 (1c:6478)
- db $51,$1A,$00,$1B,$00,$1C,$00,$1D,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_Slots: ; 72478 (1c:6478)
+ db $51,PAL_SLOTS1,$00,PAL_SLOTS2,$00,PAL_SLOTS3,$00,PAL_SLOTS4,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72488: ; 72488 (1c:6488)
- db $51,$0E,$00,$0D,$00,$10,$00,$14,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_Titlescreen: ; 72488 (1c:6488)
+ db $51,PAL_LOGO2,$00,PAL_LOGO1,$00,PAL_MEWMON,$00,PAL_PURPLEMON,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_72498: ; 72498 (1c:6498)
- db $51,$10,$00,$22,$00,$12,$00,$18,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_TrainerInfo: ; 72498 (1c:6498)
+ db $51,PAL_MEWMON,$00,PAL_BADGE,$00,PAL_REDMON,$00,PAL_YELLOWMON,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_724a8: ; 724a8 (1c:64a8)
- db $51,$10,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_Generic: ; 724a8 (1c:64a8)
+ db $51,PAL_MEWMON,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_724b8: ; 724b8 (1c:64b8)
- db $51,$14,$00,$1E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_NidorinoIntro: ; 724b8 (1c:64b8)
+ db $51,PAL_PURPLEMON,$00,PAL_BLACK,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
-PalPacket_724c8: ; 724c8 (1c:64c8)
- db $51,$24,$00,$12,$00,$02,$00,$11,$00,$00,$00,$00,$00,$00,$00,$00
+PalPacket_GameFreakIntro: ; 724c8 (1c:64c8)
+ db $51,PAL_GAMEFREAK,$00,PAL_REDMON,$00,PAL_VIRIDIAN,$00,PAL_BLUEMON,$00,$00,$00,$00,$00,$00,$00,$00
PalPacket_724d8: ; 724d8 (1c:64d8)
db $59,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
@@ -102946,11 +102946,11 @@ IF _BLUE
RGB 21,0,4
RGB 14,19,29
ENDC
- RGB 31,29,31 ; XXX
+ RGB 31,29,31 ; PAL_LOGO2
RGB 30,30,17
RGB 18,18,24
RGB 7,7,16
- RGB 31,29,31 ; PAL_LOGO2
+ RGB 31,29,31 ; PAL_0F
RGB 24,20,30
RGB 11,20,30
RGB 3,2,2
@@ -103050,7 +103050,7 @@ ENDC
RGB 21,14,9
RGB 18,24,22
RGB 3,2,2
- RGB 31,29,31 ; XXX
+ RGB 31,29,31 ; PAL_GAMEFREAK
RGB 31,28,14
RGB 24,20,10
RGB 3,2,2
@@ -104431,19 +104431,19 @@ HiddenItemNear: ; 7481f (1d:481f)
ld e, [hl]
inc hl
jr nz, .asm_74824 ; 0x74845 $dd
- ld a, [$d361]
+ ld a, [W_YCOORD]
call Func_7486b
cp d
jr nc, .asm_74824 ; 0x7484e $d4
- ld a, [$d361]
+ ld a, [W_YCOORD]
add $4
cp d
jr c, .asm_74824 ; 0x74856 $cc
- ld a, [$d362]
+ ld a, [W_XCOORD]
call Func_7486b
cp e
jr nc, .asm_74824 ; 0x7485f $c3
- ld a, [$d362]
+ ld a, [W_XCOORD]
add $5
cp e
jr c, .asm_74824 ; 0x74867 $bb
@@ -107497,8 +107497,8 @@ GaryScript2: ; 75f6a (1d:5f6a)
ld hl, UnnamedText_760f9
ld de, UnnamedText_760fe
call PreBattleSaveRegisters
- ld a, $f3
- ld [$d059], a
+ ld a, SONY3 + $c8
+ ld [W_CUROPPONENT], a
; select which team to use during the encounter
ld a, [W_RIVALSTARTER]