mirror of https://github.com/pret/pokecrystal.git
422 lines
6.6 KiB
NASM
422 lines
6.6 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_RIGHTALIGN | 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 SeerIntroText
|
|
dw SeerCantTellText
|
|
dw SeerMetAtText
|
|
dw SeerTimeLevelText
|
|
dw SeerTradedText
|
|
dw SeerCancelText
|
|
dw SeerEggText
|
|
dw SeerLevelOnlyText
|
|
|
|
SeerIntroText:
|
|
; I see all. I know all… Certainly, I know of your #MON!
|
|
text_far UnknownText_0x1c475f
|
|
db "@"
|
|
|
|
SeerCantTellText:
|
|
; Whaaaat? I can't tell a thing! How could I not know of this?
|
|
text_far UnknownText_0x1c4797
|
|
db "@"
|
|
|
|
SeerMetAtText:
|
|
; Hm… I see you met @ here: @ !
|
|
text_far UnknownText_0x1c47d4
|
|
db "@"
|
|
|
|
SeerTimeLevelText:
|
|
; The time was @ ! Its level was @ ! Am I good or what?
|
|
text_far UnknownText_0x1c47fa
|
|
db "@"
|
|
|
|
SeerTradedText:
|
|
; Hm… @ came from @ in a trade? @ was where @ met @ !
|
|
text_far UnknownText_0x1c4837
|
|
db "@"
|
|
|
|
SeerLevelOnlyText:
|
|
; What!? Incredible! I don't understand how, but it is incredible! You are special. I can't tell where you met it, but it was at level @ . Am I good or what?
|
|
text_far UnknownText_0x1c487f
|
|
db "@"
|
|
|
|
SeerEggText:
|
|
; Hey! That's an EGG! You can't say that you've met it yet…
|
|
text_far UnknownText_0x1c491d
|
|
db "@"
|
|
|
|
SeerCancelText:
|
|
; Fufufu! I saw that you'd do nothing!
|
|
text_far UnknownText_0x1c4955
|
|
db "@"
|
|
|
|
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, SeerAdvice1
|
|
dbw 29, SeerAdvice2
|
|
dbw 59, SeerAdvice3
|
|
dbw 89, SeerAdvice4
|
|
dbw 100, SeerAdvice5
|
|
dbw 255, SeerAdvice1
|
|
|
|
SeerAdvice1:
|
|
; Incidentally… It would be wise to raise your #MON with a little more care.
|
|
text_far UnknownText_0x1c497a
|
|
db "@"
|
|
|
|
SeerAdvice2:
|
|
; Incidentally… It seems to have grown a little. @ seems to be becoming more confident.
|
|
text_far UnknownText_0x1c49c6
|
|
db "@"
|
|
|
|
SeerAdvice3:
|
|
; Incidentally… @ has grown. It's gained much strength.
|
|
text_far UnknownText_0x1c4a21
|
|
db "@"
|
|
|
|
SeerAdvice4:
|
|
; Incidentally… It certainly has grown mighty! This @ must have come through numerous #MON battles. It looks brimming with confidence.
|
|
text_far UnknownText_0x1c4a5b
|
|
db "@"
|
|
|
|
SeerAdvice5:
|
|
; Incidentally… I'm impressed by your dedication. It's been a long time since I've seen a #MON as mighty as this @ . I'm sure that seeing @ in battle would excite anyone.
|
|
text_far UnknownText_0x1c4ae5
|
|
db "@"
|
|
|
|
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
|