2019-01-01 20:06:23 +00:00
|
|
|
|
PalletTown_Script:
|
2015-07-21 01:32:02 +00:00
|
|
|
|
CheckEvent EVENT_GOT_POKEBALLS_FROM_OAK
|
2017-12-30 00:54:27 +00:00
|
|
|
|
jr z, .next
|
2015-07-21 17:36:03 +00:00
|
|
|
|
SetEvent EVENT_PALLET_AFTER_GETTING_POKEBALLS
|
2014-05-18 18:19:10 +00:00
|
|
|
|
.next
|
|
|
|
|
call EnableAutoTextBoxDrawing
|
2019-01-01 20:06:23 +00:00
|
|
|
|
ld hl, PalletTown_ScriptPointers
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, [wPalletTownCurScript]
|
2014-05-18 18:19:10 +00:00
|
|
|
|
jp CallFunctionInTable
|
|
|
|
|
|
2019-01-01 20:06:23 +00:00
|
|
|
|
PalletTown_ScriptPointers:
|
2014-05-18 18:19:10 +00:00
|
|
|
|
dw PalletTownScript0
|
|
|
|
|
dw PalletTownScript1
|
|
|
|
|
dw PalletTownScript2
|
|
|
|
|
dw PalletTownScript3
|
|
|
|
|
dw PalletTownScript4
|
|
|
|
|
dw PalletTownScript5
|
|
|
|
|
dw PalletTownScript6
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript0:
|
2015-07-21 17:36:03 +00:00
|
|
|
|
CheckEvent EVENT_FOLLOWED_OAK_INTO_LAB
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret nz
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, [wYCoord]
|
2014-05-18 18:19:10 +00:00
|
|
|
|
cp 1 ; is player near north exit?
|
|
|
|
|
ret nz
|
|
|
|
|
xor a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [hJoyHeld], a
|
|
|
|
|
ld a, PLAYER_DIR_DOWN
|
|
|
|
|
ld [wPlayerMovingDirection], a
|
2020-07-03 20:37:47 +00:00
|
|
|
|
ld a, SFX_STOP_ALL_MUSIC
|
|
|
|
|
call PlaySound
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ld a, BANK(Music_MeetProfOak)
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld c, a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ld a, MUSIC_MEET_PROF_OAK ; “oak appears” music
|
2015-07-03 19:38:12 +00:00
|
|
|
|
call PlayMusic
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, $FC
|
|
|
|
|
ld [wJoyIgnore], a
|
2015-07-21 17:36:03 +00:00
|
|
|
|
SetEvent EVENT_OAK_APPEARED_IN_PALLET
|
2014-05-18 18:19:10 +00:00
|
|
|
|
|
|
|
|
|
; trigger the next script
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 1
|
|
|
|
|
ld [wPalletTownCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript1:
|
2014-05-18 18:19:10 +00:00
|
|
|
|
xor a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [wcf0d], a
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [hSpriteIndexOrTextID], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
call DisplayTextID
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, $FF
|
|
|
|
|
ld [wJoyIgnore], a
|
|
|
|
|
ld a, HS_PALLET_TOWN_OAK
|
|
|
|
|
ld [wMissableObjectIndex], a
|
2014-06-16 20:57:26 +00:00
|
|
|
|
predef ShowObject
|
2014-05-18 18:19:10 +00:00
|
|
|
|
|
|
|
|
|
; trigger the next script
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 2
|
|
|
|
|
ld [wPalletTownCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript2:
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 1
|
2020-07-03 23:59:41 +00:00
|
|
|
|
ld [hSpriteIndex], a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, SPRITE_FACING_UP
|
|
|
|
|
ld [hSpriteFacingDirection], a
|
2014-09-10 03:55:19 +00:00
|
|
|
|
call SetSpriteFacingDirectionAndDelay
|
2014-05-18 18:19:10 +00:00
|
|
|
|
call Delay3
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 1
|
|
|
|
|
ld [wYCoord], a
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [hNPCPlayerRelativePosPerspective], a
|
|
|
|
|
ld a, 1
|
2014-05-18 18:19:10 +00:00
|
|
|
|
swap a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [hNPCSpriteOffset], a
|
2014-09-10 03:55:19 +00:00
|
|
|
|
predef CalcPositionOfPlayerRelativeToNPC
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld hl, hNPCPlayerYDistance
|
2014-05-18 18:19:10 +00:00
|
|
|
|
dec [hl]
|
2014-09-10 03:55:19 +00:00
|
|
|
|
predef FindPathToPlayer ; load Oak’s movement into wNPCMovementDirections2
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld de, wNPCMovementDirections2
|
|
|
|
|
ld a, 1 ; oak
|
2020-07-03 23:59:41 +00:00
|
|
|
|
ld [hSpriteIndex], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
call MoveSprite
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, $FF
|
|
|
|
|
ld [wJoyIgnore], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
|
|
|
|
|
; trigger the next script
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 3
|
|
|
|
|
ld [wPalletTownCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript3:
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, [wd730]
|
|
|
|
|
bit 0, a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret nz
|
2015-07-04 05:44:12 +00:00
|
|
|
|
xor a ; ld a, SPRITE_FACING_DOWN
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [wSpriteStateData1 + 9], a
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [wcf0d], a
|
|
|
|
|
ld a, $FC
|
|
|
|
|
ld [wJoyIgnore], a
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [hSpriteIndexOrTextID], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
call DisplayTextID
|
2015-07-15 20:58:21 +00:00
|
|
|
|
; set up movement script that causes the player to follow Oak to his lab
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, $FF
|
|
|
|
|
ld [wJoyIgnore], a
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [wSpriteIndex], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
xor a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [wNPCMovementScriptFunctionNum], a
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [wNPCMovementScriptPointerTableNum], a
|
2020-07-03 23:59:41 +00:00
|
|
|
|
ld a, [hLoadedROMBank]
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [wNPCMovementScriptBank], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
|
|
|
|
|
; trigger the next script
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 4
|
|
|
|
|
ld [wPalletTownCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript4:
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, [wNPCMovementScriptPointerTableNum]
|
2015-07-15 20:58:21 +00:00
|
|
|
|
and a ; is the movement script over?
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret nz
|
|
|
|
|
|
|
|
|
|
; trigger the next script
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, 5
|
|
|
|
|
ld [wPalletTownCurScript], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript5:
|
2015-07-21 17:36:03 +00:00
|
|
|
|
CheckEvent EVENT_DAISY_WALKING
|
2017-12-30 00:54:27 +00:00
|
|
|
|
jr nz, .next
|
2015-07-21 17:36:03 +00:00
|
|
|
|
CheckBothEventsSet EVENT_GOT_TOWN_MAP, EVENT_ENTERED_BLUES_HOUSE, 1
|
2017-12-30 00:54:27 +00:00
|
|
|
|
jr nz, .next
|
2015-07-21 17:36:03 +00:00
|
|
|
|
SetEvent EVENT_DAISY_WALKING
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, HS_DAISY_SITTING
|
|
|
|
|
ld [wMissableObjectIndex], a
|
2014-06-16 20:57:26 +00:00
|
|
|
|
predef HideObject
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, HS_DAISY_WALKING
|
|
|
|
|
ld [wMissableObjectIndex], a
|
2014-06-16 20:57:26 +00:00
|
|
|
|
predef_jump ShowObject
|
2014-05-18 18:19:10 +00:00
|
|
|
|
.next
|
2015-07-21 01:32:02 +00:00
|
|
|
|
CheckEvent EVENT_GOT_POKEBALLS_FROM_OAK
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret z
|
2015-07-21 17:36:03 +00:00
|
|
|
|
SetEvent EVENT_PALLET_AFTER_GETTING_POKEBALLS_2
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownScript6:
|
2014-05-18 18:19:10 +00:00
|
|
|
|
ret
|
|
|
|
|
|
2019-01-01 20:06:23 +00:00
|
|
|
|
PalletTown_TextPointers:
|
2014-05-18 18:19:10 +00:00
|
|
|
|
dw PalletTownText1
|
|
|
|
|
dw PalletTownText2
|
|
|
|
|
dw PalletTownText3
|
|
|
|
|
dw PalletTownText4
|
|
|
|
|
dw PalletTownText5
|
|
|
|
|
dw PalletTownText6
|
|
|
|
|
dw PalletTownText7
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
PalletTownText1:
|
2015-07-04 03:49:20 +00:00
|
|
|
|
TX_ASM
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, [wcf0d]
|
2014-05-18 18:19:10 +00:00
|
|
|
|
and a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
jr nz, .next
|
|
|
|
|
ld a, 1
|
|
|
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
|
|
|
|
ld hl, OakAppearsText
|
2014-05-18 18:19:10 +00:00
|
|
|
|
jr .done
|
|
|
|
|
.next
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld hl, OakWalksUpText
|
2014-05-18 18:19:10 +00:00
|
|
|
|
.done
|
|
|
|
|
call PrintText
|
|
|
|
|
jp TextScriptEnd
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
OakAppearsText:
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _OakAppearsText
|
2015-07-04 03:49:20 +00:00
|
|
|
|
TX_ASM
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld c, 10
|
2014-05-18 18:19:10 +00:00
|
|
|
|
call DelayFrames
|
|
|
|
|
xor a
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld [wEmotionBubbleSpriteIndex], a ; player's sprite
|
|
|
|
|
ld [wWhichEmotionBubble], a ; EXCLAMATION_BUBBLE
|
2015-07-14 21:32:49 +00:00
|
|
|
|
predef EmotionBubble
|
2017-12-30 00:54:27 +00:00
|
|
|
|
ld a, PLAYER_DIR_DOWN
|
|
|
|
|
ld [wPlayerMovingDirection], a
|
2014-05-18 18:19:10 +00:00
|
|
|
|
jp TextScriptEnd
|
|
|
|
|
|
2016-06-12 00:24:04 +00:00
|
|
|
|
OakWalksUpText:
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _OakWalksUpText
|
|
|
|
|
db "@"
|
|
|
|
|
|
2016-06-12 07:19:19 +00:00
|
|
|
|
PalletTownText2: ; girl
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _PalletTownText2
|
|
|
|
|
db "@"
|
|
|
|
|
|
2016-06-12 07:19:19 +00:00
|
|
|
|
PalletTownText3: ; fat man
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _PalletTownText3
|
|
|
|
|
db "@"
|
|
|
|
|
|
2016-06-12 07:19:19 +00:00
|
|
|
|
PalletTownText4: ; sign by lab
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _PalletTownText4
|
|
|
|
|
db "@"
|
|
|
|
|
|
2016-06-12 07:19:19 +00:00
|
|
|
|
PalletTownText5: ; sign by fence
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _PalletTownText5
|
|
|
|
|
db "@"
|
|
|
|
|
|
2016-06-12 07:19:19 +00:00
|
|
|
|
PalletTownText6: ; sign by Red’s house
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _PalletTownText6
|
|
|
|
|
db "@"
|
|
|
|
|
|
2016-06-12 07:19:19 +00:00
|
|
|
|
PalletTownText7: ; sign by Blue’s house
|
2014-05-18 18:19:10 +00:00
|
|
|
|
TX_FAR _PalletTownText7
|
|
|
|
|
db "@"
|