ref: 0817dee42ca7482db81a8eb66413e77ad903888f
dir: /mobile/mobile_5c.asm/
Function170000: ld a, [$c62b] ld [wPlayerTrademonSpecies], a ld hl, $c62e ld de, wPlayerTrademonSenderName ld bc, $0005 call CopyBytes ld a, $50 ld [de], a ld hl, $c663 ld de, wPlayerTrademonOTName ld bc, $0005 call CopyBytes ld a, $50 ld [de], a ld hl, $c648 ld a, [hli] ld [wPlayerTrademonDVs], a ld a, [hl] ld [wPlayerTrademonDVs + 1], a ld hl, $c639 ld a, [hli] ld [wPlayerTrademonID], a ld a, [hl] ld [wPlayerTrademonID + 1], a ld bc, $c633 farcall GetCaughtGender ld a, c ld [wPlayerTrademonCaughtData], a ld a, [wcd81] ld [wc74e], a ld hl, $c608 ld de, $d800 ld bc, $008f call CopyBytes ret Function17005a: ld a, $5 call OpenSRAM ld a, [$a824] ld [wOTTrademonSpecies], a ld hl, $a827 ld de, wOTTrademonSenderName ld bc, NAME_LENGTH_JAPANESE - 1 call CopyBytes ld a, "@" ld [de], a ld hl, $a85c ld de, wOTTrademonOTName ld bc, NAME_LENGTH_JAPANESE - 1 call CopyBytes ld a, "@" ld [de], a ld hl, $a841 ld a, [hli] ld [wOTTrademonDVs], a ld a, [hl] ld [wOTTrademonDVs + 1], a ld hl, $a832 ld a, [hli] ld [wOTTrademonID], a ld a, [hl] ld [wOTTrademonID + 1], a ld bc, $a82c farcall GetCaughtGender ld a, c ld [wOTTrademonCaughtData], a ld a, [wcd81] ld [wc74e], a call CloseSRAM ret INCLUDE "engine/events/battle_tower/battle_tower.asm" Function170be4: ld a, BANK(s5_a894) call OpenSRAM xor a ld hl, s5_a894 ld bc, 6 + 2 call ByteFill call CloseSRAM ret Clears5_a89a: ld a, BANK(s5_a89a) call OpenSRAM ld hl, s5_a89a xor a ld [hli], a ld [hl], a call CloseSRAM ret Function170c06: ; unreferenced ld a, BANK(s5_a894) call OpenSRAM ld hl, s5_a894 ld a, [wBattleResult] and a ; WIN? jr nz, .asm_170c15 inc [hl] .asm_170c15 inc hl inc hl ld a, [s5_a89a + 1] add [hl] ld [hld], a ld a, [s5_a89a] adc [hl] ld [hli], a jr nc, .asm_170c27 ld a, $ff ld [hld], a ld [hli], a .asm_170c27 inc hl push hl ld de, 0 xor a ld [wTempByteValue], a .asm_170c30 ld hl, wPartyMon1HP ld a, [wTempByteValue] call GetPartyLocation ld a, [hli] ld b, a ld c, [hl] inc hl inc hl ld a, [hld] sub c ld c, a ld a, [hl] sbc b ld b, a push de pop hl add hl, bc push hl pop de jr c, .asm_170c58 ld a, [wTempByteValue] inc a ld [wTempByteValue], a cp $3 jr c, .asm_170c30 jr .asm_170c5b .asm_170c58 ld de, -1 .asm_170c5b pop hl inc hl ld a, e add [hl] ld [hld], a ld a, d adc [hl] ld [hli], a jr nc, .asm_170c69 ld a, $ff ld [hld], a ld [hli], a .asm_170c69 inc hl push hl ld b, $0 ld c, $0 .asm_170c6f ld hl, wPartyMon1HP ld a, b push bc call GetPartyLocation pop bc ld a, [hli] or [hl] jr nz, .asm_170c7d inc c .asm_170c7d inc b ld a, b cp $3 jr c, .asm_170c6f pop hl ld a, [hl] add c ld [hl], a call CloseSRAM ret Function170c8b: ld hl, wLastEnemyCounterMove ld b, $5 .asm_170c90 ld a, [hl] xor $ff ld [hli], a dec b jr nz, .asm_170c90 ret CheckBTMonMovesForErrors: ld c, BATTLETOWER_PARTY_LENGTH ld hl, wBT_OTTempMon1Moves .loop push hl ld a, [hl] cp NUM_ATTACKS + 1 jr c, .okay ld a, POUND ld [hl], a .okay inc hl ld b, NUM_MOVES - 1 .loop2 ld a, [hl] and a jr z, .loop3 cp NUM_ATTACKS + 1 jr c, .next .loop3 xor a ld [hl], a inc hl dec b jr nz, .loop3 jr .done .next inc hl dec b jr nz, .loop2 .done pop hl ld de, NICKNAMED_MON_STRUCT_LENGTH add hl, de dec c jr nz, .loop ret Function170cc6: ldh a, [rSVBK] push af ld a, BANK(wDecompressScratch) ldh [rSVBK], a ld hl, PichuAnimatedMobileGFX ld de, wDecompressScratch call Decompress ld a, 1 ldh [rVBK], a ld de, wDecompressScratch ld hl, vTiles0 lb bc, BANK(wDecompressScratch), 193 call Get2bpp xor a ldh [rVBK], a ld hl, ElectroBallMobileGFX ld de, wDecompressScratch call Decompress ld de, wBGPals1 ld hl, vTiles0 lb bc, BANK(wDecompressScratch), 83 call Get2bpp pop af ldh [rSVBK], a ret Function170d02: ld a, $1 ldh [rVBK], a ld de, PichuBorderMobileGFX ld hl, vTiles0 tile $c1 lb bc, BANK(PichuBorderMobileGFX), 24 call Get2bpp xor a ldh [rVBK], a ret PichuAnimatedMobileGFX: INCBIN "gfx/mobile/pichu_animated.2bpp.lz" ElectroBallMobileGFX: INCBIN "gfx/mobile/electro_ball.2bpp.lz" PichuBorderMobileGFX: INCBIN "gfx/mobile/pichu_border.2bpp" Function1719c8: ldh a, [hInMenu] push af ld a, $1 ldh [hInMenu], a call Function1719d6 pop af ldh [hInMenu], a ret Function1719d6: farcall BattleTowerRoomMenu_InitRAM call Function1719ed ldh a, [rSVBK] push af ld a, $5 ldh [rSVBK], a call Function171a11 pop af ldh [rSVBK], a ret Function1719ed: xor a ld [wcd49], a ld [wcd4a], a dec a ld [wcd4b], a call ClearBGPalettes call ClearSprites farcall Function171d2b farcall ReloadMapPart farcall ClearSpriteAnims ret Function171a11: .loop call JoyTextDelay ld a, [wcd49] bit 7, a jr nz, .done call Function171a36 farcall PlaySpriteAnimations farcall ReloadMapPart jr .loop .done farcall ClearSpriteAnims call ClearSprites ret Function171a36: jumptable Jumptable_171a45, wcd49 Jumptable_171a45: dw Function171a95 dw Function171ac9 dw Function171a5d dw Function171ad7 dw Function171a5d dw Function171aec dw Function171b4b dw Function171b85 dw Function171bcc dw Function171c2c dw Function171c39 dw Function171c41 Function171a5d: ld a, [wc821] bit 1, a jr nz, .asm_171a6a bit 0, a ret nz jp Function171c66 .asm_171a6a ld a, MOBILEAPI_00 call MobileAPI ld [wMobileErrorCodeBuffer], a ld a, l ld [wMobileErrorCodeBuffer + 1], a ld a, h ld [wMobileErrorCodeBuffer + 2], a ld a, MOBILEAPI_05 call MobileAPI ldh a, [rSVBK] push af ld a, $1 ldh [rSVBK], a farcall BattleTowerRoomMenu_Cleanup pop af ldh [rSVBK], a ld a, $a ld [wcd49], a ret Function171a95: farcall Function171ccd hlcoord 2, 8 ld de, String_171aa7 call PlaceString jp Function171c66 String_171aa7: db "モバイルアダプタに" next "せつぞく しています" next "しばらく おまちください" db "@" Function171ac9: ld de, wcd81 ld hl, $5c ld a, MOBILEAPI_01 call MobileAPI jp Function171c66 Function171ad7: xor a ld hl, $c608 ld bc, $66 call ByteFill ld de, $c608 ld a, MOBILEAPI_06 call MobileAPI jp Function171c66 Function171aec: ldh a, [rSVBK] push af ld a, $1 ldh [rSVBK], a farcall BattleTowerRoomMenu_Cleanup pop af ldh [rSVBK], a hlcoord 2, 6 ld a, $8 .asm_171b01 push af push hl xor a ld bc, $10 call ByteFill pop hl ld de, $14 add hl, de pop af dec a jr nz, .asm_171b01 hlcoord 2, 7 ld a, $3 ld de, $c608 .asm_171b1b push af push hl ld a, [de] and a jr z, .asm_171b34 ld a, [wcd4b] inc a ld [wcd4b], a push hl call Function171b42 pop hl ld bc, $ffec add hl, bc call Function171b42 .asm_171b34 pop hl ld bc, $14 add hl, bc add hl, bc add hl, bc pop af dec a jr nz, .asm_171b1b jp Function171c66 Function171b42: ld a, [de] inc de and a ret z sub $20 ld [hli], a jr Function171b42 Function171b4b: depixel 8, 2 ld a, SPRITE_ANIM_INDEX_EZCHAT_CURSOR call InitSpriteAnimStruct ld hl, SPRITEANIMSTRUCT_VAR1 add hl, bc ld a, $8 ld [hl], a depixel 8, 19 ld a, SPRITE_ANIM_INDEX_EZCHAT_CURSOR call InitSpriteAnimStruct ld hl, SPRITEANIMSTRUCT_VAR1 add hl, bc ld a, $9 ld [hl], a depixel 17, 14, 2, 0 ld a, SPRITE_ANIM_INDEX_EZCHAT_CURSOR call InitSpriteAnimStruct ld hl, SPRITEANIMSTRUCT_VAR1 add hl, bc ld a, $a ld [hl], a ld a, $4 ld [wcd23], a ld a, $8 ld [wcd24], a jp Function171c66 Function171b85: ld hl, hJoyPressed ld a, [hl] and $2 jp nz, Function171b9f ld a, [hl] and $1 jp nz, Function171bbd ld a, [hl] and $40 jr nz, asm_171ba5 ld a, [hl] and $80 jr nz, asm_171baf ret Function171b9f: ld a, $80 ld [wcd49], a ret asm_171ba5: ld a, [wcd4a] and a ret z dec a ld [wcd4a], a ret asm_171baf: ld a, [wcd4b] ld c, a ld a, [wcd4a] cp c ret z inc a ld [wcd4a], a ret Function171bbd: call PlayClickSFX ld a, $8 ld [wcd23], a xor a ld [wcd24], a jp Function171c66 Function171bcc: ld hl, hJoyPressed ld a, [hl] and $2 jp nz, Function171bdc ld a, [hl] and $1 jp nz, Function171beb ret Function171bdc: ld a, $4 ld [wcd23], a ld a, $8 ld [wcd24], a ld hl, wcd49 dec [hl] ret Function171beb: ld a, $5 call OpenSRAM ld a, [wcd4a] ld [$aa4a], a call CloseSRAM ld hl, MenuHeader_171c6b call LoadMenuHeader call MenuBox call MenuBoxCoord2Tile farcall ReloadMapPart hlcoord 1, 14 ld de, String_171c73 call PlaceString ld a, [wcd4a] cp $2 jr z, .asm_171c1f ld a, $8 jr .asm_171c21 .asm_171c1f ld a, $c .asm_171c21 ld [wcd24], a ld a, $1e ld [wcd4c], a call Function171c66 Function171c2c: ld hl, wcd4c dec [hl] ret nz call ExitMenu call ClearBGPalettes jr asm_171c60 Function171c39: ld a, $28 ld [wcd4c], a call Function171c66 Function171c41: ld hl, wcd4c dec [hl] ret nz call ClearBGPalettes farcall Stubbed_Function106462 farcall Function106464 ld a, $2 ld [wc303], a farcall DisplayMobileError asm_171c60: ld a, $80 ld [wcd49], a ret Function171c66: ld hl, wcd49 inc [hl] ret MenuHeader_171c6b: db MENU_BACKUP_TILES ; flags menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1 dw NULL db 0 ; default option String_171c73: db "モバイルセンターを けってい" next "しました@" Function171c87: call DisableLCD ld hl, AsciiFontGFX ld de, vTiles2 tile $00 ld bc, $6e0 call CopyBytes ld hl, PasswordSlowpokeLZ ld de, vTiles0 tile $00 call Decompress call EnableLCD ld hl, PasswordTopTilemap decoord 0, 0 ld bc, $168 call CopyBytes ld hl, MobilePasswordAttrmap decoord 0, 0, wAttrmap ld bc, $168 call CopyBytes hlcoord 3, 2 ld de, String_172e31 call PlaceString hlcoord 3, 16 ld de, String_172e3f call PlaceString ret Function171ccd: ldh a, [rSVBK] push af ld a, $5 ldh [rSVBK], a ld hl, MobilePasswordPalettes ld de, wBGPals1 ld bc, 8 palettes call CopyBytes ld hl, wOBPals1 palette 0 color 1 ld a, LOW(PALRGB_WHITE) ld [hli], a ld a, HIGH(PALRGB_WHITE) ld [hl], a call SetPalettes pop af ldh [rSVBK], a ret Function171cf0: xor a hlcoord 4, 15 ld [hli], a ld [hli], a ld a, [wcd4b] xor $1 ld [wcd4b], a and a jr nz, .shifted ld hl, PasswordBottomTilemap decoord 0, 7 ld bc, $8c call CopyBytes hlcoord 3, 16 ld de, String_172e3f jp PlaceString .shifted ld hl, PasswordShiftTilemap decoord 0, 7 ld bc, $8c call CopyBytes hlcoord 3, 16 ld de, String_172e4e jp PlaceString Function171d2b: call DisableLCD ld hl, AsciiFontGFX ld de, vTiles2 tile $00 ld bc, $6e0 call CopyBytes ld hl, PasswordSlowpokeLZ ld de, vTiles0 tile $00 call Decompress call EnableLCD ld hl, ChooseMobileCenterTilemap decoord 0, 0 ld bc, $168 call CopyBytes ld hl, ChooseMobileCenterAttrmap decoord 0, 0, wAttrmap ld bc, $168 call CopyBytes hlcoord 2, 2 ld de, String_172e5d call PlaceString hlcoord 14, 16 ld de, String_172e58 call PlaceString ret MobilePasswordPalettes: INCLUDE "gfx/mobile/mobile_password.pal" AsciiFontGFX: INCBIN "gfx/mobile/ascii_font.2bpp" PasswordTopTilemap: INCBIN "gfx/mobile/password_top.tilemap" PasswordBottomTilemap: INCBIN "gfx/mobile/password_bottom.tilemap" PasswordShiftTilemap: INCBIN "gfx/mobile/password_shift.tilemap" ChooseMobileCenterTilemap: INCBIN "gfx/mobile/mobile_center.tilemap" MobilePasswordAttrmap: INCBIN "gfx/mobile/password.attrmap" ChooseMobileCenterAttrmap: INCBIN "gfx/mobile/mobile_center.attrmap" PasswordSlowpokeLZ: INCBIN "gfx/pokedex/slowpoke.2bpp.lz" String_172e31: db "パスワード<WO>いれてください@" String_172e3f: db "きりかえ やめる けってい@" String_172e4e: db "きりかえ やめる " String_172e58: db "けってい@" String_172e5d: db "せつぞくする モバイルセンターを" next "えらんで ください@" Function172e78: ld a, $7f hlcoord 0, 0 ld bc, $168 call ByteFill ld a, $7 hlcoord 0, 0, wAttrmap ld bc, $168 call ByteFill call DisableLCD ld hl, Stadium2N64GFX ld de, vTiles2 tile $00 ld bc, $610 call CopyBytes call EnableLCD ld hl, Stadium2N64Tilemap decoord 0, 0 ld bc, $168 call CopyBytes ld hl, Stadium2N64Attrmap decoord 0, 0, wAttrmap ld bc, $168 call CopyBytes ret Function172eb9: ldh a, [rSVBK] push af ld a, $5 ldh [rSVBK], a ld hl, Palette_172edf ld de, wBGPals1 ld bc, 8 palettes call CopyBytes ld hl, Palette_172edf ld de, wBGPals2 ld bc, 8 palettes call CopyBytes call SetPalettes pop af ldh [rSVBK], a ret Palette_172edf: RGB 5, 12, 17 RGB 31, 31, 31 RGB 18, 25, 28 RGB 10, 17, 21 RGB 6, 13, 18 RGB 31, 31, 31 RGB 20, 26, 28 RGB 12, 19, 23 RGB 3, 10, 16 RGB 31, 31, 31 RGB 6, 13, 18 RGB 20, 26, 28 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 RGB 5, 5, 16 RGB 8, 19, 28 RGB 0, 0, 0 RGB 31, 31, 31 RGB 31, 31, 31 RGB 0, 0, 0 RGB 0, 0, 0 RGB 0, 0, 0 Stadium2N64GFX: INCBIN "gfx/mobile/stadium2_n64.2bpp" Stadium2N64Tilemap: if DEF(_CRYSTAL11) ; Crystal 1.1 corrupted this tilemap by treating $0a bytes as Unix newlines, ; and converting them to $0d $0a Windows newlines. INCBIN "gfx/mobile/stadium2_n64_corrupt.tilemap" else INCBIN "gfx/mobile/stadium2_n64.tilemap" endc Stadium2N64Attrmap: INCBIN "gfx/mobile/stadium2_n64.attrmap"