mirror of https://github.com/pret/pokecrystal.git
409 lines
5.7 KiB
NASM
409 lines
5.7 KiB
NASM
const_def
|
|
const SEER_INTRO
|
|
const SEER_CANT_TELL
|
|
const SEER_MET_AT
|
|
const SEER_TIME_LEVEL
|
|
const SEER_TRADED
|
|
const SEER_CANCEL
|
|
const SEER_EGG
|
|
const SEER_LEVEL_ONLY
|
|
|
|
const_def
|
|
const SEERACTION_MET
|
|
const SEERACTION_TRADED
|
|
const SEERACTION_CANT_TELL_1
|
|
const SEERACTION_CANT_TELL_2
|
|
const SEERACTION_LEVEL_ONLY
|
|
|
|
PokeSeer:
|
|
ld a, SEER_INTRO
|
|
call PrintSeerText
|
|
call JoyWaitAorB
|
|
|
|
ld b, PARTY_LENGTH
|
|
farcall SelectMonFromParty
|
|
jr c, .cancel
|
|
|
|
ld a, [wCurPartySpecies]
|
|
cp EGG
|
|
jr z, .egg
|
|
|
|
call IsAPokemon
|
|
jr c, .no_mon
|
|
|
|
call ReadCaughtData
|
|
call SeerAction
|
|
ret
|
|
|
|
.cancel
|
|
ld a, SEER_CANCEL
|
|
call PrintSeerText
|
|
ret
|
|
|
|
.no_mon
|
|
ret
|
|
|
|
.egg
|
|
ld a, SEER_EGG
|
|
call PrintSeerText
|
|
ret
|
|
|
|
SeerAction:
|
|
ld a, [wSeerAction]
|
|
ld hl, SeerActions
|
|
rst JumpTable
|
|
ret
|
|
|
|
SeerActions:
|
|
dw SeerAction0
|
|
dw SeerAction1
|
|
dw SeerAction2
|
|
dw SeerAction3
|
|
dw SeerAction4
|
|
|
|
SeerAction0:
|
|
ld a, SEER_MET_AT
|
|
call PrintSeerText
|
|
ld a, SEER_TIME_LEVEL
|
|
call PrintSeerText
|
|
call SeerAdvice
|
|
ret
|
|
|
|
SeerAction1:
|
|
call GetCaughtOT
|
|
ld a, SEER_TRADED
|
|
call PrintSeerText
|
|
ld a, SEER_TIME_LEVEL
|
|
call PrintSeerText
|
|
call SeerAdvice
|
|
ret
|
|
|
|
SeerAction2:
|
|
ld a, SEER_CANT_TELL
|
|
call PrintSeerText
|
|
ret
|
|
|
|
SeerAction3:
|
|
ld a, SEER_CANT_TELL
|
|
call PrintSeerText
|
|
ret
|
|
|
|
SeerAction4:
|
|
ld a, SEER_LEVEL_ONLY
|
|
call PrintSeerText
|
|
call SeerAdvice
|
|
ret
|
|
|
|
ReadCaughtData:
|
|
ld a, MON_CAUGHTDATA
|
|
call GetPartyParamLocation
|
|
ld a, [hli]
|
|
ld [wSeerCaughtData], a
|
|
ld a, [hld]
|
|
ld [wSeerCaughtGender], a
|
|
or [hl]
|
|
jr z, .error
|
|
|
|
ld a, SEERACTION_TRADED
|
|
ld [wSeerAction], a
|
|
|
|
ld a, MON_ID
|
|
call GetPartyParamLocation
|
|
ld a, [wPlayerID]
|
|
cp [hl]
|
|
jr nz, .traded
|
|
|
|
inc hl
|
|
ld a, [wPlayerID + 1]
|
|
; cp [hl]
|
|
jr nz, .traded
|
|
|
|
ld a, SEERACTION_MET
|
|
ld [wSeerAction], a
|
|
|
|
.traded
|
|
call GetCaughtLevel
|
|
call GetCaughtOT
|
|
call GetCaughtName
|
|
call GetCaughtTime
|
|
call GetCaughtLocation
|
|
and a
|
|
ret
|
|
|
|
.error
|
|
ld a, SEERACTION_CANT_TELL_1
|
|
ld [wSeerAction], a
|
|
ret
|
|
|
|
GetCaughtName:
|
|
ld a, [wCurPartyMon]
|
|
ld hl, wPartyMonNicknames
|
|
ld bc, MON_NAME_LENGTH
|
|
call AddNTimes
|
|
ld de, wSeerNickname
|
|
ld bc, MON_NAME_LENGTH
|
|
call CopyBytes
|
|
ret
|
|
|
|
GetCaughtLevel:
|
|
ld a, "@"
|
|
ld hl, wSeerCaughtLevelString
|
|
ld bc, 4
|
|
call ByteFill
|
|
|
|
; caught level
|
|
; Limited to between 1 and 63 since it's a 6-bit quantity.
|
|
ld a, [wSeerCaughtData]
|
|
and CAUGHT_LEVEL_MASK
|
|
jr z, .unknown
|
|
cp CAUGHT_EGG_LEVEL ; egg marker value
|
|
jr nz, .print
|
|
ld a, EGG_LEVEL ; egg hatch level
|
|
|
|
.print
|
|
ld [wSeerCaughtLevel], a
|
|
ld hl, wSeerCaughtLevelString
|
|
ld de, wSeerCaughtLevel
|
|
lb bc, PRINTNUM_LEFTALIGN | 1, 3
|
|
call PrintNum
|
|
ret
|
|
|
|
.unknown
|
|
ld de, wSeerCaughtLevelString
|
|
ld hl, .unknown_level
|
|
ld bc, 4
|
|
call CopyBytes
|
|
ret
|
|
|
|
.unknown_level
|
|
db "???@"
|
|
|
|
GetCaughtTime:
|
|
ld a, [wSeerCaughtData]
|
|
and CAUGHT_TIME_MASK
|
|
jr z, .none
|
|
|
|
rlca
|
|
rlca
|
|
dec a
|
|
ld hl, .times
|
|
call GetNthString
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, wSeerTimeOfDay
|
|
call CopyName2
|
|
and a
|
|
ret
|
|
|
|
.none
|
|
ld de, wSeerTimeOfDay
|
|
call UnknownCaughtData
|
|
ret
|
|
|
|
.times
|
|
db "Morning@"
|
|
db "Day@"
|
|
db "Night@"
|
|
|
|
UnknownCaughtData:
|
|
ld hl, .unknown
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
ret
|
|
|
|
.unknown
|
|
db "Unknown@"
|
|
|
|
GetCaughtLocation:
|
|
ld a, [wSeerCaughtGender]
|
|
and CAUGHT_LOCATION_MASK
|
|
jr z, .Unknown
|
|
cp EVENT_LOCATION
|
|
jr z, .event
|
|
cp GIFT_LOCATION
|
|
jr z, .fail
|
|
ld e, a
|
|
farcall GetLandmarkName
|
|
ld hl, wStringBuffer1
|
|
ld de, wSeerCaughtLocation
|
|
ld bc, 17
|
|
call CopyBytes
|
|
and a
|
|
ret
|
|
|
|
.Unknown:
|
|
ld de, wSeerCaughtLocation
|
|
jp UnknownCaughtData
|
|
|
|
.event
|
|
ld a, SEERACTION_LEVEL_ONLY
|
|
ld [wSeerAction], a
|
|
scf
|
|
ret
|
|
|
|
.fail
|
|
ld a, SEERACTION_CANT_TELL_2
|
|
ld [wSeerAction], a
|
|
scf
|
|
ret
|
|
|
|
GetCaughtOT:
|
|
ld a, [wCurPartyMon]
|
|
ld hl, wPartyMonOT
|
|
ld bc, NAME_LENGTH
|
|
call AddNTimes
|
|
ld de, wSeerOTName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
|
|
; this routine is useless in Western localizations
|
|
ld hl, .male
|
|
ld a, [wSeerCaughtGender]
|
|
bit 7, a
|
|
jr z, .got_grammar
|
|
ld hl, .female
|
|
|
|
.got_grammar
|
|
ld de, wSeerOTNameGrammar
|
|
ld a, "@"
|
|
ld [de], a
|
|
ret
|
|
|
|
.male
|
|
db "@"
|
|
.female
|
|
db "@"
|
|
|
|
PrintSeerText:
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, SeerTexts
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
call PrintText
|
|
ret
|
|
|
|
SeerTexts:
|
|
dw SeerSeeAllText
|
|
dw SeerCantTellAThingText
|
|
dw SeerNameLocationText
|
|
dw SeerTimeLevelText
|
|
dw SeerTradeText
|
|
dw SeerDoNothingText
|
|
dw SeerEggText
|
|
dw SeerNoLocationText
|
|
|
|
SeerSeeAllText:
|
|
text_far _SeerSeeAllText
|
|
text_end
|
|
|
|
SeerCantTellAThingText:
|
|
text_far _SeerCantTellAThingText
|
|
text_end
|
|
|
|
SeerNameLocationText:
|
|
text_far _SeerNameLocationText
|
|
text_end
|
|
|
|
SeerTimeLevelText:
|
|
text_far _SeerTimeLevelText
|
|
text_end
|
|
|
|
SeerTradeText:
|
|
text_far _SeerTradeText
|
|
text_end
|
|
|
|
SeerNoLocationText:
|
|
text_far _SeerNoLocationText
|
|
text_end
|
|
|
|
SeerEggText:
|
|
text_far _SeerEggText
|
|
text_end
|
|
|
|
SeerDoNothingText:
|
|
text_far _SeerDoNothingText
|
|
text_end
|
|
|
|
SeerAdvice:
|
|
ld a, MON_LEVEL
|
|
call GetPartyParamLocation
|
|
ld a, [wSeerCaughtLevel]
|
|
ld c, a
|
|
ld a, [hl]
|
|
sub c
|
|
ld c, a
|
|
|
|
ld hl, SeerAdviceTexts
|
|
ld de, 3
|
|
.next
|
|
cp [hl]
|
|
jr c, .print
|
|
jr z, .print
|
|
add hl, de
|
|
jr .next
|
|
|
|
.print
|
|
inc hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
call PrintText
|
|
ret
|
|
|
|
SeerAdviceTexts:
|
|
; level, text
|
|
dbw 9, SeerMoreCareText
|
|
dbw 29, SeerMoreConfidentText
|
|
dbw 59, SeerMuchStrengthText
|
|
dbw 89, SeerMightyText
|
|
dbw 100, SeerImpressedText
|
|
dbw 255, SeerMoreCareText
|
|
|
|
SeerMoreCareText:
|
|
text_far _SeerMoreCareText
|
|
text_end
|
|
|
|
SeerMoreConfidentText:
|
|
text_far _SeerMoreConfidentText
|
|
text_end
|
|
|
|
SeerMuchStrengthText:
|
|
text_far _SeerMuchStrengthText
|
|
text_end
|
|
|
|
SeerMightyText:
|
|
text_far _SeerMightyText
|
|
text_end
|
|
|
|
SeerImpressedText:
|
|
text_far _SeerImpressedText
|
|
text_end
|
|
|
|
GetCaughtGender:
|
|
ld hl, MON_CAUGHTGENDER
|
|
add hl, bc
|
|
|
|
ld a, [hl]
|
|
and CAUGHT_LOCATION_MASK
|
|
jr z, .genderless
|
|
cp EVENT_LOCATION
|
|
jr z, .genderless
|
|
|
|
ld a, [hl]
|
|
and CAUGHT_GENDER_MASK
|
|
jr nz, .male
|
|
ld c, CAUGHT_BY_GIRL
|
|
ret
|
|
|
|
.male
|
|
ld c, CAUGHT_BY_BOY
|
|
ret
|
|
|
|
.genderless
|
|
ld c, CAUGHT_BY_UNKNOWN
|
|
ret
|