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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,5 +1,4 @@
UnusedTitleScreen:
call ClearBGPalettes
call ClearTileMap
call DisableLCD

View File

@ -485,7 +485,6 @@ CheckTimeEvents:
ret
OWPlayerInput:
call PlayerMovement
ret c
and a

View File

@ -1,5 +1,4 @@
CanObjectMoveInDirection:
ld hl, OBJECT_PALETTE
add hl, bc
bit SWIMMING_F, [hl]
@ -216,7 +215,6 @@ Function6fa1:
ret
CheckFacingObject::
call GetFacingTileCoord
; Double the distance for counter tiles.

View File

@ -256,7 +256,6 @@ DoPlayerMovement::
ret
.TryStep:
; Surfing actually calls .TrySurf directly instead of passing through here.
ld a, [wPlayerState]
cp PLAYER_SURF
@ -321,7 +320,6 @@ DoPlayerMovement::
ret
.TrySurf:
call .CheckSurfPerms
ld [wd040], a
jr c, .surf_bump
@ -395,7 +393,6 @@ DoPlayerMovement::
db FACE_UP | FACE_LEFT ; COLL_HOP_UP_LEFT
.CheckWarp:
; Bug: Since no case is made for STANDING here, it will check
; [.edgewarps + $ff]. This resolves to $3e at $8035a.
; This causes wd041 to be nonzero when standing on tile $3e,
@ -657,7 +654,6 @@ DoPlayerMovement::
ret
.CheckStrengthBoulder:
ld hl, wBikeFlags
bit BIKEFLAGS_STRENGTH_ACTIVE_F, [hl]
jr z, .not_boulder
@ -779,7 +775,6 @@ DoPlayerMovement::
ret
.BumpSound:
call CheckSFX
ret c
ld de, SFX_BUMP

View File

@ -1,5 +1,4 @@
SelectMenu::
call CheckRegisteredItem
jr c, .NotRegistered
jp UseRegisteredItem
@ -17,7 +16,6 @@ ItemMayBeRegisteredText:
db "@"
CheckRegisteredItem:
ld a, [wWhichRegisteredItem]
and a
jr z, .NoRegisteredItem
@ -110,7 +108,6 @@ CheckRegisteredItem:
ret
UseRegisteredItem:
farcall CheckItemMenu
ld a, [wItemAttributeParamBuffer]
ld hl, .SwitchTo

View File

@ -19,7 +19,6 @@ POKEDEX_SCX EQU 5
GLOBAL POKEDEX_SCX
Pokedex:
ld a, [hWX]
ld l, a
ld a, [hWY]

View File

@ -170,7 +170,6 @@ GetGender:
call AddNTimes
.DVs:
; sBoxMon data is read directly from SRAM.
ld a, [wMonType]
cp BOXMON

View File

@ -2,6 +2,7 @@ INCLUDE "constants.asm"
SECTION "NULL", ROM0
NULL::
INCLUDE "home/rst.asm"

View File

@ -1,7 +1,6 @@
; Audio interfaces.
MapSetup_Sound_Off::
push hl
push de
push bc
@ -26,7 +25,6 @@ MapSetup_Sound_Off::
ret
UpdateSound::
push hl
push de
push bc

View File

@ -142,10 +142,6 @@ FarCopyRadioText::
ret
MobileTextBorder::
CELL_PHONE_TOP EQU $5e
CELL_PHONE_BOTTOM EQU $5f
; For mobile link battles only.
ld a, [wLinkMode]
cp LINK_MOBILE
@ -154,9 +150,9 @@ CELL_PHONE_BOTTOM EQU $5f
; Draw a cell phone icon at the
; top right corner of the border.
hlcoord 19, 12
ld [hl], CELL_PHONE_TOP
ld [hl], $5e ; top
hlcoord 19, 13
ld [hl], CELL_PHONE_BOTTOM
ld [hl], $5f ; bottom
ret
BattleTextBox::
@ -186,7 +182,6 @@ StdBattleTextBox::
ret
GetBattleAnimPointer::
ld a, BANK(BattleAnimations)
rst Bankswitch
@ -201,7 +196,6 @@ GetBattleAnimPointer::
ret
GetBattleAnimByte::
push hl
push de

View File

@ -9,7 +9,6 @@ ResetGameTime::
ret
GameTimer::
nop
ld a, [rSVBK]

View File

@ -33,7 +33,6 @@ _Start::
ld [hSystemBooted], a
Init::
di
xor a

View File

@ -757,7 +757,6 @@ ChangeMap::
ret
FillMapConnections::
; North
ld a, [wNorthConnectedMapGroup]
cp $ff
@ -855,7 +854,6 @@ FillMapConnections::
FillNorthConnectionStrip::
FillSouthConnectionStrip::
ld c, 3
.y
push de
@ -890,7 +888,6 @@ FillSouthConnectionStrip::
FillWestConnectionStrip::
FillEastConnectionStrip::
.loop
ld a, [wMapWidth]
add 6

View File

@ -18,7 +18,6 @@ UpdateCGBPals::
ret z
ForceUpdateCGBPals::
ld a, [rSVBK]
push af
ld a, BANK(wBGPals2)

View File

@ -52,7 +52,6 @@ TextBox::
jr TextBoxPalette
TextBoxBorder::
; Top
push hl
ld a, "┌"

View File

@ -20,7 +20,6 @@ CheckTrainerBattle::
.loop
; Start a battle if the object:
push af
push de
@ -128,7 +127,6 @@ LoadTrainer_continue::
ret
FacingPlayerDistance_bc::
push de
call FacingPlayerDistance
ld b, d

View File

@ -356,7 +356,6 @@ Serve2bppRequest::
jr _Serve2bppRequest
Serve2bppRequest_VBlank::
ld a, [wRequested2bpp]
and a
ret z