pokecrystal-board/mobile/mobile_41.asm

1106 lines
19 KiB
NASM
Raw Normal View History

; These functions deal with miscellaneous statistics
; which were used for Trainer Rankings in Pokémon News.
; Copies certain values at the time the player enters the Hall of Fame.
StubbedTrainerRankings_HallOfFame2::
ret
ld a, BANK(sTrainerRankingGameTimeHOF)
call OpenSRAM
2018-01-23 14:39:09 -08:00
ld hl, wGameTimeHours
ld de, sTrainerRankingGameTimeHOF
ld bc, 4
call CopyBytes
ld hl, sTrainerRankingStepCount
ld de, sTrainerRankingStepCountHOF
ld bc, 4
call CopyBytes
; sTrainerRankingHealings is only a 3-byte value.
; One extraneous byte is copied from sTrainerRankingMysteryGift.
ld hl, sTrainerRankingHealings
ld de, sTrainerRankingHealingsHOF
ld bc, 4
call CopyBytes
ld hl, sTrainerRankingBattles
ld de, sTrainerRankingBattlesHOF
ld bc, 3
call CopyBytes
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_MagikarpLength:
ret
ld a, BANK(sTrainerRankingLongestMagikarp)
call OpenSRAM
ld de, wMagikarpLength
ld hl, sTrainerRankingLongestMagikarp
; Is this Magikarp the longest measured?
ld a, [de]
cp [hl]
jr z, .isLowByteHigher
jr nc, .newRecordLongest
jr .checkShortest
.isLowByteHigher
inc hl
inc de
ld a, [de]
cp [hl]
dec hl
dec de
jr c, .checkShortest
.newRecordLongest
ld a, [de]
inc de
ld [hli], a
ld a, [de]
dec de
ld [hl], a
.checkShortest
; First, check if the record for shortest Magikarp is 0.
; This seems unnecessary, because the value is initialized to 100.0 cm.
ld hl, sTrainerRankingShortestMagikarp
ld a, [hli]
or [hl]
dec hl
jr z, .newRecordShortest
; Now check if this Magikarp is the shortest
ld a, [de]
cp [hl]
jr z, .isLowByteLower
jr c, .newRecordShortest
jr .done
.isLowByteLower
inc hl
inc de
ld a, [de]
cp [hl]
jr nc, .done
dec hl
dec de
.newRecordShortest
ld a, [de]
inc de
ld [hli], a
ld a, [de]
ld [hl], a
.done
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_BugContestScore:
ret
ld a, BANK(sTrainerRankingBugContestScore)
call OpenSRAM
ldh a, [hProduct]
ld hl, sTrainerRankingBugContestScore
cp [hl]
jr z, .isLowByteHigher
jr nc, .newHighScore
jr .done
.isLowByteHigher
inc hl
ldh a, [hMultiplicand]
cp [hl]
jr c, .done
dec hl
.newHighScore
ldh a, [hProduct]
ld [hli], a
ldh a, [hMultiplicand]
ld [hl], a
.done
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_AddToSlotsWinStreak:
ret
ld a, BANK(sTrainerRankingCurrentSlotsStreak)
call OpenSRAM
; Increment the current streak
ld hl, sTrainerRankingCurrentSlotsStreak + 1
inc [hl]
jr nz, .noCarry
dec hl
inc [hl]
inc hl
.noCarry
dec hl
; Now check if this is a new record for longest streak
ld a, [sTrainerRankingLongestSlotsStreak]
cp [hl]
jr z, .isLowByteHigher
jr c, .newRecordStreak
jr .done
.isLowByteHigher
inc hl
ld a, [sTrainerRankingLongestSlotsStreak + 1]
cp [hl]
jr nc, .done
dec hl
.newRecordStreak
ld a, [hli]
ld [sTrainerRankingLongestSlotsStreak], a
ld a, [hl]
ld [sTrainerRankingLongestSlotsStreak + 1], a
.done
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_EndSlotsWinStreak:
ret
ld a, BANK(sTrainerRankingCurrentSlotsStreak)
call OpenSRAM
ld hl, sTrainerRankingCurrentSlotsStreak
xor a
ld [hli], a
ld [hl], a
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_AddToSlotsPayouts:
ret
ld a, BANK(sTrainerRankingTotalSlotsPayouts)
call OpenSRAM
ld hl, sTrainerRankingTotalSlotsPayouts + 3
ld a, e
add [hl]
ld [hld], a
ld a, d
adc [hl]
ld [hld], a
jr nc, .done
inc [hl]
jr nz, .done
dec hl
inc [hl]
jr nz, .done
ld a, $ff
ld [hli], a
ld [hli], a
ld [hli], a
ld [hl], a
.done
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_AddToBattlePayouts:
ret
ld a, BANK(sTrainerRankingTotalBattlePayouts)
call OpenSRAM
ld hl, sTrainerRankingTotalBattlePayouts + 3
ld a, [bc]
dec bc
add [hl]
ld [hld], a
ld a, [bc]
dec bc
adc [hl]
ld [hld], a
ld a, [bc]
adc [hl]
ld [hld], a
jr nc, .done
inc [hl]
jr nz, .done
ld a, $ff
ld [hli], a
ld [hli], a
ld [hli], a
ld [hl], a
.done
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_StepCount:
ret
ld hl, sTrainerRankingStepCount
jp StubbedTrainerRankings_Increment4Byte
StubbedTrainerRankings_BattleTowerWins: ; unreferenced
ret
2020-06-21 09:21:47 -07:00
ld a, BANK(s5_aa8d)
call OpenSRAM
2020-06-21 09:21:47 -07:00
ld a, [s5_aa8d]
and a
call CloseSRAM
ret nz
ld hl, sTrainerRankingBattleTowerWins
jp StubbedTrainerRankings_Increment2Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_TMsHMsTaught:
ret
ld hl, sTrainerRankingTMsHMsTaught
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Battles:
ret
2018-01-23 14:39:09 -08:00
ld a, [wBattleType]
cp BATTLETYPE_TUTORIAL ; Exclude the Dudes tutorial battle
ret z
ld hl, sTrainerRankingBattles
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_WildBattles:
ret
2018-01-23 14:39:09 -08:00
ld a, [wBattleType]
cp BATTLETYPE_TUTORIAL ; Exclude the Dudes tutorial battle
ret z
ld hl, sTrainerRankingWildBattles
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_TrainerBattles:
ret
ld hl, sTrainerRankingTrainerBattles
jp StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_Unused1: ; unreferenced
ret
ld hl, sTrainerRankingUnused1
jp StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_HallOfFame::
ret
ld hl, sTrainerRankingHOFEntries
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_WildMonsCaught:
ret
ld hl, sTrainerRankingWildMonsCaught
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_HookedEncounters:
ret
ld hl, sTrainerRankingHookedEncounters
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_EggsHatched:
ret
ld hl, sTrainerRankingEggsHatched
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_MonsEvolved:
ret
ld hl, sTrainerRankingMonsEvolved
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_FruitPicked:
ret
ld hl, sTrainerRankingFruitPicked
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Healings:
ret
ld hl, sTrainerRankingHealings
jp StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_MysteryGift:
ret
ld hl, sTrainerRankingMysteryGift
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Trades:
ret
ld hl, sTrainerRankingTrades
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Fly:
ret
ld hl, sTrainerRankingFly
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Surf:
ret
ld hl, sTrainerRankingSurf
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Waterfall:
ret
ld hl, sTrainerRankingWaterfall
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_WhiteOuts:
ret
ld hl, sTrainerRankingWhiteOuts
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_LuckyNumberShow:
ret
ld hl, sTrainerRankingLuckyNumberShow
jr StubbedTrainerRankings_Increment2Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_PhoneCalls:
ret
ld hl, sTrainerRankingPhoneCalls
jr StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_Unused2: ; unreferenced
ret
ld hl, sTrainerRankingUnused2
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_LinkBattles:
ret
ld hl, sTrainerRankingLinkBattles
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Splash:
ret
; Only counts if its the players turn
ldh a, [hBattleTurn]
and a
ret nz
ld hl, sTrainerRankingSplash
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_TreeEncounters:
ret
ld hl, sTrainerRankingTreeEncounters
jr StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_Unused3: ; unreferenced
ret
ld hl, sTrainerRankingUnused3
jr StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_ColosseumWins: ; win
ret
ld hl, sTrainerRankingColosseumWins
jr StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_ColosseumLosses: ; lose
ret
ld hl, sTrainerRankingColosseumLosses
jr StubbedTrainerRankings_Increment3Byte
StubbedTrainerRankings_ColosseumDraws: ; draw
ret
ld hl, sTrainerRankingColosseumDraws
jr StubbedTrainerRankings_Increment3Byte
; Counts uses of both Selfdestruct and Explosion.
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Selfdestruct:
ret
; Only counts if its the players turn
ldh a, [hBattleTurn]
and a
ret nz
ld hl, sTrainerRankingSelfdestruct
jr StubbedTrainerRankings_Increment3Byte
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Increment4Byte:
push bc
ld bc, 3
jr StubbedTrainerRankings_Increment
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Increment3Byte:
push bc
ld bc, 2
jr StubbedTrainerRankings_Increment
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Increment2Byte:
push bc
ld bc, 1
jr StubbedTrainerRankings_Increment
StubbedTrainerRankings_Increment1Byte: ; unreferenced
push bc
ld bc, 0
; Increments a big-endian value of bc + 1 bytes at hl
2018-06-24 07:09:41 -07:00
StubbedTrainerRankings_Increment:
ld a, BANK(sTrainerRankings)
call OpenSRAM
push hl
push de
ld e, c
inc e
.asm_106136
ld a, [hli]
inc a
jr nz, .asm_10613d
dec e
jr nz, .asm_106136
.asm_10613d
pop de
pop hl
jr z, .asm_10614d
add hl, bc
.asm_106142
inc [hl]
jr nz, .asm_10614d
ld a, c
and a
jr z, .asm_10614d
dec hl
dec c
jr .asm_106142
.asm_10614d
call UpdateTrainerRankingsChecksum
call CloseSRAM
pop bc
ret
; Used when SRAM bank 5 isnt already loaded — whats the point of this?
2018-06-24 07:09:41 -07:00
UpdateTrainerRankingsChecksum2:
ret
ld a, BANK(sTrainerRankings)
call OpenSRAM
call UpdateTrainerRankingsChecksum
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
UpdateTrainerRankingsChecksum:
push de
call CalculateTrainerRankingsChecksum
ld hl, sTrainerRankingsChecksum
ld [hl], d
inc hl
ld [hl], e
pop de
ret
2018-06-24 07:09:41 -07:00
CalculateTrainerRankingsChecksum:
push bc
ld hl, sTrainerRankings
ld bc, sTrainerRankingsChecksum - sTrainerRankings
xor a
ld de, 0
.asm_106179
ld a, e
add [hl]
ld e, a
jr nc, .asm_10617f
inc d
.asm_10617f
inc hl
dec bc
ld a, b
or c
jr nz, .asm_106179
pop bc
ret
2018-06-24 07:09:41 -07:00
BackupMobileEventIndex:
ld a, BANK(sMobileEventIndex)
call OpenSRAM
ld a, [sMobileEventIndex]
push af
ld a, BANK(sMobileEventIndexBackup)
call OpenSRAM
pop af
ld [sMobileEventIndexBackup], a
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
RestoreMobileEventIndex:
ld a, BANK(sMobileEventIndexBackup)
call OpenSRAM
ld a, [sMobileEventIndexBackup]
push af
ld a, BANK(sMobileEventIndex)
call OpenSRAM
pop af
ld [sMobileEventIndex], a
call CloseSRAM
ret
VerifyTrainerRankingsChecksum: ; unreferenced
call CalculateTrainerRankingsChecksum
ld hl, sTrainerRankingsChecksum
ld a, d
cp [hl]
ret nz
inc hl
ld a, e
cp [hl]
ret
2018-06-24 07:09:41 -07:00
DeleteMobileEventIndex:
ld a, BANK(sMobileEventIndex)
call OpenSRAM
xor a
ld [sMobileEventIndex], a
call CloseSRAM
ret
InitializeTrainerRankings: ; unreferenced
; Initializes Trainer Rankings data for a new save file in JP Crystal.
ld hl, sTrainerRankings
ld bc, sTrainerRankingsEnd - sTrainerRankings
xor a
call ByteFill
; Initialize the shortest Magikarp to 100.0 cm
ld hl, sTrainerRankingShortestMagikarp
ld a, $3
ld [hli], a
ld [hl], $e8
call UpdateTrainerRankingsChecksum
ld hl, sTrainerRankings
ld de, sTrainerRankingsBackup
ld bc, sTrainerRankingsEnd - sTrainerRankings
call CopyBytes
ret
2018-06-24 07:09:41 -07:00
_MobilePrintNum::
; Supports signed 31-bit integers (up to 10 digits)
; b: Bits 0-4 = # bytes
; Bit 7 = set if negative
; c: Number of digits
; de: highest byte of number to convert
; hl: where to print the converted string
push bc
xor a
ldh [hPrintNumBuffer + 0], a
ldh [hPrintNumBuffer + 1], a
ldh [hPrintNumBuffer + 2], a
ld a, b
and $f
cp $1
jr z, .one_byte
cp $2
jr z, .two_bytes
cp $3
jr z, .three_bytes
; four bytes
ld a, [de]
ldh [hPrintNumBuffer + 0], a
inc de
.three_bytes
ld a, [de]
ldh [hPrintNumBuffer + 1], a
inc de
.two_bytes
ld a, [de]
ldh [hPrintNumBuffer + 2], a
inc de
.one_byte
ld a, [de]
ldh [hPrintNumBuffer + 3], a
inc de
push de
xor a
ldh [hPrintNumBuffer + 8], a
ld a, b
ldh [hPrintNumBuffer + 9], a
ld a, c
cp 2
jr z, .two_digits
ld de, ._2
cp 3
jr z, .three_to_nine_digits
ld de, ._3
cp 4
jr z, .three_to_nine_digits
ld de, ._4
cp 5
jr z, .three_to_nine_digits
ld de, ._5
cp 6
jr z, .three_to_nine_digits
ld de, ._6
cp 7
jr z, .three_to_nine_digits
ld de, ._7
cp 8
jr z, .three_to_nine_digits
ld de, ._8
cp 9
jr z, .three_to_nine_digits
ld de, ._9
.three_to_nine_digits
inc de
inc de
inc de
dec a
dec a
.digit_loop
push af
call .Function1062b2
call .Function1062ff
rept 4
inc de
endr
pop af
dec a
jr nz, .digit_loop
.two_digits
ld c, 0
ldh a, [hPrintNumBuffer + 3]
.mod_ten_loop
cp 10
jr c, .simple_divide_done
sub 10
inc c
jr .mod_ten_loop
.simple_divide_done
ld b, a
ldh a, [hPrintNumBuffer + 8]
or c
ldh [hPrintNumBuffer + 8], a
jr nz, .create_digit
call .LoadMinusTenIfNegative
jr .done
.create_digit
ld a, "0"
add c
ld [hl], a
.done
call .Function1062ff
ld a, "0"
add b
ld [hli], a
pop de
pop bc
ret
._9 dd 1000000000
._8 dd 100000000
._7 dd 10000000
._6 dd 1000000
._5 dd 100000
._4 dd 10000
._3 dd 1000
._2 dd 100
2018-06-24 07:09:41 -07:00
.Function1062b2:
ld c, $0
.asm_1062b4
ld a, [de]
dec de
ld b, a
ldh a, [hPrintNumBuffer + 3]
sub b
ldh [hPrintNumBuffer + 7], a
ld a, [de]
dec de
ld b, a
ldh a, [hPrintNumBuffer + 2]
sbc b
ldh [hPrintNumBuffer + 6], a
ld a, [de]
dec de
ld b, a
ldh a, [hPrintNumBuffer + 1]
sbc b
ldh [hPrintNumBuffer + 5], a
ld a, [de]
inc de
inc de
inc de
ld b, a
ldh a, [hPrintNumBuffer + 0]
sbc b
ldh [hPrintNumBuffer + 4], a
jr c, .asm_1062eb
ldh a, [hPrintNumBuffer + 4]
ldh [hPrintNumBuffer + 0], a
ldh a, [hPrintNumBuffer + 5]
ldh [hPrintNumBuffer + 1], a
ldh a, [hPrintNumBuffer + 6]
ldh [hPrintNumBuffer + 2], a
ldh a, [hPrintNumBuffer + 7]
ldh [hPrintNumBuffer + 3], a
inc c
jr .asm_1062b4
.asm_1062eb
ldh a, [hPrintNumBuffer + 8]
or c
jr z, .LoadMinusTenIfNegative
ld a, -10
add c
ld [hl], a
ldh [hPrintNumBuffer + 8], a
ret
.LoadMinusTenIfNegative:
ldh a, [hPrintNumBuffer + 9]
bit 7, a
ret z
ld [hl], -10
ret
2018-06-24 07:09:41 -07:00
.Function1062ff:
ldh a, [hPrintNumBuffer + 9]
bit 7, a
jr nz, .asm_10630d
bit 6, a
jr z, .asm_10630d
ldh a, [hPrintNumBuffer + 8]
and a
ret z
.asm_10630d
inc hl
ret
; functions related to the cable club and various NPC scripts referencing communications
2015-11-16 13:01:45 -08:00
2018-06-24 07:09:41 -07:00
Mobile_DummyReturnFalse:
xor a
2018-01-23 14:39:09 -08:00
ld [wScriptVar], a
ret
2018-06-24 07:09:41 -07:00
Stubbed_Function106314:
ret
2020-06-21 09:21:47 -07:00
ld a, BANK(s4_b000)
call OpenSRAM
ld a, c
cpl
2020-06-21 09:21:47 -07:00
ld [s4_b000], a
call CloseSRAM
2020-06-21 09:21:47 -07:00
ld a, BANK(s7_a800)
call OpenSRAM
ld a, c
2020-06-21 09:21:47 -07:00
ld [s7_a800], a
call CloseSRAM
ret
2018-06-24 07:09:41 -07:00
Mobile_AlwaysReturnNotCarry:
or a
2015-11-16 13:01:45 -08:00
ret
Function106331: ; unreferenced
; called by Mobile_DummyReturnFalse in JP Crystal
2020-06-21 09:21:47 -07:00
; check ~[s4_b000] == [s7_a800]
ld a, BANK(s4_b000)
call OpenSRAM
2020-06-21 09:21:47 -07:00
ld a, [s4_b000]
cpl
ld b, a
call CloseSRAM
2020-06-21 09:21:47 -07:00
ld a, BANK(s7_a800)
call OpenSRAM
2020-06-21 09:21:47 -07:00
ld a, [s7_a800]
ld c, a
call CloseSRAM
ld a, c
cp b
2015-11-16 13:01:45 -08:00
jr nz, .nope
2020-06-21 09:21:47 -07:00
; check [s7_a800] != 0
and a
2015-11-16 13:01:45 -08:00
jr z, .nope
2020-06-21 09:21:47 -07:00
; check !([s7_a800] & %01110000)
2015-11-16 13:01:45 -08:00
and %10001111
cp c
2015-11-16 13:01:45 -08:00
jr nz, .nope
ld c, a
scf
ret
2015-11-16 13:01:45 -08:00
.nope
xor a
ld c, a
ret
2018-06-24 07:09:41 -07:00
Function10635c:
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
bit 7, a
ret nz
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
ld hl, .Jumptable
rst JumpTable
ret
2018-06-24 07:09:41 -07:00
.Jumptable:
2016-05-05 12:07:37 -07:00
dw .init
dw Function106392
dw Function1063cc
dw Function1063d8
dw Function1063e5
dw Function1063f3
dw Function106403
dw Function106442
dw Function106453
2018-06-24 07:09:41 -07:00
.init:
ld de, wcd30
ld hl, $41
ld bc, $41
ld a, $40
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function106392:
xor a
ld [wcf64], a
ld a, [wc821]
bit 1, a
jr nz, .asm_1063a2
bit 0, a
jr z, .asm_1063bf
ret
.asm_1063a2
call Mobile_AlwaysReturnNotCarry
ld a, c
and a
jr nz, .asm_1063b4
ld a, $b
ld [wcf64], a
ld a, $7
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_1063b4
ld a, $7
ld [wcf64], a
ld a, $7
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_1063bf
ld a, $1
ld [wcf64], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1063cc:
ld a, $78
ld [wcd42], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2018-06-24 07:09:41 -07:00
Function1063d8:
ld hl, wcd42
dec [hl]
ret nz
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1063e5:
ld a, [wcf64]
cp $3
ret nz
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function1063f3:
ld de, wcd31
ld a, $32
call Function3e32
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function106403:
ld a, [wc821]
bit 1, a
jr nz, .asm_106426
bit 0, a
jr z, .asm_10640f
ret
.asm_10640f
ld a, [wcd31]
and $80
ld c, a
ld a, [wcd30]
or c
inc a
ld c, a
call Stubbed_Function106314
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_106426
call Mobile_AlwaysReturnNotCarry
ld a, c
and a
jr z, .asm_106435
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
.asm_106435
ld c, $0
call Stubbed_Function106314
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
Function106442:
ld a, $36
call Function3e32
xor a
ldh [hMobile], a
ldh [hMobileReceive], a
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
inc a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
2018-06-24 07:09:41 -07:00
Function106453:
2016-05-05 12:07:37 -07:00
ld a, [wMobileCommsJumptableIndex]
set 7, a
2016-05-05 12:07:37 -07:00
ld [wMobileCommsJumptableIndex], a
nop
ld a, $4
ld [wcf64], a
ret
Stubbed_Function106462:
ret
ret
2018-06-24 07:09:41 -07:00
Function106464::
ld de, FontsExtra_SolidBlackGFX
2018-01-18 23:30:19 -08:00
ld hl, vTiles2 tile "■" ; $60
lb bc, BANK(FontsExtra_SolidBlackGFX), 1
call Get2bpp
ld de, FontsExtra2_UpArrowGFX
ld hl, vTiles2 tile "▲" ; $61
lb bc, BANK(FontsExtra2_UpArrowGFX), 1
call Get2bpp
2020-02-27 11:33:30 -08:00
ld de, MobileDialingFrameGFX
2018-01-18 23:30:19 -08:00
ld hl, vTiles2 tile "☎" ; $62
ld c, 9
2020-02-27 11:33:30 -08:00
ld b, BANK(MobileDialingFrameGFX)
call Get2bpp
ld de, $40b0
2017-12-28 04:32:33 -08:00
ld hl, vTiles2 tile $6b
ld b, $0f ; no graphics at 0f:40b0; JP leftover???
call Get2bpp
2017-12-24 09:47:30 -08:00
farcall LoadFrame
ret
Function10649b: ; unreferenced
2019-04-08 05:15:10 -07:00
ld a, [wTextboxFrame]
2018-01-16 14:27:50 -08:00
maskbits NUM_FRAMES
2018-01-11 20:04:50 -08:00
ld bc, 6 * LEN_1BPP_TILE
ld hl, Frames
call AddNTimes
ld d, h
ld e, l
2018-01-11 20:04:50 -08:00
ld hl, vTiles2 tile "┌" ; $79
ld c, 6 ; "┌" to "┘"
ld b, BANK(Frames)
call Function1064c3
2018-01-11 20:04:50 -08:00
ld hl, vTiles2 tile " " ; $7f
2019-04-08 05:15:10 -07:00
ld de, TextboxSpaceGFX
ld c, 1
2019-04-08 05:15:10 -07:00
ld b, BANK(TextboxSpaceGFX)
call Function1064c3
ret
2018-06-24 07:09:41 -07:00
Function1064c3:
ldh a, [rSVBK]
push af
ld a, $6
ldh [rSVBK], a
push bc
push hl
ld hl, Function3f88
ld a, b
rst FarCall
pop hl
pop bc
pop af
ldh [rSVBK], a
jr asm_1064ed
Function1064d8: ; unreferenced
ldh a, [rSVBK]
push af
ld a, $6
ldh [rSVBK], a
push bc
push hl
ld hl, Function3f9f
ld a, b
rst FarCall
pop hl
pop bc
pop af
ldh [rSVBK], a
jr asm_1064ed
2018-10-24 12:33:18 -07:00
asm_1064ed:
ld de, wDecompressScratch
ld b, $0
ldh a, [rSVBK]
push af
ld a, $6
ldh [rSVBK], a
ldh a, [rVBK]
push af
ld a, $1
ldh [rVBK], a
call Get2bpp
pop af
ldh [rVBK], a
pop af
ldh [rSVBK], a
ret
Function10650a: ; unreferenced
ld de, MobilePhoneTilesGFX
lb bc, BANK(MobilePhoneTilesGFX), 17
call Get2bpp
ret
2020-02-27 11:33:30 -08:00
MobileDialingFrameGFX:
INCBIN "gfx/mobile/dialing_frame.2bpp"