No space between labels and bodies

This commit is contained in:
Rangi
2018-06-25 12:24:18 -04:00
parent 5693cc49cf
commit 1caa50a647
37 changed files with 11 additions and 113 deletions

View File

@@ -2,7 +2,6 @@
Music: Music:
; entries correspond to MUSIC_* constants ; entries correspond to MUSIC_* constants
dba Music_Nothing dba Music_Nothing
dba Music_TitleScreen dba Music_TitleScreen
dba Music_Route1 dba Music_Route1
@@ -96,9 +95,7 @@ Music:
dba Music_LakeOfRageRocketRadio dba Music_LakeOfRageRocketRadio
dba Music_Printer dba Music_Printer
dba Music_PostCredits dba Music_PostCredits
; new to Crystal
; Crystal adds the following songs:
dba Music_Clair dba Music_Clair
dba Music_MobileAdapterMenu dba Music_MobileAdapterMenu
dba Music_MobileAdapter dba Music_MobileAdapter

View File

@@ -1,6 +1,5 @@
SFX: SFX:
; entries correspond to SFX_* constants ; entries correspond to SFX_* constants
dba Sfx_DexFanfare5079 dba Sfx_DexFanfare5079
dba Sfx_Item dba Sfx_Item
dba Sfx_CaughtMon dba Sfx_CaughtMon
@@ -191,9 +190,7 @@ SFX:
dba Sfx_2Boops dba Sfx_2Boops
dba Sfx_GlassTing dba Sfx_GlassTing
dba Sfx_GlassTing2 dba Sfx_GlassTing2
; new to Crystal
; Crystal adds the following SFX:
dba Sfx_IntroUnown1 dba Sfx_IntroUnown1
dba Sfx_IntroUnown2 dba Sfx_IntroUnown2
dba Sfx_IntroUnown3 dba Sfx_IntroUnown3

View File

@@ -594,7 +594,6 @@ AI_Smart_DreamEater:
ret ret
AI_Smart_EvasionUp: AI_Smart_EvasionUp:
; Dismiss this move if enemy's evasion can't raise anymore. ; Dismiss this move if enemy's evasion can't raise anymore.
ld a, [wEnemyEvaLevel] ld a, [wEnemyEvaLevel]
cp $d cp $d
@@ -725,7 +724,6 @@ AI_Smart_AlwaysHit:
ret ret
AI_Smart_MirrorMove: AI_Smart_MirrorMove:
; If the player did not use any move last turn... ; If the player did not use any move last turn...
ld a, [wLastPlayerCounterMove] ld a, [wLastPlayerCounterMove]
and a and a
@@ -767,7 +765,6 @@ AI_Smart_MirrorMove:
ret ret
AI_Smart_AccuracyDown: AI_Smart_AccuracyDown:
; If player's HP is full... ; If player's HP is full...
call AICheckPlayerMaxHP call AICheckPlayerMaxHP
jr nc, .asm_389a0 jr nc, .asm_389a0
@@ -872,7 +869,6 @@ AI_Smart_AccuracyDown:
ret ret
AI_Smart_ResetStats: AI_Smart_ResetStats:
; 85% chance to encourage this move if any of enemy's stat levels is lower than -2. ; 85% chance to encourage this move if any of enemy's stat levels is lower than -2.
push hl push hl
ld hl, wEnemyAtkLevel ld hl, wEnemyAtkLevel
@@ -1090,7 +1086,6 @@ AI_Smart_Unused2B:
ret ret
AI_Smart_Confuse: AI_Smart_Confuse:
; 90% chance to discourage this move if player's HP is between 25% and 50%. ; 90% chance to discourage this move if player's HP is between 25% and 50%.
call AICheckPlayerHalfHP call AICheckPlayerHalfHP
ret c ret c
@@ -1107,7 +1102,6 @@ AI_Smart_Confuse:
ret ret
AI_Smart_SpDefenseUp2: AI_Smart_SpDefenseUp2:
; Discourage this move if enemy's HP is lower than 50%. ; Discourage this move if enemy's HP is lower than 50%.
call AICheckEnemyHalfHP call AICheckEnemyHalfHP
jr nc, .asm_38b10 jr nc, .asm_38b10
@@ -1167,7 +1161,6 @@ AI_Smart_SuperFang:
ret ret
AI_Smart_Paralyze: AI_Smart_Paralyze:
; 50% chance to discourage this move if player's HP is below 25%. ; 50% chance to discourage this move if player's HP is below 25%.
call AICheckPlayerQuarterHP call AICheckPlayerQuarterHP
jr nc, .asm_38b3a jr nc, .asm_38b3a
@@ -2025,7 +2018,6 @@ AI_Smart_PerishSong:
ret ret
AI_Smart_Sandstorm: AI_Smart_Sandstorm:
; Greatly discourage this move if the player is immune to Sandstorm damage. ; Greatly discourage this move if the player is immune to Sandstorm damage.
ld a, [wBattleMonType1] ld a, [wBattleMonType1]
push hl push hl
@@ -2207,7 +2199,6 @@ AI_Smart_Safeguard:
AI_Smart_Magnitude: AI_Smart_Magnitude:
AI_Smart_Earthquake: AI_Smart_Earthquake:
; Greatly encourage this move if the player is underground and the enemy is faster. ; Greatly encourage this move if the player is underground and the enemy is faster.
ld a, [wLastPlayerCounterMove] ld a, [wLastPlayerCounterMove]
cp DIG cp DIG
@@ -2330,7 +2321,6 @@ AI_Smart_HiddenPower:
ret ret
AI_Smart_RainDance: AI_Smart_RainDance:
; Greatly discourage this move if it would favour the player type-wise. ; Greatly discourage this move if it would favour the player type-wise.
; Particularly, if the player is a Water-type. ; Particularly, if the player is a Water-type.
ld a, [wBattleMonType1] ld a, [wBattleMonType1]
@@ -2352,7 +2342,6 @@ AI_Smart_RainDance:
INCLUDE "data/battle/ai/rain_dance_moves.asm" INCLUDE "data/battle/ai/rain_dance_moves.asm"
AI_Smart_SunnyDay: AI_Smart_SunnyDay:
; Greatly discourage this move if it would favour the player type-wise. ; Greatly discourage this move if it would favour the player type-wise.
; Particularly, if the player is a Fire-type. ; Particularly, if the player is a Fire-type.
ld a, [wBattleMonType1] ld a, [wBattleMonType1]
@@ -2566,7 +2555,6 @@ AI_Smart_MirrorCoat:
AI_Smart_Twister: AI_Smart_Twister:
AI_Smart_Gust: AI_Smart_Gust:
; Greatly encourage this move if the player is flying and the enemy is faster. ; Greatly encourage this move if the player is flying and the enemy is faster.
ld a, [wLastPlayerCounterMove] ld a, [wLastPlayerCounterMove]
cp FLY cp FLY

View File

@@ -435,8 +435,9 @@ FindAliveEnemyMonsWithASuperEffectiveMove:
and c and c
ld c, a ld c, a
FindEnemyMonsWithASuperEffectiveMove: ; fallthrough
FindEnemyMonsWithASuperEffectiveMove:
ld a, -1 ld a, -1
ld [wEnemyAISwitchScore], a ld [wEnemyAISwitchScore], a
ld hl, wOTPartyMon1Moves ld hl, wOTPartyMon1Moves

View File

@@ -6036,7 +6036,6 @@ LoadEnemyMon:
jp .Happiness jp .Happiness
.InitDVs: .InitDVs:
; Trainer DVs ; Trainer DVs
; All trainers have preset DVs, determined by class ; All trainers have preset DVs, determined by class

View File

@@ -68,7 +68,6 @@ DoMove:
ld [wBattleScriptBufferAddress + 1], a ld [wBattleScriptBufferAddress + 1], a
.ReadMoveEffectCommand: .ReadMoveEffectCommand:
; ld a, [wBattleScriptBufferAddress++] ; ld a, [wBattleScriptBufferAddress++]
ld a, [wBattleScriptBufferAddress] ld a, [wBattleScriptBufferAddress]
ld l, a ld l, a
@@ -136,7 +135,6 @@ BattleCommand_CheckTurn:
jp nz, CheckEnemyTurn jp nz, CheckEnemyTurn
CheckPlayerTurn: CheckPlayerTurn:
ld hl, wPlayerSubStatus4 ld hl, wPlayerSubStatus4
bit SUBSTATUS_RECHARGE, [hl] bit SUBSTATUS_RECHARGE, [hl]
jr z, .no_recharge jr z, .no_recharge
@@ -366,7 +364,6 @@ OpponentCantMove:
jp BattleCommand_SwitchTurn jp BattleCommand_SwitchTurn
CheckEnemyTurn: CheckEnemyTurn:
ld hl, wEnemySubStatus4 ld hl, wEnemySubStatus4
bit SUBSTATUS_RECHARGE, [hl] bit SUBSTATUS_RECHARGE, [hl]
jr z, .no_recharge jr z, .no_recharge
@@ -589,7 +586,6 @@ EndTurn:
jp ResetDamage jp ResetDamage
MoveDisabled: MoveDisabled:
; Make sure any charged moves fail ; Make sure any charged moves fail
ld a, BATTLE_VARS_SUBSTATUS3 ld a, BATTLE_VARS_SUBSTATUS3
call GetBattleVarAddr call GetBattleVarAddr
@@ -604,7 +600,6 @@ MoveDisabled:
jp StdBattleTextBox jp StdBattleTextBox
HitConfusion: HitConfusion:
ld hl, HurtItselfText ld hl, HurtItselfText
call StdBattleTextBox call StdBattleTextBox
@@ -811,7 +806,6 @@ BattleCommand_CheckObedience:
jp .EndDisobedience jp .EndDisobedience
.UseInstead: .UseInstead:
; Can't use another move if the monster only has one! ; Can't use another move if the monster only has one!
ld a, [wBattleMonMoves + 1] ld a, [wBattleMonMoves + 1]
and a and a
@@ -919,7 +913,6 @@ BattleCommand_CheckObedience:
jp EndMoveEffect jp EndMoveEffect
IgnoreSleepOnly: IgnoreSleepOnly:
ld a, BATTLE_VARS_MOVE_ANIM ld a, BATTLE_VARS_MOVE_ANIM
call GetBattleVar call GetBattleVar
@@ -952,7 +945,6 @@ BattleCommand_UsedMoveText:
ret ret
CheckUserIsCharging: CheckUserIsCharging:
ld a, [hBattleTurn] ld a, [hBattleTurn]
and a and a
ld a, [wPlayerCharging] ; player ld a, [wPlayerCharging] ; player
@@ -1775,7 +1767,6 @@ BattleCommand_CheckHit:
ret ret
.StatModifiers: .StatModifiers:
ld a, [hBattleTurn] ld a, [hBattleTurn]
and a and a
@@ -3066,8 +3057,8 @@ BattleCommand_DamageCalc:
ld [hDivisor], a ld [hDivisor], a
ld b, 4 ld b, 4
call Divide call Divide
.DoneItem:
.DoneItem:
; Critical hits ; Critical hits
call .CriticalMultiplier call .CriticalMultiplier
@@ -3583,7 +3574,6 @@ DoSubstituteDamage:
jp ResetDamage jp ResetDamage
UpdateMoveData: UpdateMoveData:
ld a, BATTLE_VARS_MOVE_ANIM ld a, BATTLE_VARS_MOVE_ANIM
call GetBattleVarAddr call GetBattleVarAddr
ld d, h ld d, h

View File

@@ -50,7 +50,6 @@ GetPlayerBackpicCoords:
ret ret
DoWeatherModifiers: DoWeatherModifiers:
ld de, WeatherTypeModifiers ld de, WeatherTypeModifiers
ld a, [wBattleWeather] ld a, [wBattleWeather]
ld b, a ld b, a

View File

@@ -45,7 +45,6 @@ BattleCommand_BatonPass:
ret ret
.Enemy: .Enemy:
; Wildmons don't have anything to switch to ; Wildmons don't have anything to switch to
ld a, [wBattleMode] ld a, [wBattleMode]
dec a ; WILDMON dec a ; WILDMON

View File

@@ -39,7 +39,6 @@ BattleCommand_FuryCutter:
ret ret
ResetFuryCutterCount: ResetFuryCutterCount:
push hl push hl
ld hl, wPlayerFuryCutterCount ld hl, wPlayerFuryCutterCount

View File

@@ -13,7 +13,6 @@ BattleCommand_Protect:
jp StdBattleTextBox jp StdBattleTextBox
ProtectChance: ProtectChance:
ld de, wPlayerProtectCount ld de, wPlayerProtectCount
ld a, [hBattleTurn] ld a, [hBattleTurn]
and a and a

View File

@@ -1,7 +1,6 @@
; Battle animation command interpreter. ; Battle animation command interpreter.
PlayBattleAnim: PlayBattleAnim:
ld a, [rSVBK] ld a, [rSVBK]
push af push af
@@ -15,7 +14,6 @@ PlayBattleAnim:
ret ret
_PlayBattleAnim: _PlayBattleAnim:
ld c, 6 ld c, 6
.wait .wait
call BattleAnimDelayFrame call BattleAnimDelayFrame
@@ -53,7 +51,6 @@ _PlayBattleAnim:
ret ret
BattleAnimRunScript: BattleAnimRunScript:
ld a, [wFXAnimID + 1] ld a, [wFXAnimID + 1]
and a and a
jr nz, .hi_byte jr nz, .hi_byte
@@ -97,7 +94,6 @@ BattleAnimRunScript:
ret ret
RunBattleAnimScript: RunBattleAnimScript:
call ClearBattleAnims call ClearBattleAnims
.playframe .playframe
@@ -139,7 +135,6 @@ RunBattleAnimScript:
ret ret
BattleAnimClearHud: BattleAnimClearHud:
call BattleAnimDelayFrame call BattleAnimDelayFrame
call WaitTop call WaitTop
call ClearActorHud call ClearActorHud
@@ -152,7 +147,6 @@ BattleAnimClearHud:
ret ret
BattleAnimRestoreHuds: BattleAnimRestoreHuds:
call BattleAnimDelayFrame call BattleAnimDelayFrame
call WaitTop call WaitTop
@@ -177,7 +171,6 @@ BattleAnimRestoreHuds:
ret ret
BattleAnimRequestPals: BattleAnimRequestPals:
ld a, [hCGB] ld a, [hCGB]
and a and a
ret z ret z
@@ -207,7 +200,6 @@ BattleAnimDelayFrame:
ret ret
ClearActorHud: ClearActorHud:
ld a, [hBattleTurn] ld a, [hBattleTurn]
and a and a
jr z, .player jr z, .player
@@ -241,7 +233,6 @@ Unreferenced_Functioncc220:
ret ret
BattleAnim_ClearCGB_OAMFlags: BattleAnim_ClearCGB_OAMFlags:
ld a, [wBattleAnimFlags] ld a, [wBattleAnimFlags]
bit 3, a bit 3, a
jr z, .delete jr z, .delete
@@ -777,7 +768,6 @@ BattleAnimCmd_SetObj:
ret ret
BattleAnimCmd_EnemyFeetObj: BattleAnimCmd_EnemyFeetObj:
ld hl, wBattleAnimTileDict ld hl, wBattleAnimTileDict
.loop .loop
ld a, [hl] ld a, [hl]
@@ -832,7 +822,6 @@ BattleAnimCmd_EnemyFeetObj:
ret ret
BattleAnimCmd_PlayerHeadObj: BattleAnimCmd_PlayerHeadObj:
ld hl, wBattleAnimTileDict ld hl, wBattleAnimTileDict
.loop .loop
ld a, [hl] ld a, [hl]
@@ -931,7 +920,6 @@ BattleAnimCmd_Transform:
ret ret
BattleAnimCmd_UpdateActorPic: BattleAnimCmd_UpdateActorPic:
ld de, vTiles0 tile $00 ld de, vTiles0 tile $00
ld a, [hBattleTurn] ld a, [hBattleTurn]
and a and a
@@ -951,7 +939,6 @@ BattleAnimCmd_UpdateActorPic:
ret ret
BattleAnimCmd_RaiseSub: BattleAnimCmd_RaiseSub:
ld a, [rSVBK] ld a, [rSVBK]
push af push af
ld a, 1 ; unnecessary bankswitch? ld a, 1 ; unnecessary bankswitch?

View File

@@ -1,7 +1,6 @@
MANIA_OT_ID EQU 00518 MANIA_OT_ID EQU 00518
GiveShuckle: GiveShuckle:
; Adding to the party. ; Adding to the party.
xor a xor a
ld [wMonType], a ld [wMonType], a

View File

@@ -27,7 +27,6 @@ TreeMonEncounter:
ret ret
RockMonEncounter: RockMonEncounter:
xor a xor a
ld [wTempWildMonSpecies], a ld [wTempWildMonSpecies], a
ld [wCurPartyLevel], a ld [wCurPartyLevel], a

View File

@@ -731,7 +731,6 @@ ConvertLoadedPuzzlePieces:
ret ret
.EnlargedTiles: .EnlargedTiles:
x = 0 x = 0
rept 16 rept 16
db ((x & %1000) * %11000) + ((x & %0100) * %1100) + ((x & %0010) * %110) + ((x & %0001) * %11) db ((x & %1000) * %11000) + ((x & %0100) * %1100) + ((x & %0010) * %110) + ((x & %0001) * %11)

View File

@@ -484,8 +484,8 @@ PokeBallEffect:
ld de, wEnemyMonPP ld de, wEnemyMonPP
ld bc, NUM_MOVES ld bc, NUM_MOVES
call CopyBytes call CopyBytes
.Transformed:
.Transformed:
ld a, [wEnemyMonSpecies] ld a, [wEnemyMonSpecies]
ld [wWildMon], a ld [wWildMon], a
ld [wCurPartySpecies], a ld [wCurPartySpecies], a
@@ -560,8 +560,8 @@ PokeBallEffect:
ld a, FRIEND_BALL_HAPPINESS ld a, FRIEND_BALL_HAPPINESS
ld [hl], a ld [hl], a
.SkipPartyMonFriendBall:
.SkipPartyMonFriendBall:
ld hl, Text_AskNicknameNewlyCaughtMon ld hl, Text_AskNicknameNewlyCaughtMon
call PrintText call PrintText

View File

@@ -1,5 +1,4 @@
_Multiply:: _Multiply::
; hMultiplier is one byte. ; hMultiplier is one byte.
ld a, 8 ld a, 8
ld b, a ld b, a

View File

@@ -94,7 +94,6 @@ ResetWRAM:
ret ret
_ResetWRAM: _ResetWRAM:
ld hl, wVirtualOAM ld hl, wVirtualOAM
ld bc, wOptions - wVirtualOAM ld bc, wOptions - wVirtualOAM
xor a xor a
@@ -801,7 +800,6 @@ StorePlayerName:
ret ret
ShrinkPlayer: ShrinkPlayer:
ld a, [hROMBank] ld a, [hROMBank]
push af push af
@@ -911,7 +909,6 @@ ShrinkFrame:
ret ret
Intro_PlacePlayerSprite: Intro_PlacePlayerSprite:
farcall GetPlayerIcon farcall GetPlayerIcon
ld c, $c ld c, $c
ld hl, vTiles0 ld hl, vTiles0
@@ -1067,7 +1064,6 @@ TitleScreenScene:
ret ret
TitleScreenEntrance: TitleScreenEntrance:
; Animate the logo: ; Animate the logo:
; Move each line by 4 pixels until our count hits 0. ; Move each line by 4 pixels until our count hits 0.
ld a, [hSCX] ld a, [hSCX]
@@ -1115,7 +1111,6 @@ TitleScreenEntrance:
ret ret
TitleScreenTimer: TitleScreenTimer:
; Next scene ; Next scene
ld hl, wJumptableIndex ld hl, wJumptableIndex
inc [hl] inc [hl]
@@ -1129,7 +1124,6 @@ TitleScreenTimer:
ret ret
TitleScreenMain: TitleScreenMain:
; Run the timer down. ; Run the timer down.
ld hl, wTitleScreenTimer ld hl, wTitleScreenTimer
ld e, [hl] ld e, [hl]
@@ -1230,7 +1224,6 @@ TitleScreenMain:
ret ret
TitleScreenEnd: TitleScreenEnd:
; Wait until the music is done fading. ; Wait until the music is done fading.
ld hl, wTitleScreenTimer ld hl, wTitleScreenTimer

View File

@@ -11,7 +11,6 @@
const STARTMENUITEM_QUIT ; 8 const STARTMENUITEM_QUIT ; 8
StartMenu:: StartMenu::
call ClearWindowData call ClearWindowData
ld de, SFX_MENU ld de, SFX_MENU
@@ -24,8 +23,8 @@ StartMenu::
ld hl, .MenuHeader ld hl, .MenuHeader
jr z, .GotMenuData jr z, .GotMenuData
ld hl, .ContestMenuHeader ld hl, .ContestMenuHeader
.GotMenuData:
.GotMenuData:
call LoadMenuHeader call LoadMenuHeader
call .SetUpMenuItems call .SetUpMenuItems
ld a, [wBattleMenuCursorBuffer] ld a, [wBattleMenuCursorBuffer]
@@ -459,7 +458,6 @@ StartMenu_Status:
ret ret
StartMenu_Pokedex: StartMenu_Pokedex:
ld a, [wPartyCount] ld a, [wPartyCount]
and a and a
jr z, .asm_12949 jr z, .asm_12949
@@ -473,7 +471,6 @@ StartMenu_Pokedex:
ret ret
StartMenu_Pokegear: StartMenu_Pokegear:
call FadeToMenu call FadeToMenu
farcall PokeGear farcall PokeGear
call CloseSubmenu call CloseSubmenu
@@ -481,7 +478,6 @@ StartMenu_Pokegear:
ret ret
StartMenu_Pack: StartMenu_Pack:
call FadeToMenu call FadeToMenu
farcall Pack farcall Pack
ld a, [wPackUsedItem] ld a, [wPackUsedItem]
@@ -497,7 +493,6 @@ StartMenu_Pack:
ret ret
StartMenu_Pokemon: StartMenu_Pokemon:
ld a, [wPartyCount] ld a, [wPartyCount]
and a and a
jr z, .return jr z, .return
@@ -700,7 +695,6 @@ PokemonActionSubmenu:
dbw MONMENUITEM_MAIL, MonMailAction dbw MONMENUITEM_MAIL, MonMailAction
SwitchPartyMons: SwitchPartyMons:
; Don't try if there's nothing to switch! ; Don't try if there's nothing to switch!
ld a, [wPartyCount] ld a, [wPartyCount]
cp 2 cp 2
@@ -751,7 +745,6 @@ SwitchPartyMons:
ret ret
GiveTakePartyMonItem: GiveTakePartyMonItem:
; Eggs can't hold items! ; Eggs can't hold items!
ld a, [wCurPartySpecies] ld a, [wCurPartySpecies]
cp EGG cp EGG
@@ -791,7 +784,6 @@ GiveTakePartyMonItem:
ret ret
.GiveItem: .GiveItem:
farcall DepositSellInitPackBuffers farcall DepositSellInitPackBuffers
.loop .loop
@@ -822,7 +814,6 @@ GiveTakePartyMonItem:
ret ret
TryGiveItemToPartymon: TryGiveItemToPartymon:
call SpeechTextBox call SpeechTextBox
call PartyMonItemName call PartyMonItemName
call GetPartyItemLocation call GetPartyItemLocation
@@ -885,7 +876,6 @@ TryGiveItemToPartymon:
ret ret
GivePartyItem: GivePartyItem:
call GetPartyItemLocation call GetPartyItemLocation
ld a, [wCurItem] ld a, [wCurItem]
ld [hl], a ld [hl], a
@@ -898,7 +888,6 @@ GivePartyItem:
ret ret
TakePartyItem: TakePartyItem:
call SpeechTextBox call SpeechTextBox
call GetPartyItemLocation call GetPartyItemLocation
ld a, [hl] ld a, [hl]

View File

@@ -1,5 +1,4 @@
GBCOnlyScreen: GBCOnlyScreen:
ld a, [hCGB] ld a, [hCGB]
and a and a
ret nz ret nz
@@ -39,7 +38,6 @@ GBCOnlyScreen:
jr .loop jr .loop
DrawGBCOnlyScreen: DrawGBCOnlyScreen:
call DrawGBCOnlyBorder call DrawGBCOnlyBorder
; Pokemon ; Pokemon
@@ -63,7 +61,6 @@ DrawGBCOnlyScreen:
ret ret
DrawGBCOnlyBorder: DrawGBCOnlyBorder:
hlcoord 0, 0 hlcoord 0, 0
ld [hl], 0 ; top-left ld [hl], 0 ; top-left

View File

@@ -1,5 +1,4 @@
_TitleScreen: _TitleScreen:
call ClearBGPalettes call ClearBGPalettes
call ClearSprites call ClearSprites
call ClearTileMap call ClearTileMap

Some files were not shown because too many files have changed in this diff Show More