ref: a18cab495dc3fdee85b89faf4b42ca48fd428c1e
dir: /event/poke_seer.asm/
SEER_INTRO EQU 0 SEER_CANT_TELL EQU 1 SEER_MET_AT EQU 2 SEER_TIME_LEVEL EQU 3 SEER_TRADED EQU 4 SEER_CANCEL EQU 5 SEER_EGG EQU 6 SEER_LEVEL_ONLY EQU 7 SpecialPokeSeer: ; 4f0bc ld a, SEER_INTRO call PrintSeerText call Functiona36 ld b, $6 callba Function50000 jr c, .cancel ld a, [CurPartySpecies] 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 ; 4f0ee SeerAction: ; 4f0ee ld a, [$d002] ld hl, SeerActions rst JumpTable ret ; 4f0f6 SeerActions: ; 4f0f6 dw SeerAction0 dw SeerAction1 dw SeerAction2 dw SeerAction3 dw SeerAction4 ; 4f100 SeerAction0: ; 4f100 ld a, SEER_MET_AT call PrintSeerText ld a, SEER_TIME_LEVEL call PrintSeerText call SeerAdvice ret ; 4f10e SeerAction1: ; 4f10e call GetCaughtOT ld a, SEER_TRADED call PrintSeerText ld a, SEER_TIME_LEVEL call PrintSeerText call SeerAdvice ret ; 4f11f SeerAction2: ; 4f11f ld a, SEER_CANT_TELL call PrintSeerText ret ; 4f125 SeerAction3: ; 4f125 ld a, SEER_CANT_TELL call PrintSeerText ret ; 4f12b SeerAction4: ; 4f12b ld a, SEER_LEVEL_ONLY call PrintSeerText call SeerAdvice ret ; 4f134 ReadCaughtData: ; 4f134 ld a, PartyMon1CaughtData - PartyMon1 call GetPartyParamLocation ld a, [hli] ld [$d03b], a ld a, [hld] ld [$d03c], a or [hl] jr z, .asm_4f170 ld a, 1 ld [$d002], a ld a, PartyMon1ID - PartyMon1 call GetPartyParamLocation ld a, [PlayerID] cp [hl] jr nz, .asm_4f15f inc hl ld a, [$d47c] jr nz, .asm_4f15f ld a, 0 ld [$d002], a .asm_4f15f call GetCaughtLevel call GetCaughtOT call GetCaughtName call GetCaughtTime call GetCaughtLocation and a ret .asm_4f170 ld a, 2 ld [$d002], a ret ; 4f176 GetCaughtName: ; 4f176 ld a, [CurPartyMon] ld hl, PartyMon1Nickname ld bc, PKMN_NAME_LENGTH call AddNTimes ld de, $d003 ld bc, PKMN_NAME_LENGTH call CopyBytes ret ; 4f18c GetCaughtLevel: ; 4f18c ld a, "@" ld hl, $d036 ld bc, 4 call ByteFill ; caught level ld a, [$d03b] and $3f jr z, .unknown cp 1 ; hatched from an egg jr nz, .print ld a, 5 ; egg hatch level .print ld [$d03a], a ld hl, $d036 ld de, $d03a ld bc, $4103 call PrintNum ret .unknown ld de, $d036 ld hl, .unknown_level ld bc, 4 call CopyBytes ret ; 4f1c1 .unknown_level ; 4f1c1 db "???@" ; 4f1c5 GetCaughtTime: ; 4f1c5 ld a, [$d03b] and $c0 jr z, .none rlca rlca dec a ld hl, .times call GetNthString ld d, h ld e, l ld hl, $d01f call CopyName2 and a ret .none ld de, $d01f call UnknownCaughtData ret ; 4f1e6 .times ; 4f1e6 db "Morning@" db "Day@" db "Night@" ; 4f1f8 UnknownCaughtData: ; 4f1f8 ld hl, .unknown ld bc, $000b call CopyBytes ret ; 4f202 .unknown ; 4f202 db "Unknown@" ; 4f20a GetCaughtLocation: ; 4f20a ld a, [$d03c] and $7f jr z, .asm_4f22e cp $7f jr z, .asm_4f234 cp $7e jr z, .asm_4f23b ld e, a callba GetLandmarkName ld hl, StringBuffer1 ld de, $d00e ld bc, $0011 call CopyBytes and a ret .asm_4f22e ld de, $d00e jp UnknownCaughtData .asm_4f234 ld a, $4 ld [$d002], a scf ret .asm_4f23b ld a, $3 ld [$d002], a scf ret ; 4f242 GetCaughtOT: ; 4f242 ld a, [CurPartyMon] ld hl, PartyMon1OT ld bc, $000b call AddNTimes ld de, $d02a ld bc, $000b call CopyBytes ld hl, .male ld a, [$d03c] bit 7, a jr z, .asm_4f264 ld hl, .female .asm_4f264 ld de, $d035 ld a, "@" ld [de], a ret ; 4f26b .male ; 4f26b db "@" .female ; 4f26c db "@" ; 4f26d PrintSeerText: ; 4f26d 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 ; 4f27c SeerTexts: ; 4f27c dw SeerIntroText dw SeerCantTellText dw SeerMetAtText dw SeerTimeLevelText dw SeerTradedText dw SeerCancelText dw SeerEggText dw SeerLevelOnlyText ; 4f28c SeerIntroText: ; 0x4f28c ; I see all. I know all… Certainly, I know of your #MON! text_jump UnknownText_0x1c475f db "@" ; 0x4f291 SeerCantTellText: ; 0x4f291 ; Whaaaat? I can't tell a thing! How could I not know of this? text_jump UnknownText_0x1c4797 db "@" ; 0x4f296 SeerMetAtText: ; 0x4f296 ; Hm… I see you met @ here: @ ! text_jump UnknownText_0x1c47d4 db "@" ; 0x4f29b SeerTimeLevelText: ; 0x4f29b ; The time was @ ! Its level was @ ! Am I good or what? text_jump UnknownText_0x1c47fa db "@" ; 0x4f2a0 SeerTradedText: ; 0x4f2a0 ; Hm… @ came from @ in a trade? @ was where @ met @ ! text_jump UnknownText_0x1c4837 db "@" ; 0x4f2a5 SeerLevelOnlyText: ; 0x4f2a5 ; 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_jump UnknownText_0x1c487f db "@" ; 0x4f2aa SeerEggText: ; 0x4f2aa ; Hey! That's an EGG! You can't say that you've met it yet… text_jump UnknownText_0x1c491d db "@" ; 0x4f2af SeerCancelText: ; 0x4f2af ; Fufufu! I saw that you'd do nothing! text_jump UnknownText_0x1c4955 db "@" ; 0x4f2b4 SeerAdvice: ; 4f2b4 ld a, PartyMon1Level - PartyMon1 call GetPartyParamLocation ld a, [$d03a] 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 ; 4f2d6 SeerAdviceTexts: ; 4f2d6 ; level, text dbw 9, SeerAdvice1 dbw 29, SeerAdvice2 dbw 59, SeerAdvice3 dbw 89, SeerAdvice4 dbw 100, SeerAdvice5 dbw 255, SeerAdvice1 ; 4f2e8 SeerAdvice1: ; 0x4f2e8 ; Incidentally… It would be wise to raise your #MON with a little more care. text_jump UnknownText_0x1c497a db "@" ; 0x4f2ed SeerAdvice2: ; 0x4f2ed ; Incidentally… It seems to have grown a little. @ seems to be becoming more confident. text_jump UnknownText_0x1c49c6 db "@" ; 0x4f2f2 SeerAdvice3: ; 0x4f2f2 ; Incidentally… @ has grown. It's gained much strength. text_jump UnknownText_0x1c4a21 db "@" ; 0x4f2f7 SeerAdvice4: ; 0x4f2f7 ; Incidentally… It certainly has grown mighty! This @ must have come through numerous #MON battles. It looks brimming with confidence. text_jump UnknownText_0x1c4a5b db "@" ; 0x4f2fc SeerAdvice5: ; 0x4f2fc ; 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_jump UnknownText_0x1c4ae5 db "@" ; 0x4f301 GetCaughtGender: ; 4f301 ld hl, PartyMon1CaughtGender - PartyMon1 add hl, bc ld a, [hl] and $7f jr z, .genderless cp $7f jr z, .genderless ld a, [hl] and $80 jr nz, .male ld c, 1 ret .male ld c, 2 ret .genderless ld c, 0 ret ; 4f31c