pokecrystal/engine/caught_data.asm

248 lines
4.3 KiB
NASM
Raw Normal View History

2018-01-02 16:13:57 +00:00
Special_CheckPartyFullAfterContest: ; 4d9e5
ld a, [wContestMon]
and a
jp z, .DidntCatchAnything
2018-01-23 22:39:09 +00:00
ld [wCurPartySpecies], a
ld [wCurSpecies], a
call GetBaseData
2018-01-23 22:39:09 +00:00
ld hl, wPartyCount
ld a, [hl]
2018-01-11 17:00:01 +00:00
cp PARTY_LENGTH
jp nc, .TryAddToBox
inc a
ld [hl], a
ld c, a
2018-01-11 17:00:01 +00:00
ld b, 0
add hl, bc
ld a, [wContestMon]
ld [hli], a
2018-01-23 22:39:09 +00:00
ld [wCurSpecies], a
2018-01-11 17:00:01 +00:00
ld a, -1
ld [hl], a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1Species
ld a, [wPartyCount]
dec a
ld bc, PARTYMON_STRUCT_LENGTH
call AddNTimes
ld d, h
ld e, l
ld hl, wContestMon
ld bc, PARTYMON_STRUCT_LENGTH
call CopyBytes
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMonOT
call SkipNames
ld d, h
ld e, l
2018-01-23 22:39:09 +00:00
ld hl, wPlayerName
call CopyBytes
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
ld [wd265], a
call GetPokemonName
2018-01-23 22:39:09 +00:00
ld hl, wStringBuffer1
ld de, wMonOrItemNameBuffer
2018-01-20 17:25:55 +00:00
ld bc, MON_NAME_LENGTH
call CopyBytes
call GiveANickname_YesNo
jr c, .Party_SkipNickname
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld [wCurPartyMon], a
xor a
2018-01-23 22:39:09 +00:00
ld [wMonType], a
ld de, wMonOrItemNameBuffer
2017-12-24 17:47:30 +00:00
callfar InitNickname
.Party_SkipNickname:
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMonNicknames
call SkipNames
ld d, h
ld e, l
ld hl, wMonOrItemNameBuffer
call CopyBytes
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1Level
call GetPartyLocation
ld a, [hl]
2018-01-23 22:39:09 +00:00
ld [wCurPartyLevel], a
call SetCaughtData
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1CaughtLocation
call GetPartyLocation
ld a, [hl]
2018-01-11 17:00:01 +00:00
and CAUGHT_GENDER_MASK
ld b, NATIONAL_PARK
or b
ld [hl], a
xor a
ld [wContestMon], a
2018-01-12 06:40:20 +00:00
and a ; BUGCONTEST_CAUGHT_MON
2018-01-23 22:39:09 +00:00
ld [wScriptVar], a
ret
.TryAddToBox: ; 4daa3
ld a, BANK(sBoxCount)
call GetSRAMBank
ld hl, sBoxCount
ld a, [hl]
cp MONS_PER_BOX
call CloseSRAM
jr nc, .BoxFull
xor a
2018-01-23 22:39:09 +00:00
ld [wCurPartyMon], a
ld hl, wContestMon
ld de, wBufferMon
ld bc, BOXMON_STRUCT_LENGTH
call CopyBytes
2018-01-23 22:39:09 +00:00
ld hl, wPlayerName
ld de, wBufferMonOT
ld bc, NAME_LENGTH
call CopyBytes
2017-12-24 17:47:30 +00:00
callfar InsertPokemonIntoBox
2018-01-23 22:39:09 +00:00
ld a, [wCurPartySpecies]
ld [wd265], a
call GetPokemonName
call GiveANickname_YesNo
2018-01-23 22:39:09 +00:00
ld hl, wStringBuffer1
jr c, .Box_SkipNickname
ld a, BOXMON
2018-01-23 22:39:09 +00:00
ld [wMonType], a
ld de, wMonOrItemNameBuffer
2017-12-24 17:47:30 +00:00
callfar InitNickname
ld hl, wMonOrItemNameBuffer
.Box_SkipNickname:
ld a, BANK(sBoxMonNicknames)
call GetSRAMBank
ld de, sBoxMonNicknames
2018-01-20 17:25:55 +00:00
ld bc, MON_NAME_LENGTH
call CopyBytes
call CloseSRAM
.BoxFull:
ld a, BANK(sBoxMon1Level)
call GetSRAMBank
ld a, [sBoxMon1Level]
2018-01-23 22:39:09 +00:00
ld [wCurPartyLevel], a
call CloseSRAM
call SetBoxMonCaughtData
ld a, BANK(sBoxMon1CaughtLocation)
call GetSRAMBank
ld hl, sBoxMon1CaughtLocation
ld a, [hl]
2018-01-11 17:00:01 +00:00
and CAUGHT_GENDER_MASK
ld b, NATIONAL_PARK
or b
ld [hl], a
call CloseSRAM
xor a
ld [wContestMon], a
2018-01-12 06:40:20 +00:00
ld a, BUGCONTEST_BOXED_MON
2018-01-23 22:39:09 +00:00
ld [wScriptVar], a
ret
.DidntCatchAnything: ; 4db35
2018-01-12 06:40:20 +00:00
ld a, BUGCONTEST_NO_CATCH
2018-01-23 22:39:09 +00:00
ld [wScriptVar], a
ret
GiveANickname_YesNo: ; 4db3b
ld hl, TextJump_GiveANickname
call PrintText
jp YesNoBox
TextJump_GiveANickname: ; 0x4db44
; Give a nickname to the @ you received?
text_jump UnknownText_0x1c12fc
db "@"
SetCaughtData: ; 4db49
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1CaughtLevel
call GetPartyLocation
SetBoxmonOrEggmonCaughtData: ; 4db53
2018-01-23 22:39:09 +00:00
ld a, [wTimeOfDay]
inc a
rrca
rrca
ld b, a
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyLevel]
or b
ld [hli], a
2018-01-23 22:39:09 +00:00
ld a, [wMapGroup]
ld b, a
2018-01-23 22:39:09 +00:00
ld a, [wMapNumber]
ld c, a
cp MAP_POKECENTER_2F
jr nz, .NotPokecenter2F
ld a, b
cp GROUP_POKECENTER_2F
jr nz, .NotPokecenter2F
2018-01-23 22:39:09 +00:00
ld a, [wBackupMapGroup]
ld b, a
2018-01-23 22:39:09 +00:00
ld a, [wBackupMapNumber]
ld c, a
.NotPokecenter2F:
call GetWorldMapLocation
ld b, a
ld a, [wPlayerGender]
rrca
or b
ld [hl], a
ret
SetBoxMonCaughtData: ; 4db83
ld a, BANK(sBoxMon1CaughtLevel)
call GetSRAMBank
ld hl, sBoxMon1CaughtLevel
call SetBoxmonOrEggmonCaughtData
call CloseSRAM
ret
SetGiftBoxMonCaughtData: ; 4db92
push bc
ld a, BANK(sBoxMon1CaughtLevel)
call GetSRAMBank
ld hl, sBoxMon1CaughtLevel
pop bc
call SetGiftMonCaughtData
call CloseSRAM
ret
SetGiftPartyMonCaughtData: ; 4dba3
2018-01-23 22:39:09 +00:00
ld a, [wPartyCount]
dec a
2018-01-23 22:39:09 +00:00
ld hl, wPartyMon1CaughtLevel
push bc
call GetPartyLocation
pop bc
SetGiftMonCaughtData: ; 4dbaf
xor a
ld [hli], a
2018-01-11 17:00:01 +00:00
ld a, GIFT_LOCATION
rrc b
or b
ld [hl], a
ret
SetEggMonCaughtData: ; 4dbb8 (13:5bb8)
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyMon]
ld hl, wPartyMon1CaughtLevel
call GetPartyLocation
2018-01-23 22:39:09 +00:00
ld a, [wCurPartyLevel]
push af
2018-01-11 17:00:01 +00:00
ld a, CAUGHT_EGG_LEVEL
2018-01-23 22:39:09 +00:00
ld [wCurPartyLevel], a
call SetBoxmonOrEggmonCaughtData
pop af
2018-01-23 22:39:09 +00:00
ld [wCurPartyLevel], a
ret