pokecrystal-board/mobile/mobile_42.asm

1764 lines
31 KiB
NASM
Raw Normal View History

add_mobiletradeanim: MACRO
\1_MobileTradeCmd:
dw \1
ENDM
mobiletradeanim: MACRO
db (\1_MobileTradeCmd - MobileTradeAnim_JumptableLoop.Jumptable) / 2
ENDM
2018-06-24 07:09:41 -07:00
MobileTradeAnimation_SendGivemonToGTS:
ld a, $80
ld [wcf65], a
2015-12-25 20:34:33 -08:00
ld de, .TradeAnimScript
jp RunMobileTradeAnim_NoFrontpics
2015-12-25 20:34:33 -08:00
.TradeAnimScript:
mobiletradeanim MobileTradeAnim_ShowPlayerMonForGTS
mobiletradeanim MobileTradeAnim_FadeToBlack
mobiletradeanim MobileTradeAnim_10
mobiletradeanim MobileTradeAnim_GiveTrademon1
mobiletradeanim MobileTradeAnim_06
mobiletradeanim MobileTradeAnim_0f
mobiletradeanim EndMobileTradeAnim
2015-12-25 20:34:33 -08:00
MobileTradeAnimation_RetrieveGivemonFromGTS:
ld a, $80
jr asm_108018
2018-06-24 07:09:41 -07:00
MobileTradeAnimation_ReceiveGetmonFromGTS:
ld a, $0
asm_108018:
ld [wcf65], a
2015-12-25 20:34:33 -08:00
ld de, .TradeAnimScript
jp RunMobileTradeAnim_NoFrontpics
2015-12-25 20:34:33 -08:00
.TradeAnimScript:
mobiletradeanim MobileTradeAnim_11
mobiletradeanim MobileTradeAnim_07
mobiletradeanim MobileTradeAnim_GetTrademon1
mobiletradeanim MobileTradeAnim_ShowOTMonFromGTS
mobiletradeanim EndMobileTradeAnim
2018-06-24 07:09:41 -07:00
Function108026:
ld a, $0
jr asm_10802c
2018-06-24 07:09:41 -07:00
Function10802a:
ld a, $1
asm_10802c:
ld [wcf65], a
2015-12-25 20:34:33 -08:00
ld de, .TradeAnimScript
jp RunMobileTradeAnim_Frontpics
2015-12-25 20:34:33 -08:00
.TradeAnimScript: ; trade
mobiletradeanim MobileTradeAnim_ShowPlayerMonToBeSent
mobiletradeanim MobileTradeAnim_FadeToBlack
mobiletradeanim MobileTradeAnim_02
mobiletradeanim MobileTradeAnim_GiveTrademon1
mobiletradeanim MobileTradeAnim_05
mobiletradeanim MobileTradeAnim_GetTrademon1
mobiletradeanim MobileTradeAnim_ShowOTMonFromTrade
mobiletradeanim EndMobileTradeAnim
2018-06-24 07:09:41 -07:00
Function10803d:
ld a, $0
ld [wcf65], a
2015-12-25 20:34:33 -08:00
ld de, .TradeAnimScript
jp RunMobileTradeAnim_NoFrontpics
2015-12-25 20:34:33 -08:00
.TradeAnimScript:
mobiletradeanim MobileTradeAnim_11
mobiletradeanim MobileTradeAnim_07
mobiletradeanim MobileTradeAnim_GetTrademon1
mobiletradeanim MobileTradeAnim_GetOddEgg
mobiletradeanim EndMobileTradeAnim
2018-06-24 07:09:41 -07:00
Function10804d:
ld a, $0
ld [wcf65], a
2015-12-25 20:34:33 -08:00
ld de, .TradeAnimScript
jp RunMobileTradeAnim_NoFrontpics
2015-12-25 20:34:33 -08:00
.TradeAnimScript:
mobiletradeanim MobileTradeAnim_11
mobiletradeanim MobileTradeAnim_ShowOTMonFromGTS
mobiletradeanim EndMobileTradeAnim
2018-06-24 07:09:41 -07:00
RunMobileTradeAnim_Frontpics:
2017-12-09 11:22:58 -08:00
ld hl, wTradeAnimAddress
ld [hl], e
inc hl
ld [hl], d
ldh a, [hMapAnims]
push af
xor a
ldh [hMapAnims], a
2018-01-23 14:39:09 -08:00
ld hl, wVramState
ld a, [hl]
push af
res 0, [hl]
2018-01-23 14:39:09 -08:00
ld hl, wOptions
ld a, [hl]
push af
set NO_TEXT_SCROLL, [hl]
call Function1080b7
.loop
call MobileTradeAnim_JumptableLoop
jr nc, .loop
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
pop af
2018-01-23 14:39:09 -08:00
ld [wVramState], a
pop af
ldh [hMapAnims], a
ret
2018-06-24 07:09:41 -07:00
RunMobileTradeAnim_NoFrontpics:
2017-12-09 11:22:58 -08:00
ld hl, wTradeAnimAddress
ld [hl], e
inc hl
ld [hl], d
ldh a, [hMapAnims]
push af
xor a
ldh [hMapAnims], a
2018-01-23 14:39:09 -08:00
ld hl, wVramState
ld a, [hl]
push af
res 0, [hl]
2018-01-23 14:39:09 -08:00
ld hl, wOptions
ld a, [hl]
push af
set NO_TEXT_SCROLL, [hl]
call Function108157
.loop
call MobileTradeAnim_JumptableLoop
jr nc, .loop
pop af
2018-01-23 14:39:09 -08:00
ld [wOptions], a
pop af
2018-01-23 14:39:09 -08:00
ld [wVramState], a
pop af
ldh [hMapAnims], a
ret
2018-06-24 07:09:41 -07:00
Function1080b7:
xor a
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
call DisableLCD
2017-12-28 04:32:33 -08:00
call MobileTradeAnim_ClearTiles
call MobileTradeAnim_ClearBGMap
2015-11-04 13:14:27 -08:00
call LoadStandardFont
call LoadFontsBattleExtra
ld a, $1
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call Decompress
ld a, $0
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeSpritesGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $20
call Decompress
call EnableLCD
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
call DelayFrame
ld de, TradeBallGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradeBallGFX), 6
call Request2bpp
ld de, TradePoofGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $06
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradePoofGFX), 12
call Request2bpp
xor a
ld hl, wSpriteAnimDict
ld [hli], a
ld [hl], $0
ld a, [wPlayerTrademonSpecies]
ld hl, wPlayerTrademonDVs
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $30
call MobileTradeAnim_GetFrontpic
ld a, [wOTTrademonSpecies]
ld hl, wOTTrademonDVs
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $31
call MobileTradeAnim_GetFrontpic
ld a, [wPlayerTrademonSpecies]
ld de, wPlayerTrademonSpeciesName
call MobileTradeAnim_InitSpeciesName
ld a, [wOTTrademonSpecies]
ld de, wOTTrademonSpeciesName
call MobileTradeAnim_InitSpeciesName
xor a
call Function108b98
call Function108af4
ret
2018-06-24 07:09:41 -07:00
Function108157:
xor a
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
call DisableLCD
2017-12-28 04:32:33 -08:00
call MobileTradeAnim_ClearTiles
call MobileTradeAnim_ClearBGMap
2015-11-04 13:14:27 -08:00
call LoadStandardFont
call LoadFontsBattleExtra
call EnableLCD
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
xor a
ld hl, wSpriteAnimDict
ld [hli], a
ld [hl], $0
call DelayFrame
ld a, [wPlayerTrademonSpecies]
ld de, wPlayerTrademonSpeciesName
call MobileTradeAnim_InitSpeciesName
ld a, [wOTTrademonSpecies]
ld de, wOTTrademonSpeciesName
call MobileTradeAnim_InitSpeciesName
xor a
call Function108b98
call Function108af4
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ClearTiles:
ld a, $1
ldh [rVBK], a
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
ld bc, 3 * $80 tiles
xor a
call ByteFill
ld a, $0
ldh [rVBK], a
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
ld bc, 3 * $80 tiles
xor a
call ByteFill
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ClearBGMap:
ld a, $1
ldh [rVBK], a
2015-11-20 08:47:52 -08:00
hlbgcoord 0, 0
ld bc, 2 * BG_MAP_HEIGHT * BG_MAP_WIDTH
ld a, $0
call ByteFill
ld a, $0
ldh [rVBK], a
2015-11-20 08:47:52 -08:00
hlbgcoord 0, 0
ld bc, 2 * BG_MAP_HEIGHT * BG_MAP_WIDTH
ld a, $7f
call ByteFill
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GetFrontpic:
push de
push af
predef GetUnownLetter
pop af
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld [wCurSpecies], a
call GetBaseData
pop de
predef GetMonFrontpic
ret
2018-06-24 07:09:41 -07:00
Function108201:
push de
push af
predef GetUnownLetter
pop af
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld [wCurSpecies], a
call GetBaseData
pop de
predef GetAnimatedFrontpic
ret
Function108219: ; unreferenced
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
hlcoord 7, 2
ld d, $0
2015-11-07 06:48:32 -08:00
ld e, ANIM_MON_TRADE
predef AnimateFrontpic
ret
2018-06-24 07:09:41 -07:00
Function108229:
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
hlcoord 7, 2
ld d, $0
2015-11-07 06:48:32 -08:00
ld e, ANIM_MON_TRADE
predef LoadMonAnimation
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_InitSpeciesName:
push de
ld [wNamedObjectIndexBuffer], a
call GetPokemonName
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer1
pop de
2018-01-20 09:25:55 -08:00
ld bc, MON_NAME_LENGTH
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_JumptableLoop:
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
bit 7, a
jr nz, .StopAnim
call .ExecuteMobileTradeAnimCommand
call DelayFrame
and a
ret
.StopAnim:
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
2015-11-04 13:14:27 -08:00
call LoadStandardFont
call LoadFontsBattleExtra
farcall Stubbed_Function106462
2017-12-24 09:47:30 -08:00
farcall Function106464
scf
ret
2018-06-24 07:09:41 -07:00
.ExecuteMobileTradeAnimCommand:
jumptable .Jumptable, wJumptableIndex
2018-06-24 07:09:41 -07:00
.Jumptable:
add_mobiletradeanim GetMobileTradeAnimByte ; 00
add_mobiletradeanim MobileTradeAnim_ShowPlayerMonToBeSent ; 01
add_mobiletradeanim MobileTradeAnim_02 ; 02
add_mobiletradeanim MobileTradeAnim_GiveTrademon1 ; 03
add_mobiletradeanim MobileTradeAnim_GiveTrademon2 ; 04
add_mobiletradeanim MobileTradeAnim_05 ; 05
add_mobiletradeanim MobileTradeAnim_06 ; 06
add_mobiletradeanim MobileTradeAnim_07 ; 07
add_mobiletradeanim MobileTradeAnim_GetTrademon1 ; 08
add_mobiletradeanim MobileTradeAnim_GetTrademon2 ; 09
add_mobiletradeanim MobileTradeAnim_GetTrademon3 ; 0a
add_mobiletradeanim MobileTradeAnim_ShowOTMonFromTrade ; 0b
add_mobiletradeanim EndMobileTradeAnim ; 0c
add_mobiletradeanim MobileTradeAnim_ShowPlayerMonForGTS ; 0d
add_mobiletradeanim MobileTradeAnim_ShowOTMonFromGTS ; 0e
add_mobiletradeanim MobileTradeAnim_0f ; 0f
add_mobiletradeanim MobileTradeAnim_10 ; 10
add_mobiletradeanim MobileTradeAnim_11 ; 11
add_mobiletradeanim MobileTradeAnim_FadeToBlack ; 12
add_mobiletradeanim MobileTradeAnim_GetOddEgg ; 13 get odd egg
2018-06-24 07:09:41 -07:00
MobileTradeAnim_Next:
2015-10-24 16:49:19 -07:00
ld hl, wJumptableIndex
inc [hl]
ret
2018-06-24 07:09:41 -07:00
GetMobileTradeAnimByte:
2017-12-09 11:22:58 -08:00
ld hl, wTradeAnimAddress
ld e, [hl]
inc hl
ld d, [hl]
ld a, [de]
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
inc de
ld [hl], d
dec hl
ld [hl], e
ret
2018-06-24 07:09:41 -07:00
EndMobileTradeAnim:
2015-10-24 16:49:19 -07:00
ld hl, wJumptableIndex
set 7, [hl]
ret
2018-06-24 07:09:41 -07:00
WaitMobileTradeSpriteAnims:
.loop
push bc
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
pop bc
call DelayFrame
dec c
jr nz, .loop
ret
2018-06-24 07:09:41 -07:00
Function1082db:
.loop
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
farcall SetUpPokeAnim
farcall HDMATransferTilemapToWRAMBank3
jr nc, .loop
ret
2018-06-24 07:09:41 -07:00
Function1082f0:
.loop
call Function108b78
call DelayFrame
dec c
jr nz, .loop
ret
2018-06-24 07:09:41 -07:00
Function1082fa:
.loop
call Function108b78
push hl
push bc
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
pop bc
pop hl
call DelayFrame
dec c
jr nz, .loop
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ShowPlayerMonToBeSent:
ld de, MUSIC_EVOLUTION
call PlayMusic2
ld a, $80
ldh [hSCX], a
xor a
ldh [hSCY], a
ld a, $87
ldh [hWX], a
ld a, $50
ldh [hWY], a
call MobileTradeAnim_DisplayMonToBeSent
ld a, [wPlayerTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
call Function10895e
ld a, [wPlayerTrademonDVs]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs], a
ld a, [wPlayerTrademonDVs + 1]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs + 1], a
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
call GetSGBLayout
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
call WaitBGMap
.loop
ldh a, [hWX]
cp $7
jr z, .okay
sub $4
ldh [hWX], a
ldh a, [hSCX]
sub $4
ldh [hSCX], a
call DelayFrame
jr .loop
.okay
ld a, $7
ldh [hWX], a
xor a
ldh [hSCX], a
ld a, [wPlayerTrademonSpecies]
call GetCryIndex
jr c, .skip_cry
ld e, c
ld d, b
call PlayCry
.skip_cry
ld c, 80
call DelayFrames
call Function108bec
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2017-12-12 09:18:11 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_SENT_BALL
call InitSpriteAnimStruct
ld de, SFX_BALL_POOF
call PlaySFX
hlcoord 0, 0
ld bc, 12 * SCREEN_WIDTH
2015-11-13 07:48:49 -08:00
ld a, " "
call ByteFill
ld c, 80
call WaitMobileTradeSpriteAnims
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ShowOTMonFromTrade:
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
call DisableLCD
call MobileTradeAnim_ClearBGMap
ld a, [wOTTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld hl, wOTTrademonDVs
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call Function108201
call EnableLCD
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2017-12-12 09:18:11 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_OT_BALL
call InitSpriteAnimStruct
call Function108b45
ld a, $1
call Function108b98
call Function108af4
ld c, 48
call WaitMobileTradeSpriteAnims
ld de, SFX_BALL_POOF
call PlaySFX
call MobileTradeAnim_DisplayReceivedMon
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $50
ldh [hWY], a
ld a, [wOTTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld a, [wOTTrademonDVs]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs], a
ld a, [wOTTrademonDVs + 1]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs + 1], a
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
call GetSGBLayout
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
call Function108963
ld a, [wOTTrademonSpecies]
call Function108229
call Function1082db
call Function108c16
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ShowPlayerMonForGTS:
ld de, MUSIC_EVOLUTION
call PlayMusic2
ld a, $80
ldh [hSCX], a
xor a
ldh [hSCY], a
ld a, $87
ldh [hWX], a
ld a, $50
ldh [hWY], a
call MobileTradeAnim_DisplayMonToBeSent
ld a, [wPlayerTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld hl, wPlayerTrademonDVs
call Function10898a
call DelayFrame
ld de, TradeBallGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradeBallGFX), 6
call Request2bpp
ld de, TradePoofGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $06
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradePoofGFX), 12
call Request2bpp
ld a, [wPlayerTrademonDVs]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs], a
ld a, [wPlayerTrademonDVs + 1]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs + 1], a
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
call GetSGBLayout
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
call WaitBGMap
.loop
ldh a, [hWX]
cp $7
jr z, .done
sub $4
ldh [hWX], a
ldh a, [hSCX]
sub $4
ldh [hSCX], a
call DelayFrame
jr .loop
.done
ld a, $7
ldh [hWX], a
xor a
ldh [hSCX], a
ld a, [wPlayerTrademonSpecies]
call GetCryIndex
jr c, .skip_cry
ld e, c
ld d, b
call PlayCry
.skip_cry
ld c, 80
call DelayFrames
call Function108c2b
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2017-12-12 09:18:11 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_SENT_BALL
call InitSpriteAnimStruct
ld de, SFX_BALL_POOF
call PlaySFX
hlcoord 0, 0
ld bc, 12 * SCREEN_WIDTH
2015-11-13 07:48:49 -08:00
ld a, " "
call ByteFill
ld c, 80
call WaitMobileTradeSpriteAnims
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ShowOTMonFromGTS:
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
call DisableLCD
call MobileTradeAnim_ClearBGMap
ld a, [wOTTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld hl, wOTTrademonDVs
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call Function108201
call EnableLCD
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
call DelayFrame
ld de, TradeBallGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradeBallGFX), 6
call Request2bpp
ld de, TradePoofGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $06
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradePoofGFX), 12
call Request2bpp
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2017-12-12 09:18:11 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_OT_BALL
call InitSpriteAnimStruct
call Function108b45
ld a, $1
call Function108b98
call Function108af4
ld c, 48
call WaitMobileTradeSpriteAnims
ld de, SFX_BALL_POOF
call PlaySFX
call MobileTradeAnim_DisplayReceivedMon
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $50
ldh [hWY], a
ld a, [wOTTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld a, [wOTTrademonDVs]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs], a
ld a, [wOTTrademonDVs + 1]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs + 1], a
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
call GetSGBLayout
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
ld a, [wOTTrademonSpecies]
ld hl, wOTTrademonDVs
call Function10898a
ld a, [wOTTrademonSpecies]
call Function108229
call Function1082db
call Function108c40
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GetOddEgg:
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
call DisableLCD
call MobileTradeAnim_ClearBGMap
ld a, [wOTTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld hl, wOTTrademonDVs
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call Function108201
call EnableLCD
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
call DelayFrame
ld de, TradeBallGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradeBallGFX), 6
call Request2bpp
ld de, TradePoofGFX
2017-12-28 04:32:33 -08:00
ld hl, vTiles0 tile $06
2018-01-14 16:43:35 -08:00
lb bc, BANK(TradePoofGFX), 12
call Request2bpp
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2017-12-12 09:18:11 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_OT_BALL
call InitSpriteAnimStruct
call Function108b45
ld a, $1
call Function108b98
call Function108af4
ld c, 48
call WaitMobileTradeSpriteAnims
ld de, SFX_BALL_POOF
call PlaySFX
call Function108a33
xor a
ldh [hSCX], a
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $50
ldh [hWY], a
ld a, [wOTTrademonSpecies]
2018-01-23 14:39:09 -08:00
ld [wCurPartySpecies], a
ld a, [wOTTrademonDVs]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs], a
ld a, [wOTTrademonDVs + 1]
2018-01-23 14:39:09 -08:00
ld [wTempMonDVs + 1], a
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
call GetSGBLayout
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
ld a, [wOTTrademonSpecies]
ld hl, wOTTrademonDVs
call Function10898a
ld a, [wOTTrademonSpecies]
call Function108229
call Function1082db
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_02:
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
xor a
ldh [hBGMapMode], a
call DisableLCD
call MobileTradeAnim_ClearBGMap
call Function108c80
call Function108c6d
call EnableLCD
ld a, $c
ldh [hSCX], a
ld a, $78
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeBGPalettes
2018-01-01 06:08:21 -08:00
ld de, wBGPals1
ld bc, 8 palettes
call CopyBytes
pop af
ldh [rSVBK], a
call LoadMobileAdapterPalette
call Function108af4
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_10:
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
xor a
ldh [hBGMapMode], a
call DisableLCD
call MobileTradeAnim_ClearBGMap
ld a, $1
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call Decompress
ld a, $0
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeSpritesGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $20
call Decompress
call Function108c80
call Function108c6d
call EnableLCD
ld a, $c
ldh [hSCX], a
ld a, $78
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeBGPalettes
2018-01-01 06:08:21 -08:00
ld de, wBGPals1
ld bc, 8 palettes
call CopyBytes
pop af
ldh [rSVBK], a
call LoadMobileAdapterPalette
call Function108af4
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_11:
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
xor a
ldh [hBGMapMode], a
call DisableLCD
ld a, $1
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call Decompress
ld a, $0
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeSpritesGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $20
call Decompress
call Function108c80
call Function108c6d
call EnableLCD
ld a, $80
ldh [hSCX], a
ld a, $90
ldh [hSCY], a
ld a, $7
ldh [hWX], a
ld a, $90
ldh [hWY], a
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeBGPalettes
2018-01-01 06:08:21 -08:00
ld de, wBGPals1
ld bc, 8 palettes
call CopyBytes
pop af
ldh [rSVBK], a
call LoadMobileAdapterPalette
call Function108af4
call Function108b5a
ld a, $e0
ldh [hSCX], a
ld de, MUSIC_EVOLUTION
call PlayMusic2
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GiveTrademon1:
ld de, SFX_GIVE_TRADEMON
call PlaySFX
ld c, 40
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 palette 6
call Function1082f0
call Function108af4
.loop
ldh a, [hSCX]
cp $e0
jr z, .loop2
dec a
dec a
ldh [hSCX], a
cp $f8
jr nz, .next
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_CABLE_BULGE
call InitSpriteAnimStruct
.next
ld c, 1
call WaitMobileTradeSpriteAnims
jr .loop
.loop2
ldh a, [hSCY]
cp $f8
jr z, .done
dec a
dec a
ldh [hSCY], a
cp $40
jr z, .init
cp $30
jr z, .delete
cp $68
jr z, .replace
jr .next2
.init
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_CABLE_BULGE
call InitSpriteAnimStruct
xor a
call Function108ad4
jr .next2
.delete
call MobileTradeAnim_DeleteSprites
jr .next2
.replace
call MobileTradeAnim_DeleteSprites
ld a, $1
call Function108ad4
.next2
ld c, 1
call WaitMobileTradeSpriteAnims
jr .loop2
.done
call MobileTradeAnim_Next
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GiveTrademon2:
ld c, 40
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 + 1 palettes
call Function1082f0
call Function108af4
call Function108b5a
2015-11-18 10:01:55 -08:00
depixel 9, 10, 2, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_PING
call InitSpriteAnimStruct
ld de, SFX_FORESIGHT
call PlaySFX
ld c, 10
call WaitMobileTradeSpriteAnims
xor a
ld [wcf64], a
2015-11-18 10:01:55 -08:00
depixel 9, 10, 2, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_SENT_PULSE
call InitSpriteAnimStruct
.loop
ldh a, [hSCY]
cp $90
jr z, .done
sub $8
ldh [hSCY], a
ld c, 1
call WaitMobileTradeSpriteAnims
jr .loop
.done
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_05:
ld c, 40
call WaitMobileTradeSpriteAnims
ld a, $1
ld [wcf64], a
ld de, SFX_SHARPEN
call PlaySFX
ld c, 60
call WaitMobileTradeSpriteAnims
2015-11-18 10:01:55 -08:00
depixel 30, 10, 2, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_OT_PULSE
call InitSpriteAnimStruct
call GetMobileTradeAnimByte
ld de, SFX_THROW_BALL
call PlaySFX
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_06:
ld c, 40
call WaitMobileTradeSpriteAnims
ld a, $1
ld [wcf64], a
ld de, SFX_SHARPEN
call PlaySFX
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_07:
2015-11-13 07:48:49 -08:00
ld c, 80
call DelayFrames
2015-11-18 10:01:55 -08:00
depixel 30, 10, 2, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_OT_PULSE
call InitSpriteAnimStruct
call GetMobileTradeAnimByte
ld de, SFX_THROW_BALL
call PlaySFX
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GetTrademon1:
ld c, 40
call WaitMobileTradeSpriteAnims
.loop
ldh a, [hSCY]
cp $f8
jr z, .done
add $8
ldh [hSCY], a
ld c, 1
call WaitMobileTradeSpriteAnims
jr .loop
.done
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
2015-11-18 10:01:55 -08:00
depixel 9, 10, 2, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_PING
call InitSpriteAnimStruct
ld de, SFX_GLASS_TING_2
call PlaySFX
call Function108af4
call MobileTradeAnim_Next
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GetTrademon2:
ld c, 20
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 + 1 palettes
call Function1082fa
ld de, SFX_GIVE_TRADEMON
call PlaySFX
ld c, 20
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 + 1 palettes
call Function1082fa
call Function108af4
.asm_1088ad
ldh a, [hSCY]
cp $78
jr z, .asm_1088ee
inc a
inc a
ldh [hSCY], a
cp $30
jr z, .asm_1088c5
cp $40
jr z, .asm_1088dd
cp $68
jr z, .asm_1088cf
jr .asm_1088e7
.asm_1088c5
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_CABLE_BULGE
call InitSpriteAnimStruct
jr .asm_1088e7
.asm_1088cf
2015-11-18 10:01:55 -08:00
depixel 10, 11, 4, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_MOBILE_TRADE_CABLE_BULGE
call InitSpriteAnimStruct
xor a
call Function108ad4
jr .asm_1088e7
.asm_1088dd
call MobileTradeAnim_DeleteSprites
ld a, $1
call Function108ad4
jr .asm_1088e7
.asm_1088e7
ld c, 1
call WaitMobileTradeSpriteAnims
jr .asm_1088ad
.asm_1088ee
ldh a, [hSCX]
cp $c
jr z, .asm_108906
inc a
inc a
ldh [hSCX], a
cp -8
jr nz, .asm_1088e7
call MobileTradeAnim_DeleteSprites
ld c, 1
call WaitMobileTradeSpriteAnims
jr .asm_1088ee
.asm_108906
call MobileTradeAnim_Next
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_GetTrademon3:
ld c, 40
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 palette 6
call Function1082f0
call Function108af4
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_0f:
ld c, 40
call WaitMobileTradeSpriteAnims
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
call ClearSprites
call ClearTilemap
call DisableLCD
2017-12-28 04:32:33 -08:00
call MobileTradeAnim_ClearTiles
call MobileTradeAnim_ClearBGMap
call EnableLCD
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_FadeToBlack:
.loop
ldh a, [rBGP]
and a
jr z, .blank
sla a
sla a
call DmgToCgbBGPals
2015-12-09 08:38:40 -08:00
call DmgToCgbObjPal0
ld c, 4
call DelayFrames
jr .loop
.blank
xor a
call DmgToCgbBGPals
2015-12-09 08:38:40 -08:00
call DmgToCgbObjPal0
call GetMobileTradeAnimByte
ret
2018-06-24 07:09:41 -07:00
Function10895e:
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $30
jr asm_108966
Function108963:
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $31
2018-10-24 12:33:18 -07:00
asm_108966:
call DelayFrame
2017-12-28 04:32:33 -08:00
ld hl, vTiles2
lb bc, BANK(TradeGameBoyLZ), $31
call Request2bpp
call WaitTop
call MobileTradeAnim_ClearTilemap
hlcoord 7, 2
xor a
ldh [hGraphicStartTile], a
lb bc, 7, 7
predef PlaceGraphic
call WaitBGMap
ret
2018-06-24 07:09:41 -07:00
Function10898a:
2017-12-28 04:32:33 -08:00
ld de, vTiles2
call MobileTradeAnim_GetFrontpic
call WaitTop
call MobileTradeAnim_ClearTilemap
hlcoord 7, 2
xor a
ldh [hGraphicStartTile], a
lb bc, 7, 7
predef PlaceGraphic
call WaitBGMap
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_DisplayMonToBeSent:
ld de, wPlayerTrademonSpecies
ld a, [de]
cp EGG
jr z, MobileTradeAnim_DisplayEggData
call MobileTradeAnim_LoadMonTemplate
ld de, wPlayerTrademonSpecies
call MobileTradeAnim_MonDisplay_PrintSpeciesNumber
ld de, wPlayerTrademonSpeciesName
call MobileTradeAnim_MonDisplay_PrintSpeciesName
ld a, [wPlayerTrademonCaughtData]
ld de, wPlayerTrademonOTName
call MobileTradeAnim_MonDisplay_PrintOTNameAndGender
ld de, wPlayerTrademonID
call MobileTradeAnim_MonDisplay_PrintIDNumber
call MobileTradeAnim_MonDisplay_UpdateBGMap
ret
MobileTradeAnim_DisplayReceivedMon:
ld de, wOTTrademonSpecies
ld a, [de]
cp EGG
jr z, MobileTradeAnim_DisplayEggData
call MobileTradeAnim_LoadMonTemplate
ld de, wOTTrademonSpecies
call MobileTradeAnim_MonDisplay_PrintSpeciesNumber
ld de, wOTTrademonSpeciesName
call MobileTradeAnim_MonDisplay_PrintSpeciesName
ld a, [wOTTrademonCaughtData]
ld de, wOTTrademonOTName
call MobileTradeAnim_MonDisplay_PrintOTNameAndGender
ld de, wOTTrademonID
call MobileTradeAnim_MonDisplay_PrintIDNumber
call MobileTradeAnim_MonDisplay_UpdateBGMap
ret
MobileTradeAnim_DisplayEggData:
call WaitTop
call MobileTradeAnim_ClearTilemap
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap1)
ldh [hBGMapAddress + 1], a
hlcoord 5, 0
ld b, 6
ld c, 9
2019-04-08 05:15:10 -07:00
call Textbox
hlcoord 6, 2
ld de, .EggTemplate
call PlaceString
call MobileTradeAnim_MonDisplay_UpdateBGMap
ret
2018-06-24 07:09:41 -07:00
.EggTemplate:
db "タマゴ"
next "おや/"
next "<ID>№<DOT>"
db "@"
2018-06-24 07:09:41 -07:00
Function108a33:
call WaitTop
call MobileTradeAnim_ClearTilemap
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap1)
ldh [hBGMapAddress + 1], a
hlcoord 5, 0
ld b, 6
ld c, 9
2019-04-08 05:15:10 -07:00
call Textbox
hlcoord 7, 4
ld de, .OddEgg
call PlaceString
call MobileTradeAnim_MonDisplay_UpdateBGMap
ret
2018-06-24 07:09:41 -07:00
.OddEgg:
db "なぞのタマゴ@"
2018-06-24 07:09:41 -07:00
MobileTradeAnim_LoadMonTemplate:
call WaitTop
call MobileTradeAnim_ClearTilemap
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap1)
ldh [hBGMapAddress + 1], a
hlcoord 4, 0
ld b, 6
ld c, 10
2019-04-08 05:15:10 -07:00
call Textbox
hlcoord 5, 0
ld de, .MonTemplate
call PlaceString
ret
2018-06-24 07:09:41 -07:00
.MonTemplate:
db "─ №<DOT>"
next ""
next "おや/"
2017-12-09 16:41:03 -08:00
next "<ID>№<DOT>"
db "@"
2018-06-24 07:09:41 -07:00
MobileTradeAnim_MonDisplay_UpdateBGMap:
call WaitBGMap
call WaitTop
2017-12-28 04:32:33 -08:00
ld a, HIGH(vBGMap0)
ldh [hBGMapAddress + 1], a
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_MonDisplay_PrintSpeciesNumber:
hlcoord 9, 0
lb bc, PRINTNUM_LEADINGZEROS | 1, 3
call PrintNum
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_MonDisplay_PrintSpeciesName:
hlcoord 5, 2
call PlaceString
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_MonDisplay_PrintOTNameAndGender:
cp $3
jr c, .got_gender
xor a
.got_gender
push af
hlcoord 8, 4
call PlaceString
inc bc
pop af
ld hl, .GenderChars
ld d, 0
ld e, a
add hl, de
ld a, [hl]
ld [bc], a
ret
2018-06-24 07:09:41 -07:00
.GenderChars:
db " "
db "♂"
db "♀"
2018-06-24 07:09:41 -07:00
MobileTradeAnim_MonDisplay_PrintIDNumber:
hlcoord 8, 6
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
call PrintNum
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_ClearTilemap:
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, " "
call ByteFill
ret
2018-06-24 07:09:41 -07:00
Function108ad4:
and a
jr z, .asm_108adc
2020-02-27 11:33:30 -08:00
ld de, MobileCable2GFX
jr .asm_108adf
.asm_108adc
2020-02-27 11:33:30 -08:00
ld de, MobileCable1GFX
.asm_108adf
ld a, $1
ldh [rVBK], a
2017-12-28 04:32:33 -08:00
ld hl, vTiles2 tile $4a
2020-02-27 11:33:30 -08:00
lb bc, BANK(MobileCable1GFX), 16 ; aka BANK(MobileCable2GFX)
call Get2bppViaHDMA
call DelayFrame
ld a, $0
ldh [rVBK], a
ret
2018-06-24 07:09:41 -07:00
Function108af4:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld a, [wcf65]
and $1
2020-02-27 11:33:30 -08:00
jr z, .copy_MobileTradeOB1Palettes
ld hl, MobileTradeOB2Palettes
2018-01-01 06:08:21 -08:00
ld de, wOBPals1
ld bc, 8 palettes
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeOB2Palettes
2018-01-01 06:08:21 -08:00
ld de, wOBPals2
ld bc, 8 palettes
call CopyBytes
jr .done_copy
2020-02-27 11:33:30 -08:00
.copy_MobileTradeOB1Palettes
ld hl, MobileTradeOB1Palettes
2018-01-01 06:08:21 -08:00
ld de, wOBPals1
ld bc, 8 palettes
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeOB1Palettes
2018-01-01 06:08:21 -08:00
ld de, wOBPals2
ld bc, 8 palettes
call CopyBytes
.done_copy
pop af
ldh [rSVBK], a
ld a, %11100100 ; 3,2,1,0
2015-12-09 08:38:40 -08:00
call DmgToCgbObjPal0
ld a, %11100100 ; 3,2,1,0
call DmgToCgbBGPals
call DelayFrame
ret
2018-06-24 07:09:41 -07:00
Function108b45:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld de, PALRGB_WHITE
2018-01-01 06:08:21 -08:00
ld hl, wBGPals1
ld a, e
ld [hli], a
ld d, a
ld [hli], a
pop af
ldh [rSVBK], a
ret
2018-06-24 07:09:41 -07:00
Function108b5a:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld de, palred 18 + palgreen 31 + palblue 15
2018-01-01 06:08:21 -08:00
ld hl, wBGPals2 + 4 palettes
ld c, $10
.loop
ld a, e
ld [hli], a
ld a, d
ld [hli], a
dec c
jr nz, .loop
pop af
ldh [rSVBK], a
2020-08-03 14:41:01 -07:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
2018-06-24 07:09:41 -07:00
Function108b78:
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld a, c
and $2
jr z, .Orange
ld de, PALRGB_WHITE
jr .load_pal
.Orange:
ld de, palred 31 + palgreen 15 + palblue 1
.load_pal
ld a, e
ld [hli], a
ld a, d
ld [hld], a
pop af
ldh [rSVBK], a
2020-08-03 14:41:01 -07:00
ld a, TRUE
ldh [hCGBPalUpdate], a
ret
Palette_108b98:
; removed
2018-06-24 07:09:41 -07:00
Function108b98:
ld d, a
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld a, [wcf65]
and $1
xor d
jr z, .asm_108bad
ld hl, Palette_108b98 + 1 palettes
jr .asm_108bb0
.asm_108bad
ld hl, Palette_108b98
.asm_108bb0
2018-01-01 06:08:21 -08:00
ld de, wBGPals1 + 7 palettes
ld bc, 8 palettes
call CopyBytes
pop af
ldh [rSVBK], a
ret
2018-06-24 07:09:41 -07:00
MobileTradeAnim_DeleteSprites:
2017-12-24 09:47:30 -08:00
farcall DeinitializeAllSprites
call ClearSprites
ret
2020-10-22 09:55:46 -07:00
MobileTradeAnim_AnimateSentPulse:
ld a, [wcf64]
and a
ret z
ld hl, SPRITEANIMSTRUCT_YCOORD
add hl, bc
ld a, [hl]
cp -1 * 8 - 6
jr z, .delete
sub 1 * 8
ld [hl], a
ret
.delete
2017-12-24 09:47:30 -08:00
farcall DeinitializeSprite
ret
2020-10-22 09:55:46 -07:00
MobileTradeAnim_AnimateOTPulse:
ld hl, SPRITEANIMSTRUCT_YCOORD
add hl, bc
ld a, [hl]
cp 9 * 8 + 2
ret z
add 1 * 8
ld [hl], a
ret
2018-06-24 07:09:41 -07:00
Function108bec:
ld a, $90
ldh [hWY], a
ld hl, .MobilePlayerWillTradeMonText
call PrintText
ld c, 80
call DelayFrames
ld hl, .MobileForPartnersMonText
call PrintText
ld c, 80
call DelayFrames
ret
.MobilePlayerWillTradeMonText:
text_far _MobilePlayerWillTradeMonText
text_end
.MobileForPartnersMonText:
text_far _MobileForPartnersMonText
text_end
.MobilePlayersMonTradeText: ; unreferenced
text_far _MobilePlayersMonTradeText
text_end
2018-06-24 07:09:41 -07:00
Function108c16:
ld a, $90
ldh [hWY], a
ld hl, .MobileTakeGoodCareOfMonText
call PrintText
ld c, 80
call DelayFrames
ret
.MobileTakeGoodCareOfMonText:
text_far _MobileTakeGoodCareOfMonText
text_end
2018-06-24 07:09:41 -07:00
Function108c2b:
ld a, $90
ldh [hWY], a
ld hl, .MobilePlayersMonTrade2Text
call PrintText
ld c, 80
call DelayFrames
ret
.MobilePlayersMonTrade2Text:
text_far _MobilePlayersMonTrade2Text
text_end
2018-06-24 07:09:41 -07:00
Function108c40:
ld a, $90
ldh [hWY], a
ld a, [wcf65]
2015-12-25 20:34:33 -08:00
and %10000000
jr z, .Getmon
ld hl, .MobileTradeCameBackText
call PrintText
ld c, 80
call DelayFrames
ret
.Getmon:
ld hl, .MobileTakeGoodCareOfText
call PrintText
ld c, 80
call DelayFrames
ret
.MobileTakeGoodCareOfText:
text_far _MobileTakeGoodCareOfText
text_end
.MobileTradeCameBackText:
text_far _MobileTradeCameBackText
text_end
2018-06-24 07:09:41 -07:00
Function108c6d:
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeTilemapLZ
2015-11-20 08:47:52 -08:00
debgcoord 0, 0
call Decompress
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeTilemapLZ
2017-12-28 04:32:33 -08:00
debgcoord 0, 0, vBGMap1
call Decompress
ret
2018-06-24 07:09:41 -07:00
Function108c80:
ld a, $1
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeAttrmapLZ
2015-11-20 08:47:52 -08:00
debgcoord 0, 0
call Decompress
2020-02-27 11:33:30 -08:00
ld hl, MobileTradeAttrmapLZ
2017-12-28 04:32:33 -08:00
debgcoord 0, 0, vBGMap1
call Decompress
ld a, $0
ldh [rVBK], a
ret
DebugMobileTrade: ; unreferenced
2017-12-21 08:56:33 -08:00
; localization error: NAME_LENGTH (11) should be NAME_LENGTH_JAPANESE (6) here
ld hl, .DebugTradeData
ld a, [hli]
ld [wPlayerTrademonSpecies], a
ld de, wPlayerTrademonSenderName
ld c, NAME_LENGTH
.your_name_loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .your_name_loop
ld de, wPlayerTrademonID
ld c, 2
.your_id_loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .your_id_loop
ld de, wPlayerTrademonOTName
ld c, NAME_LENGTH
.your_ot_loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .your_ot_loop
ld a, [hli]
ld [wOTTrademonSpecies], a
ld de, wOTTrademonSenderName
ld c, NAME_LENGTH
.their_name_loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .their_name_loop
ld de, wOTTrademonID
ld c, 2
.their_id_loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .their_id_loop
ld de, wOTTrademonOTName
ld c, NAME_LENGTH
.their_ot_loop
ld a, [hli]
ld [de], a
inc de
dec c
jr nz, .their_ot_loop
ret
.DebugTradeData:
db VENUSAUR
db "ゲーフり@@"
dw $0123
db "かびーん@@"
db CHARIZARD
db "クりーチャ@"
dw $0456
db "マツミヤ@@"
LoadMobileAdapterPalette:
ld a, [wc74e]
and $7f
cp $8 ; CONST: Amount of mobile adapters
jr c, .asm_108d12
ld a, $7
.asm_108d12
ld bc, 1 palettes
ld hl, MobileAdapterPalettes
call AddNTimes
ld a, BANK(wBGPals1)
2018-01-01 06:08:21 -08:00
ld de, wBGPals1 + 4 palettes
ld bc, 1 palettes
call FarCopyWRAM
ret
2020-02-27 11:33:30 -08:00
MobileTradeSpritesGFX:
INCBIN "gfx/mobile/mobile_trade_sprites.2bpp.lz"
MobileTradeGFX:
INCBIN "gfx/mobile/mobile_trade.2bpp.lz"
MobileTradeTilemapLZ:
INCBIN "gfx/mobile/mobile_trade.tilemap.lz"
MobileTradeAttrmapLZ:
INCBIN "gfx/mobile/mobile_trade.attrmap.lz"
UnusedMobilePulsePalettes: ; unreferenced
2020-02-27 11:33:30 -08:00
INCLUDE "gfx/mobile/unused_mobile_pulses.pal"
MobileTradeBGPalettes:
INCLUDE "gfx/mobile/mobile_trade_bg.pal"
MobileTradeOB1Palettes:
INCLUDE "gfx/mobile/mobile_trade_ob1.pal"
MobileTradeOB2Palettes:
INCLUDE "gfx/mobile/mobile_trade_ob2.pal"
MobileCable1GFX:
INCBIN "gfx/mobile/mobile_cable_1.2bpp"
MobileCable2GFX:
INCBIN "gfx/mobile/mobile_cable_2.2bpp"
MobileAdapterPalettes:
2020-02-27 11:33:30 -08:00
INCLUDE "gfx/mobile/mobile_adapters.pal"