diff options
-rw-r--r-- | engine/battle_anims/functions.asm | 8 | ||||
-rw-r--r-- | engine/events/pokecenter_pc.asm | 16 | ||||
-rw-r--r-- | engine/games/slot_machine.asm | 23 | ||||
-rw-r--r-- | engine/gfx/color.asm | 10 | ||||
-rw-r--r-- | engine/menus/intro_menu.asm | 35 | ||||
-rw-r--r-- | engine/movie/intro.asm | 8 | ||||
-rw-r--r-- | engine/phone/phone.asm | 10 | ||||
-rw-r--r-- | engine/pokegear/pokegear.asm | 4 | ||||
-rw-r--r-- | engine/pokemon/mon_menu.asm | 14 | ||||
-rw-r--r-- | engine/printer/print_party.asm | 44 |
10 files changed, 94 insertions, 78 deletions
diff --git a/engine/battle_anims/functions.asm b/engine/battle_anims/functions.asm index e23d1ccd..62561b55 100644 --- a/engine/battle_anims/functions.asm +++ b/engine/battle_anims/functions.asm @@ -974,7 +974,7 @@ Functioncd49c: ret .negative - and $3f + and %00111111 cp $20 jr nc, .minus_256 cp $18 @@ -1989,7 +1989,7 @@ BattleAnimFunction_Kick: dw .one dw .two ; Jump Kick, Hi Jump Kick dw .three ; Rolling Kick - dw .four + dw .four ; Rolling Kick (continued) .zero ret @@ -1999,13 +1999,13 @@ BattleAnimFunction_Kick: add hl, bc ld a, [hl] cp $30 - jr c, .unknown_cda69 + jr c, .move_down ld hl, BATTLEANIMSTRUCT_JUMPTABLE_INDEX add hl, bc ld [hl], $0 ret -.unknown_cda69 +.move_down add $4 ld [hl], a ret diff --git a/engine/events/pokecenter_pc.asm b/engine/events/pokecenter_pc.asm index 18848924..0503ee6f 100644 --- a/engine/events/pokecenter_pc.asm +++ b/engine/events/pokecenter_pc.asm @@ -233,28 +233,28 @@ _PlayersPC: ld [wWhichIndexSet], a ld hl, PlayersPCAskWhatDoText call PC_DisplayTextWaitMenu - call Function159ec + call .PlayersPC call ExitMenu ret -Function159ec: +.PlayersPC: xor a ld [wPCItemsCursor], a ld [wPCItemsScrollPosition], a ld hl, PlayersPCMenuData call LoadMenuHeader -.asm_159f9 +.loop call UpdateTimePals call DoNthMenu - jr c, .asm_15a08 + jr c, .turn_off call MenuJumptable - jr nc, .asm_159f9 - jr .asm_15a09 + jr nc, .loop + jr .done -.asm_15a08 +.turn_off xor a -.asm_15a09 +.done call ExitMenu ret diff --git a/engine/games/slot_machine.asm b/engine/games/slot_machine.asm index df34a7de..a0d99629 100644 --- a/engine/games/slot_machine.asm +++ b/engine/games/slot_machine.asm @@ -184,7 +184,7 @@ SlotsLoop: ld [wCurSpriteOAMAddr], a callfar DoNextFrameForFirst16Sprites call .PrintCoinsAndPayout - call .Stubbed_Function92d3c + call .Stubbed_AlternateMatchingSevensPalette call DelayFrame and a ret @@ -193,7 +193,7 @@ SlotsLoop: scf ret -.Stubbed_Function92d3c: +.Stubbed_AlternateMatchingSevensPalette: ; dummied out ret ld a, [wReel1ReelAction] @@ -214,7 +214,7 @@ SlotsLoop: and $7 ret nz ldh a, [rBGP] - xor %00001100 + xor %00001100 ; alternates two palettes call DmgToCgbBGPals ret @@ -848,17 +848,22 @@ Function93127: ; unreferenced push hl srl a srl a - add LOW(.Unknown_93137) + add LOW(.data) ld l, a ld a, 0 - adc HIGH(.Unknown_93137) + adc HIGH(.data) ld h, a ld a, [hl] pop hl ret -.Unknown_93137: - db 0, 1, 2, 3, 4, 5 +.data: + db 0 ; SLOTS_SEVEN + db 1 ; SLOTS_POKEBALL + db 2 ; SLOTS_CHERRY + db 3 ; SLOTS_PIKACHU + db 4 ; SLOTS_SQUIRTLE + db 5 ; SLOTS_STARYU ReelActionJumptable: ld hl, REEL_ACTION @@ -1089,11 +1094,11 @@ ReelAction_WaitReel2SkipTo7: add hl, bc ld a, [hl] and a - jr z, .asm_9326b + jr z, .ready dec [hl] ret -.asm_9326b +.ready ld a, SFX_THROW_BALL call Slots_PlaySFX ld hl, REEL_ACTION diff --git a/engine/gfx/color.asm b/engine/gfx/color.asm index 594f7edc..454a2f08 100644 --- a/engine/gfx/color.asm +++ b/engine/gfx/color.asm @@ -141,7 +141,7 @@ SGB_ApplyPartyMenuHPPals: ld [hl], e ret -Function9102: +Intro_LoadMagikarpPalettes: call CheckCGB ret z ; CGB only @@ -172,7 +172,7 @@ Function9102: RGB 08, 16, 28 RGB 00, 00, 00 -Function9136: +Intro_LoadAllPal0: call CheckCGB ret nz ldh a, [hSGB] @@ -181,7 +181,7 @@ Function9136: ld hl, BlkPacket_AllPal0 jp PushSGBPals -Function9144: ; unreferenced +Intro_LoadBetaIntroVenusaurPalettes: ; unreferenced call CheckCGB jr nz, .cgb ldh a, [hSGB] @@ -196,7 +196,7 @@ Function9144: ; unreferenced call GetPredefPal jp LoadHLPaletteIntoDE -Function915e: ; unreferenced +Intro_LoadPackPalettes: ; unreferenced call CheckCGB jr nz, .cgb ldh a, [hSGB] @@ -243,7 +243,7 @@ Intro_LoadMonPalette: call LoadPalette_White_Col1_Col2_Black ret -Function91b4: ; unreferenced +LoadBetaPokerPalettes: ; unreferenced ldh a, [hCGB] and a jr nz, .cgb diff --git a/engine/menus/intro_menu.asm b/engine/menus/intro_menu.asm index 784da3cf..80db603f 100644 --- a/engine/menus/intro_menu.asm +++ b/engine/menus/intro_menu.asm @@ -908,7 +908,7 @@ RunTitleScreen: farcall PlaySpriteAnimations xor a ldh [hOAMUpdate], a - call Function64b1 + call UpdateTitleTrailSprite call DelayFrame and a ret @@ -1069,7 +1069,7 @@ ResetClock: farcall _ResetClock jp Init -Function64b1: +UpdateTitleTrailSprite: ; If bit 0 or 1 of [wTitleScreenTimer] is set, we don't need to be here. ld a, [wTitleScreenTimer] and %00000011 @@ -1082,9 +1082,9 @@ IF DEF(_GOLD) ld h, 0 add hl, hl add hl, hl - ld de, .Data_64e0 + ld de, .TitleTrailCoords add hl, de - ; If bit 2 of [wTitleScreenTimer] is set, get the second dw; else, get the first dw + ; If bit 2 of [wTitleScreenTimer] is set, get the second coords; else, get the first coords ld a, [wTitleScreenTimer] and %00000100 srl a @@ -1106,14 +1106,25 @@ ENDC ret IF DEF(_GOLD) -.Data_64e0: -; frame 0 y, x; frame 1 y, x - db 11 * 8 + 4, 10 * 8, 0 * 8, 0 * 8 - db 11 * 8 + 4, 13 * 8, 11 * 8 + 4, 11 * 8 - db 11 * 8 + 4, 13 * 8, 11 * 8 + 4, 15 * 8 - db 11 * 8 + 4, 17 * 8, 11 * 8 + 4, 15 * 8 - db 0 * 8, 0 * 8, 11 * 8 + 4, 15 * 8 - db 0 * 8, 0 * 8, 11 * 8 + 4, 11 * 8 +.TitleTrailCoords: +trail_coords: MACRO +rept _NARG / 2 +_dx = 4 +if \1 == 0 && \2 == 0 +_dx = 0 +endc + dbpixel \1, \2, _dx, 0 + shift + shift +endr +ENDM + ; frame 0 y, x; frame 1 y, x + trail_coords 11, 10, 0, 0 + trail_coords 11, 13, 11, 11 + trail_coords 11, 13, 11, 15 + trail_coords 11, 17, 11, 15 + trail_coords 0, 0, 11, 15 + trail_coords 0, 0, 11, 11 ENDC Copyright: diff --git a/engine/movie/intro.asm b/engine/movie/intro.asm index 01eff145..61335d9b 100644 --- a/engine/movie/intro.asm +++ b/engine/movie/intro.asm @@ -312,12 +312,12 @@ Functione4ed5: ld hl, wIntroFrameCounter2 ld a, [hl] and %00011111 - jr z, .asm_e4ee1 + jr z, .load_palettes call Intro_InitMagikarps ret -.asm_e4ee1 - callfar Function9102 +.load_palettes + callfar Intro_LoadMagikarpPalettes ret Functione4ee8: @@ -674,7 +674,7 @@ IntroScene8: ld [wIntroFrameCounter1], a ld hl, wIntroJumptableIndex inc [hl] - callfar Function9136 + callfar Intro_LoadAllPal0 ret IntroScene9: diff --git a/engine/phone/phone.asm b/engine/phone/phone.asm index 7b2646ed..e94ed412 100644 --- a/engine/phone/phone.asm +++ b/engine/phone/phone.asm @@ -318,7 +318,7 @@ SpecialCallWhereverYouAre: scf ret -Function901a1: +MakePhoneCallFromPokegear: ; Don't do the call if you're in a link communication ld a, [wLinkMode] and a @@ -469,7 +469,7 @@ RingTwice_StartCall: Phone_CallerTextboxWithName: ld a, [wCurCaller] ld b, a - call Function90357 + call Phone_TextboxWithName ret PhoneCall:: @@ -576,7 +576,7 @@ Phone_Wait20Frames: farcall PhoneRing_CopyTilemapAtOnce ret -Function90357: +Phone_TextboxWithName: push bc call Phone_CallerTextbox hlcoord 1, 1 @@ -586,7 +586,7 @@ Function90357: ld d, h ld e, l pop bc - call Function90374 + call GetCallerClassAndName ret Phone_CallerTextbox: @@ -596,7 +596,7 @@ Phone_CallerTextbox: call Textbox ret -Function90374: +GetCallerClassAndName: ld h, d ld l, e ld a, b diff --git a/engine/pokegear/pokegear.asm b/engine/pokegear/pokegear.asm index 566aecc1..e7ffe340 100644 --- a/engine/pokegear/pokegear.asm +++ b/engine/pokegear/pokegear.asm @@ -891,7 +891,7 @@ PokegearPhone_MakePhoneCall: call WaitSFX ld a, [wPokegearPhoneSelectedPerson] ld b, a - call Function901a1 + call MakePhoneCallFromPokegear ld c, 10 call DelayFrames ld hl, wOptions @@ -1036,7 +1036,7 @@ PokegearPhone_UpdateDisplayList: ld e, l pop af ld b, a - call Function90374 + call GetCallerClassAndName pop hl ld a, [wPokegearPhoneLoadNameBuffer] inc a diff --git a/engine/pokemon/mon_menu.asm b/engine/pokemon/mon_menu.asm index 745d3936..2d793c79 100644 --- a/engine/pokemon/mon_menu.asm +++ b/engine/pokemon/mon_menu.asm @@ -346,11 +346,11 @@ TakePartyItem: call GetPartyItemLocation ld a, [hl] and a - jr z, .asm_13053 + jr z, .not_holding_item ld [wCurItem], a call ReceiveItemFromPokemon - jr nc, .asm_1305b + jr nc, .item_storage_full farcall ItemIsMail call GetPartyItemLocation @@ -360,18 +360,18 @@ TakePartyItem: call GetItemName ld hl, PokemonTookItemText call MenuTextboxBackup - jr .asm_13061 + jr .done -.asm_13053 +.not_holding_item ld hl, PokemonNotHoldingText call MenuTextboxBackup - jr .asm_13061 + jr .done -.asm_1305b +.item_storage_full ld hl, ItemStorageFullText call MenuTextboxBackup -.asm_13061 +.done ret GiveTakeItemMenuData: diff --git a/engine/printer/print_party.asm b/engine/printer/print_party.asm index 7b98a337..568a0c92 100644 --- a/engine/printer/print_party.asm +++ b/engine/printer/print_party.asm @@ -8,12 +8,12 @@ PrintPage1: hlcoord 17, 1, wPrinterTilemapBuffer ld a, $62 ld [hli], a - inc a + inc a ; $63 ld [hl], a hlcoord 17, 2, wPrinterTilemapBuffer ld a, $64 ld [hli], a - inc a + inc a ; $65 ld [hl], a hlcoord 1, 9, wPrinterTilemapBuffer ld a, " " @@ -173,7 +173,7 @@ PrintPartyMonPage1: ld [wNamedObjectIndexBuffer], a ld [wCurSpecies], a ld hl, wPartyMonNicknames - call Function1c0375 + call GetCurPartyMonName hlcoord 8, 4 call PlaceString hlcoord 9, 6 @@ -190,26 +190,26 @@ PrintPartyMonPage1: lb bc, PRINTNUM_LEADINGZEROS | 1, 3 call PrintNum hlcoord 1, 9 - ld de, String1c03b7 + ld de, PrintParty_OTString call PlaceString ld hl, wPartyMonOT - call Function1c0375 + call GetCurPartyMonName hlcoord 4, 9 call PlaceString hlcoord 1, 11 - ld de, String1c03c0 + ld de, PrintParty_IDNoString call PlaceString hlcoord 4, 11 ld de, wTempMonID lb bc, PRINTNUM_LEADINGZEROS | 2, 5 call PrintNum hlcoord 1, 14 - ld de, String1c03bb + ld de, PrintParty_MoveString call PlaceString hlcoord 7, 14 ld a, [wTempMonMoves + 0] - call Function1c0381 - call Function1c0393 + call PlaceMoveNameString + call PlaceGenderAndShininess ld hl, wTempMonDVs predef GetUnownLetter hlcoord 0, 0 @@ -256,15 +256,15 @@ PrintPartyMonPage2: call CopyBytes hlcoord 7, 0 ld a, [wTempMonMoves + 1] - call Function1c0381 + call PlaceMoveNameString hlcoord 7, 2 ld a, [wTempMonMoves + 2] - call Function1c0381 + call PlaceMoveNameString hlcoord 7, 4 ld a, [wTempMonMoves + 3] - call Function1c0381 + call PlaceMoveNameString hlcoord 7, 7 - ld de, String1c03c3 + ld de, PrintParty_StatsString call PlaceString hlcoord 16, 7 ld de, wTempMonAttack @@ -292,7 +292,7 @@ PrintPartyMonPage2: call PrintNum ret -Function1c0375: +GetCurPartyMonName: ld bc, NAME_LENGTH ld a, [wCurPartyMon] call AddNTimes @@ -300,7 +300,7 @@ Function1c0375: ld d, h ret -Function1c0381: +PlaceMoveNameString: and a jr z, .no_move @@ -309,13 +309,13 @@ Function1c0381: jr .got_string .no_move - ld de, String1c03ea + ld de, PrintParty_NoMoveString .got_string call PlaceString ret -Function1c0393: +PlaceGenderAndShininess: farcall GetGender ld a, " " jr c, .got_gender @@ -333,16 +333,16 @@ Function1c0393: ld [hl], "⁂" ret -String1c03b7: +PrintParty_OTString: db "OT/@" -String1c03bb: +PrintParty_MoveString: db "MOVE@" -String1c03c0: +PrintParty_IDNoString: db "<ID>№@" -String1c03c3: +PrintParty_StatsString: db "ATTACK" next "DEFENSE" next "SPCL.ATK" @@ -350,7 +350,7 @@ String1c03c3: next "SPEED" db "@" -String1c03ea: +PrintParty_NoMoveString: db "------------@" GBPrinterHPIcon: |