ref: a77999f7f151567a47dd69affe9a29378f298ff4
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 [hSpriteIndex], 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 [hSpriteIndex], a xor a ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $5 ld [hSpriteIndex], 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 [hSpriteIndex], 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 [hSpriteIndex], a xor a ; SPRITE_FACING_DOWN ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $1 ld [hSpriteIndex], 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 [hSpriteIndex], a ld a, $4 ld [hSpriteDataOffset], 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 [hSpriteIndex], 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 [hSpriteIndex], 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 [hSpriteIndex], 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 [hSpriteIndex], 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 [hSpriteIndex], 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 [hSpriteIndex], 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 [hSpriteIndex], 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, SFX_STOP_ALL_MUSIC 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 [hSpriteIndex], a ld de, wNPCMovementDirections2 call MoveSprite ld a, $10 ld [wOaksLabCurScript], a ret OaksLabScript_1cefd: ld a, $1 ld [hSpriteIndex], a ld a, SPRITE_FACING_UP ld [hSpriteFacingDirection], a call SetSpriteFacingDirectionAndDelay ld a, $8 ld [hSpriteIndex], 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 [hSpriteIndex], 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, SFX_STOP_ALL_MUSIC ld [wNewSoundID], a call PlaySound callba Music_RivalAlternateStart ld a, $1 ld [hSpriteIndex], 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, 0 .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 [hSpriteScreenYCoord], a ld a, $8 ld [hSpriteMapXCoord], 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 [hSpriteScreenXCoord], a ld a, b ld [hSpriteMapYCoord], 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: text_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: text_far _OaksLabGaryText1 text_end OaksLabText40: text_far _OaksLabText40 text_end OaksLabText41: text_far _OaksLabText41 text_end OaksLabText2: text_asm ld a, STARTER2 ld [wRivalStarterTemp], a ld a, $3 ld [wRivalStarterBallSpriteIndex], a ld a, STARTER1 ld b, $2 jr OaksLabScript_1d133 OaksLabText3: text_asm ld a, STARTER3 ld [wRivalStarterTemp], a ld a, $4 ld [wRivalStarterBallSpriteIndex], a ld a, STARTER2 ld b, $3 jr OaksLabScript_1d133 OaksLabText4: text_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: text_far _OaksLabText39 text_end OaksLabScript_1d157: ld a, $5 ld [hSpriteIndex], a ld a, $9 ld [hSpriteDataOffset], a call GetPointerWithinSpriteStateData1 ld [hl], SPRITE_FACING_DOWN ld a, $1 ld [hSpriteIndex], a ld a, $9 ld [hSpriteDataOffset], 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: text_far _OaksLabCharmanderText text_end OaksLabLookAtSquirtle: ld hl, OaksLabSquirtleText jr OaksLabMonChoiceMenu OaksLabSquirtleText: text_far _OaksLabSquirtleText text_end OaksLabLookAtBulbasaur: ld hl, OaksLabBulbasaurText jr OaksLabMonChoiceMenu OaksLabBulbasaurText: text_far _OaksLabBulbasaurText text_end 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: text_far _OaksLabMonEnergeticText text_end OaksLabReceivedMonText: text_far _OaksLabReceivedMonText sound_get_key_item text_end OaksLabScript_1d22d: ld a, $5 ld [hSpriteIndex], a ld a, $9 ld [hSpriteDataOffset], a call GetPointerWithinSpriteStateData1 ld [hl], $0 ld hl, OaksLabLastMonText call PrintText jp TextScriptEnd OaksLabLastMonText: text_far _OaksLabLastMonText text_end OaksLabText32: OaksLabText5: text_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: text_far _OaksLabText_1d2f0 text_end OaksLabText_1d2f5: text_far _OaksLabText_1d2f5 text_end OaksLabText_1d2fa: text_far _OaksLabText_1d2fa text_end OaksLabDeliverParcelText: text_far _OaksLabDeliverParcelText1 sound_get_key_item text_far _OaksLabDeliverParcelText2 text_end OaksLabAroundWorldText: text_far _OaksLabAroundWorldText text_end OaksLabGivePokeballsText: text_far _OaksLabGivePokeballsText1 sound_get_key_item text_far _OaksLabGivePokeballsText2 text_end OaksLabPleaseVisitText: text_far _OaksLabPleaseVisitText text_end OaksLabText_1d31d: text_far _OaksLabText_1d31d text_end OaksLabText7: OaksLabText6: text_asm ld hl, OaksLabText_1d32c call PrintText jp TextScriptEnd OaksLabText_1d32c: text_far _OaksLabText_1d32c text_end OaksLabText8: text_far _OaksLabText8 text_end OaksLabText9: text_asm ld hl, OaksLabText_1d340 call PrintText jp TextScriptEnd OaksLabText_1d340: text_far _OaksLabText_1d340 text_end OaksLabText17: text_asm ld hl, OaksLabRivalWaitingText call PrintText jp TextScriptEnd OaksLabRivalWaitingText: text_far _OaksLabRivalWaitingText text_end OaksLabText18: text_asm ld hl, OaksLabChooseMonText call PrintText jp TextScriptEnd OaksLabChooseMonText: text_far _OaksLabChooseMonText text_end OaksLabText19: text_asm ld hl, OaksLabRivalInterjectionText call PrintText jp TextScriptEnd OaksLabRivalInterjectionText: text_far _OaksLabRivalInterjectionText text_end OaksLabText20: text_asm ld hl, OaksLabBePatientText call PrintText jp TextScriptEnd OaksLabBePatientText: text_far _OaksLabBePatientText text_end OaksLabText12: text_asm ld hl, OaksLabLeavingText call PrintText jp TextScriptEnd OaksLabLeavingText: text_far _OaksLabLeavingText text_end OaksLabText13: text_asm ld hl, OaksLabRivalPickingMonText call PrintText jp TextScriptEnd OaksLabRivalPickingMonText: text_far _OaksLabRivalPickingMonText text_end OaksLabText14: text_asm ld hl, OaksLabRivalReceivedMonText call PrintText jp TextScriptEnd OaksLabRivalReceivedMonText: text_far _OaksLabRivalReceivedMonText sound_get_key_item text_end OaksLabText15: text_asm ld hl, OaksLabRivalChallengeText call PrintText jp TextScriptEnd OaksLabRivalChallengeText: text_far _OaksLabRivalChallengeText text_end OaksLabText_1d3be: text_far _OaksLabText_1d3be text_end OaksLabText_1d3c3: text_far _OaksLabText_1d3c3 text_end OaksLabText16: text_asm ld hl, OaksLabRivalToughenUpText call PrintText jp TextScriptEnd OaksLabRivalToughenUpText: text_far _OaksLabRivalToughenUpText text_end OaksLabText21: text_far _OaksLabText21 text_end OaksLabText22: text_far _OaksLabText22 text_end OaksLabText23: text_far _OaksLabText23 text_end OaksLabText24: text_far _OaksLabText24 text_end OaksLabText25: text_far _OaksLabText25 sound_get_key_item text_end OaksLabText26: text_far _OaksLabText26 text_end OaksLabText27: text_far _OaksLabText27 text_end OaksLabText11: OaksLabText10: text_asm ld hl, OaksLabText_1d405 call PrintText jp TextScriptEnd OaksLabText_1d405: text_far _OaksLabText_1d405 text_end