Groundwork for Galarian Bird event

This adds the first half of an event where you will find the Galarian Birds. It is not finished yet.

It currently bugs out when Galarian Zapdos tries to run away and I don't know why. Frame-by-frame, it seems to be when the player has to move. I've tried different things to make this less bad, but they don't work.

Here's how it's meant to go:
1) Articuno flies away (done)
2) Zapdos barges past the player like Silver does in GSC (bugs out)
3) Moltres moves in front of the player and engages (not done)

If anyone has a better way to do this, please let me know!

Minor changes;
- Connection for Brunswick-Citrine looks nicer
- Celeste has a few changes to make the event run easier.

scripts/BrunswickTrail.asm

@@ -38,8 +38,8 @@ FakeTreePrompt:
 	text_end
 
 ; Ok, so here's how it is.
-; So look, I tried to make the text work more efficiently with FakeTreeEvent. 
-; But one bug literally took me back to the fucking title screen and at that point I gave up and decided to do it this hacky way.
+; I tried to make the text work more efficiently here, but nothing worked.
+; One bug literally took me back to the fucking title screen and at that point I gave up.
 ; I wanted to have some text before the CUT check. It did not work. It was terrifying.
 ; So instead I have two different versions of the same text, despite some being the same.
 ; It is inefficient, but it works. There's a lot to see in this life, and I'm not wasting it in Notepad++.

scripts/CelesteHill.asm

@@ -1,7 +1,192 @@
 CelesteHill_Script:
-	jp EnableAutoTextBoxDrawing
+	call EnableAutoTextBoxDrawing
+	ld hl, CelesteHill_ScriptPointers
+	ld a, [wCelesteHillCurScript]
+	jp CallFunctionInTable
+
+CelesteHill_ScriptPointers:
+	dw GalarianBirdScript1
+
+CelesteHillCoords1:
+	dbmapcoord 13,  8
+	db -1 ; end
+
+GalarianBirdScript1:
+;	CheckEvent EVENT_BIRDS_FOUND
+;	jr z, .cont
+;	jr nz, .done
+;.cont - This code is unfinished and bad.
+; If you have any ideas lmk :3
+	ld hl, CelesteHillCoords1
+	call ArePlayerCoordsInArray
+	jp nc, .done
+	
+	ld [wJoyIgnore], a
+	SetEvent EVENT_BIRDS_FOUND
+	ld a, $1
+	ldh [hSpriteIndexOrTextID], a
+	call DisplayTextID
+	
+	ld a, ARTICUNO_G
+	call PlayCry
+	call WaitForSoundToFinish
+	pop hl
+	ld de, BirdSprite
+	ld hl, vNPCSprites
+	lb bc, BANK(BirdSprite), $0c
+	call CopyVideoData
+	farcall LoadBirdSpriteGraphics
+	ld a, SFX_FLY
+	call PlaySound
+	ld hl, wFlyAnimUsingCoordList
+	xor a ; is using coord list
+	ld [hli], a ; wFlyAnimUsingCoordList
+	ld a, 12
+	ld [hli], a ; wFlyAnimCounter
+	ld [hl], $8 ; wFlyAnimBirdSpriteImageIndex (facing right)
+	xor a ; is using coord list
+	ld [hli], a ; wFlyAnimUsingCoordList
+	ld a, $c
+	ld [hli], a ; wFlyAnimCounter
+	ld [hl], $c ; wFlyAnimBirdSpriteImageIndex (facing right)
+	ld de, GalarianArticunoFlyScreenCoords1
+	call GalarianArticunoFlyLoop
+	ld c, 40
+	call DelayFrames
+	ld hl, wFlyAnimCounter
+	ld a, 11
+	ld [hli], a ; wFlyAnimCounter
+	ld [hl], $8 ; wFlyAnimBirdSpriteImageIndex (facing left)
+	ld de, GalarianArticunoFlyScreenCoords2
+	call GalarianArticunoFlyLoop
+	
+	ld a, HS_CELESTE_ARTICUNO_G
+	ld [wMissableObjectIndex], a
+	predef ShowObject
+	
+	ld a, ZAPDOS_G
+	call PlayCry
+	call ZapdosRunThrough
+	
+	ld a, HS_CELESTE_ZAPDOS_G
+	ld [wMissableObjectIndex], a
+	predef ShowObject
+	
+	ld a, $1
+	ldh [hSpriteIndex], a
+	call SetSpriteMovementBytesToFF
+	ld a, [wXCoord]
+	
+	jr .done
+.done
+	ret
+
+	; DoFlyAnimation clone, but for Articuno.
+GalarianArticunoFlyLoop:
+	ld a, [wFlyAnimBirdSpriteImageIndex]
+	xor $1 ; make the bird flap its wings
+	ld [wFlyAnimBirdSpriteImageIndex], a
+	ld [wSprite03StateData1ImageIndex], a
+	call Delay3
+	ld a, [wFlyAnimUsingCoordList]
+	cp $ff
+	jr z, .skipCopyingCoords ; if the bird is flapping its wings in place
+	ld hl, wSprite03StateData1YPixels
+	ld a, [de]
+	inc de
+	ld [hli], a ; y
+	inc hl
+	ld a, [de]
+	inc de
+	ld [hl], a ; x
+.skipCopyingCoords
+	ld a, [wFlyAnimCounter]
+	dec a
+	ld [wFlyAnimCounter], a
+	jr nz, GalarianArticunoFlyLoop
+	ret
+
+; Clones of the initial part of the Fly animation.
+GalarianArticunoFlyScreenCoords1:
+; y, x pairs
+	db $06, $0B ; 6, 11 $3C, $48
+	db $3C, $50
+	db $3B, $58
+	db $3A, $60
+	db $39, $68
+	db $37, $70
+	db $37, $78
+	db $33, $80
+	db $30, $88
+	db $2D, $90
+	db $2A, $98
+	db $27, $A0
+
+GalarianArticunoFlyScreenCoords2:
+	db $1A, $90
+	db $19, $80
+	db $17, $70
+	db $15, $60
+	db $12, $50
+	db $0F, $40
+	db $0C, $30
+	db $09, $20
+	db $05, $10
+	db $00, $00
+
+	db $F0, $00
+
+ZapdosRunThrough:
+	call Delay3
+	ld a, $2
+	ldh [hSpriteIndex], a
+	ld de, GalarianZapdosMovement1
+	call MoveSprite
+	
+	ld hl, wSimulatedJoypadStatesEnd
+	ld de, RLEList_PlayerGZapMovement
+	call DecodeRLEList
+	dec a
+	ld [wSimulatedJoypadStatesIndex], a
+	call StartSimulatingJoypadStates
+	ld a, $1
+	ldh [hSpriteIndex], a
+	xor a
+	ldh [hSpriteFacingDirection], a
+	call SetSpriteFacingDirectionAndDelay
+	
+	ld a, $2
+	ldh [hSpriteIndex], a
+	ld de, GalarianZapdosMovement2
+	call MoveSprite
+	ret
+
+GalarianZapdosMovement1:
+	db NPC_MOVEMENT_DOWN
+	db -1
+
+GalarianZapdosMovement2:
+	db NPC_MOVEMENT_DOWN
+	db NPC_MOVEMENT_DOWN
+	db NPC_MOVEMENT_DOWN
+	db -1
 
 CelesteHill_TextPointers:
+	dw CelesteHillGalarianBirdScreech
+	dw CelesteHillSign1
+	dw CelesteHillSign2
 
+CelesteHillGalarianBirdScreech:
+	text_far _CelesteHillGalarianBirdScreech
+	text_end
+
+CelesteHillSign1:
+	text_far _CelesteHillSign1
+	text_end
+	
+CelesteHillSign2:
+	text_far _CelesteHillSign2
+	text_end
+	
 	text_end ; unused