pokecrystal/mobile/mobile_45_stadium.asm

824 lines
12 KiB
NASM

GiveOddEgg:
farcall _GiveOddEgg
ret
Function11765d:
ldh a, [hInMenu]
push af
ld a, $1
ldh [hInMenu], a
call Function11766b
pop af
ldh [hInMenu], a
ret
Function11766b:
call Function117699
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
call Function1176ee
ld a, $5
call GetSRAMBank
ld hl, $b1f3
ld de, wcd49
ld bc, $8
call CopyBytes
ld de, $c708
ld bc, $11
call CopyBytes
call CloseSRAM
pop af
ldh [rSVBK], a
ret
Function117699:
ld a, $5
call GetSRAMBank
ld hl, wcd49
ld de, $b1f3
ld bc, $8
call CopyBytes
ld hl, $c708
ld bc, $11
call CopyBytes
call CloseSRAM
xor a
ld [wcd49], a
ld [wcd4a], a
ld [wcd4b], a
ld [wcd4c], a
ld [wcd4d], a
ld [wcd4e], a
ld [wcd4f], a
ld hl, $c708
ld bc, $11
call ByteFill
call ClearBGPalettes
call ClearSprites
farcall Function171c87
farcall ReloadMapPart
farcall ClearSpriteAnims
ret
Function1176ee:
.loop
call JoyTextDelay
ld a, [wcd49]
bit 7, a
jr nz, .quit
call Function117719
farcall PlaySpriteAnimations
farcall ReloadMapPart
jr .loop
.quit
farcall ClearSpriteAnims
call ClearBGPalettes
call ClearScreen
call ClearSprites
ret
Function117719:
ld a, [wcd49]
ld e, a
ld d, 0
ld hl, Jumptable_117728
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
Jumptable_117728:
dw Function117738
dw Function117764
dw Function1178aa
dw Function1178e8
dw Function117942
dw Function117976
dw Function117984
dw Function1179a7
Function117738:
farcall Function171ccd
depixel 6, 3
ld a, $1d
call _InitSpriteAnimStruct
ld hl, $c
add hl, bc
ld a, $6
ld [hl], a
depixel 9, 4
ld a, $1d
call _InitSpriteAnimStruct
ld hl, $c
add hl, bc
ld a, $7
ld [hl], a
ld a, $3
ld [wcd23], a
jp MobilePassword_IncrementJumptable
Function117764:
ld a, [wcd4a]
cp $10
jr nz, .asm_11776f
ld a, $1
jr .asm_117770
.asm_11776f
xor a
.asm_117770
ld [wcd24], a
ld hl, hJoyPressed
ld a, [hl]
and SELECT
jr nz, Function117764_select
ld a, [hl]
and START
jr nz, Function117764_start
ld a, [hl]
and A_BUTTON
jp nz, Function117764_a_button
ld a, [hl]
and B_BUTTON
jr nz, Function117764_b_button
ld hl, hJoyLast
ld a, [hl]
and D_UP
jr nz, Function117764_d_up
ld a, [hl]
and D_DOWN
jr nz, Function117764_d_down
ld a, [hl]
and D_LEFT
jp nz, Function117764_d_left
ld a, [hl]
and D_RIGHT
jp nz, Function117764_d_right
ret
Function117764_select:
farcall Function171cf0
ret
Function117764_start:
ld a, $2
ld [wcd4c], a
ld a, $4
ld [wcd4d], a
ret
Function1177b7:
ld a, $3
ld [wcd24], a
ld a, [wcd4a]
and a
jr z, .asm_1177c5
jp MobilePassword_IncrementJumptable
.asm_1177c5
ld a, $6
ld [wcd49], a
ret
Function1177cb:
ld a, $80
ld [wcd49], a
ld [wScriptVar], a
jp MobilePassword_IncrementJumptable
Function117764_b_button:
call PlayClickSFX
ld a, [wcd4a]
and a
ret z
dec a
ld [wcd4a], a
ld e, a
ld d, $0
ld hl, $c708
add hl, de
xor a
ld [hl], a
hlcoord 2, 4
add hl, de
ld [hl], a
ret
Function117764_d_up:
ld a, [wcd4d]
and a
ret z
dec a
ld [wcd4d], a
cp $3
ret nz
ld a, [wcd4c]
ld e, a
sla a
sla a
add e
Function117764_d_vertical_load:
ld [wcd4c], a
ret
Function117764_d_down:
ld a, [wcd4d]
cp $4
ret z
inc a
ld [wcd4d], a
cp $4
ret nz
ld a, [wcd4c]
cp $a
jr nc, .asm_117825
cp $5
jr nc, .asm_117829
xor a
jr Function117764_d_vertical_load
.asm_117825
ld a, $2
jr Function117764_d_vertical_load
.asm_117829
ld a, $1
jr Function117764_d_vertical_load
Function117764_d_left:
ld a, [wcd4c]
and a
ret z
dec a
ld [wcd4c], a
ret
Function117764_d_right:
ld e, $d
ld a, [wcd4d]
cp $4
jr nz, .wrap
ld e, $2
.wrap
ld a, [wcd4c]
cp e
ret z
inc a
ld [wcd4c], a
ret
Function117764_a_button:
call PlayClickSFX
ld a, [wcd4d]
cp $4
jr nz, .not_4
ld a, [wcd4c]
cp $2
jp z, Function1177b7
cp $1
jp z, Function1177cb
jp Function117764_select
.not_4
ld a, [wcd4a]
ld e, a
cp $10
jp z, Function117764_start
inc a
ld [wcd4a], a
ld d, $0
ld a, [wcd4b]
and a
jr nz, .ascii_symbols
ld hl, Unknown_117a0f
jr .got_ascii
.ascii_symbols
ld hl, Unknown_117a47
.got_ascii
push de
ld a, [wcd4c]
ld b, a
ld a, [wcd4d]
ld c, $e
call SimpleMultiply
add b
ld c, a
ld b, $0
add hl, bc
ld a, [hl]
ld hl, $c708
add hl, de
ld [hl], a
pop de
hlcoord 2, 4
add hl, de
sub $20
ld [hl], a
ld a, e
cp $f
ret nz
jp Function117764_start
Function1178aa:
ld hl, MenuHeader_1179b5
call LoadMenuHeader
call MenuBox
call MenuBoxCoord2Tile
ld hl, MenuHeader_1179bd
call LoadMenuHeader
call MenuBox
call MenuBoxCoord2Tile
farcall ReloadMapPart
hlcoord 16, 8
ld de, YessNoString_1179c5
call PlaceString
hlcoord 15, 10
ld a, "▶"
ld [hl], a
hlcoord 1, 14
ld de, AskSavePasswordString
call PlaceString
ld a, $1
ld [wcd4e], a
jp MobilePassword_IncrementJumptable
Function1178e8:
ldh a, [hJoyPressed]
cp B_BUTTON
jr z, .b_button
cp A_BUTTON
jr z, .a_button
cp D_DOWN
jr z, .d_down
cp D_UP
ret nz
ld a, [wcd4e]
and a
ret z
dec a
ld [wcd4e], a
hlcoord 15, 8
ld a, "▶"
ld [hl], a
hlcoord 15, 10
ld a, " "
ld [hl], a
ret
.d_down
ld a, [wcd4e]
and a
ret nz
inc a
ld [wcd4e], a
hlcoord 15, 8
ld a, " "
ld [hl], a
hlcoord 15, 10
ld a, "▶"
ld [hl], a
ret
.a_button
call PlayClickSFX
ld a, [wcd4e]
and a
jr nz, .b_button
call ExitMenu
ld a, $1
ld [wcd4f], a
jp MobilePassword_IncrementJumptable
.b_button
call ExitMenu
call ExitMenu
jp MobilePassword_IncrementJumptable
Function117942:
call SpeechTextbox
hlcoord 1, 14
ld de, SavedPasswordString
call PlaceString
ld a, $1e
ld [wcd4e], a
ld a, BANK(sMobileLoginPassword)
call GetSRAMBank
ld a, [wcd4f]
ld [sMobileLoginPassword], a
ld hl, $c708
ld de, sMobileLoginPassword + 1
ld bc, MOBILE_LOGIN_PASSWORD_LENGTH
call CopyBytes
call CloseSRAM
ld a, [wcd4f]
and a
jr z, asm_11797e
call MobilePassword_IncrementJumptable
Function117976:
ld hl, wcd4e
dec [hl]
ret nz
call ExitMenu
asm_11797e:
ld a, $80
ld [wcd49], a
ret
Function117984:
ld hl, MenuHeader_1179b5
call LoadMenuHeader
call MenuBox
call MenuBoxCoord2Tile
farcall ReloadMapPart
hlcoord 1, 14
ld de, NotAPokemonPasswordString
call PlaceString
ld a, $1e
ld [wcd4e], a
call MobilePassword_IncrementJumptable
Function1179a7:
ld hl, wcd4e
dec [hl]
ret nz
call ExitMenu
ld a, $1
ld [wcd49], a
ret
MenuHeader_1179b5:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
dw NULL
db 0 ; default option
MenuHeader_1179bd:
db MENU_BACKUP_TILES ; flags
menu_coords 14, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw NULL
db 0 ; default option
YessNoString_1179c5:
db "はい"
next "いいえ@"
AskSavePasswordString:
db "こ<NO>パスワード¯ほぞんして"
line "おきますか?@"
NotAPokemonPasswordString:
db "パスワード<PKMN>にゅうりょく"
line "されていません!@"
SavedPasswordString:
db "ログインパスワード¯ほぞん"
line "しました@"
MobilePassword_IncrementJumptable:
ld hl, wcd49
inc [hl]
ret
Unknown_117a0f:
INCBIN "data/mobile/ascii-alpha.txt"
Unknown_117a47:
INCBIN "data/mobile/ascii-sym.txt"
; everything from here to the end of the bank is related to the
; Mobile Stadium option from the continue/newgame menu.
; Needs better function names
MobileStudium:
ldh a, [hInMenu]
push af
ld a, $1
ldh [hInMenu], a
call Function117a8d
pop af
ldh [hInMenu], a
ret
Function117a8d:
call Function117a94
call Function117acd
ret
Function117a94:
xor a
ld [wJumptableIndex], a
ld [wcf64], a
ld [wcf65], a
ld [wcf66], a
call ClearBGPalettes
call ClearSprites
farcall Function172e78
farcall HDMATransferAttrMapAndTileMapToWRAMBank3
ret
Function117ab4:
call ClearBGPalettes
call ClearSprites
farcall Function172e78
farcall Function172eb9
farcall ReloadMapPart
ret
Function117acd:
call JoyTextDelay
ld a, [wJumptableIndex]
bit 7, a
jr nz, .asm_117ae2
call Function117ae9
farcall HDMATransferAttrMapAndTileMapToWRAMBank3
jr Function117acd
.asm_117ae2
call ClearBGPalettes
call ClearSprites
ret
Function117ae9:
ld a, [wJumptableIndex]
ld e, a
ld d, $0
ld hl, .Jumptable
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
.Jumptable:
dw Function117b06
dw Function117b14
dw Function117b28
dw Function117b31
dw Function117b4f
dw Function117bb6
dw Function117c4a
Function117b06:
farcall Function172eb9
ld a, $10
ld [wcf64], a
jp MobileStudium_JumptableIncrement
Function117b14:
ld hl, wcf64
dec [hl]
ret nz
ld hl, MenuHeader_117cbc
call LoadMenuHeader
call MenuBox
call MenuBoxCoord2Tile
jp MobileStudium_JumptableIncrement
Function117b28:
ld hl, MobileStadiumEntryText
call PrintText
jp MobileStudium_JumptableIncrement
Function117b31:
ld hl, MenuHeader_117cc4
call LoadMenuHeader
call MenuBox
call MenuBoxCoord2Tile
hlcoord 16, 8
ld de, YesNo117ccc
call PlaceString
hlcoord 15, 8
ld a, "▶"
ld [hl], a
jp MobileStudium_JumptableIncrement
Function117b4f:
ldh a, [hJoyPressed]
cp B_BUTTON
jr z, .b_button
cp A_BUTTON
jr z, .a_button
cp D_DOWN
jr z, .d_down
cp D_UP
ret nz
ld a, [wcf64]
and a
ret z
dec a
ld [wcf64], a
hlcoord 15, 8
ld a, "▶"
ld [hl], a
hlcoord 15, 10
ld a, " "
ld [hl], a
ret
.d_down
ld a, [wcf64]
and a
ret nz
inc a
ld [wcf64], a
hlcoord 15, 8
ld a, " "
ld [hl], a
hlcoord 15, 10
ld a, "▶"
ld [hl], a
ret
.a_button
call PlayClickSFX
ld a, [wcf64]
and a
jr nz, .b_button
call ExitMenu
call ExitMenu
farcall ReloadMapPart
jp MobileStudium_JumptableIncrement
.b_button
call ExitMenu
call ExitMenu
farcall ReloadMapPart
ld a, $80
ld [wJumptableIndex], a
ret
Function117bb6:
call Function117c89
ld a, $1
ldh [hBGMapMode], a
farcall Function118284
call ClearSprites
ld a, [wMobileErrorCodeBuffer]
and a
jr z, .asm_117be7
cp $a
jr z, .asm_117be1
.asm_117bd0
ld a, $2
ld [wc303], a
farcall DisplayMobileError
ld a, $80
ld [wJumptableIndex], a
ret
.asm_117be1
ld a, $80
ld [wJumptableIndex], a
ret
.asm_117be7
ldh a, [rSVBK]
push af
ld a, $3
ldh [rSVBK], a
ld a, [wcd89]
and $1
jr nz, .asm_117c16
ld a, [w3_d000]
cp $fe
jr nz, .asm_117c16
ld a, [w3_d001]
cp $f
jr nz, .asm_117c16
ld hl, w3_dfec
ld de, wcd69
ld c, $10
.asm_117c0b
ld a, [de]
inc de
cp [hl]
jr nz, .asm_117c16
inc hl
dec c
jr nz, .asm_117c0b
jr .asm_117c20
.asm_117c16
pop af
ldh [rSVBK], a
ld a, $d3
ld [wMobileErrorCodeBuffer], a
jr .asm_117bd0
.asm_117c20
pop af
ldh [rSVBK], a
farcall Function172eb9
ldh a, [rSVBK]
push af
ld a, $3
ldh [rSVBK], a
ld a, $7
call GetSRAMBank
ld hl, w3_d002
ld de, $b000
ld bc, $1000
call CopyBytes
call CloseSRAM
pop af
ldh [rSVBK], a
jp MobileStudium_JumptableIncrement
Function117c4a:
ld hl, MenuHeader_117cbc
call LoadMenuHeader
call MenuBox
call MenuBoxCoord2Tile
farcall ReloadMapPart
ld hl, MobileStadiumSuccessText
call PrintText
ldh a, [rSVBK]
push af
ld a, $5
ldh [rSVBK], a
ld hl, wBGPals1
ld de, 1 palettes
ld c, 8
.loop
push hl
ld a, LOW(PALRGB_WHITE)
ld [hli], a
ld a, HIGH(PALRGB_WHITE)
ld [hl], a
pop hl
add hl, de
dec c
jr nz, .loop
call RotateThreePalettesRight
pop af
ldh [rSVBK], a
ld a, $80
ld [wJumptableIndex], a
ret
Function117c89:
ld a, $7
call GetSRAMBank
ld l, $0
ld h, l
ld de, $b000
ld bc, $0ffc
.asm_117c97
push bc
ld a, [de]
inc de
ld c, a
ld b, $0
add hl, bc
pop bc
dec bc
ld a, b
or c
jr nz, .asm_117c97
ld a, l
ld [wcd83], a
ld a, h
ld [wcd84], a
ld hl, $bfea
ld de, wcd69
ld bc, $10
call CopyBytes
call CloseSRAM
ret
MenuHeader_117cbc:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
dw NULL
db 0 ; default option
MenuHeader_117cc4:
db MENU_BACKUP_TILES ; flags
menu_coords 14, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw NULL
db 0 ; default item
YesNo117ccc:
db "はい"
next "いいえ@"
MobileStadiumEntryText:
text_far _MobileStadiumEntryText
text_end
MobileStadiumSuccessText:
text_far _MobileStadiumSuccessText
text_end
MobileStudium_JumptableIncrement:
ld hl, wJumptableIndex
inc [hl]
ret