ref: 12412713fdcf1639b4df6d9965215815866e30c3
dir: /items/item_effects.asm/
_DoItemEffect:: ; e722 ld a, [CurItem] ld [$d265], a call GetItemName call CopyName1 ld a, 1 ld [$d0ec], a ld a, [CurItem] dec a ld hl, ItemEffects rst JumpTable ret ; e73c ItemEffects: ; e73c dw MasterBall dw UltraBall dw Brightpowder dw GreatBall dw PokeBall dw Item06 dw Bicycle dw MoonStone dw Antidote dw BurnHeal dw IceHeal dw Awakening dw ParlyzHeal dw FullRestore dw MaxPotion dw HyperPotion dw SuperPotion dw Potion dw EscapeRope dw Repel dw MaxElixer dw FireStone dw Thunderstone dw WaterStone dw Item19 dw HpUp dw Protein dw Iron dw Carbos dw LuckyPunch dw Calcium dw RareCandy dw XAccuracy dw LeafStone dw MetalPowder dw Nugget dw PokeDoll dw FullHeal dw Revive dw MaxRevive dw GuardSpec dw SuperRepel dw MaxRepel dw DireHit dw Item2D dw FreshWater dw SodaPop dw Lemonade dw XAttack dw Item32 dw XDefend dw XSpeed dw XSpecial dw CoinCase dw Itemfinder dw Item38 dw ExpShare dw OldRod dw GoodRod dw SilverLeaf dw SuperRod dw PpUp dw Ether dw MaxEther dw Elixer dw RedScale dw Secretpotion dw SSTicket dw MysteryEgg dw ClearBell dw SilverWing dw MoomooMilk dw QuickClaw dw Psncureberry dw GoldLeaf dw SoftSand dw SharpBeak dw Przcureberry dw BurntBerry dw IceBerry dw PoisonBarb dw KingsRock dw BitterBerry dw MintBerry dw RedApricorn dw Tinymushroom dw BigMushroom dw Silverpowder dw BluApricorn dw Item5A dw AmuletCoin dw YlwApricorn dw GrnApricorn dw CleanseTag dw MysticWater dw Twistedspoon dw WhtApricorn dw Blackbelt dw BlkApricorn dw Item64 dw PnkApricorn dw Blackglasses dw Slowpoketail dw PinkBow dw Stick dw SmokeBall dw Nevermeltice dw Magnet dw Miracleberry dw Pearl dw BigPearl dw Everstone dw SpellTag dw Ragecandybar dw GsBall dw BlueCard dw MiracleSeed dw ThickClub dw FocusBand dw Item78 dw Energypowder dw EnergyRoot dw HealPowder dw RevivalHerb dw HardStone dw LuckyEgg dw CardKey dw MachinePart dw EggTicket dw LostItem dw Stardust dw StarPiece dw BasementKey dw Pass dw Item87 dw Item88 dw Item89 dw Charcoal dw BerryJuice dw ScopeLens dw Item8D dw Item8E dw MetalCoat dw DragonFang dw Item91 dw Leftovers dw Item93 dw Item94 dw Item95 dw Mysteryberry dw DragonScale dw BerserkGene dw Item99 dw Item9A dw Item9B dw SacredAsh dw HeavyBall dw FlowerMail dw LevelBall dw LureBall dw FastBall dw ItemA2 dw LightBall dw FriendBall dw MoonBall dw LoveBall dw NormalBox dw GorgeousBox dw SunStone dw PolkadotBow dw ItemAB dw UpGrade dw Berry dw GoldBerry dw Squirtbottle dw ItemB0 dw ParkBall dw RainbowWing dw ItemB3 ; e8a2 MasterBall: UltraBall: GreatBall: PokeBall: HeavyBall: LevelBall: LureBall: FastBall: FriendBall: MoonBall: LoveBall: ParkBall: ; e8a2 ld a, [IsInBattle] dec a jp nz, Functionf7a0 ld a, [PartyCount] cp 6 jr nz, .asm_e8c0 ld a, $1 call GetSRAMBank ld a, [$ad10] cp 20 call CloseSRAM jp z, Ball_BoxIsFullMessage .asm_e8c0 xor a ld [$c64e], a ld a, [CurItem] cp PARK_BALL call nz, Functionedfa ld hl, Options res 4, [hl] ld hl, UsedItemText call PrintText ld a, [EnemyMonCatchRate] ld b, a ld a, [BattleType] cp $3 jp z, .asm_e99c ld a, [CurItem] cp $1 jp z, .asm_e99c ld a, [CurItem] ld c, a ld hl, Table_0xec0a .asm_e8f2 ld a, [hli] cp $ff jr z, .asm_e906 cp c jr z, .asm_e8fe inc hl inc hl jr .asm_e8f2 .asm_e8fe ld a, [hli] ld h, [hl] ld l, a ld de, .asm_e906 push de jp [hl] .asm_e906 ld a, [CurItem] cp LEVEL_BALL ld a, b jp z, .asm_e98e ld a, b ld [$ffb6], a ld hl, EnemyMonHPHi ld b, [hl] inc hl ld c, [hl] inc hl ld d, [hl] inc hl ld e, [hl] sla c rl b ld h, d ld l, e add hl, de add hl, de ld d, h ld e, l ld a, d and a jr z, .asm_e940 srl d rr e srl d rr e srl b rr c srl b rr c ld a, c and a jr nz, .asm_e940 ld c, $1 .asm_e940 ld b, e push bc ld a, b sub c ld [hMultiplier], a xor a ld [hProduct], a ld [hMultiplicand], a ld [$ffb5], a call Multiply pop bc ld a, b ld [hMultiplier], a ld b, $4 call Divide ld a, [$ffb6] and a jr nz, .asm_e960 ld a, $1 .asm_e960 ld b, a ld a, [EnemyMonStatus] and 1 << FRZ | SLP ld c, 10 jr nz, .asm_e971 and a ld c, 5 jr nz, .asm_e971 ld c, 0 .asm_e971 ld a, b add c jr nc, .asm_e977 ld a, $ff .asm_e977 ld d, a push de ld a, [BattleMonItem] callba GetItem ld a, b cp $46 pop de ld a, d jr nz, .asm_e98e add c jr nc, .asm_e98e ld a, $ff .asm_e98e ld b, a ld [MagikarpLength], a call Random cp b ld a, 0 jr z, .asm_e99c jr nc, .asm_e99f .asm_e99c ld a, [EnemyMonSpecies] .asm_e99f ld [$c64e], a ld c, 20 call DelayFrames ld a, [CurItem] cp $6 jr c, .asm_e9b0 ld a, POKE_BALL .asm_e9b0 ld [$c689], a ld de, ANIM_THROW_POKE_BALL ld a, e ld [FXAnimIDLo], a ld a, d ld [FXAnimIDHi], a xor a ld [hBattleTurn], a ld [Buffer2], a ld [$cfca], a ld a, $37 call Predef ld a, [$c64e] and a jr nz, .asm_e9f5 ld a, [Buffer2] cp $1 ld hl, UnknownText_0xedb5 jp z, .asm_ebdc cp $2 ld hl, UnknownText_0xedba jp z, .asm_ebdc cp $3 ld hl, UnknownText_0xedbf jp z, .asm_ebdc cp $4 ld hl, UnknownText_0xedc4 jp z, .asm_ebdc .asm_e9f5 ld hl, EnemyMonStatus ld a, [hli] push af inc hl ld a, [hli] push af ld a, [hl] push af push hl ld hl, EnemyMonItem ld a, [hl] push af push hl ld hl, EnemySubStatus5 ld a, [hl] push af set 3, [hl] bit 3, a jr nz, .asm_ea13 jr .asm_ea1a .asm_ea13 ld a, DITTO ld [TempEnemyMonSpecies], a jr .asm_ea27 .asm_ea1a set 3, [hl] ld hl, $c6f2 ld a, [EnemyMonAtkDefDV] ld [hli], a ld a, [EnemyMonSpdSpclDV] ld [hl], a .asm_ea27 ld a, [TempEnemyMonSpecies] ld [CurPartySpecies], a ld a, [EnemyMonLevel] ld [CurPartyLevel], a callba LoadEnemyMon pop af ld [EnemySubStatus5], a pop hl pop af ld [hl], a pop hl pop af ld [hld], a pop af ld [hld], a dec hl pop af ld [hl], a ld hl, EnemySubStatus5 bit 3, [hl] jr nz, .asm_ea67 ld hl, $c735 ld de, EnemyMonMove1 ld bc, $0004 call CopyBytes ld hl, $c739 ld de, EnemyMonPPMove1 ld bc, $0004 call CopyBytes .asm_ea67 ld a, [EnemyMonSpecies] ld [$c64e], a ld [CurPartySpecies], a ld [$d265], a ld a, [BattleType] cp $3 jp z, .asm_ebd9 callba Function10607f ld hl, UnknownText_0xedc9 call PrintText call ClearSprites ld a, [$d265] dec a call CheckCaughtMon ld a, c push af ld a, [$d265] dec a call SetSeenAndCaughtMon pop af and a jr nz, .asm_eab7 call Function2ead jr z, .asm_eab7 ld hl, UnknownText_0xedf0 call PrintText call ClearSprites ld a, [EnemyMonSpecies] ld [$d265], a ld a, $43 call Predef .asm_eab7 ld a, [BattleType] cp $6 jp z, .asm_ebd1 cp $b jr nz, .asm_eac8 ld hl, $d0ee set 6, [hl] .asm_eac8 ld a, [PartyCount] cp 6 jr z, .asm_eb3c xor a ld [MonType], a call ClearSprites ld a, $6 call Predef callba Function4db49 ld a, [CurItem] cp FRIEND_BALL jr nz, .asm_eaf8 ld a, [PartyCount] dec a ld hl, PartyMon1Happiness ld bc, PartyMon2 - PartyMon1 call AddNTimes ld a, 200 ld [hl], a .asm_eaf8 ld hl, UnknownText_0xedf5 call PrintText ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName call YesNoBox jp c, .asm_ebe2 ld a, [PartyCount] dec a ld [CurPartyMon], a ld hl, PartyMon1Nickname ld bc, PKMN_NAME_LENGTH call AddNTimes ld d, h ld e, l push de xor a ld [MonType], a ld b, 0 callba Function116c1 call Function4b6 call Functione51 pop hl ld de, StringBuffer1 call InitName jp .asm_ebe2 .asm_eb3c call ClearSprites ld a, $9 call Predef callba Function4db83 ld a, $1 call GetSRAMBank ld a, [$ad10] cp $14 jr nz, .asm_eb5b ld hl, $d0ee set 7, [hl] .asm_eb5b ld a, [CurItem] cp FRIEND_BALL jr nz, .asm_eb67 ld a, 200 ld [$ad41], a .asm_eb67 call CloseSRAM ld hl, UnknownText_0xedf5 call PrintText ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName call YesNoBox jr c, .asm_ebaf xor a ld [CurPartyMon], a ld a, BOXMON ld [MonType], a ld de, $d050 ld b, $0 callba Function116c1 ld a, $1 call GetSRAMBank ld hl, $d050 ld de, $b082 ld bc, $000b call CopyBytes ld hl, $b082 ld de, StringBuffer1 call InitName call CloseSRAM .asm_ebaf ld a, $1 call GetSRAMBank ld hl, $b082 ld de, $d050 ld bc, $000b call CopyBytes call CloseSRAM ld hl, UnknownText_0xedeb call PrintText call Function4b6 call Functione51 jr .asm_ebe2 .asm_ebd1 callba Functione6ce jr .asm_ebe2 .asm_ebd9 ld hl, UnknownText_0xedc9 .asm_ebdc call PrintText call ClearSprites .asm_ebe2 ld a, [BattleType] cp BATTLETYPE_TUTORIAL ret z cp 2 ret z cp 6 jr z, .asm_ec05 ld a, [$c64e] and a jr z, .asm_ebfb call WhiteBGMap call ClearTileMap .asm_ebfb ld hl, NumItems inc a ld [$d10c], a jp TossItem .asm_ec05 ld hl, $dc79 dec [hl] ret ; ec0a Table_0xec0a: ; ec0a dbw ULTRA_BALL, Function_0xec29 dbw GREAT_BALL, Function_0xec2f dbw MOON_STONE, Function_0xec2f dbw HEAVY_BALL, Function_0xec50 dbw LEVEL_BALL, Function_0xed8c dbw LURE_BALL, Function_0xeccc dbw FAST_BALL, Function_0xed68 dbw MOON_BALL, Function_0xecdd dbw LOVE_BALL, Function_0xed12 dbw PARK_BALL, Function_0xec2f db $ff ; ec29 Function_0xec29: ; ec29 sla b ret nc ld b, $ff ret ; ec2f Function_0xec2f: ; ec2f ld a, b srl a add b ld b, a ret nc ld b, $ff ret ; ec38 GetPokedexEntryBank: ; ec38 push hl push de ld a, [EnemyMonSpecies] rlca rlca and 3 ld hl, .PokedexEntryBanks ld d, 0 ld e, a add hl, de ld a, [hl] pop de pop hl ret .PokedexEntryBanks GLOBAL PokedexEntries1 GLOBAL PokedexEntries2 GLOBAL PokedexEntries3 GLOBAL PokedexEntries4 db BANK(PokedexEntries1) db BANK(PokedexEntries2) db BANK(PokedexEntries3) db BANK(PokedexEntries4) ; ec50 Function_0xec50: ; ec50 ld a, [EnemyMonSpecies] ld hl, PokedexDataPointerTable dec a ld e, a ld d, 0 add hl, de add hl, de ld a, BANK(PokedexDataPointerTable) call GetFarHalfword .SkipText call GetPokedexEntryBank call GetFarByte inc hl cp "@" jr nz, .SkipText call GetPokedexEntryBank push bc inc hl inc hl call GetFarHalfword srl h rr l ld b, h ld c, l srl b rr c srl b rr c srl b rr c srl b rr c call .asm_ec99 srl b rr c call .asm_ec99 ld a, h pop bc jr .asm_eca4 .asm_ec99 push bc ld a, b cpl ld b, a ld a, c cpl ld c, a inc bc add hl, bc pop bc ret .asm_eca4 ld c, a cp $4 jr c, .asm_ecbc ld hl, .table_ecc4 .asm_ecac ld a, c cp [hl] jr c, .asm_ecb4 inc hl inc hl jr .asm_ecac .asm_ecb4 inc hl ld a, b add [hl] ld b, a ret nc ld b, $ff ret .asm_ecbc ld a, b sub 20 ld b, a ret nc ld b, $1 ret .table_ecc4 db 8, 0 db 12, 20 db 16, 30 db 255, 40 ; eccc Function_0xeccc: ; eccc ld a, [BattleType] cp $4 ret nz ld a, b add a jr c, .asm_ecd9 add b jr nc, .asm_ecdb .asm_ecd9 ld a, $ff .asm_ecdb ld b, a ret ; ecdd Function_0xecdd: ; ecdd GLOBAL EvosAttacks GLOBAL EvosAttacksPointers push bc ld a, [TempEnemyMonSpecies] dec a ld c, a ld b, 0 ld hl, EvosAttacksPointers add hl, bc add hl, bc ld a, BANK(EvosAttacksPointers) call GetFarHalfword pop bc push bc ld a, BANK(EvosAttacks) call GetFarByte cp EVOLVE_ITEM pop bc ret nz inc hl inc hl inc hl ; It appears that Moon Stone's constant from Pokémon Red is used. ; No Pokémon evolve with Burn Heal, so ; Moon Balls always have a catch rate of 1x. push bc ld a, BANK(EvosAttacks) call GetFarByte cp MOON_STONE + 2 ; BURN_HEAL pop bc ret nz sla b jr c, .max sla b jr nc, .done .max ld b, $ff .done ret ; ed12 Function_0xed12: ; ed12 ld a, [TempEnemyMonSpecies] ld c, a ld a, [TempBattleMonSpecies] cp c ret nz push bc ld a, [TempBattleMonSpecies] ld [CurPartySpecies], a xor a ld [MonType], a ld a, [CurBattleMon] ld [CurPartyMon], a callba GetGender jr c, .asm_ed66 ld d, 0 jr nz, .asm_ed39 inc d .asm_ed39 push de ld a, [TempEnemyMonSpecies] ld [CurPartySpecies], a ld a, WILDMON ld [MonType], a callba GetGender jr c, .asm_ed65 ld d, 0 jr nz, .asm_ed52 inc d .asm_ed52 ld a, d pop de cp d pop bc ret nz sla b jr c, .asm_ed62 sla b jr c, .asm_ed62 sla b ret nc .asm_ed62 ld b, $ff ret .asm_ed65 pop de .asm_ed66 pop bc ret ; ed68 Function_0xed68: ; ed68 ld a, [TempEnemyMonSpecies] ld c, a ld hl, FleeMons ld d, 3 .loop ld a, BANK(FleeMons) call GetFarByte inc hl cp -1 jr z, .next cp c jr nz, .next sla b jr c, .max sla b ret nc .max ld b, $ff ret .next dec d jr nz, .loop ret ; ed8c Function_0xed8c: ; ed8c ld a, [BattleMonLevel] ld c, a ld a, [EnemyMonLevel] cp c ret nc sla b jr c, .asm_eda8 srl c cp c ret nc sla b jr c, .asm_eda8 srl c cp c ret nc sla b ret nc .asm_eda8 ld b, $ff ret ; edab UnknownText_0xedab: ; 0xedab ; It dodged the thrown BALL! This #MON can't be caught! text_jump UnknownText_0x1c5a5a db "@" ; 0xedb0 UnknownText_0xedb0: ; 0xedb0 ; You missed the #MON! text_jump UnknownText_0x1c5a90 db "@" ; 0xedb5 UnknownText_0xedb5: ; 0xedb5 ; Oh no! The #MON broke free! text_jump UnknownText_0x1c5aa6 db "@" ; 0xedba UnknownText_0xedba: ; 0xedba ; Aww! It appeared to be caught! text_jump UnknownText_0x1c5ac3 db "@" ; 0xedbf UnknownText_0xedbf: ; 0xedbf ; Aargh! Almost had it! text_jump UnknownText_0x1c5ae3 db "@" ; 0xedc4 UnknownText_0xedc4: ; 0xedc4 ; Shoot! It was so close too! text_jump UnknownText_0x1c5afa db "@" ; 0xedc9 UnknownText_0xedc9: ; 0xedc9 ; Gotcha! @ was caught!@ @ text_jump UnknownText_0x1c5b17 start_asm ; 0xedce Functionedce: ; edce call WaitSFX push bc ld de, MUSIC_NONE call PlayMusic call DelayFrame ld de, MUSIC_CAPTURE call PlayMusic pop bc ld hl, UnknownText_0xede6 ret ; ede6 UnknownText_0xede6: ; 0xede6 ; @ text_jump UnknownText_0x1c5b35 db "@" ; 0xedeb UnknownText_0xedeb: ; 0xedeb ; was sent to BILL's PC. text_jump UnknownText_0x1c5b38 db "@" ; 0xedf0 UnknownText_0xedf0: ; 0xedf0 ; 's data was newly added to the #DEX.@ @ text_jump UnknownText_0x1c5b53 db "@" ; 0xedf5 UnknownText_0xedf5: ; 0xedf5 ; Give a nickname to @ ? text_jump UnknownText_0x1c5b7f db "@" ; 0xedfa ; known jump sources: e8c9 (3:68c9), f7a0 (3:77a0) Functionedfa: ; edfa (3:6dfa) callba Function2715c ret Item06: ; ee01 callba Function91ae1 ret ; ee08 Bicycle: ; ee08 callba Functiond0b3 ret ; ee0f MoonStone: FireStone: Thunderstone: WaterStone: LeafStone: SunStone: ; ee0f ld b, $5 call Functionf1f9 jp c, .asm_ee38 ld a, PartyMon1Item - PartyMon1 call GetPartyParamLocation ld a, [hl] cp EVERSTONE jr z, .asm_ee35 ld a, $1 ld [$d1e9], a callba Function421d8 ld a, [$d268] and a jr z, .asm_ee35 jp Functionf795 .asm_ee35 call WontHaveAnyEffectMessage .asm_ee38 xor a ld [$d0ec], a ret ; ee3d HpUp: Protein: Iron: Carbos: Calcium: ; ee3d ld b, $1 call Functionf1f9 jp c, Functionee9f call Functioneef5 call Functioneed9 ld a, PartyMon1StatExp - PartyMon1 call GetPartyParamLocation add hl, bc ld a, [hl] cp 100 jr nc, Functionee83 add 10 ld [hl], a call Functionee8c call Functioneed9 ld hl, Strings_eeab add hl, bc ld a, [hli] ld h, [hl] ld l, a ld de, StringBuffer2 ld bc, $000d call CopyBytes call Functionf780 ld hl, UnknownText_0xeea6 call PrintText ld c, $2 callba ChangeHappiness jp Functionf795 Functionee83: ; ee83 ld hl, WontHaveAnyEffectText call PrintText jp ClearPalettes ; ee8c Functionee8c: ; ee8c ld a, PartyMon1MaxHP - PartyMon1 call GetPartyParamLocation ld d, h ld e, l ld a, PartyMon1HPExp - 1 - PartyMon1 call GetPartyParamLocation ld b, $1 ld a, $c jp Predef ; ee9f Functionee9f: ; ee9f xor a ld [$d0ec], a jp ClearPalettes ; eea6 UnknownText_0xeea6: ; 0xeea6 ; 's @ rose. text_jump UnknownText_0x1c5b9a db "@" ; 0xeeab Strings_eeab: ; eeab dw .health dw .attack dw .defense dw .speed dw .special .health db "HEALTH@" .attack db "ATTACK@" .defense db "DEFENSE@" .speed db "SPEED@" .special db "SPECIAL@" ; eed9 Functioneed9: ; eed9 ld a, [CurItem] ld hl, Table_eeeb .next cp [hl] inc hl jr z, .asm_eee6 inc hl jr .next .asm_eee6 ld a, [hl] ld c, a ld b, 0 ret ; eeeb Table_eeeb: ; eeeb db HP_UP, PartyMon1HPExp - PartyMon1StatExp db PROTEIN, PartyMon1AtkExp - PartyMon1StatExp db IRON, PartyMon1DefExp - PartyMon1StatExp db CARBOS, PartyMon1SpdExp - PartyMon1StatExp db CALCIUM, PartyMon1SpclExp - PartyMon1StatExp ; eef5 Functioneef5: ; eef5 ld a, [CurPartySpecies] ld [CurSpecies], a ld [$d265], a ld a, PartyMon1Level - PartyMon1 call GetPartyParamLocation ld a, [hl] ld [CurPartyLevel], a call GetBaseData ld a, [CurPartyMon] ld hl, PartyMon1Nickname call GetNick ret ; 0xef14 RareCandy: ; ef14 ld b, $1 call Functionf1f9 jp c, Functionee9f call Functioneef5 ld a, PartyMon1Level - PartyMon1 call GetPartyParamLocation ld a, [hl] cp 100 jp nc, Functionee83 inc a ld [hl], a ld [CurPartyLevel], a push de ld d, a callba Function50e47 pop de ld a, $8 call GetPartyParamLocation ld a, [hMultiplicand] ld [hli], a ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hl], a ld a, $24 call GetPartyParamLocation ld a, [hli] ld b, a ld c, [hl] push bc call Functionee8c ld a, $25 call GetPartyParamLocation pop bc ld a, [hld] sub c ld c, a ld a, [hl] sbc b ld b, a dec hl ld a, [hl] add c ld [hld], a ld a, [hl] adc b ld [hl], a callba Function2709e ld a, $f8 call Functionf24a xor a ld [MonType], a ld a, $1f call Predef ld hl, $c4a9 ld b, 10 ld c, 9 call TextBox ld hl, $c4bf ld bc, $0004 ld a, $28 call Predef call Functiona80 xor a ld [MonType], a ld a, [CurPartySpecies] ld [$d265], a ld a, $1a call Predef xor a ld [$d1e9], a callba Function421d8 jp Functionf795 ; efad HealPowder: ; efad ld b, $1 call Functionf1f9 jp c, Functionf29e call Functionefda cp $0 jr nz, .asm_efc9 ld c, $f callba ChangeHappiness call LooksBitterMessage ld a, $0 .asm_efc9 jp Functionf09e ; efcc Antidote: BurnHeal: IceHeal: Awakening: ParlyzHeal: FullHeal: Psncureberry: Przcureberry: BurntBerry: IceBerry: MintBerry: Miracleberry: ; efcc ld b, $1 call Functionf1f9 jp c, Functionf29e Functionefd4: ; efd4 call Functionefda jp Functionf09e ; efda ; known jump sources: efb5 (3:6fb5), efd4 (3:6fd4) Functionefda: ; efda (3:6fda) call Functionf30d ld a, $1 ret z call Functionf058 ld a, $20 call GetPartyParamLocation ld a, [hl] and c jr nz, .asm_eff4 call Functionf009 ld a, $1 ret nc ld b, $f9 .asm_eff4 xor a ld [hl], a ld a, b ld [PartyMenuActionText], a ; $d141 call Functionf030 call Functionf780 call Functionf279 call Functionf795 ld a, $0 ret ; known jump sources: efec (3:6fec) Functionf009: ; f009 (3:7009) call Functionf2a6 jr nc, .asm_f01c ld a, [PlayerSubStatus3] ; $c66a bit 7, a jr z, .asm_f01c ld a, c cp $ff jr nz, .asm_f01c scf ret .asm_f01c and a ret ; known jump sources: f156 (3:7156), f1c7 (3:71c7) Functionf01e: ; f01e (3:701e) call Functionf2a6 ret nc ld a, $22 call GetPartyParamLocation ld a, [hli] ld [BattleMonHP], a ; $c63c ld a, [hld] ld [$c63d], a ret ; known jump sources: effa (3:6ffa), f153 (3:7153) Functionf030: ; f030 (3:7030) call Functionf2a6 ret nc xor a ld [BattleMonStatus], a ; $c63a ld hl, PlayerSubStatus5 ; $c66c res 0, [hl] ld hl, PlayerSubStatus1 ; $c668 res 0, [hl] call Functionf058 ld a, c cp $ff jr nz, .asm_f04f ld hl, PlayerSubStatus3 ; $c66a res 7, [hl] .asm_f04f push bc callba Function365d7 pop bc ret ; known jump sources: efe0 (3:6fe0), f042 (3:7042) Functionf058: ; f058 (3:7058) push hl ld a, [CurItem] ; $d106 ld hl, Table_f071 ld bc, 3 .next cp [hl] jr z, .asm_f068 add hl, bc jr .next .asm_f068 inc hl ld b, [hl] inc hl ld a, [hl] ld c, a cp %11111111 pop hl ret ; f071 (3:7071) Table_f071: ; f071 ; item, party menu action text, status db ANTIDOTE, $f0, 1 << PSN db BURN_HEAL, $f1, 1 << BRN db ICE_HEAL, $f2, 1 << FRZ db AWAKENING, $f3, SLP db PARLYZ_HEAL, $f4, 1 << PAR db FULL_HEAL, $f6, %11111111 db FULL_RESTORE, $f6, %11111111 db HEAL_POWDER, $f6, %11111111 db PSNCUREBERRY, $f0, 1 << PSN db PRZCUREBERRY, $f4, 1 << PAR db BURNT_BERRY, $f2, 1 << FRZ db ICE_BERRY, $f1, 1 << BRN db MINT_BERRY, $f3, SLP db MIRACLEBERRY, $f6, %11111111 db -1, 0, 0 ; f09e ; known jump sources: efc9 (3:6fc9), efd7 (3:6fd7), f0c5 (3:70c5), f0d3 (3:70d3), f141 (3:7141), f183 (3:7183), f189 (3:7189), f1a6 (3:71a6) Functionf09e: ; f09e (3:709e) ld hl, Jumptable_f0a3 rst JumpTable ret ; no known jump sources Jumptable_f0a3: ; f0a3 (3:70a3) dw Functionf2a2 dw Functionf299 dw Functionf29e RevivalHerb: ; f0a9 ld b, $1 call Functionf1f9 jp c, Functionf29e call Functionf0d6 cp 0 jr nz, .asm_f0c5 ld c, $11 callba ChangeHappiness call LooksBitterMessage ld a, 0 .asm_f0c5 jp Functionf09e ; f0c8 Revive: MaxRevive: ; f0c8 ld b, $1 call Functionf1f9 jp c, Functionf29e call Functionf0d6 jp Functionf09e ; f0d6 Functionf0d6: ; f0d6 call Functionf30d ld a, 1 ret nz ld a, [IsInBattle] and a jr z, .asm_f104 ld a, [CurPartyMon] ld c, a ld d, 0 ld hl, $c6fc ld b, CHECK_FLAG ld a, PREDEF_FLAG call Predef ld a, c and a jr z, .asm_f104 ld a, [CurPartyMon] ld c, a ld hl, $c664 ld b, SET_FLAG ld a, PREDEF_FLAG call Predef .asm_f104 xor a ld [Danger], a ld a, [CurItem] cp REVIVE jr z, .asm_f114 call Functionf2c3 jr .asm_f117 .asm_f114 call Functionf2ba .asm_f117 call Functionf1db ld a, $f7 ld [PartyMenuActionText], a call Functionf279 call Functionf795 ld a, 0 ret ; f128 FullRestore: ; f128 ld b, 1 call Functionf1f9 jp c, Functionf29e call Functionf30d jp z, Functionf299 call Functionf31b jr c, .asm_f13e jp Functionefd4 .asm_f13e call Functionf144 jp Functionf09e ; f144 Functionf144: ; f144 xor a ld [Danger], a call Functionf2c3 ld a, PartyMon1Status - PartyMon1 call GetPartyParamLocation xor a ld [hli], a ld [hl], a call Functionf030 call Functionf01e call Functionf1db ld a, $f5 ld [PartyMenuActionText], a call Functionf279 call Functionf795 ld a, 0 ret ; f16a BitterBerry: ; f16a ld hl, PlayerSubStatus3 bit SUBSTATUS_CONFUSED, [hl] ld a, 1 jr z, .done res SUBSTATUS_CONFUSED, [hl] xor a ld [hBattleTurn], a call Functionf789 ld hl, ConfusedNoMoreText call StdBattleTextBox ld a, 0 .done jp Functionf09e ; f186 MaxPotion: HyperPotion: SuperPotion: Potion: FreshWater: SodaPop: Lemonade: MoomooMilk: Ragecandybar: BerryJuice: Berry: GoldBerry: ; f186 call Functionf1a9 jp Functionf09e ; f18c Energypowder: ; f18c ld c, $f jr Functionf192 ; f190 EnergyRoot: ; f190 ld c, $10 ; f192 Functionf192: ; f192 push bc call Functionf1a9 pop bc cp 0 jr nz, .asm_f1a6 callba ChangeHappiness call LooksBitterMessage ld a, 0 .asm_f1a6 jp Functionf09e ; f1a9 ; known jump sources: f186 (3:7186), f193 (3:7193) Functionf1a9: ; f1a9 (3:71a9) ld b, 1 call Functionf1f9 ld a, 2 ret c call Functionf30d ld a, 1 ret z call Functionf31b ld a, 1 ret nc xor a ld [Danger], a ; $c2a6 call Functionf395 call Functionf2d1 call Functionf01e call Functionf1db ld a, $f5 ld [PartyMenuActionText], a ; $d141 call Functionf279 call Functionf795 ld a, 0 ret ; known jump sources: f117 (3:7117), f159 (3:7159), f1ca (3:71ca), f3f7 (3:73f7), f408 (3:7408) Functionf1db: ; f1db (3:71db) push de ld de, SFX_POTION call WaitPlaySFX pop de ld a, [CurPartyMon] ; $d109 ld hl, $c4ab ld bc, $28 call AddNTimes ld a, $2 ld [$d10a], a ld a, $b jp Predef ; known jump sources: ee11 (3:6e11), ee3f (3:6e3f), ef16 (3:6f16), efaf (3:6faf), efce (3:6fce), f0ab (3:70ab), f0ca (3:70ca), f12a (3:712a), f1ab (3:71ab), f5c7 (3:75c7) Functionf1f9: ; f1f9 (3:71f9) call Functionf20b ret c ld a, [CurPartySpecies] ; $d108 cp EGG jr nz, .asm_f209 call CantUseOnEggMessage scf ret .asm_f209 and a ret ; known jump sources: f1f9 (3:71f9) Functionf20b: ; f20b (3:720b) ld a, b ld [PartyMenuActionText], a ; $d141 push hl push de push bc call WhiteBGMap call Functionf21c pop bc pop de pop hl ret ; known jump sources: f215 (3:7215), f41f (3:741f) Functionf21c: ; f21c (3:721c) callba Function5004f callba Function50405 callba Function503e0 callba WritePartyMenuTilemap callba PrintPartyMenuText call WaitBGMap call Function32f9 call DelayFrame callba PartyMenuSelect ret ; known jump sources: ef6d (3:6f6d), f28a (3:728a), f40d (3:740d) Functionf24a: ; f24a (3:724a) ld [PartyMenuActionText], a ; $d141 ld a, [CurPartySpecies] ; $d108 push af ld a, [CurPartyMon] ; $d109 push af push hl push de push bc callba WritePartyMenuTilemap callba Function50566 call WaitBGMap call Function32f9 call DelayFrame pop bc pop de pop hl pop af ld [CurPartyMon], a ; $d109 pop af ld [CurPartySpecies], a ; $d108 ret ; known jump sources: f000 (3:7000), f11f (3:711f), f161 (3:7161), f1d2 (3:71d2) Functionf279: ; f279 (3:7279) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, TileMapEnd - TileMap ld a, " " call ByteFill ld a, [PartyMenuActionText] ; $d141 call Functionf24a ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ld c, $32 call DelayFrames jp Functiona80 ; known jump sources: f133 (3:7133) Functionf299: ; f299 (3:7299) call WontHaveAnyEffectMessage jr Functionf2a2 ; known jump sources: efb2 (3:6fb2), efd1 (3:6fd1), f0ae (3:70ae), f0cd (3:70cd), f12d (3:712d) Functionf29e: ; f29e (3:729e) xor a ld [$d0ec], a ; known jump sources: f29c (3:729c) Functionf2a2: ; f2a2 (3:72a2) call ClearPalettes ret ; known jump sources: f009 (3:7009), f01e (3:701e), f030 (3:7030) Functionf2a6: ; f2a6 (3:72a6) ld a, [IsInBattle] ; $d22d (aliases: EnemyMonEnd) and a ret z ld a, [CurPartyMon] ; $d109 push hl ld hl, CurBattleMon ; $d0d4 cp [hl] pop hl jr nz, .asm_f2b8 scf ret .asm_f2b8 xor a ret ; known jump sources: f114 (3:7114) Functionf2ba: ; f2ba (3:72ba) call Functionf36f srl d rr e jr asm_f2c6 ; known jump sources: f10f (3:710f), f148 (3:7148), f2f5 (3:72f5) Functionf2c3: ; f2c3 (3:72c3) call Functionf36f asm_f2c6: ; f2c6 (3:72c6) ld a, $22 call GetPartyParamLocation ld [hl], d inc hl ld [hl], e jp Functionf328 ; known jump sources: f1c4 (3:71c4), f405 (3:7405) Functionf2d1: ; f2d1 (3:72d1) ld a, $23 call GetPartyParamLocation ld a, [hl] add e ld [hld], a ld a, [hl] adc d ld [hl], a jr c, .asm_f2f5 call Functionf328 ld a, $23 call GetPartyParamLocation ld d, h ld e, l ld a, $25 call GetPartyParamLocation ld a, [de] sub [hl] dec de dec hl ld a, [de] sbc [hl] jr c, .asm_f2f8 .asm_f2f5 call Functionf2c3 .asm_f2f8 ret ; known jump sources: f3f3 (3:73f3) Functionf2f9: ; f2f9 (3:72f9) ld a, $23 call GetPartyParamLocation ld a, [hl] sub e ld [hld], a ld a, [hl] sbc d ld [hl], a jr nc, .asm_f309 xor a ld [hld], a ld [hl], a .asm_f309 call Functionf328 ret ; known jump sources: efda (3:6fda), f0d6 (3:70d6), f130 (3:7130), f1b1 (3:71b1), f3ed (3:73ed), f402 (3:7402), f432 (3:7432) Functionf30d: ; f30d (3:730d) push de call Functionf35f call Functionf348 call Functionf356 ld a, d or e pop de ret ; known jump sources: f136 (3:7136), f1b7 (3:71b7), f437 (3:7437) Functionf31b: ; f31b (3:731b) call Functionf356 ld h, d ld l, e call Functionf36f ld a, l sub e ld a, h sbc d ret ; known jump sources: f2ce (3:72ce), f2de (3:72de), f309 (3:7309) Functionf328: ; f328 (3:7328) ld a, $22 call GetPartyParamLocation ld a, [hli] ld [$d1ef], a ld a, [hl] ld [$d1ee], a ret ; f336 (3:7336) Functionf336: ; f336 ld a, d ld [$d1ef], a ld a, e ld [$d1ee], a ret ; f33f Functionf33f: ; f33f ld a, [$d1ef] ld d, a ld a, [$d1ee] ld e, a ret ; f348 ; known jump sources: f311 (3:7311) Functionf348: ; f348 (3:7348) ld a, $22 call GetPartyParamLocation ld a, [hli] ld [$d1ed], a ld a, [hl] ld [$d1ec], a ret ; known jump sources: f314 (3:7314), f31b (3:731b) Functionf356: ; f356 (3:7356) ld a, [$d1ed] ld d, a ld a, [$d1ec] ld e, a ret ; known jump sources: f30e (3:730e) Functionf35f: ; f35f (3:735f) push hl ld a, $24 call GetPartyParamLocation ld a, [hli] ld [Buffer2], a ; $d1eb (aliases: MovementType) ld a, [hl] ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) pop hl ret ; known jump sources: f2ba (3:72ba), f2c3 (3:72c3), f320 (3:7320) Functionf36f: ; f36f (3:736f) ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld d, a ld a, [Buffer1] ; $d1ea (aliases: MagikarpLength) ld e, a ret ; known jump sources: f3f0 (3:73f0), f3fb (3:73fb) Functionf378: ; f378 (3:7378) push bc ld a, $24 call GetPartyParamLocation ld a, [hli] ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) ld a, [hl] ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld a, $5 ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld b, $2 call Divide ld a, [$FF00+$b5] ld d, a ld a, [$FF00+$b6] ld e, a pop bc ret ; known jump sources: f1c1 (3:71c1) Functionf395: ; f395 (3:7395) push hl ld a, [CurItem] ; $d106 ld hl, Tablef3af ld d, a .next ld a, [hli] cp -1 jr z, .asm_f3a9 cp d jr z, .done inc hl inc hl jr .next .asm_f3a9 scf .done ld e, [hl] inc hl ld d, [hl] pop hl ret ; f3af (3:73af) Tablef3af: ; f3af dbw FRESH_WATER, 50 dbw SODA_POP, 60 dbw LEMONADE, 80 dbw HYPER_POTION, 200 dbw SUPER_POTION, 50 dbw POTION, 20 dbw MAX_POTION, 999 dbw FULL_RESTORE, 999 dbw MOOMOO_MILK, 100 dbw BERRY, 10 dbw GOLD_BERRY, 30 dbw ENERGYPOWDER, 50 dbw ENERGY_ROOT, 200 dbw RAGECANDYBAR, 20 dbw BERRY_JUICE, 20 dbw -1, 0 ; f3df Functionf3df: ; f3df (3:73df) ld a, [$d0d8] dec a ld b, a call Functionf419 jr c, .asm_f413 ld a, b ld [CurPartyMon], a ; $d109 call Functionf30d call Functionf378 call Functionf2f9 push bc call Functionf1db pop bc call Functionf378 ld a, c ld [CurPartyMon], a ; $d109 call Functionf30d call Functionf2d1 call Functionf1db ld a, $f5 call Functionf24a call Functiona36 .asm_f413 ld a, b inc a ld [$d0d8], a ret ; known jump sources: f3e4 (3:73e4), f448 (3:7448) Functionf419: ; f419 (3:7419) push bc ld a, $1 ld [PartyMenuActionText], a ; $d141 call Functionf21c pop bc jr c, .asm_f43e ld a, [$d0d8] dec a ld c, a ld a, b cp c jr z, .asm_f440 ld a, c ld [CurPartyMon], a ; $d109 call Functionf30d jr z, .asm_f440 call Functionf31b jr nc, .asm_f440 xor a ret .asm_f43e scf ret .asm_f440 push bc ld hl, UnknownText_0xf44a call Function1d67 pop bc jr Functionf419 ; f44a (3:744a) UnknownText_0xf44a: ; 0xf44a ; That can't be used on this #MON. text_jump UnknownText_0x1c5bac db "@" ; 0xf44f EscapeRope: ; f44f xor a ld [$d0ec], a callba Functioncb95 ld a, [$d0ec] cp 1 call z, Functionf795 ret ; f462 SuperRepel: ; f462 ld b, 200 jr Function_0xf46c ; f466 MaxRepel: ; f466 ld b, 250 jr Function_0xf46c ; f466 Repel: ; f46a ld b, 100 ; f46c Function_0xf46c: ; f46c ld a, [$dca1] and a ld hl, UnknownText_0xf47d jp nz, PrintText ld a, b ld [$dca1], a jp Functionf789 ; f47d UnknownText_0xf47d: ; 0xf47d ; The REPEL used earlier is still in effect. text_jump UnknownText_0x1c5bcd db "@" ; 0xf482 XAccuracy: ; f482 ld hl, PlayerSubStatus4 bit 0, [hl] jp nz, WontHaveAnyEffect_NotUsedMessage set 0, [hl] jp Functionf789 ; f48f PokeDoll: ; f48f ld a, [IsInBattle] dec a jr nz, .asm_f4a6 inc a ld [$d232], a ld a, [$d0ee] and $c0 or $2 ld [$d0ee], a jp Functionf789 .asm_f4a6 xor a ld [$d0ec], a ret ; f4ab GuardSpec: ; f4ab ld hl, PlayerSubStatus4 bit 1, [hl] jp nz, WontHaveAnyEffect_NotUsedMessage set 1, [hl] jp Functionf789 ; f4b8 DireHit: ; f4b8 ld hl, PlayerSubStatus4 bit 2, [hl] jp nz, WontHaveAnyEffect_NotUsedMessage set 2, [hl] jp Functionf789 ; f4c5 XAttack: XDefend: XSpeed: XSpecial: ; f4c5 call Functionf789 ld a, [CurItem] ld hl, Tablef504 .asm_f4ce cp [hl] jr z, .asm_f4d5 inc hl inc hl jr .asm_f4ce .asm_f4d5 inc hl ld b, [hl] xor a ld [hBattleTurn], a ld [AttackMissed], a ld [$c70d], a callba Function361ef call WaitSFX callba BattleCommand8c callba BattleCommand8e ld a, [CurBattleMon] ld [CurPartyMon], a ld c, $3 callba ChangeHappiness ret ; f504 Tablef504: ; f504 db X_ATTACK, 0 db X_DEFEND, 1 db X_SPEED, 2 db X_SPECIAL, 3 ; f50c Item38: ; f50c ld a, [IsInBattle] and a jr nz, .asm_f512 .asm_f512 xor a ld [$d002], a ld b, $f8 ld hl, PartyMon1Status call .asm_f554 ld a, [IsInBattle] cp $1 jr z, .asm_f52b ld hl, OTPartyMon1Status call .asm_f554 .asm_f52b ld hl, BattleMonStatus ld a, [hl] and b ld [hl], a ld hl, EnemyMonStatus ld a, [hl] and b ld [hl], a ld a, [$d002] and a ld hl, UnknownText_0xf56c jp z, PrintText ld hl, UnknownText_0xf576 call PrintText ld a, [Danger] and $80 jr nz, .asm_f54e .asm_f54e ld hl, UnknownText_0xf571 jp PrintText .asm_f554 ld de, $0030 ld c, $6 .asm_f559 ld a, [hl] push af and $7 jr z, .asm_f564 ld a, $1 ld [$d002], a .asm_f564 pop af and b ld [hl], a add hl, de dec c jr nz, .asm_f559 ret ; f56c UnknownText_0xf56c: ; 0xf56c ; Played the # FLUTE. Now, that's a catchy tune! text_jump UnknownText_0x1c5bf9 db "@" ; 0xf571 UnknownText_0xf571: ; 0xf571 ; All sleeping #MON woke up. text_jump UnknownText_0x1c5c28 db "@" ; 0xf576 UnknownText_0xf576: ; 0xf576 ; played the # FLUTE.@ @ text_jump UnknownText_0x1c5c44 start_asm ; 0xf57b Function_0xf57b: ; f57b ld a, [IsInBattle] and a jr nz, .asm_f58c push de ld de, SFX_POKEFLUTE call WaitPlaySFX call WaitSFX pop de .asm_f58c jp Function13e0 ; f58f BlueCard: ; f58f ld hl, .bluecardtext jp Function2012 .bluecardtext text_jump UnknownText_0x1c5c5e db "@" ; f59a CoinCase: ; f59a ld hl, .coincasetext jp Function2012 .coincasetext text_jump UnknownText_0x1c5c7b db "@" ; f5a5 OldRod: ; f5a5 ld e, $0 jr Function_0xf5b1 ; f5a9 GoodRod: ; f5a9 ld e, $1 jr Function_0xf5b1 ; f5ad SuperRod: ; f5ad ld e, $2 jr Function_0xf5b1 ; f5b1 Function_0xf5b1: ; f5b1 callba Functioncf8e ret ; f5b8 Itemfinder: ; f5b8 callba Function12580 ret ; f5bf MaxElixer: PpUp: Ether: MaxEther: Elixer: Mysteryberry: ; f5bf ld a, [CurItem] ld [$d002], a .asm_f5c5 ld b, $1 call Functionf1f9 jp c, Functionf6e0 .asm_f5cd ld a, [$d002] cp MAX_ELIXER jp z, Functionf6af cp ELIXER jp z, Functionf6af ld hl, UnknownText_0xf725 ld a, [$d002] cp PP_UP jr z, .asm_f5e7 ld hl, UnknownText_0xf72a .asm_f5e7 call PrintText ld a, [CurMoveNum] push af xor a ld [CurMoveNum], a ld a, $2 ld [$d235], a callba Function3e4bc pop bc ld a, b ld [CurMoveNum], a jr nz, .asm_f5c5 ld hl, PartyMon1Moves ld bc, PartyMon2 - PartyMon1 call Functionf963 push hl ld a, [hl] ld [$d265], a call GetMoveName call CopyName1 pop hl ld a, [$d002] cp PP_UP jp nz, Functionf6a7 ld a, [hl] cp $a6 jr z, .asm_f62f ld bc, $0015 add hl, bc ld a, [hl] cp $c0 jr c, .asm_f637 .asm_f62f ld hl, UnknownText_0xf72f call PrintText jr .asm_f5cd .asm_f637 ld a, [hl] add $40 ld [hl], a ld a, $1 ld [$d265], a call Functionf84c call Functionf780 ld hl, UnknownText_0xf734 call PrintText Functionf64c: ; f64c call ClearPalettes jp Functionf795 ; f652 Functionf652: ; f652 ld a, [IsInBattle] and a jr z, .asm_f66c ld a, [CurPartyMon] ld b, a ld a, [CurBattleMon] cp b jr nz, .asm_f66c ld a, [PlayerSubStatus5] bit 3, a jr nz, .asm_f66c call .asm_f677 .asm_f66c call Functionf780 ld hl, UnknownText_0xf739 call PrintText jr Functionf64c .asm_f677 ld a, [CurPartyMon] ld hl, PartyMon1Move1 ld bc, $0030 call AddNTimes ld de, BattleMonMove1 ld b, $4 .asm_f688 ld a, [de] and a jr z, .asm_f6a6 cp [hl] jr nz, .asm_f6a1 push hl push de push bc inc de inc de inc de inc de inc de inc de ld bc, $0015 add hl, bc ld a, [hl] ld [de], a pop bc pop de pop hl .asm_f6a1 inc hl inc de dec b jr nz, .asm_f688 .asm_f6a6 ret ; f6a7 Functionf6a7: ; f6a7 call Functionf6e8 jr nz, Functionf652 jp Functionf6dd ; f6af Functionf6af: ; f6af xor a ld hl, $cfa9 ld [hli], a ld [hl], a ld b, $4 .asm_f6b7 push bc ld hl, PartyMon1Move1 ld bc, $0030 call Functionf963 ld a, [hl] and a jr z, .asm_f6ce call Functionf6e8 jr z, .asm_f6ce ld hl, $cfaa inc [hl] .asm_f6ce ld hl, $cfa9 inc [hl] pop bc dec b jr nz, .asm_f6b7 ld a, [$cfaa] and a jp nz, Functionf652 Functionf6dd: ; f6dd call WontHaveAnyEffectMessage Functionf6e0: ; f6e0 call ClearPalettes xor a ld [$d0ec], a ret ; f6e8 Functionf6e8: ; f6e8 xor a ld [MonType], a call Functionf8ec ld hl, PartyMon1PP ld bc, $0030 call Functionf963 ld a, [$d265] ld b, a ld a, [hl] and $3f cp b jr nc, .asm_f723 ld a, [$d002] cp MAX_ELIXER jr z, .asm_f71d cp MAX_ETHER jr z, .asm_f71d ld c, 5 cp MYSTERYBERRY jr z, .asm_f715 ld c, 10 .asm_f715 ld a, [hl] and $3f add c cp b jr nc, .asm_f71d ld b, a .asm_f71d ld a, [hl] and $c0 or b ld [hl], a ret .asm_f723 xor a ret ; f725 UnknownText_0xf725: ; 0xf725 ; Raise the PP of which move? text_jump UnknownText_0x1c5c8a db "@" ; 0xf72a UnknownText_0xf72a: ; 0xf72a ; Restore the PP of which move? text_jump UnknownText_0x1c5ca7 db "@" ; 0xf72f UnknownText_0xf72f: ; 0xf72f ; 's PP is maxed out. text_jump UnknownText_0x1c5cc6 db "@" ; 0xf734 UnknownText_0xf734: ; 0xf734 ; 's PP increased. text_jump UnknownText_0x1c5cdd db "@" ; 0xf739 UnknownText_0xf739: ; 0xf739 ; PP was restored. text_jump UnknownText_0x1c5cf1 db "@" ; 0xf73e Squirtbottle: ; f73e callba _Squirtbottle ret ; f745 CardKey: ; f745 callba _CardKey ret ; f74c BasementKey: ; f74c callba _BasementKey ret ; f753 SacredAsh: ; f753 callba _SacredAsh ld a, [$d0ec] cp $1 ret nz call Functionf795 ret ; f763 NormalBox: ; f763 ld c, $2c jr Function_0xf769 ; f767 GorgeousBox: ; f767 ld c, $2b ; f769 Function_0xf769: ; f769 callba Function26f02 ld hl, UnknownText_0xf778 call PrintText jp Functionf795 ; f778 UnknownText_0xf778: ; 0xf778 text_jump UnknownText_0x1c5d03 db "@" ; 0xf77d Brightpowder: Item19: LuckyPunch: MetalPowder: Nugget: Item2D: Item32: ExpShare: SilverLeaf: RedScale: Secretpotion: SSTicket: MysteryEgg: ClearBell: SilverWing: QuickClaw: GoldLeaf: SoftSand: SharpBeak: PoisonBarb: KingsRock: RedApricorn: Tinymushroom: BigMushroom: Silverpowder: BluApricorn: Item5A: AmuletCoin: YlwApricorn: GrnApricorn: CleanseTag: MysticWater: Twistedspoon: WhtApricorn: Blackbelt: BlkApricorn: Item64: PnkApricorn: Blackglasses: Slowpoketail: PinkBow: Stick: SmokeBall: Nevermeltice: Magnet: Pearl: BigPearl: Everstone: SpellTag: GsBall: MiracleSeed: ThickClub: FocusBand: Item78: HardStone: LuckyEgg: MachinePart: EggTicket: LostItem: Stardust: StarPiece: Pass: Item87: Item88: Item89: Charcoal: ScopeLens: Item8D: Item8E: MetalCoat: DragonFang: Item91: Leftovers: Item93: Item94: Item95: DragonScale: BerserkGene: Item99: Item9A: Item9B: FlowerMail: ItemA2: LightBall: PolkadotBow: ItemAB: UpGrade: ItemB0: RainbowWing: ItemB3: ; f77d jp IsntTheTimeMessage ; f780 Functionf780: ; f780 push de ld de, SFX_FULL_HEAL call WaitPlaySFX pop de ret ; f789 Functionf789: ; f789 ld hl, UsedItemText call PrintText call Functionf780 call Functiona80 ; fallthrough ; f795 Functionf795: ; f795 ld hl, NumItems ld a, 1 ld [$d10c], a jp TossItem ; f7a0 Functionf7a0: ; f7a0 call Functionedfa ld de, ANIM_THROW_POKE_BALL ld a, e ld [FXAnimIDLo], a ld a, d ld [FXAnimIDHi], a xor a ld [$c689], a ld [hBattleTurn], a ld [$cfca], a ld a, $37 call Predef ld hl, BlockedTheBallText call PrintText ld hl, DontBeAThiefText call PrintText jr Functionf795 ; f7ca WontHaveAnyEffect_NotUsedMessage: ; f7ca ld hl, WontHaveAnyEffectText call PrintText ; Item wasn't used. ld a, $2 ld [$d0ec], a ret ; f7d6 LooksBitterMessage: ; f7d6 ld hl, LooksBitterText jp PrintText ; f7dc Ball_BoxIsFullMessage: ; f7dc ld hl, Ball_BoxIsFullText call PrintText ; Item wasn't used. ld a, $2 ld [$d0ec], a ret ; f7e8 CantUseOnEggMessage: ; f7e8 ld hl, CantUseOnEggText jr CantUseItemMessage IsntTheTimeMessage: ; f7ed ld hl, IsntTheTimeText jr CantUseItemMessage WontHaveAnyEffectMessage: ; f7f2 ld hl, WontHaveAnyEffectText jr CantUseItemMessage BelongsToSomeoneElseMessage: ; f7f7 ld hl, BelongsToSomeoneElseText jr CantUseItemMessage CyclingIsntAllowedMessage: ; f7fc ld hl, CyclingIsntAllowedText jr CantUseItemMessage CantGetOnYourBikeMessage: ; f801 ld hl, CantGetOnYourBikeText CantUseItemMessage: ; f804 ; Item couldn't be used. xor a ld [$d0ec], a jp PrintText ; f80b LooksBitterText: ; 0xf80b ; It looks bitter… text_jump UnknownText_0x1c5d3e db "@" ; 0xf810 CantUseOnEggText: ; 0xf810 ; That can't be used on an EGG. text_jump UnknownText_0x1c5d50 db "@" ; 0xf815 IsntTheTimeText: ; 0xf815 ; OAK: ! This isn't the time to use that! text_jump UnknownText_0x1c5d6e db "@" ; 0xf81a BelongsToSomeoneElseText: ; 0xf81a ; That belongs to someone else! text_jump UnknownText_0x1c5d97 db "@" ; 0xf81f WontHaveAnyEffectText: ; 0xf81f ; It won't have any effect. text_jump UnknownText_0x1c5db6 db "@" ; 0xf824 BlockedTheBallText: ; 0xf824 ; The trainer blocked the BALL! text_jump UnknownText_0x1c5dd0 db "@" ; 0xf829 DontBeAThiefText: ; 0xf829 ; Don't be a thief! text_jump UnknownText_0x1c5def db "@" ; 0xf82e CyclingIsntAllowedText: ; 0xf82e ; Cycling isn't allowed here. text_jump UnknownText_0x1c5e01 db "@" ; 0xf833 CantGetOnYourBikeText: ; 0xf833 ; Can't get on your @ now. text_jump UnknownText_0x1c5e1d db "@" ; 0xf838 Ball_BoxIsFullText: ; 0xf838 ; The #MON BOX is full. That can't be used now. text_jump UnknownText_0x1c5e3a db "@" ; 0xf83d UsedItemText: ; 0xf83d ; used the@ . text_jump UnknownText_0x1c5e68 db "@" ; 0xf842 GotOnTheItemText: ; 0xf842 ; got on the@ . text_jump UnknownText_0x1c5e7b db "@" ; 0xf847 GotOffTheItemText: ; 0xf847 ; got off@ the @ . text_jump UnknownText_0x1c5e90 db "@" ; 0xf84c Functionf84c: ; f84c ld a, $2 call GetPartyParamLocation push hl ld de, MagikarpLength ld a, $5 call Predef pop hl ld bc, $0015 add hl, bc ld de, MagikarpLength ld b, $0 .asm_f864 inc b ld a, b cp $5 ret z ld a, [$d265] dec a jr nz, .asm_f876 ld a, [$cfa9] inc a cp b jr nz, .asm_f87d .asm_f876 ld a, [hl] and $c0 ld a, [de] call nz, Functionf881 .asm_f87d inc hl inc de jr .asm_f864 ; f881 Functionf881: ; f881 push bc ld a, [de] ld [$ffb6], a xor a ld [hProduct], a ld [hMultiplicand], a ld [$ffb5], a ld a, $5 ld [hMultiplier], a ld b, $4 call Divide ld a, [hl] ld b, a swap a and $f srl a srl a ld c, a and a jr z, .asm_f8b6 .asm_f8a3 ld a, [$ffb6] cp $8 jr c, .asm_f8ab ld a, $7 .asm_f8ab add b ld b, a ld a, [$d265] dec a jr z, .asm_f8b6 dec c jr nz, .asm_f8a3 .asm_f8b6 ld [hl], b pop bc ret ; f8b9 Functionf8b9: ; f8b9 ld a, $17 call GetPartyParamLocation push hl ld a, $2 call GetPartyParamLocation pop de xor a ld [$cfa9], a ld [MonType], a ld c, $4 .asm_f8ce ld a, [hli] and a ret z push hl push de push bc call Functionf8ec pop bc pop de ld a, [de] and $c0 ld b, a ld a, [$d265] add b ld [de], a inc de ld hl, $cfa9 inc [hl] pop hl dec c jr nz, .asm_f8ce ret ; f8ec Functionf8ec: ; f8ec ld a, [StringBuffer1] push af ld a, [$d074] push af ld a, [MonType] and a ld hl, PartyMon1Moves ld bc, PartyMon2 - PartyMon1 jr z, .asm_f91a ld hl, OTPartyMon1Moves dec a jr z, .asm_f91a ld hl, TempMonMoves dec a jr z, .asm_f915 ld hl, TempMonMoves dec a jr z, .asm_f915 ld hl, BattleMonMoves .asm_f915 call Functionf969 jr .asm_f91d .asm_f91a call Functionf963 .asm_f91d ld a, [hl] dec a push hl ld hl, $5b00 ld bc, $0007 call AddNTimes ld a, $10 call GetFarByte ld b, a ld de, StringBuffer1 ld [de], a pop hl push bc ld bc, $0015 ld a, [MonType] cp WILDMON jr nz, .asm_f942 ld bc, $0006 .asm_f942 add hl, bc ld a, [hl] and $c0 pop bc or b ld hl, $d074 ld [hl], a xor a ld [$d265], a ld a, b call Functionf881 ld a, [hl] and $3f ld [$d265], a pop af ld [$d074], a pop af ld [StringBuffer1], a ret ; f963 Functionf963: ; f963 ld a, [CurPartyMon] call AddNTimes Functionf969: ; f969 ld a, [$cfa9] ld c, a ld b, $0 add hl, bc ret ; f971