pokecrystal-board/mobile/mobile_5c.asm

888 lines
13 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
Function170000:
2015-11-04 04:35:41 -08:00
ld a, [$c62b]
2016-01-12 09:46:18 -08:00
ld [wPlayerTrademonSpecies], a
2015-11-04 04:35:41 -08:00
ld hl, $c62e
2016-01-12 09:46:18 -08:00
ld de, wPlayerTrademonSenderName
2015-11-04 04:35:41 -08:00
ld bc, $0005
call CopyBytes
ld a, $50
ld [de], a
ld hl, $c663
2016-01-12 09:46:18 -08:00
ld de, wPlayerTrademonOTName
2015-11-04 04:35:41 -08:00
ld bc, $0005
call CopyBytes
ld a, $50
ld [de], a
ld hl, $c648
ld a, [hli]
2016-01-12 09:46:18 -08:00
ld [wPlayerTrademonDVs], a
2015-11-04 04:35:41 -08:00
ld a, [hl]
2016-01-12 09:46:18 -08:00
ld [wPlayerTrademonDVs + 1], a
2015-11-04 04:35:41 -08:00
ld hl, $c639
ld a, [hli]
2016-01-12 09:46:18 -08:00
ld [wPlayerTrademonID], a
2015-11-04 04:35:41 -08:00
ld a, [hl]
2016-01-12 09:46:18 -08:00
ld [wPlayerTrademonID + 1], a
2015-11-04 04:35:41 -08:00
ld bc, $c633
2017-12-24 09:47:30 -08:00
farcall GetCaughtGender
2015-11-04 04:35:41 -08:00
ld a, c
2016-01-12 09:46:18 -08:00
ld [wPlayerTrademonCaughtData], a
2015-11-04 04:35:41 -08:00
ld a, [wcd81]
ld [wc74e], a
ld hl, $c608
ld de, $d800
ld bc, $008f
call CopyBytes
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
Function17005a:
2015-11-04 04:35:41 -08:00
ld a, $5
call GetSRAMBank
ld a, [$a824]
2016-01-12 09:46:18 -08:00
ld [wOTTrademonSpecies], a
2015-11-04 04:35:41 -08:00
ld hl, $a827
2016-01-12 09:46:18 -08:00
ld de, wOTTrademonSenderName
2017-12-21 08:56:33 -08:00
ld bc, NAME_LENGTH_JAPANESE - 1
2015-11-04 04:35:41 -08:00
call CopyBytes
2016-01-12 09:46:18 -08:00
ld a, "@"
2015-11-04 04:35:41 -08:00
ld [de], a
ld hl, $a85c
2016-01-12 09:46:18 -08:00
ld de, wOTTrademonOTName
2017-12-21 08:56:33 -08:00
ld bc, NAME_LENGTH_JAPANESE - 1
2015-11-04 04:35:41 -08:00
call CopyBytes
2016-01-12 09:46:18 -08:00
ld a, "@"
2015-11-04 04:35:41 -08:00
ld [de], a
ld hl, $a841
ld a, [hli]
2016-01-12 09:46:18 -08:00
ld [wOTTrademonDVs], a
2015-11-04 04:35:41 -08:00
ld a, [hl]
2016-01-12 09:46:18 -08:00
ld [wOTTrademonDVs + 1], a
2015-11-04 04:35:41 -08:00
ld hl, $a832
ld a, [hli]
2016-01-12 09:46:18 -08:00
ld [wOTTrademonID], a
2015-11-04 04:35:41 -08:00
ld a, [hl]
2016-01-12 09:46:18 -08:00
ld [wOTTrademonID + 1], a
2015-11-04 04:35:41 -08:00
ld bc, $a82c
2017-12-24 09:47:30 -08:00
farcall GetCaughtGender
2015-11-04 04:35:41 -08:00
ld a, c
2016-01-12 09:46:18 -08:00
ld [wOTTrademonCaughtData], a
2015-11-04 04:35:41 -08:00
ld a, [wcd81]
ld [wc74e], a
call CloseSRAM
ret
2015-12-08 13:06:13 -08:00
INCLUDE "engine/events/battle_tower/battle_tower.asm"
2015-11-04 04:35:41 -08:00
2018-06-24 07:09:41 -07:00
Function170be4:
2015-11-04 04:35:41 -08:00
ld a, $5
call GetSRAMBank
xor a
ld hl, $a894
ld bc, $0008
call ByteFill
call CloseSRAM
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
Clears5_a89a:
2015-11-04 04:35:41 -08:00
ld a, $5
call GetSRAMBank
ld hl, $a89a
xor a
ld [hli], a
ld [hl], a
call CloseSRAM
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
Function170c06:
2015-11-04 04:35:41 -08:00
ld a, $5
call GetSRAMBank
ld hl, $a894
ld a, [wBattleResult]
2018-04-05 08:44:02 -07:00
and a ; WIN?
2015-11-04 04:35:41 -08:00
jr nz, .asm_170c15
inc [hl]
.asm_170c15
inc hl
inc hl
2015-11-04 04:35:41 -08:00
ld a, [$a89b]
add [hl]
ld [hld], a
ld a, [$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
2015-11-04 04:35:41 -08:00
.asm_170c30
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1HP
ld a, [wTempByteValue]
2015-11-04 04:35:41 -08:00
call GetPartyLocation
ld a, [hli]
ld b, a
ld c, [hl]
inc hl
inc hl
2015-11-04 04:35:41 -08:00
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]
2015-11-04 04:35:41 -08:00
inc a
ld [wTempByteValue], a
2015-11-04 04:35:41 -08:00
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
2018-01-23 14:39:09 -08:00
ld hl, wPartyMon1HP
2015-11-04 04:35:41 -08:00
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
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
Function170c8b:
2018-01-23 14:39:09 -08:00
ld hl, wLastEnemyCounterMove
2015-11-04 04:35:41 -08:00
ld b, $5
.asm_170c90
ld a, [hl]
xor $ff
ld [hli], a
dec b
jr nz, .asm_170c90
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
CheckBTMonMovesForErrors:
2018-01-20 09:25:55 -08:00
ld c, BATTLETOWER_PARTY_LENGTH
ld hl, wBT_OTTempMon1Moves
2015-11-07 11:38:52 -08:00
.loop
2015-11-04 04:35:41 -08:00
push hl
ld a, [hl]
2015-11-07 11:38:52 -08:00
cp NUM_ATTACKS + 1
jr c, .okay
ld a, POUND
2015-11-04 04:35:41 -08:00
ld [hl], a
2015-11-07 11:38:52 -08:00
.okay
2015-11-04 04:35:41 -08:00
inc hl
2015-11-07 11:38:52 -08:00
ld b, NUM_MOVES - 1
.loop2
2015-11-04 04:35:41 -08:00
ld a, [hl]
and a
2015-11-07 11:38:52 -08:00
jr z, .loop3
cp NUM_ATTACKS + 1
jr c, .next
2015-11-04 04:35:41 -08:00
2015-11-07 11:38:52 -08:00
.loop3
2015-11-04 04:35:41 -08:00
xor a
ld [hl], a
inc hl
dec b
2015-11-07 11:38:52 -08:00
jr nz, .loop3
jr .done
2015-11-04 04:35:41 -08:00
2015-11-07 11:38:52 -08:00
.next
2015-11-04 04:35:41 -08:00
inc hl
dec b
2015-11-07 11:38:52 -08:00
jr nz, .loop2
2015-11-04 04:35:41 -08:00
2015-11-07 11:38:52 -08:00
.done
2015-11-04 04:35:41 -08:00
pop hl
ld de, NICKNAMED_MON_STRUCT_LENGTH
2015-11-04 04:35:41 -08:00
add hl, de
dec c
2015-11-07 11:38:52 -08:00
jr nz, .loop
2015-11-04 04:35:41 -08:00
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
Function170cc6:
ldh a, [rSVBK]
2015-11-04 04:35:41 -08:00
push af
2018-01-21 17:10:38 -08:00
ld a, BANK(wDecompressScratch)
ldh [rSVBK], a
2018-01-21 17:10:38 -08:00
ld hl, PichuAnimatedMobileGFX
ld de, wDecompressScratch
2015-11-04 04:35:41 -08:00
call Decompress
2018-01-21 17:10:38 -08:00
ld a, 1
ldh [rVBK], a
2018-01-21 17:10:38 -08:00
ld de, wDecompressScratch
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
2018-01-21 17:10:38 -08:00
lb bc, BANK(wDecompressScratch), 193
2015-11-04 04:35:41 -08:00
call Get2bpp
xor a
ldh [rVBK], a
2018-01-21 17:10:38 -08:00
ld hl, ElectroBallMobileGFX
ld de, wDecompressScratch
2015-11-04 04:35:41 -08:00
call Decompress
2018-01-01 06:08:21 -08:00
ld de, wBGPals1
2017-12-28 04:32:33 -08:00
ld hl, vTiles0
2018-01-21 17:10:38 -08:00
lb bc, BANK(wDecompressScratch), 83
2015-11-04 04:35:41 -08:00
call Get2bpp
pop af
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
Function170d02:
2015-11-04 04:35:41 -08:00
ld a, $1
ldh [rVBK], a
2020-02-27 11:33:30 -08:00
ld de, PichuBorderMobileGFX
2018-07-15 08:58:01 -07:00
ld hl, vTiles0 tile $c1
2020-02-27 11:33:30 -08:00
lb bc, BANK(PichuBorderMobileGFX), 24
2015-11-04 04:35:41 -08:00
call Get2bpp
xor a
ldh [rVBK], a
2015-11-04 04:35:41 -08:00
ret
2015-12-08 13:06:13 -08:00
2018-01-21 17:10:38 -08:00
PichuAnimatedMobileGFX:
INCBIN "gfx/mobile/pichu_animated.2bpp.lz"
2015-11-04 04:35:41 -08:00
2018-01-21 17:10:38 -08:00
ElectroBallMobileGFX:
INCBIN "gfx/mobile/electro_ball.2bpp.lz"
2015-11-04 04:35:41 -08:00
2020-02-27 11:33:30 -08:00
PichuBorderMobileGFX:
INCBIN "gfx/mobile/pichu_border.2bpp"
2015-11-04 04:35:41 -08:00
2018-06-24 07:09:41 -07:00
Function1719c8:
ldh a, [hInMenu]
2015-11-04 04:35:41 -08:00
push af
ld a, $1
ldh [hInMenu], a
2015-11-04 04:35:41 -08:00
call Function1719d6
pop af
ldh [hInMenu], a
2015-11-04 04:35:41 -08:00
ret
2018-06-24 07:09:41 -07:00
Function1719d6:
2017-12-24 09:47:30 -08:00
farcall BattleTowerRoomMenu_InitRAM
2015-11-04 04:35:41 -08:00
call Function1719ed
ldh a, [rSVBK]
2015-11-04 04:35:41 -08:00
push af
ld a, $5
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
call Function171a11
pop af
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
ret
2018-06-24 07:09:41 -07:00
Function1719ed:
2015-11-04 04:35:41 -08:00
xor a
ld [wcd49], a
ld [wcd4a], a
dec a
ld [wcd4b], a
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
2015-11-04 04:35:41 -08:00
call ClearSprites
2017-12-24 09:47:30 -08:00
farcall Function171d2b
farcall ReloadMapPart
farcall ClearSpriteAnims
2015-11-04 04:35:41 -08:00
ret
2018-06-24 07:09:41 -07:00
Function171a11:
2015-12-08 13:06:13 -08:00
.loop
2015-11-04 04:35:41 -08:00
call JoyTextDelay
ld a, [wcd49]
bit 7, a
2015-12-08 13:06:13 -08:00
jr nz, .done
2015-11-04 04:35:41 -08:00
call Function171a36
2017-12-24 09:47:30 -08:00
farcall PlaySpriteAnimations
farcall ReloadMapPart
2015-12-08 13:06:13 -08:00
jr .loop
.done
2017-12-24 09:47:30 -08:00
farcall ClearSpriteAnims
2015-11-04 04:35:41 -08:00
call ClearSprites
ret
2018-06-24 07:09:41 -07:00
Function171a36:
2015-11-04 04:35:41 -08:00
ld a, [wcd49]
ld e, a
ld d, 0
ld hl, Jumptable_171a45
add hl, de
add hl, de
2015-11-04 04:35:41 -08:00
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2015-11-04 04:35:41 -08:00
2018-06-24 07:09:41 -07:00
Jumptable_171a45:
2015-11-04 04:35:41 -08:00
dw Function171a95
dw Function171ac9
dw Function171a5d
dw Function171ad7
dw Function171a5d
dw Function171aec
dw Function171b4b
dw Function171b85
dw Function171bcc
dw Function171c2c
dw Function171c39
dw Function171c41
2018-06-24 07:09:41 -07:00
Function171a5d:
2015-11-04 04:35:41 -08:00
ld a, [wc821]
bit 1, a
jr nz, .asm_171a6a
bit 0, a
ret nz
jp Function171c66
2015-12-08 13:06:13 -08:00
2015-11-04 04:35:41 -08:00
.asm_171a6a
ld a, $0
call Function3e32
ld [wMobileErrorCodeBuffer], a
2015-11-04 04:35:41 -08:00
ld a, l
ld [wMobileErrorCodeBuffer + 1], a
2015-11-04 04:35:41 -08:00
ld a, h
ld [wMobileErrorCodeBuffer + 2], a
2015-11-04 04:35:41 -08:00
ld a, $a
call Function3e32
ldh a, [rSVBK]
2015-11-04 04:35:41 -08:00
push af
ld a, $1
ldh [rSVBK], a
2017-12-24 09:47:30 -08:00
farcall BattleTowerRoomMenu_Cleanup
2015-11-04 04:35:41 -08:00
pop af
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
ld a, $a
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function171a95:
2017-12-24 09:47:30 -08:00
farcall Function171ccd
2015-11-04 04:35:41 -08:00
hlcoord 2, 8
ld de, String_171aa7
call PlaceString
jp Function171c66
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
String_171aa7:
2015-11-04 04:35:41 -08:00
db "モバイルアダプタに"
next "せつぞく しています"
next "しばらく おまちください"
2015-11-04 04:35:41 -08:00
db "@"
2018-06-24 07:09:41 -07:00
Function171ac9:
2015-11-04 04:35:41 -08:00
ld de, wcd81
ld hl, $5c
ld a, $2
call Function3e32
jp Function171c66
2018-06-24 07:09:41 -07:00
Function171ad7:
2015-11-04 04:35:41 -08:00
xor a
ld hl, $c608
ld bc, $66
call ByteFill
ld de, $c608
ld a, $c
call Function3e32
jp Function171c66
2018-06-24 07:09:41 -07:00
Function171aec:
ldh a, [rSVBK]
2015-11-04 04:35:41 -08:00
push af
ld a, $1
ldh [rSVBK], a
2017-12-24 09:47:30 -08:00
farcall BattleTowerRoomMenu_Cleanup
2015-11-04 04:35:41 -08:00
pop af
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
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
2015-11-04 04:35:41 -08:00
pop af
dec a
jr nz, .asm_171b1b
jp Function171c66
2018-06-24 07:09:41 -07:00
Function171b42:
2015-11-04 04:35:41 -08:00
ld a, [de]
inc de
and a
ret z
sub $20
ld [hli], a
jr Function171b42
2018-06-24 07:09:41 -07:00
Function171b4b:
2015-11-18 10:01:55 -08:00
depixel 8, 2
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_EZCHAT_CURSOR
call InitSpriteAnimStruct
2016-05-13 22:11:01 -07:00
ld hl, SPRITEANIMSTRUCT_0C
2015-11-04 04:35:41 -08:00
add hl, bc
ld a, $8
ld [hl], a
2016-05-13 22:11:01 -07:00
2015-11-18 10:01:55 -08:00
depixel 8, 19
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_EZCHAT_CURSOR
call InitSpriteAnimStruct
2016-05-13 22:11:01 -07:00
ld hl, SPRITEANIMSTRUCT_0C
2015-11-04 04:35:41 -08:00
add hl, bc
ld a, $9
ld [hl], a
2016-05-13 22:11:01 -07:00
2015-11-18 10:01:55 -08:00
depixel 17, 14, 2, 0
2018-01-02 09:25:13 -08:00
ld a, SPRITE_ANIM_INDEX_EZCHAT_CURSOR
call InitSpriteAnimStruct
2016-05-13 22:11:01 -07:00
ld hl, SPRITEANIMSTRUCT_0C
2015-11-04 04:35:41 -08:00
add hl, bc
ld a, $a
ld [hl], a
2016-05-13 22:11:01 -07:00
2015-11-04 04:35:41 -08:00
ld a, $4
ld [wcd23], a
ld a, $8
ld [wcd24], a
jp Function171c66
2018-06-24 07:09:41 -07:00
Function171b85:
2018-08-25 11:39:24 -07:00
ld hl, hJoyPressed
2015-11-04 04:35:41 -08:00
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
2018-06-24 07:09:41 -07:00
Function171b9f:
2015-11-04 04:35:41 -08:00
ld a, $80
ld [wcd49], a
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
asm_171ba5:
2015-11-04 04:35:41 -08:00
ld a, [wcd4a]
and a
ret z
dec a
ld [wcd4a], a
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
asm_171baf:
2015-11-04 04:35:41 -08:00
ld a, [wcd4b]
ld c, a
ld a, [wcd4a]
cp c
ret z
inc a
ld [wcd4a], a
ret
2018-06-24 07:09:41 -07:00
Function171bbd:
2015-11-04 04:35:41 -08:00
call PlayClickSFX
ld a, $8
ld [wcd23], a
xor a
ld [wcd24], a
jp Function171c66
2018-06-24 07:09:41 -07:00
Function171bcc:
2018-08-25 11:39:24 -07:00
ld hl, hJoyPressed
2015-11-04 04:35:41 -08:00
ld a, [hl]
and $2
jp nz, Function171bdc
ld a, [hl]
and $1
jp nz, Function171beb
ret
2018-06-24 07:09:41 -07:00
Function171bdc:
2015-11-04 04:35:41 -08:00
ld a, $4
ld [wcd23], a
ld a, $8
ld [wcd24], a
ld hl, wcd49
dec [hl]
ret
2018-06-24 07:09:41 -07:00
Function171beb:
2015-11-04 04:35:41 -08:00
ld a, $5
call GetSRAMBank
ld a, [wcd4a]
ld [$aa4a], a
call CloseSRAM
ld hl, MenuHeader_171c6b
call LoadMenuHeader
2015-11-04 11:02:11 -08:00
call MenuBox
call MenuBoxCoord2Tile
2017-12-24 09:47:30 -08:00
farcall ReloadMapPart
2015-11-04 04:35:41 -08:00
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
2018-06-24 07:09:41 -07:00
Function171c2c:
2015-11-04 04:35:41 -08:00
ld hl, wcd4c
dec [hl]
ret nz
call ExitMenu
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
2015-11-04 04:35:41 -08:00
jr asm_171c60
2018-06-24 07:09:41 -07:00
Function171c39:
2015-11-04 04:35:41 -08:00
ld a, $28
ld [wcd4c], a
call Function171c66
2018-06-24 07:09:41 -07:00
Function171c41:
2015-11-04 04:35:41 -08:00
ld hl, wcd4c
dec [hl]
ret nz
2015-11-11 20:38:57 -08:00
call ClearBGPalettes
farcall Stubbed_Function106462
2017-12-24 09:47:30 -08:00
farcall Function106464
2015-11-04 04:35:41 -08:00
ld a, $2
ld [wc303], a
2017-12-24 09:47:30 -08:00
farcall DisplayMobileError
2018-06-24 07:09:41 -07:00
asm_171c60:
2015-11-04 04:35:41 -08:00
ld a, $80
ld [wcd49], a
ret
2018-06-24 07:09:41 -07:00
Function171c66:
2015-11-04 04:35:41 -08:00
ld hl, wcd49
inc [hl]
ret
2015-12-08 13:06:13 -08:00
2018-06-24 07:09:41 -07:00
MenuHeader_171c6b:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
2015-11-04 04:35:41 -08:00
dw NULL
db 0 ; default option
2018-06-24 07:09:41 -07:00
String_171c73:
db "モバイルセンターを けってい"
2015-11-04 04:35:41 -08:00
next "しました@"
2018-06-24 07:09:41 -07:00
Function171c87:
2015-11-04 04:35:41 -08:00
call DisableLCD
2020-02-27 11:33:30 -08:00
ld hl, AsciiFontGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $00
2015-11-04 04:35:41 -08:00
ld bc, $6e0
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, PasswordSlowpokeLZ
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $00
2015-11-04 04:35:41 -08:00
call Decompress
call EnableLCD
2020-02-27 11:33:30 -08:00
ld hl, PasswordTopTilemap
2015-11-04 04:35:41 -08:00
decoord 0, 0
ld bc, $168
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, MobilePasswordAttrmap
decoord 0, 0, wAttrmap
2015-11-04 04:35:41 -08:00
ld bc, $168
call CopyBytes
hlcoord 3, 2
ld de, String_172e31
call PlaceString
hlcoord 3, 16
ld de, String_172e3f
call PlaceString
ret
2018-06-24 07:09:41 -07:00
Function171ccd:
ldh a, [rSVBK]
2015-11-04 04:35:41 -08:00
push af
ld a, $5
ldh [rSVBK], a
2020-02-27 11:33:30 -08:00
ld hl, MobilePasswordPalettes
2018-01-01 06:08:21 -08:00
ld de, wBGPals1
2018-01-01 05:47:16 -08:00
ld bc, 8 palettes
2015-11-04 04:35:41 -08:00
call CopyBytes
ld hl, wOBPals1 palette 0 color 1
ld a, LOW(PALRGB_WHITE)
2015-11-04 04:35:41 -08:00
ld [hli], a
ld a, HIGH(PALRGB_WHITE)
2015-11-04 04:35:41 -08:00
ld [hl], a
call SetPalettes
pop af
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
ret
2018-06-24 07:09:41 -07:00
Function171cf0:
2015-11-04 04:35:41 -08:00
xor a
hlcoord 4, 15
ld [hli], a
ld [hli], a
2015-11-04 04:35:41 -08:00
ld a, [wcd4b]
xor $1
ld [wcd4b], a
and a
2020-02-27 11:33:30 -08:00
jr nz, .shifted
ld hl, PasswordBottomTilemap
2015-11-04 04:35:41 -08:00
decoord 0, 7
ld bc, $8c
call CopyBytes
hlcoord 3, 16
ld de, String_172e3f
jp PlaceString
2015-12-08 13:06:13 -08:00
2020-02-27 11:33:30 -08:00
.shifted
ld hl, PasswordShiftTilemap
2015-11-04 04:35:41 -08:00
decoord 0, 7
ld bc, $8c
call CopyBytes
hlcoord 3, 16
ld de, String_172e4e
jp PlaceString
2018-06-24 07:09:41 -07:00
Function171d2b:
2015-11-04 04:35:41 -08:00
call DisableLCD
2020-02-27 11:33:30 -08:00
ld hl, AsciiFontGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $00
2015-11-04 04:35:41 -08:00
ld bc, $6e0
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, PasswordSlowpokeLZ
2017-12-28 04:32:33 -08:00
ld de, vTiles0 tile $00
2015-11-04 04:35:41 -08:00
call Decompress
call EnableLCD
2020-02-27 11:33:30 -08:00
ld hl, ChooseMobileCenterTilemap
2015-11-04 04:35:41 -08:00
decoord 0, 0
ld bc, $168
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, ChooseMobileCenterAttrmap
decoord 0, 0, wAttrmap
2015-11-04 04:35:41 -08:00
ld bc, $168
call CopyBytes
hlcoord 2, 2
ld de, String_172e5d
call PlaceString
hlcoord 14, 16
ld de, String_172e58
call PlaceString
ret
2015-12-08 13:06:13 -08:00
2020-02-27 11:33:30 -08:00
MobilePasswordPalettes:
INCLUDE "gfx/mobile/mobile_password.pal"
2017-12-11 15:04:23 -08:00
2020-02-27 11:33:30 -08:00
AsciiFontGFX:
INCBIN "gfx/mobile/ascii_font.2bpp"
2020-02-27 11:33:30 -08:00
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:
2015-11-04 04:35:41 -08:00
INCBIN "gfx/pokedex/slowpoke.2bpp.lz"
2018-06-24 07:09:41 -07:00
String_172e31:
db "パスワード<WO>いれてください@"
2018-06-24 07:09:41 -07:00
String_172e3f:
db "きりかえ やめる  けってい@"
2018-06-24 07:09:41 -07:00
String_172e4e:
db "きりかえ やめる  "
2015-11-04 04:35:41 -08:00
String_172e58:
db "けってい@"
2018-06-24 07:09:41 -07:00
String_172e5d:
db "せつぞくする モバイルセンターを"
next "えらんで ください@"
2015-11-04 04:35:41 -08:00
2018-06-24 07:09:41 -07:00
Function172e78:
2015-11-04 04:35:41 -08:00
ld a, $7f
hlcoord 0, 0
ld bc, $168
call ByteFill
ld a, $7
hlcoord 0, 0, wAttrmap
2015-11-04 04:35:41 -08:00
ld bc, $168
call ByteFill
call DisableLCD
2020-02-27 11:33:30 -08:00
ld hl, Stadium2N64GFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $00
2015-11-04 04:35:41 -08:00
ld bc, $610
call CopyBytes
call EnableLCD
2020-02-27 11:33:30 -08:00
ld hl, Stadium2N64Tilemap
2015-11-04 04:35:41 -08:00
decoord 0, 0
ld bc, $168
call CopyBytes
2020-02-27 11:33:30 -08:00
ld hl, Stadium2N64Attrmap
decoord 0, 0, wAttrmap
2015-11-04 04:35:41 -08:00
ld bc, $168
call CopyBytes
ret
2015-12-08 13:06:13 -08:00
2015-11-04 04:35:41 -08:00
Function172eb9:
ldh a, [rSVBK]
2015-11-04 04:35:41 -08:00
push af
ld a, $5
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
ld hl, Palette_172edf
2018-01-01 06:08:21 -08:00
ld de, wBGPals1
2018-01-01 05:47:16 -08:00
ld bc, 8 palettes
2015-11-04 04:35:41 -08:00
call CopyBytes
ld hl, Palette_172edf
2018-01-01 06:08:21 -08:00
ld de, wBGPals2
2018-01-01 05:47:16 -08:00
ld bc, 8 palettes
2015-11-04 04:35:41 -08:00
call CopyBytes
call SetPalettes
pop af
ldh [rSVBK], a
2015-11-04 04:35:41 -08:00
ret
2015-12-08 13:06:13 -08:00
2015-11-04 04:35:41 -08:00
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
2020-02-27 11:33:30 -08:00
Stadium2N64GFX:
INCBIN "gfx/mobile/stadium2_n64.2bpp"
2015-11-04 04:35:41 -08:00
2020-02-27 11:33:30 -08:00
Stadium2N64Tilemap:
2018-01-09 14:26:40 -08:00
if DEF(_CRYSTAL11)
2020-02-27 11:33:30 -08:00
; 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
2020-02-27 11:33:30 -08:00
INCBIN "gfx/mobile/stadium2_n64.tilemap"
endc
2015-11-04 04:35:41 -08:00
2020-02-27 11:33:30 -08:00
Stadium2N64Attrmap:
INCBIN "gfx/mobile/stadium2_n64.attrmap"