mirror of https://github.com/pret/pokecrystal.git
1153 lines
19 KiB
NASM
1153 lines
19 KiB
NASM
; 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:: ; 0x105ef6
|
||
ret
|
||
ld a, BANK(sTrainerRankingGameTimeHOF)
|
||
call GetSRAMBank
|
||
|
||
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
|
||
; 105f33
|
||
|
||
StubbedTrainerRankings_MagikarpLength: ; 105f33
|
||
ret
|
||
ld a, BANK(sTrainerRankingLongestMagikarp)
|
||
call GetSRAMBank
|
||
ld de, wBuffer1
|
||
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
|
||
; 105f79
|
||
|
||
StubbedTrainerRankings_BugContestScore: ; 105f79
|
||
ret
|
||
ld a, BANK(sTrainerRankingBugContestScore)
|
||
call GetSRAMBank
|
||
ld a, [hProduct]
|
||
ld hl, sTrainerRankingBugContestScore
|
||
cp [hl]
|
||
jr z, .isLowByteHigher
|
||
jr nc, .newHighScore
|
||
jr .done
|
||
|
||
.isLowByteHigher
|
||
inc hl
|
||
ld a, [hMultiplicand]
|
||
cp [hl]
|
||
jr c, .done
|
||
dec hl
|
||
|
||
.newHighScore
|
||
ld a, [hProduct]
|
||
ld [hli], a
|
||
ld a, [hMultiplicand]
|
||
ld [hl], a
|
||
|
||
.done
|
||
call UpdateTrainerRankingsChecksum
|
||
call CloseSRAM
|
||
ret
|
||
; 105f9f
|
||
|
||
StubbedTrainerRankings_AddToSlotsWinStreak: ; 105f9f
|
||
ret
|
||
ld a, BANK(sTrainerRankingCurrentSlotsStreak)
|
||
call GetSRAMBank
|
||
|
||
; 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
|
||
; 105fd0
|
||
|
||
StubbedTrainerRankings_EndSlotsWinStreak: ; 105fd0
|
||
ret
|
||
ld a, BANK(sTrainerRankingCurrentSlotsStreak)
|
||
call GetSRAMBank
|
||
ld hl, sTrainerRankingCurrentSlotsStreak
|
||
xor a
|
||
ld [hli], a
|
||
ld [hl], a
|
||
call UpdateTrainerRankingsChecksum
|
||
call CloseSRAM
|
||
ret
|
||
; 105fe3
|
||
|
||
StubbedTrainerRankings_AddToSlotsPayouts: ; 105fe3
|
||
ret
|
||
ld a, BANK(sTrainerRankingTotalSlotsPayouts)
|
||
call GetSRAMBank
|
||
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
|
||
; 106008
|
||
|
||
StubbedTrainerRankings_AddToBattlePayouts: ; 106008
|
||
ret
|
||
ld a, BANK(sTrainerRankingTotalBattlePayouts)
|
||
call GetSRAMBank
|
||
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
|
||
; 10602e
|
||
|
||
StubbedTrainerRankings_StepCount: ; 10602e (41:602e)
|
||
ret
|
||
ld hl, sTrainerRankingStepCount
|
||
jp StubbedTrainerRankings_Increment4Byte
|
||
|
||
Unreferenced_StubbedTrainerRankings_BattleTowerWins: ; 106035
|
||
ret
|
||
ld a, $5
|
||
call GetSRAMBank
|
||
ld a, [$aa8d]
|
||
and a
|
||
call CloseSRAM
|
||
ret nz
|
||
ld hl, sTrainerRankingBattleTowerWins
|
||
jp StubbedTrainerRankings_Increment2Byte
|
||
|
||
StubbedTrainerRankings_TMsHMsTaught: ; 106049
|
||
ret
|
||
ld hl, sTrainerRankingTMsHMsTaught
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Battles: ; 106050
|
||
ret
|
||
ld a, [wBattleType]
|
||
cp BATTLETYPE_TUTORIAL ; Exclude the Dude’s tutorial battle
|
||
ret z
|
||
ld hl, sTrainerRankingBattles
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_WildBattles: ; 10605d
|
||
ret
|
||
ld a, [wBattleType]
|
||
cp BATTLETYPE_TUTORIAL ; Exclude the Dude’s tutorial battle
|
||
ret z
|
||
ld hl, sTrainerRankingWildBattles
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_TrainerBattles: ; 10606a
|
||
ret
|
||
ld hl, sTrainerRankingTrainerBattles
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Unused1: ; 106071
|
||
ret
|
||
ld hl, sTrainerRankingUnused1
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_HallOfFame:: ; 0x106078
|
||
ret
|
||
ld hl, sTrainerRankingHOFEntries
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_WildMonsCaught: ; 10607f (41:607f)
|
||
ret
|
||
ld hl, sTrainerRankingWildMonsCaught
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_HookedEncounters: ; 106086
|
||
ret
|
||
ld hl, sTrainerRankingHookedEncounters
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_EggsHatched: ; 10608d (41:608d)
|
||
ret
|
||
ld hl, sTrainerRankingEggsHatched
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_MonsEvolved: ; 106094
|
||
ret
|
||
ld hl, sTrainerRankingMonsEvolved
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_FruitPicked: ; 10609b
|
||
ret
|
||
ld hl, sTrainerRankingFruitPicked
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Healings: ; 1060a2
|
||
ret
|
||
ld hl, sTrainerRankingHealings
|
||
jp StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_MysteryGift: ; 1060a9 (41:60a9)
|
||
ret
|
||
ld hl, sTrainerRankingMysteryGift
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Trades: ; 1060af
|
||
ret
|
||
ld hl, sTrainerRankingTrades
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Fly: ; 1060b5
|
||
ret
|
||
ld hl, sTrainerRankingFly
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Surf: ; 1060bb
|
||
ret
|
||
ld hl, sTrainerRankingSurf
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Waterfall: ; 1060c1
|
||
ret
|
||
ld hl, sTrainerRankingWaterfall
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_WhiteOuts: ; 1060c7
|
||
ret
|
||
ld hl, sTrainerRankingWhiteOuts
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_LuckyNumberShow: ; 1060cd
|
||
ret
|
||
ld hl, sTrainerRankingLuckyNumberShow
|
||
jr StubbedTrainerRankings_Increment2Byte
|
||
|
||
StubbedTrainerRankings_PhoneCalls: ; 1060d3
|
||
ret
|
||
ld hl, sTrainerRankingPhoneCalls
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Unused2: ; 1060df
|
||
ret
|
||
ld hl, sTrainerRankingUnused2
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_LinkBattles: ; 1060df
|
||
ret
|
||
ld hl, sTrainerRankingLinkBattles
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Splash: ; 1060e5
|
||
ret
|
||
; Only counts if it’s the player’s turn
|
||
ld a, [hBattleTurn]
|
||
and a
|
||
ret nz
|
||
ld hl, sTrainerRankingSplash
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_TreeEncounters: ; 1060ef
|
||
ret
|
||
ld hl, sTrainerRankingTreeEncounters
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
|
||
StubbedTrainerRankings_Unused3: ; 1060f5
|
||
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
|
||
; 106107
|
||
|
||
StubbedTrainerRankings_ColosseumDraws: ; draw
|
||
ret
|
||
ld hl, sTrainerRankingColosseumDraws
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
; 10610d
|
||
|
||
; Counts uses of both Selfdestruct and Explosion.
|
||
StubbedTrainerRankings_Selfdestruct: ; 10610d
|
||
ret
|
||
; Only counts if it’s the player’s turn
|
||
ld a, [hBattleTurn]
|
||
and a
|
||
ret nz
|
||
ld hl, sTrainerRankingSelfdestruct
|
||
jr StubbedTrainerRankings_Increment3Byte
|
||
; 106117
|
||
|
||
StubbedTrainerRankings_Increment4Byte: ; 106117
|
||
push bc
|
||
ld bc, 3
|
||
jr StubbedTrainerRankings_Increment
|
||
; 10611d
|
||
|
||
StubbedTrainerRankings_Increment3Byte: ; 10611d
|
||
push bc
|
||
ld bc, 2
|
||
jr StubbedTrainerRankings_Increment
|
||
; 106123
|
||
|
||
StubbedTrainerRankings_Increment2Byte: ; 106123
|
||
push bc
|
||
ld bc, 1
|
||
jr StubbedTrainerRankings_Increment
|
||
; 106129
|
||
|
||
; unused
|
||
StubbedTrainerRankings_Increment1Byte: ; 106129
|
||
push bc
|
||
ld bc, 0
|
||
|
||
; Increments a big-endian value of bc + 1 bytes at hl
|
||
StubbedTrainerRankings_Increment: ; 10612d
|
||
ld a, BANK(sTrainerRankings)
|
||
call GetSRAMBank
|
||
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
|
||
; 106155
|
||
|
||
; Used when SRAM bank 5 isn’t already loaded — what’s the point of this?
|
||
UpdateTrainerRankingsChecksum2: ; 106155
|
||
ret
|
||
ld a, BANK(sTrainerRankings)
|
||
call GetSRAMBank
|
||
call UpdateTrainerRankingsChecksum
|
||
call CloseSRAM
|
||
ret
|
||
; 106162
|
||
|
||
UpdateTrainerRankingsChecksum: ; 106162
|
||
push de
|
||
call CalculateTrainerRankingsChecksum
|
||
ld hl, sTrainerRankingsChecksum
|
||
ld [hl], d
|
||
inc hl
|
||
ld [hl], e
|
||
pop de
|
||
ret
|
||
; 10616e
|
||
|
||
CalculateTrainerRankingsChecksum: ; 10616e
|
||
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
|
||
; 106187
|
||
|
||
|
||
BackupMobileEventIndex: ; 106187
|
||
ld a, BANK(sMobileEventIndex)
|
||
call GetSRAMBank
|
||
ld a, [sMobileEventIndex]
|
||
push af
|
||
ld a, BANK(sMobileEventIndexBackup)
|
||
call GetSRAMBank
|
||
pop af
|
||
ld [sMobileEventIndexBackup], a
|
||
call CloseSRAM
|
||
ret
|
||
; 10619d
|
||
|
||
|
||
RestoreMobileEventIndex: ; 10619d (41:619d)
|
||
ld a, BANK(sMobileEventIndexBackup)
|
||
call GetSRAMBank
|
||
ld a, [sMobileEventIndexBackup]
|
||
push af
|
||
ld a, BANK(sMobileEventIndex)
|
||
call GetSRAMBank
|
||
pop af
|
||
ld [sMobileEventIndex], a
|
||
call CloseSRAM
|
||
ret
|
||
; 1061b3 (41:61b3)
|
||
|
||
Unreferenced_VerifyTrainerRankingsChecksum: ; 1061b3
|
||
call CalculateTrainerRankingsChecksum
|
||
ld hl, sTrainerRankingsChecksum
|
||
ld a, d
|
||
cp [hl]
|
||
ret nz
|
||
inc hl
|
||
ld a, e
|
||
cp [hl]
|
||
ret
|
||
; 1061c0
|
||
|
||
DeleteMobileEventIndex: ; 1061c0 (41:61c0)
|
||
ld a, BANK(sMobileEventIndex)
|
||
call GetSRAMBank
|
||
xor a
|
||
ld [sMobileEventIndex], a
|
||
call CloseSRAM
|
||
ret
|
||
; 1061cd (41:61cd)
|
||
|
||
; Used in the Japanese version to initialize Trainer Rankings data
|
||
; for a new save file. Unreferenced in the English version.
|
||
InitializeTrainerRankings:
|
||
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
|
||
; 1061ef
|
||
|
||
|
||
_MobilePrintNum:: ; 1061ef
|
||
; 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
|
||
ld [hPrintNum1], a
|
||
ld [hPrintNum2], a
|
||
ld [hPrintNum3], 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]
|
||
ld [hPrintNum1], a
|
||
inc de
|
||
|
||
.three_bytes
|
||
ld a, [de]
|
||
ld [hPrintNum2], a
|
||
inc de
|
||
|
||
.two_bytes
|
||
ld a, [de]
|
||
ld [hPrintNum3], a
|
||
inc de
|
||
|
||
.one_byte
|
||
ld a, [de]
|
||
ld [hPrintNum4], a
|
||
inc de
|
||
|
||
push de
|
||
xor a
|
||
ld [hPrintNum9], a
|
||
ld a, b
|
||
ld [hPrintNum10], 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
|
||
ld a, [hPrintNum4]
|
||
.mod_ten_loop
|
||
cp 10
|
||
jr c, .simple_divide_done
|
||
sub 10
|
||
inc c
|
||
jr .mod_ten_loop
|
||
|
||
.simple_divide_done
|
||
ld b, a
|
||
ld a, [hPrintNum9]
|
||
or c
|
||
ld [hPrintNum9], 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
|
||
; 106292
|
||
|
||
._9 dd 1000000000
|
||
._8 dd 100000000
|
||
._7 dd 10000000
|
||
._6 dd 1000000
|
||
._5 dd 100000
|
||
._4 dd 10000
|
||
._3 dd 1000
|
||
._2 dd 100
|
||
; 1062b2
|
||
|
||
.Function1062b2: ; 1062b2
|
||
ld c, $0
|
||
.asm_1062b4
|
||
ld a, [de]
|
||
dec de
|
||
ld b, a
|
||
ld a, [hPrintNum4]
|
||
sub b
|
||
ld [hPrintNum8], a
|
||
ld a, [de]
|
||
dec de
|
||
ld b, a
|
||
ld a, [hPrintNum3]
|
||
sbc b
|
||
ld [hPrintNum7], a
|
||
ld a, [de]
|
||
dec de
|
||
ld b, a
|
||
ld a, [hPrintNum2]
|
||
sbc b
|
||
ld [hPrintNum6], a
|
||
ld a, [de]
|
||
inc de
|
||
inc de
|
||
inc de
|
||
ld b, a
|
||
ld a, [hPrintNum1]
|
||
sbc b
|
||
ld [hPrintNum5], a
|
||
jr c, .asm_1062eb
|
||
ld a, [hPrintNum5]
|
||
ld [hPrintNum1], a
|
||
ld a, [hPrintNum6]
|
||
ld [hPrintNum2], a
|
||
ld a, [hPrintNum7]
|
||
ld [hPrintNum3], a
|
||
ld a, [hPrintNum8]
|
||
ld [hPrintNum4], a
|
||
inc c
|
||
jr .asm_1062b4
|
||
|
||
.asm_1062eb
|
||
ld a, [hPrintNum9]
|
||
or c
|
||
jr z, .LoadMinusTenIfNegative
|
||
ld a, -10
|
||
add c
|
||
ld [hl], a
|
||
ld [hPrintNum9], a
|
||
ret
|
||
|
||
.LoadMinusTenIfNegative:
|
||
ld a, [hPrintNum10]
|
||
bit 7, a
|
||
ret z
|
||
|
||
ld [hl], -10
|
||
ret
|
||
; 1062ff
|
||
|
||
.Function1062ff: ; 1062ff
|
||
ld a, [hPrintNum10]
|
||
bit 7, a
|
||
jr nz, .asm_10630d
|
||
bit 6, a
|
||
jr z, .asm_10630d
|
||
ld a, [hPrintNum9]
|
||
and a
|
||
ret z
|
||
|
||
.asm_10630d
|
||
inc hl
|
||
ret
|
||
; 10630f
|
||
|
||
; functions related to the cable club and various NPC scripts referencing communications
|
||
|
||
Mobile_DummyReturnFalse: ; 10630f
|
||
xor a
|
||
ld [wScriptVar], a
|
||
ret
|
||
; 106314
|
||
|
||
Stubbed_Function106314: ; 106314
|
||
ret
|
||
ld a, $4
|
||
call GetSRAMBank
|
||
ld a, c
|
||
cpl
|
||
ld [$b000], a
|
||
call CloseSRAM
|
||
ld a, $7
|
||
call GetSRAMBank
|
||
ld a, c
|
||
ld [$a800], a
|
||
call CloseSRAM
|
||
ret
|
||
; 10632f
|
||
|
||
Mobile_AlwaysReturnNotCarry: ; 10632f
|
||
or a
|
||
ret
|
||
|
||
Function106331: ; 106331 - called by Mobile_DummyReturnFalse in Crystal-J
|
||
; check ~[4:b000] == [7:a800]
|
||
ld a, $4
|
||
call GetSRAMBank
|
||
ld a, [$b000]
|
||
cpl
|
||
ld b, a
|
||
call CloseSRAM
|
||
ld a, $7
|
||
call GetSRAMBank
|
||
ld a, [$a800]
|
||
ld c, a
|
||
call CloseSRAM
|
||
ld a, c
|
||
cp b
|
||
jr nz, .nope
|
||
|
||
; check [7:a800] != 0
|
||
and a
|
||
jr z, .nope
|
||
|
||
; check !([7:a800] & %01110000)
|
||
and %10001111
|
||
cp c
|
||
jr nz, .nope
|
||
|
||
ld c, a
|
||
scf
|
||
ret
|
||
|
||
.nope
|
||
xor a
|
||
ld c, a
|
||
ret
|
||
; 10635c
|
||
|
||
Function10635c: ; 10635c
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
bit 7, a
|
||
ret nz
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
ld hl, .Jumptable
|
||
rst JumpTable
|
||
ret
|
||
; 10636a
|
||
|
||
.Jumptable: ; 10636a
|
||
dw .init
|
||
dw Function106392
|
||
dw Function1063cc
|
||
dw Function1063d8
|
||
dw Function1063e5
|
||
dw Function1063f3
|
||
dw Function106403
|
||
dw Function106442
|
||
dw Function106453
|
||
; 10637c
|
||
|
||
.init: ; 10637c
|
||
ld de, wcd30
|
||
ld hl, $41
|
||
ld bc, $41
|
||
ld a, $40
|
||
call Function3e32
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
; 106392
|
||
|
||
Function106392: ; 106392
|
||
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
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
|
||
.asm_1063b4
|
||
ld a, $7
|
||
ld [wcf64], a
|
||
ld a, $7
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
|
||
.asm_1063bf
|
||
ld a, $1
|
||
ld [wcf64], a
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
; 1063cc
|
||
|
||
Function1063cc: ; 1063cc
|
||
ld a, $78
|
||
ld [wcd42], a
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
|
||
Function1063d8: ; 1063d8
|
||
ld hl, wcd42
|
||
dec [hl]
|
||
ret nz
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
; 1063e5
|
||
|
||
Function1063e5: ; 1063e5
|
||
ld a, [wcf64]
|
||
cp $3
|
||
ret nz
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
; 1063f3
|
||
|
||
Function1063f3: ; 1063f3
|
||
ld de, wcd31
|
||
ld a, $32
|
||
call Function3e32
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
; 106403
|
||
|
||
Function106403: ; 106403
|
||
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
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
|
||
.asm_106426
|
||
call Mobile_AlwaysReturnNotCarry
|
||
ld a, c
|
||
and a
|
||
jr z, .asm_106435
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
|
||
.asm_106435
|
||
ld c, $0
|
||
call Stubbed_Function106314
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
ret
|
||
; 106442
|
||
|
||
Function106442: ; 106442
|
||
ld a, $36
|
||
call Function3e32
|
||
xor a
|
||
ld [hMobile], a
|
||
ld [hMobileReceive], a
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
inc a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
|
||
Function106453: ; 106453
|
||
ld a, [wMobileCommsJumptableIndex]
|
||
set 7, a
|
||
ld [wMobileCommsJumptableIndex], a
|
||
nop
|
||
ld a, $4
|
||
ld [wcf64], a
|
||
ret
|
||
; 106462
|
||
|
||
Stubbed_Function106462:
|
||
ret
|
||
ret
|
||
; 106464
|
||
|
||
Function106464:: ; 106464
|
||
ld de, FontsExtra_SolidBlackGFX
|
||
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
|
||
ld de, GFX_106514
|
||
ld hl, vTiles2 tile "☎" ; $62
|
||
ld c, 9
|
||
ld b, BANK(GFX_106514)
|
||
call Get2bpp
|
||
ld de, $40b0
|
||
ld hl, vTiles2 tile $6b
|
||
ld b, $f ; XXX no graphics at 0f:40b0
|
||
call Get2bpp
|
||
farcall LoadFrame
|
||
ret
|
||
; 10649b
|
||
|
||
Function10649b: ; 10649b
|
||
ld a, [wTextBoxFrame]
|
||
maskbits NUM_FRAMES
|
||
ld bc, 6 * LEN_1BPP_TILE
|
||
ld hl, Frames
|
||
call AddNTimes
|
||
ld d, h
|
||
ld e, l
|
||
ld hl, vTiles2 tile "┌" ; $79
|
||
ld c, 6 ; "┌" to "┘"
|
||
ld b, BANK(Frames)
|
||
call Function1064c3
|
||
ld hl, vTiles2 tile " " ; $7f
|
||
ld de, TextBoxSpaceGFX
|
||
ld c, 1
|
||
ld b, BANK(TextBoxSpaceGFX)
|
||
call Function1064c3
|
||
ret
|
||
; 1064c3
|
||
|
||
Function1064c3: ; 1064c3
|
||
ld a, [rSVBK]
|
||
push af
|
||
ld a, $6
|
||
ld [rSVBK], a
|
||
push bc
|
||
push hl
|
||
ld hl, Function3f88
|
||
ld a, b
|
||
rst FarCall
|
||
pop hl
|
||
pop bc
|
||
pop af
|
||
ld [rSVBK], a
|
||
jr asm_1064ed
|
||
|
||
Function1064d8: ; 1064d8
|
||
ld a, [rSVBK]
|
||
push af
|
||
ld a, $6
|
||
ld [rSVBK], a
|
||
push bc
|
||
push hl
|
||
ld hl, Function3f9f
|
||
ld a, b
|
||
rst FarCall
|
||
pop hl
|
||
pop bc
|
||
pop af
|
||
ld [rSVBK], a
|
||
jr asm_1064ed
|
||
|
||
asm_1064ed
|
||
ld de, wDecompressScratch
|
||
ld b, $0
|
||
ld a, [rSVBK]
|
||
push af
|
||
ld a, $6
|
||
ld [rSVBK], a
|
||
ld a, [rVBK]
|
||
push af
|
||
ld a, $1
|
||
ld [rVBK], a
|
||
call Get2bpp
|
||
pop af
|
||
ld [rVBK], a
|
||
pop af
|
||
ld [rSVBK], a
|
||
ret
|
||
; 10650a
|
||
|
||
Function10650a: ; 10650a
|
||
ld de, MobilePhoneTilesGFX
|
||
lb bc, BANK(MobilePhoneTilesGFX), 17
|
||
call Get2bpp
|
||
ret
|
||
; 106514
|
||
|
||
GFX_106514:
|
||
INCBIN "gfx/unknown/106514.2bpp"
|