diff options
Diffstat (limited to 'engine/caught_data.asm')
| -rw-r--r-- | engine/caught_data.asm | 247 |
1 files changed, 0 insertions, 247 deletions
diff --git a/engine/caught_data.asm b/engine/caught_data.asm deleted file mode 100644 index 3bfacf539..000000000 --- a/engine/caught_data.asm +++ /dev/null @@ -1,247 +0,0 @@ -CheckPartyFullAfterContest: ; 4d9e5 - ld a, [wContestMon] - and a - jp z, .DidntCatchAnything - ld [wCurPartySpecies], a - ld [wCurSpecies], a - call GetBaseData - ld hl, wPartyCount - ld a, [hl] - cp PARTY_LENGTH - jp nc, .TryAddToBox - inc a - ld [hl], a - ld c, a - ld b, 0 - add hl, bc - ld a, [wContestMon] - ld [hli], a - ld [wCurSpecies], a - ld a, -1 - ld [hl], a - 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 - ld a, [wPartyCount] - dec a - ld hl, wPartyMonOT - call SkipNames - ld d, h - ld e, l - ld hl, wPlayerName - call CopyBytes - ld a, [wCurPartySpecies] - ld [wd265], a - call GetPokemonName - ld hl, wStringBuffer1 - ld de, wMonOrItemNameBuffer - ld bc, MON_NAME_LENGTH - call CopyBytes - call GiveANickname_YesNo - jr c, .Party_SkipNickname - ld a, [wPartyCount] - dec a - ld [wCurPartyMon], a - xor a - ld [wMonType], a - ld de, wMonOrItemNameBuffer - callfar InitNickname - -.Party_SkipNickname: - ld a, [wPartyCount] - dec a - ld hl, wPartyMonNicknames - call SkipNames - ld d, h - ld e, l - ld hl, wMonOrItemNameBuffer - call CopyBytes - ld a, [wPartyCount] - dec a - ld hl, wPartyMon1Level - call GetPartyLocation - ld a, [hl] - ld [wCurPartyLevel], a - call SetCaughtData - ld a, [wPartyCount] - dec a - ld hl, wPartyMon1CaughtLocation - call GetPartyLocation - ld a, [hl] - and CAUGHT_GENDER_MASK - ld b, NATIONAL_PARK - or b - ld [hl], a - xor a - ld [wContestMon], a - and a ; BUGCONTEST_CAUGHT_MON - 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 - ld [wCurPartyMon], a - ld hl, wContestMon - ld de, wBufferMon - ld bc, BOXMON_STRUCT_LENGTH - call CopyBytes - ld hl, wPlayerName - ld de, wBufferMonOT - ld bc, NAME_LENGTH - call CopyBytes - callfar InsertPokemonIntoBox - ld a, [wCurPartySpecies] - ld [wd265], a - call GetPokemonName - call GiveANickname_YesNo - ld hl, wStringBuffer1 - jr c, .Box_SkipNickname - ld a, BOXMON - ld [wMonType], a - ld de, wMonOrItemNameBuffer - callfar InitNickname - ld hl, wMonOrItemNameBuffer - -.Box_SkipNickname: - ld a, BANK(sBoxMonNicknames) - call GetSRAMBank - ld de, sBoxMonNicknames - ld bc, MON_NAME_LENGTH - call CopyBytes - call CloseSRAM - -.BoxFull: - ld a, BANK(sBoxMon1Level) - call GetSRAMBank - ld a, [sBoxMon1Level] - ld [wCurPartyLevel], a - call CloseSRAM - call SetBoxMonCaughtData - ld a, BANK(sBoxMon1CaughtLocation) - call GetSRAMBank - ld hl, sBoxMon1CaughtLocation - ld a, [hl] - and CAUGHT_GENDER_MASK - ld b, NATIONAL_PARK - or b - ld [hl], a - call CloseSRAM - xor a - ld [wContestMon], a - ld a, BUGCONTEST_BOXED_MON - ld [wScriptVar], a - ret - -.DidntCatchAnything: ; 4db35 - ld a, BUGCONTEST_NO_CATCH - 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 - ld a, [wPartyCount] - dec a - ld hl, wPartyMon1CaughtLevel - call GetPartyLocation -SetBoxmonOrEggmonCaughtData: ; 4db53 - ld a, [wTimeOfDay] - inc a - rrca - rrca - ld b, a - ld a, [wCurPartyLevel] - or b - ld [hli], a - ld a, [wMapGroup] - ld b, a - ld a, [wMapNumber] - ld c, a - cp MAP_POKECENTER_2F - jr nz, .NotPokecenter2F - ld a, b - cp GROUP_POKECENTER_2F - jr nz, .NotPokecenter2F - - ld a, [wBackupMapGroup] - ld b, a - ld a, [wBackupMapNumber] - ld c, a - -.NotPokecenter2F: - call GetWorldMapLocation - ld b, a - ld a, [wPlayerGender] - rrca ; shift bit 0 (PLAYERGENDER_FEMALE_F) to bit 7 (CAUGHT_GENDER_MASK) - 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 - ld a, [wPartyCount] - dec a - ld hl, wPartyMon1CaughtLevel - push bc - call GetPartyLocation - pop bc -SetGiftMonCaughtData: ; 4dbaf - xor a - ld [hli], a - ld a, GIFT_LOCATION - rrc b - or b - ld [hl], a - ret - -SetEggMonCaughtData: ; 4dbb8 (13:5bb8) - ld a, [wCurPartyMon] - ld hl, wPartyMon1CaughtLevel - call GetPartyLocation - ld a, [wCurPartyLevel] - push af - ld a, CAUGHT_EGG_LEVEL - ld [wCurPartyLevel], a - call SetBoxmonOrEggmonCaughtData - pop af - ld [wCurPartyLevel], a - ret |