Sync with pokered

1 files changed, 566 insertions, 0 deletions

diff --git a/scripts/CinnabarGym.asm b/scripts/CinnabarGym.asm
new file mode 100755
index 00000000..2dc07e58
--- /dev/null
+++ b/scripts/CinnabarGym.asm
@@ -0,0 +1,566 @@
+CinnabarGym_Script:
+	call CinnabarGymScript_75759
+	call EnableAutoTextBoxDrawing
+	ld hl, CinnabarGym_ScriptPointers
+	ld a, [wCinnabarGymCurScript]
+	jp CallFunctionInTable
+
+CinnabarGymScript_75759:
+	ld hl, wCurrentMapScriptFlags
+	bit 6, [hl]
+	res 6, [hl]
+	push hl
+	call nz, CinnabarGymScript_75772
+	pop hl
+	bit 5, [hl]
+	res 5, [hl]
+	call nz, UpdateCinnabarGymGateTileBlocks
+	ResetEvent EVENT_2A7
+	ret
+CinnabarGymScript_75772:
+	ld hl, Gym7CityName
+	ld de, Gym7LeaderName
+	jp LoadGymLeaderAndCityName
+
+Gym7CityName:
+	db "CINNABAR ISLAND@"
+Gym7LeaderName:
+	db "BLAINE@"
+
+CinnabarGymScript_75792:
+	xor a
+	ld [wJoyIgnore], a
+	ld [wCinnabarGymCurScript], a
+	ld [wCurMapScript], a
+	ld [wOpponentAfterWrongAnswer], a
+	ret
+
+CinnabarGymScript_74f48:
+	ld a, [hSpriteIndexOrTextID]
+	ld [wTrainerHeaderFlagBit], a
+	ret
+
+CinnabarGymFlagAction:
+	predef_jump FlagActionPredef
+
+CinnabarGym_ScriptPointers:
+	dw CinnabarGymScript0
+	dw CinnabarGymScript1
+	dw CinnabarGymScript2
+	dw CinnabarGymScript3
+
+CinnabarGymScript0:
+	ld a, [wOpponentAfterWrongAnswer]
+	and a
+	ret z
+	ld [H_SPRITEINDEX], a
+	cp $4
+	jr nz, .asm_757c3
+	ld a, PLAYER_DIR_DOWN
+	ld [wPlayerMovingDirection], a
+	ld hl, PikachuMovementData_74f97
+	ld b, SPRITE_FACING_DOWN
+	call CinnabarGymScript_74fa3
+	ld de, MovementData_757d7
+	jr .asm_757cb
+.asm_757c3
+	ld a, PLAYER_DIR_RIGHT
+	ld [wPlayerMovingDirection], a
+	ld hl, PikachuMovementData_74f9e
+	ld b, SPRITE_FACING_RIGHT
+	call CinnabarGymScript_74fa3
+	ld de, MovementData_757da
+.asm_757cb
+	call MoveSprite
+	ld a, $1
+	ld [wCinnabarGymCurScript], a
+	ld [wCurMapScript], a
+	ret
+
+MovementData_757d7:
+	db NPC_MOVEMENT_LEFT
+	db NPC_MOVEMENT_UP
+	db $FF
+
+PikachuMovementData_74f97:
+	db $00
+	db $20
+	db $1e
+	db $35
+	db $3f
+
+MovementData_757da:
+	db NPC_MOVEMENT_LEFT
+	db $FF
+
+PikachuMovementData_74f9e:
+	db $00
+	db $1d
+	db $1f
+	db $38
+	db $3f
+
+CinnabarGymScript_74fa3:
+	ld a, [wd472]
+	bit 7, a
+	ret z
+	push hl
+	push bc
+	callab GetPikachuFacingDirectionAndReturnToE
+	pop bc
+	pop hl
+	ld a, b
+	cp e
+	ret nz
+	call ApplyPikachuMovementData
+	ret
+
+CinnabarGymScript1:
+	ld a, [wd730]
+	bit 0, a
+	ret nz
+	xor a
+	ld [wJoyIgnore], a
+	ld a, [wOpponentAfterWrongAnswer]
+	ld [wTrainerHeaderFlagBit], a
+	ld [hSpriteIndexOrTextID], a
+	jp DisplayTextID
+
+CinnabarGymScript2:
+	call CinnabarGymScript_753e9
+	ld a, [wIsInBattle]
+	cp $ff
+	jp z, CinnabarGymScript_75792
+	ld a, [wTrainerHeaderFlagBit]
+	sub 2
+	ld c, a
+	ld b, FLAG_TEST
+	EventFlagAddress hl, EVENT_CINNABAR_GYM_GATE0_UNLOCKED
+	call CinnabarGymFlagAction
+	ld a, c
+	and a
+	jr nz, .asm_7500d
+	ld a, [wTrainerHeaderFlagBit]
+	cp 2
+	jr z, .asm_7500d
+	ld c, 30
+	call DelayFrames
+	call CinnabarGymScript_75023
+	call CinnabarGymScript_75041
+	call WaitForSoundToFinish
+	ld a, SFX_GO_INSIDE
+	call PlaySound
+	call WaitForSoundToFinish
+	jr .asm_75013
+.asm_7500d
+	call CinnabarGymScript_75023
+	call CinnabarGymScript_75041
+.asm_75013
+	xor a
+	ld [wJoyIgnore], a
+	ld [wOpponentAfterWrongAnswer], a
+	ld a, $0
+	ld [wCinnabarGymCurScript], a
+	ld [wCurMapScript], a
+	ret
+
+CinnabarGymScript_75023:
+	ld a, [wTrainerHeaderFlagBit]
+	ld [$ffdb], a
+	ld c, a
+	ld b, FLAG_SET
+	EventFlagAddress hl, EVENT_BEAT_CINNABAR_GYM_TRAINER_0
+	call CinnabarGymFlagAction
+	ret
+
+CinnabarGymScript_75032:
+	ld a, [wTrainerHeaderFlagBit]
+	ld [$ffdb], a
+	ld c, a
+	ld b, FLAG_TEST
+	EventFlagAddress hl, EVENT_BEAT_CINNABAR_GYM_TRAINER_0
+	call CinnabarGymFlagAction
+	ret
+
+CinnabarGymScript_75041:
+	ld a, [wTrainerHeaderFlagBit]
+	sub 2
+	ld c, a
+	ld b, FLAG_SET
+	EventFlagAddress hl, EVENT_CINNABAR_GYM_GATE0_UNLOCKED
+	call CinnabarGymFlagAction
+	call UpdateCinnabarGymGateTileBlocks
+	ret
+
+CinnabarGymScript3:
+	call CinnabarGymScript_753e9
+	ld a, [wIsInBattle]
+	cp $ff
+	jp z, CinnabarGymScript_75792
+	ld a, $f0
+	ld [wJoyIgnore], a
+CinnabarGymScript3_75857:
+	ld a, $a
+	ld [hSpriteIndexOrTextID], a
+	call DisplayTextID
+	SetEvent EVENT_BEAT_BLAINE
+	lb bc, TM_38, 1
+	call GiveItem
+	jr nc, .BagFull
+	ld a, $b
+	ld [hSpriteIndexOrTextID], a
+	call DisplayTextID
+	SetEvent EVENT_GOT_TM38
+	jr .gymVictory
+.BagFull
+	ld a, $c
+	ld [hSpriteIndexOrTextID], a
+	call DisplayTextID
+.gymVictory
+	ld hl, wObtainedBadges
+	set 6, [hl]
+	ld hl, wBeatGymFlags
+	set 6, [hl]
+
+	; deactivate gym trainers
+	SetEventRange EVENT_BEAT_CINNABAR_GYM_TRAINER_0, EVENT_BEAT_CINNABAR_GYM_TRAINER_6
+
+	ld hl, wCurrentMapScriptFlags
+	set 5, [hl]
+
+	jp CinnabarGymScript_75792
+
+CinnabarGym_TextPointers:
+	dw CinnabarGymText1
+	dw CinnabarGymText2
+	dw CinnabarGymText3
+	dw CinnabarGymText4
+	dw CinnabarGymText5
+	dw CinnabarGymText6
+	dw CinnabarGymText7
+	dw CinnabarGymText8
+	dw CinnabarGymText9
+	dw BlaineBadgeText
+	dw ReceivedTM38Text
+	dw TM38NoRoomText
+
+CinnabarGymScript_750c3:
+	ld a, [hSpriteIndexOrTextID]
+	ld [wSpriteIndex], a
+	call EngageMapTrainer
+	call InitBattleEnemyParameters
+	ld hl, wd72d
+	set 6, [hl]
+	set 7, [hl]
+	ld a, [wSpriteIndex]
+	cp $1
+	jr z, .asm_758d4
+	ld a, $2
+	jr .asm_758d6
+.asm_758d4
+	ld a, $3
+.asm_758d6
+	ld [wCinnabarGymCurScript], a
+	ld [wCurMapScript], a
+	jp TextScriptEnd
+
+CinnabarGymText1:
+	TX_ASM
+	CheckEvent EVENT_BEAT_BLAINE
+	jr z, .beginBattle
+	CheckEventReuseA EVENT_GOT_TM38
+	jr nz, .afterVictory
+	call z, CinnabarGymScript3_75857
+	call DisableWaitingAfterTextDisplay
+	jp TextScriptEnd
+.afterVictory
+	ld hl, BlaineFireBlastText
+	call PrintText
+	jp TextScriptEnd
+.beginBattle
+	ld hl, BlaineBattleText
+	call PrintText
+	ld hl, BlaineEndBattleText
+	ld de, BlaineEndBattleText
+	call SaveEndBattleTextPointers
+	ld a, $7
+	ld [wGymLeaderNo], a
+	jp CinnabarGymScript_750c3
+
+BlaineBattleText:
+	TX_FAR _BlaineBattleText
+	db "@"
+
+BlaineEndBattleText:
+	TX_FAR _BlaineEndBattleText
+	TX_SFX_KEY_ITEM ; actually plays the second channel of SFX_BALL_POOF due to the wrong music bank being loaded
+	TX_WAIT
+	db "@"
+
+BlaineFireBlastText:
+	TX_FAR _BlaineFireBlastText
+	db "@"
+
+BlaineBadgeText:
+	TX_FAR _BlaineBadgeText
+	db "@"
+
+ReceivedTM38Text:
+	TX_FAR _ReceivedTM38Text
+	TX_SFX_ITEM_1
+	TX_FAR _TM38ExplanationText
+	db "@"
+
+TM38NoRoomText:
+	TX_FAR _TM38NoRoomText
+	db "@"
+
+CinnabarGymText2:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_0
+	jr nz, .asm_46bb4
+	ld hl, CinnabarGymText_7595f
+	call PrintText
+	ld hl, CinnabarGymText_75964
+	ld de, CinnabarGymText_75964
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+.asm_46bb4
+	ld hl, CinnabarGymText_75969
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_7595f:
+	TX_FAR _CinnabarGymText_7595f
+	db "@"
+
+CinnabarGymText_75964:
+	TX_FAR _CinnabarGymText_75964
+	db "@"
+
+CinnabarGymText_75969:
+	TX_FAR _CinnabarGymText_75969
+	db "@"
+
+CinnabarGymText3:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_1
+	jr nz, .asm_751a8
+	call CinnabarGymScript_753f3
+	jr nz, .asm_75196
+	CheckEvent EVENT_CINNABAR_GYM_GATE1_UNLOCKED
+	jr nz, .asm_75196
+	ld e, $00
+	jp CinnabarGymScript_753de
+
+.asm_75196
+	ld hl, CinnabarGymText_75994
+	call PrintText
+	ld hl, CinnabarGymText_75999
+	ld de, CinnabarGymText_75999
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+
+.asm_751a8
+	ld hl, CinnabarGymText_7599e
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_75994:
+	TX_FAR _CinnabarGymText_75994
+	db "@"
+
+CinnabarGymText_75999:
+	TX_FAR _CinnabarGymText_75999
+	db "@"
+
+CinnabarGymText_7599e:
+	TX_FAR _CinnabarGymText_7599e
+	db "@"
+
+CinnabarGymText4:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_2
+	jr nz, .asm_751ee
+	call CinnabarGymScript_753f3
+	jr nz, .asm_751dc
+	CheckEvent EVENT_CINNABAR_GYM_GATE2_UNLOCKED
+	jr nz, .asm_751dc
+	ld e, $1
+	jp CinnabarGymScript_753de
+
+.asm_751dc
+	ld hl, CinnabarGymText_759c9
+	call PrintText
+	ld hl, CinnabarGymText_759ce
+	ld de, CinnabarGymText_759ce
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+.asm_751ee
+	ld hl, CinnabarGymText_759d3
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_759c9:
+	TX_FAR _CinnabarGymText_759c9
+	db "@"
+
+CinnabarGymText_759ce:
+	TX_FAR _CinnabarGymText_759ce
+	db "@"
+
+CinnabarGymText_759d3:
+	TX_FAR _CinnabarGymText_759d3
+	db "@"
+
+CinnabarGymText5:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_3
+	jr nz, .asm_75234
+	call CinnabarGymScript_753f3
+	jr nz, .asm_75222
+	CheckEvent EVENT_CINNABAR_GYM_GATE3_UNLOCKED
+	jr nz, .asm_75222
+	ld e, $2
+	jp CinnabarGymScript_753de
+
+.asm_75222
+	ld hl, CinnabarGymText_759fe
+	call PrintText
+	ld hl, CinnabarGymText_75a03
+	ld de, CinnabarGymText_75a03
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+.asm_75234
+	ld hl, CinnabarGymText_75a08
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_759fe:
+	TX_FAR _CinnabarGymText_759fe
+	db "@"
+
+CinnabarGymText_75a03:
+	TX_FAR _CinnabarGymText_75a03
+	db "@"
+
+CinnabarGymText_75a08:
+	TX_FAR _CinnabarGymText_75a08
+	db "@"
+
+CinnabarGymText6:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_4
+	jr nz, .asm_776b4
+	call CinnabarGymScript_753f3
+	jr nz, .asm_75222
+	CheckEvent EVENT_CINNABAR_GYM_GATE4_UNLOCKED
+	jr nz, .asm_75222
+	ld e, $3
+	jp CinnabarGymScript_753de
+
+.asm_75222
+	ld hl, CinnabarGymText_75a33
+	call PrintText
+	ld hl, CinnabarGymText_75a38
+	ld de, CinnabarGymText_75a38
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+.asm_776b4
+	ld hl, CinnabarGymText_75a3d
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_75a33:
+	TX_FAR _CinnabarGymText_75a33
+	db "@"
+
+CinnabarGymText_75a38:
+	TX_FAR _CinnabarGymText_75a38
+	db "@"
+
+CinnabarGymText_75a3d:
+	TX_FAR _CinnabarGymText_75a3d
+	db "@"
+
+CinnabarGymText7:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_5
+	jr nz, .asm_2f755
+	call CinnabarGymScript_753f3
+	jr nz, .asm_75222
+	CheckEvent EVENT_CINNABAR_GYM_GATE5_UNLOCKED
+	jr nz, .asm_75222
+	ld e, $4
+	jp CinnabarGymScript_753de
+
+.asm_75222
+	ld hl, CinnabarGymText_75a68
+	call PrintText
+	ld hl, CinnabarGymText_75a6d
+	ld de, CinnabarGymText_75a6d
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+.asm_2f755
+	ld hl, CinnabarGymText_75a72
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_75a68:
+	TX_FAR _CinnabarGymText_75a68
+	db "@"
+
+CinnabarGymText_75a6d:
+	TX_FAR _CinnabarGymText_75a6d
+	db "@"
+
+CinnabarGymText_75a72:
+	TX_FAR _CinnabarGymText_75a72
+	db "@"
+
+CinnabarGymText8:
+	TX_ASM
+	call CinnabarGymScript_74f48
+	CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_6
+	jr nz, .asm_d87be
+	call CinnabarGymScript_753f3
+	jr nz, .asm_75222
+	CheckEvent EVENT_CINNABAR_GYM_GATE6_UNLOCKED
+	jr nz, .asm_75222
+	ld e, $5
+	jp CinnabarGymScript_753de
+
+.asm_75222
+	ld hl, CinnabarGymText_75a9d
+	call PrintText
+	ld hl, CinnabarGymText_75aa2
+	ld de, CinnabarGymText_75aa2
+	call SaveEndBattleTextPointers
+	jp CinnabarGymScript_750c3
+.asm_d87be
+	ld hl, CinnabarGymText_75aa7
+	call PrintText
+	jp TextScriptEnd
+
+CinnabarGymText_75a9d:
+	TX_FAR _CinnabarGymText_75a9d
+	db "@"
+
+CinnabarGymText_75aa2:
+	TX_FAR _CinnabarGymText_75aa2
+	db "@"
+
+CinnabarGymText_75aa7:
+	TX_FAR _CinnabarGymText_75aa7
+	db "@"
+
+CinnabarGymText9:
+	TX_ASM
+	callab Func_f2133
+	jp TextScriptEnd