ref: dcff1305fed75506f651d0d4a100fb116770c145
dir: /scripts/OaksLab.asm/
OaksLab_Script: CheckEvent EVENT_PALLET_AFTER_GETTING_POKEBALLS_2 call nz, OaksLabScript_1d076 ld a, $1 ld [wAutoTextBoxDrawingControl], a xor a ld [wDoNotWaitForButtonPressAfterDisplayingText], a ld hl, OaksLab_ScriptPointers ld a, [wOaksLabCurScript] jp CallFunctionInTable OaksLab_ScriptPointers: dw OaksLabScript0 dw OaksLabScript1 dw OaksLabScript2 dw OaksLabScript3 dw OaksLabScript4 dw OaksLabScript5 dw OaksLabScript6 dw OaksLabScript7 dw OaksLabScript8 dw OaksLabScript9 dw OaksLabScript10 dw OaksLabScript11 dw OaksLabScript12 dw OaksLabScript13 dw OaksLabScript14 dw OaksLabScript15 dw OaksLabScript16 dw OaksLabScript17 dw OaksLabScript18 OaksLabScript0: CheckEvent EVENT_OAK_APPEARED_IN_PALLET ret z ld a, [wNPCMovementScriptFunctionNum] and a ret nz ld a, HS_OAKS_LAB_OAK_2 ld [wMissableObjectIndex], a predef ShowObject ld hl, wd72e res 4, [hl] ld a, $1 ld [wOaksLabCurScript], a ret OaksLabScript1: ld a, $8 ld [H_SPRITEINDEX], a ld de, OakEntryMovement call MoveSprite ld a, $2 ld [wOaksLabCurScript], a ret OakEntryMovement: db NPC_MOVEMENT_UP db NPC_MOVEMENT_UP db NPC_MOVEMENT_UP db $FF OaksLabScript2: ld a, [wd730] bit 0, a ret nz ld a, HS_OAKS_LAB_OAK_2 ld [wMissableObjectIndex], a predef HideObject ld a, HS_OAKS_LAB_OAK_1 ld [wMissableObjectIndex], a predef ShowObject ld a, $3 ld [wOaksLabCurScript], a ret OaksLabScript3: call Delay3 ld hl, wSimulatedJoypadStatesEnd ld de, PlayerEntryMovementRLE call DecodeRLEList dec a ld [wSimulatedJoypadStatesIndex], a call StartSimulatingJoypadStates ld a, $1 ld [H_SPRITEINDEX], a xor a ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $5 ld [H_SPRITEINDEX], a xor a ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $4 ld [wOaksLabCurScript], a ret PlayerEntryMovementRLE: db D_UP,$8 db $ff OaksLabScript4: ld a, [wSimulatedJoypadStatesIndex] and a ret nz SetEvent EVENT_FOLLOWED_OAK_INTO_LAB SetEvent EVENT_FOLLOWED_OAK_INTO_LAB_2 ld a, $1 ld [H_SPRITEINDEX], a ld a, SPRITE_FACING_UP ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay call UpdateSprites ld hl, wFlags_D733 res 1, [hl] call PlayDefaultMusic ld a, $5 ld [wOaksLabCurScript], a ret OaksLabScript5: ld a, $fc ld [wJoyIgnore], a ld a, $11 ld [hSpriteIndexOrTextID], a call DisplayTextID call Delay3 ld a, $12 ld [hSpriteIndexOrTextID], a call DisplayTextID call Delay3 ld a, $13 ld [hSpriteIndexOrTextID], a call DisplayTextID call Delay3 ld a, $14 ld [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_OAK_ASKED_TO_CHOOSE_MON xor a ld [wJoyIgnore], a ld a, $6 ld [wOaksLabCurScript], a ret OaksLabScript6: ld a, [wYCoord] cp $6 ret nz ld a, $5 ld [H_SPRITEINDEX], a xor a ; SPRITE_FACING_DOWN ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $1 ld [H_SPRITEINDEX], a xor a ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay call UpdateSprites ld a, $c ld [hSpriteIndexOrTextID], a call DisplayTextID ld a, $1 ld [wSimulatedJoypadStatesIndex], a ld a, D_UP ld [wSimulatedJoypadStatesEnd], a call StartSimulatingJoypadStates ld a, PLAYER_DIR_UP ld [wPlayerMovingDirection], a ld a, $7 ld [wOaksLabCurScript], a ret OaksLabScript7: ld a, [wSimulatedJoypadStatesIndex] and a ret nz call Delay3 ld a, $6 ld [wOaksLabCurScript], a ret OaksLabScript8: ld a, [wPlayerStarter] cp STARTER1 jr z, .Charmander cp STARTER2 jr z, .Squirtle jr .Bulbasaur .Charmander ld de, .MiddleBallMovement1 ld a, [wYCoord] cp $4 ; is the player standing below the table? jr z, .moveBlue ld de, .MiddleBallMovement2 jr .moveBlue .MiddleBallMovement1 db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_UP db $FF .MiddleBallMovement2 db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db $FF .Squirtle ld de, .RightBallMovement1 ld a, [wYCoord] cp $4 ; is the player standing below the table? jr z, .moveBlue ld de, .RightBallMovement2 jr .moveBlue .RightBallMovement1 db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_UP db $FF .RightBallMovement2 db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db NPC_MOVEMENT_RIGHT db $FF .Bulbasaur ld de, .LeftBallMovement1 ld a, [wXCoord] cp $9 ; is the player standing to the right of the table? jr nz, .moveBlue push hl ld a, $1 ld [H_SPRITEINDEX], a ld a, $4 ld [H_SPRITEDATAOFFSET], a call GetPointerWithinSpriteStateData1 push hl ld [hl], $4c inc hl inc hl ld [hl], $0 pop hl inc h ld [hl], $8 inc hl ld [hl], $9 ld de, .LeftBallMovement2 ; the rival is not currently onscreen, so account for that pop hl jr .moveBlue .LeftBallMovement1 db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_RIGHT ; not yet terminated! .LeftBallMovement2 db NPC_MOVEMENT_RIGHT db $FF .moveBlue ld a, $1 ld [H_SPRITEINDEX], a call MoveSprite ld a, $9 ld [wOaksLabCurScript], a ret OaksLabScript9: ld a, [wd730] bit 0, a ret nz ld a, $fc ld [wJoyIgnore], a ld a, $1 ld [H_SPRITEINDEX], a ld a, SPRITE_FACING_UP ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $d ld [hSpriteIndexOrTextID], a call DisplayTextID ld a, [wRivalStarterBallSpriteIndex] cp $2 jr nz, .rivalDidNotChoseBall1 ld a, HS_STARTER_BALL_1 jr .hideBallAndContinue .rivalDidNotChoseBall1 cp $3 jr nz, .rivalChoseBall3 ld a, HS_STARTER_BALL_2 jr .hideBallAndContinue .rivalChoseBall3 ld a, HS_STARTER_BALL_3 .hideBallAndContinue ld [wMissableObjectIndex], a predef HideObject call Delay3 ld a, [wRivalStarterTemp] ld [wRivalStarter], a ld [wcf91], a ld [wd11e], a call GetMonName ld a, $1 ld [H_SPRITEINDEX], a ld a, SPRITE_FACING_UP ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $e ld [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_GOT_STARTER xor a ld [wJoyIgnore], a ld a, $a ld [wOaksLabCurScript], a ret OaksLabScript10: ld a, [wYCoord] cp $6 ret nz ld a, $1 ld [H_SPRITEINDEX], a xor a ; SPRITE_FACING_DOWN ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, PLAYER_DIR_UP ld [wPlayerMovingDirection], a ld c, BANK(Music_MeetRival) ld a, MUSIC_MEET_RIVAL call PlayMusic ld a, $f ld [hSpriteIndexOrTextID], a call DisplayTextID ld a, $1 ld [hNPCPlayerRelativePosPerspective], a ld a, $1 swap a ld [hNPCSpriteOffset], a predef CalcPositionOfPlayerRelativeToNPC ld a, [hNPCPlayerYDistance] dec a ld [hNPCPlayerYDistance], a predef FindPathToPlayer ld de, wNPCMovementDirections2 ld a, $1 ld [H_SPRITEINDEX], a call MoveSprite ld a, $b ld [wOaksLabCurScript], a ret OaksLabScript11: ld a, [wd730] bit 0, a ret nz ; define which team rival uses, and fight it ld a, OPP_SONY1 ld [wCurOpponent], a ld a, [wRivalStarter] cp STARTER2 jr nz, .NotSquirtle ld a, $1 jr .done .NotSquirtle cp STARTER3 jr nz, .Charmander ld a, $2 jr .done .Charmander ld a, $3 .done ld [wTrainerNo], a ld a, $1 ld [wSpriteIndex], a call GetSpritePosition1 ld hl, OaksLabText_1d3be ld de, OaksLabText_1d3c3 call SaveEndBattleTextPointers ld hl, wd72d set 6, [hl] set 7, [hl] xor a ld [wJoyIgnore], a ld a, PLAYER_DIR_UP ld [wPlayerMovingDirection], a ld a, $c ld [wOaksLabCurScript], a ret OaksLabScript12: ld a, $f0 ld [wJoyIgnore], a ld a, PLAYER_DIR_UP ld [wPlayerMovingDirection], a call UpdateSprites ld a, $1 ld [wSpriteIndex], a call SetSpritePosition1 ld a, $1 ld [H_SPRITEINDEX], a xor a ; SPRITE_FACING_DOWN ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay predef HealParty SetEvent EVENT_BATTLED_RIVAL_IN_OAKS_LAB ld a, $d ld [wOaksLabCurScript], a ret OaksLabScript13: ld c, 20 call DelayFrames ld a, $10 ld [hSpriteIndexOrTextID], a call DisplayTextID callba Music_RivalAlternateStart ld a, $1 ld [H_SPRITEINDEX], a ld de, .RivalExitMovement call MoveSprite ld a, [wXCoord] cp $4 ; move left or right depending on where the player is standing jr nz, .moveLeft ld a, NPC_MOVEMENT_RIGHT jr .next .moveLeft ld a, NPC_MOVEMENT_LEFT .next ld [wNPCMovementDirections], a ld a, $e ld [wOaksLabCurScript], a ret .RivalExitMovement db $E0 ; change sprite facing direction db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_DOWN db NPC_MOVEMENT_DOWN db $FF OaksLabScript14: ld a, [wd730] bit 0, a jr nz, .checkRivalPosition ld a, HS_OAKS_LAB_RIVAL ld [wMissableObjectIndex], a predef HideObject xor a ld [wJoyIgnore], a call PlayDefaultMusic ; reset to map music ld a, $12 ld [wOaksLabCurScript], a jr .done ; make the player keep facing the rival as he walks away .checkRivalPosition ld a, [wNPCNumScriptedSteps] cp $5 jr nz, .turnPlayerDown ld a, [wXCoord] cp $4 jr nz, .turnPlayerLeft ld a, SPRITE_FACING_RIGHT ld [wSpriteStateData1 + 9], a jr .done .turnPlayerLeft ld a, SPRITE_FACING_LEFT ld [wSpriteStateData1 + 9], a jr .done .turnPlayerDown cp $4 ret nz xor a ; ld a, SPRITE_FACING_DOWN ld [wSpriteStateData1 + 9], a .done ret OaksLabScript15: xor a ld [hJoyHeld], a call EnableAutoTextBoxDrawing ld a, $ff ld [wNewSoundID], a call PlaySound callba Music_RivalAlternateStart ld a, $15 ld [hSpriteIndexOrTextID], a call DisplayTextID call OaksLabScript_1d02b ld a, HS_OAKS_LAB_RIVAL ld [wMissableObjectIndex], a predef ShowObject ld a, [wNPCMovementDirections2Index] ld [wSavedNPCMovementDirections2Index], a ld b, 0 ld c, a ld hl, wNPCMovementDirections2 ld a, NPC_MOVEMENT_UP call FillMemory ld [hl], $ff ld a, $1 ld [H_SPRITEINDEX], a ld de, wNPCMovementDirections2 call MoveSprite ld a, $10 ld [wOaksLabCurScript], a ret OaksLabScript_1cefd: ld a, $1 ld [H_SPRITEINDEX], a ld a, SPRITE_FACING_UP ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $8 ld [H_SPRITEINDEX], a xor a ; SPRITE_FACING_DOWN ld [hSpriteFacingDirection], a jp SetSpriteFacingDirectionAndDelay OaksLabScript16: ld a, [wd730] bit 0, a ret nz call EnableAutoTextBoxDrawing call PlayDefaultMusic ld a, $fc ld [wJoyIgnore], a call OaksLabScript_1cefd ld a, $16 ld [hSpriteIndexOrTextID], a call DisplayTextID call DelayFrame call OaksLabScript_1cefd ld a, $17 ld [hSpriteIndexOrTextID], a call DisplayTextID call DelayFrame call OaksLabScript_1cefd ld a, $18 ld [hSpriteIndexOrTextID], a call DisplayTextID call DelayFrame ld a, $19 ld [hSpriteIndexOrTextID], a call DisplayTextID call Delay3 ld a, HS_POKEDEX_1 ld [wMissableObjectIndex], a predef HideObject ld a, HS_POKEDEX_2 ld [wMissableObjectIndex], a predef HideObject call OaksLabScript_1cefd ld a, $1a ld [hSpriteIndexOrTextID], a call DisplayTextID ld a, $1 ld [H_SPRITEINDEX], a ld a, SPRITE_FACING_RIGHT ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay call Delay3 ld a, $1b ld [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_GOT_POKEDEX SetEvent EVENT_OAK_GOT_PARCEL ld a, HS_LYING_OLD_MAN ld [wMissableObjectIndex], a predef HideObject ld a, HS_OLD_MAN ld [wMissableObjectIndex], a predef ShowObject ld a, [wSavedNPCMovementDirections2Index] ld b, 0 ld c, a ld hl, wNPCMovementDirections2 xor a ; NPC_MOVEMENT_DOWN call FillMemory ld [hl], $ff ld a, $ff ld [wNewSoundID], a call PlaySound callba Music_RivalAlternateStart ld a, $1 ld [H_SPRITEINDEX], a ld de, wNPCMovementDirections2 call MoveSprite ld a, $11 ld [wOaksLabCurScript], a ret OaksLabScript17: ld a, [wd730] bit 0, a ret nz call PlayDefaultMusic ld a, HS_OAKS_LAB_RIVAL ld [wMissableObjectIndex], a predef HideObject SetEvent EVENT_1ST_ROUTE22_RIVAL_BATTLE ResetEventReuseHL EVENT_2ND_ROUTE22_RIVAL_BATTLE SetEventReuseHL EVENT_ROUTE22_RIVAL_WANTS_BATTLE ld a, HS_ROUTE_22_RIVAL_1 ld [wMissableObjectIndex], a predef ShowObject ld a, $5 ld [wPalletTownCurScript], a xor a ld [wJoyIgnore], a ld a, $12 ld [wOaksLabCurScript], a ret OaksLabScript18: ret OaksLabScript_RemoveParcel: ld hl, wBagItems ld bc, $0000 .loop ld a, [hli] cp $ff ret z cp OAKS_PARCEL jr z, .foundParcel inc hl inc c jr .loop .foundParcel ld hl, wNumBagItems ld a, c ld [wWhichPokemon], a ld a, $1 ld [wItemQuantity], a jp RemoveItemFromInventory OaksLabScript_1d02b: ld a, $7c ld [$ffeb], a ld a, $8 ld [$ffee], a ld a, [wYCoord] cp $3 jr nz, .asm_1d045 ld a, $4 ld [wNPCMovementDirections2Index], a ld a, $30 ld b, $b jr .asm_1d068 .asm_1d045 cp $1 jr nz, .asm_1d054 ld a, $2 ld [wNPCMovementDirections2Index], a ld a, $30 ld b, $9 jr .asm_1d068 .asm_1d054 ld a, $3 ld [wNPCMovementDirections2Index], a ld b, $a ld a, [wXCoord] cp $4 jr nz, .asm_1d066 ld a, $40 jr .asm_1d068 .asm_1d066 ld a, $20 .asm_1d068 ld [$ffec], a ld a, b ld [$ffed], a ld a, $1 ld [wSpriteIndex], a call SetSpritePosition1 ret OaksLabScript_1d076: ld hl, OaksLab_TextPointers2 ld a, l ld [wMapTextPtr], a ld a, h ld [wMapTextPtr+1], a ret OaksLab_TextPointers: dw OaksLabText1 dw OaksLabText2 dw OaksLabText3 dw OaksLabText4 dw OaksLabText5 dw OaksLabText6 dw OaksLabText7 dw OaksLabText8 dw OaksLabText9 dw OaksLabText10 dw OaksLabText11 dw OaksLabText12 dw OaksLabText13 dw OaksLabText14 dw OaksLabText15 dw OaksLabText16 dw OaksLabText17 dw OaksLabText18 dw OaksLabText19 dw OaksLabText20 dw OaksLabText21 dw OaksLabText22 dw OaksLabText23 dw OaksLabText24 dw OaksLabText25 dw OaksLabText26 dw OaksLabText27 OaksLab_TextPointers2: dw OaksLabText1 dw OaksLabText2 dw OaksLabText3 dw OaksLabText4 dw OaksLabText5 dw OaksLabText6 dw OaksLabText7 dw OaksLabText8 dw OaksLabText9 dw OaksLabText10 dw OaksLabText11 OaksLabText1: TX_ASM CheckEvent EVENT_FOLLOWED_OAK_INTO_LAB_2 jr nz, .beforeChooseMon ld hl, OaksLabGaryText1 call PrintText jr .done .beforeChooseMon bit 2, a jr nz, .afterChooseMon ld hl, OaksLabText40 call PrintText jr .done .afterChooseMon ld hl, OaksLabText41 call PrintText .done jp TextScriptEnd OaksLabGaryText1: TX_FAR _OaksLabGaryText1 db "@" OaksLabText40: TX_FAR _OaksLabText40 db "@" OaksLabText41: TX_FAR _OaksLabText41 db "@" OaksLabText2: TX_ASM ld a, STARTER2 ld [wRivalStarterTemp], a ld a, $3 ld [wRivalStarterBallSpriteIndex], a ld a, STARTER1 ld b, $2 jr OaksLabScript_1d133 OaksLabText3: TX_ASM ld a, STARTER3 ld [wRivalStarterTemp], a ld a, $4 ld [wRivalStarterBallSpriteIndex], a ld a, STARTER2 ld b, $3 jr OaksLabScript_1d133 OaksLabText4: TX_ASM ld a, STARTER1 ld [wRivalStarterTemp], a ld a, $2 ld [wRivalStarterBallSpriteIndex], a ld a, STARTER3 ld b, $4 OaksLabScript_1d133: ld [wcf91], a ld [wd11e], a ld a, b ld [wSpriteIndex], a CheckEvent EVENT_GOT_STARTER jp nz, OaksLabScript_1d22d CheckEventReuseA EVENT_OAK_ASKED_TO_CHOOSE_MON jr nz, OaksLabScript_1d157 ld hl, OaksLabText39 call PrintText jp TextScriptEnd OaksLabText39: TX_FAR _OaksLabText39 db "@" OaksLabScript_1d157: ld a, $5 ld [H_SPRITEINDEX], a ld a, $9 ld [H_SPRITEDATAOFFSET], a call GetPointerWithinSpriteStateData1 ld [hl], SPRITE_FACING_DOWN ld a, $1 ld [H_SPRITEINDEX], a ld a, $9 ld [H_SPRITEDATAOFFSET], a call GetPointerWithinSpriteStateData1 ld [hl], SPRITE_FACING_RIGHT ld hl, wd730 set 6, [hl] predef StarterDex ld hl, wd730 res 6, [hl] call ReloadMapData ld c, 10 call DelayFrames ld a, [wSpriteIndex] cp $2 jr z, OaksLabLookAtCharmander cp $3 jr z, OaksLabLookAtSquirtle jr OaksLabLookAtBulbasaur OaksLabLookAtCharmander: ld hl, OaksLabCharmanderText jr OaksLabMonChoiceMenu OaksLabCharmanderText: TX_FAR _OaksLabCharmanderText db "@" OaksLabLookAtSquirtle: ld hl, OaksLabSquirtleText jr OaksLabMonChoiceMenu OaksLabSquirtleText: TX_FAR _OaksLabSquirtleText db "@" OaksLabLookAtBulbasaur: ld hl, OaksLabBulbasaurText jr OaksLabMonChoiceMenu OaksLabBulbasaurText: TX_FAR _OaksLabBulbasaurText db "@" OaksLabMonChoiceMenu: call PrintText ld a, $1 ld [wDoNotWaitForButtonPressAfterDisplayingText], a call YesNoChoice ; yes/no menu ld a, [wCurrentMenuItem] and a jr nz, OaksLabMonChoiceEnd ld a, [wcf91] ld [wPlayerStarter], a ld [wd11e], a call GetMonName ld a, [wSpriteIndex] cp $2 jr nz, .asm_1d1db ld a, HS_STARTER_BALL_1 jr .asm_1d1e5 .asm_1d1db cp $3 jr nz, .asm_1d1e3 ld a, HS_STARTER_BALL_2 jr .asm_1d1e5 .asm_1d1e3 ld a, HS_STARTER_BALL_3 .asm_1d1e5 ld [wMissableObjectIndex], a predef HideObject ld a, $1 ld [wDoNotWaitForButtonPressAfterDisplayingText], a ld hl, OaksLabMonEnergeticText call PrintText ld hl, OaksLabReceivedMonText call PrintText xor a ; PLAYER_PARTY_DATA ld [wMonDataLocation], a ld a, 5 ld [wCurEnemyLVL], a ld a, [wcf91] ld [wd11e], a call AddPartyMon ld hl, wd72e set 3, [hl] ld a, $fc ld [wJoyIgnore], a ld a, $8 ld [wOaksLabCurScript], a OaksLabMonChoiceEnd: jp TextScriptEnd OaksLabMonEnergeticText: TX_FAR _OaksLabMonEnergeticText db "@" OaksLabReceivedMonText: TX_FAR _OaksLabReceivedMonText TX_SFX_KEY_ITEM db "@" OaksLabScript_1d22d: ld a, $5 ld [H_SPRITEINDEX], a ld a, $9 ld [H_SPRITEDATAOFFSET], a call GetPointerWithinSpriteStateData1 ld [hl], $0 ld hl, OaksLabLastMonText call PrintText jp TextScriptEnd OaksLabLastMonText: TX_FAR _OaksLabLastMonText db "@" OaksLabText32: OaksLabText5: TX_ASM CheckEvent EVENT_PALLET_AFTER_GETTING_POKEBALLS jr nz, .asm_1d266 ld hl, wPokedexOwned ld b, wPokedexOwnedEnd - wPokedexOwned call CountSetBits ld a, [wNumSetBits] cp 2 jr c, .asm_1d279 CheckEvent EVENT_GOT_POKEDEX jr z, .asm_1d279 .asm_1d266 ld hl, OaksLabText_1d31d call PrintText ld a, $1 ld [wDoNotWaitForButtonPressAfterDisplayingText], a predef DisplayDexRating jp .asm_1d2ed .asm_1d279 ld b, POKE_BALL call IsItemInBag jr nz, .asm_1d2e7 CheckEvent EVENT_BEAT_ROUTE22_RIVAL_1ST_BATTLE jr nz, .asm_1d2d0 CheckEvent EVENT_GOT_POKEDEX jr nz, .asm_1d2c8 CheckEventReuseA EVENT_BATTLED_RIVAL_IN_OAKS_LAB jr nz, .asm_1d2a9 ld a, [wd72e] bit 3, a jr nz, .asm_1d2a1 ld hl, OaksLabText_1d2f0 call PrintText jr .asm_1d2ed .asm_1d2a1 ld hl, OaksLabText_1d2f5 call PrintText jr .asm_1d2ed .asm_1d2a9 ld b, OAKS_PARCEL call IsItemInBag jr nz, .asm_1d2b8 ld hl, OaksLabText_1d2fa call PrintText jr .asm_1d2ed .asm_1d2b8 ld hl, OaksLabDeliverParcelText call PrintText call OaksLabScript_RemoveParcel ld a, $f ld [wOaksLabCurScript], a jr .asm_1d2ed .asm_1d2c8 ld hl, OaksLabAroundWorldText call PrintText jr .asm_1d2ed .asm_1d2d0 CheckAndSetEvent EVENT_GOT_POKEBALLS_FROM_OAK jr nz, .asm_1d2e7 lb bc, POKE_BALL, 5 call GiveItem ld hl, OaksLabGivePokeballsText call PrintText jr .asm_1d2ed .asm_1d2e7 ld hl, OaksLabPleaseVisitText call PrintText .asm_1d2ed jp TextScriptEnd OaksLabText_1d2f0: TX_FAR _OaksLabText_1d2f0 db "@" OaksLabText_1d2f5: TX_FAR _OaksLabText_1d2f5 db "@" OaksLabText_1d2fa: TX_FAR _OaksLabText_1d2fa db "@" OaksLabDeliverParcelText: TX_FAR _OaksLabDeliverParcelText1 TX_SFX_KEY_ITEM TX_FAR _OaksLabDeliverParcelText2 db "@" OaksLabAroundWorldText: TX_FAR _OaksLabAroundWorldText db "@" OaksLabGivePokeballsText: TX_FAR _OaksLabGivePokeballsText1 TX_SFX_KEY_ITEM TX_FAR _OaksLabGivePokeballsText2 db "@" OaksLabPleaseVisitText: TX_FAR _OaksLabPleaseVisitText db "@" OaksLabText_1d31d: TX_FAR _OaksLabText_1d31d db "@" OaksLabText7: OaksLabText6: TX_ASM ld hl, OaksLabText_1d32c call PrintText jp TextScriptEnd OaksLabText_1d32c: TX_FAR _OaksLabText_1d32c db "@" OaksLabText8: TX_FAR _OaksLabText8 db "@" OaksLabText9: TX_ASM ld hl, OaksLabText_1d340 call PrintText jp TextScriptEnd OaksLabText_1d340: TX_FAR _OaksLabText_1d340 db "@" OaksLabText17: TX_ASM ld hl, OaksLabRivalWaitingText call PrintText jp TextScriptEnd OaksLabRivalWaitingText: TX_FAR _OaksLabRivalWaitingText db "@" OaksLabText18: TX_ASM ld hl, OaksLabChooseMonText call PrintText jp TextScriptEnd OaksLabChooseMonText: TX_FAR _OaksLabChooseMonText db "@" OaksLabText19: TX_ASM ld hl, OaksLabRivalInterjectionText call PrintText jp TextScriptEnd OaksLabRivalInterjectionText: TX_FAR _OaksLabRivalInterjectionText db "@" OaksLabText20: TX_ASM ld hl, OaksLabBePatientText call PrintText jp TextScriptEnd OaksLabBePatientText: TX_FAR _OaksLabBePatientText db "@" OaksLabText12: TX_ASM ld hl, OaksLabLeavingText call PrintText jp TextScriptEnd OaksLabLeavingText: TX_FAR _OaksLabLeavingText db "@" OaksLabText13: TX_ASM ld hl, OaksLabRivalPickingMonText call PrintText jp TextScriptEnd OaksLabRivalPickingMonText: TX_FAR _OaksLabRivalPickingMonText db "@" OaksLabText14: TX_ASM ld hl, OaksLabRivalReceivedMonText call PrintText jp TextScriptEnd OaksLabRivalReceivedMonText: TX_FAR _OaksLabRivalReceivedMonText TX_SFX_KEY_ITEM db "@" OaksLabText15: TX_ASM ld hl, OaksLabRivalChallengeText call PrintText jp TextScriptEnd OaksLabRivalChallengeText: TX_FAR _OaksLabRivalChallengeText db "@" OaksLabText_1d3be: TX_FAR _OaksLabText_1d3be db "@" OaksLabText_1d3c3: TX_FAR _OaksLabText_1d3c3 db "@" OaksLabText16: TX_ASM ld hl, OaksLabRivalToughenUpText call PrintText jp TextScriptEnd OaksLabRivalToughenUpText: TX_FAR _OaksLabRivalToughenUpText db "@" OaksLabText21: TX_FAR _OaksLabText21 db "@" OaksLabText22: TX_FAR _OaksLabText22 db "@" OaksLabText23: TX_FAR _OaksLabText23 db "@" OaksLabText24: TX_FAR _OaksLabText24 db "@" OaksLabText25: TX_FAR _OaksLabText25 TX_SFX_KEY_ITEM db "@" OaksLabText26: TX_FAR _OaksLabText26 db "@" OaksLabText27: TX_FAR _OaksLabText27 db "@" OaksLabText11: OaksLabText10: TX_ASM ld hl, OaksLabText_1d405 call PrintText jp TextScriptEnd OaksLabText_1d405: TX_FAR _OaksLabText_1d405 db "@"