Rename map files, labels, and constants to be consistent and work with Polished Map

1 files changed, 450 insertions, 0 deletions

diff --git a/scripts/RocketHideoutB2F.asm b/scripts/RocketHideoutB2F.asm
new file mode 100755
index 00000000..1b487df2
--- /dev/null
+++ b/scripts/RocketHideoutB2F.asm
@@ -0,0 +1,450 @@
+RocketHideoutB2F_Script:
+	call EnableAutoTextBoxDrawing
+	ld hl, RocketHideout2TrainerHeader0
+	ld de, RocketHideoutB2F_ScriptPointers
+	ld a, [wRocketHideoutB2FCurScript]
+	call ExecuteCurMapScriptInTable
+	ld [wRocketHideoutB2FCurScript], a
+	ret
+
+RocketHideoutB2F_ScriptPointers:
+	dw RocketHideout2Script0
+	dw DisplayEnemyTrainerTextAndStartBattle
+	dw EndTrainerBattle
+	dw RocketHideout2Script3
+
+RocketHideout2Script0:
+	ld a, [wYCoord]
+	ld b, a
+	ld a, [wXCoord]
+	ld c, a
+	ld hl, RocketHideout2ArrowTilePlayerMovement
+	call DecodeArrowMovementRLE
+	cp $ff
+	jp z, CheckFightingMapTrainers
+	ld hl, wd736
+	set 7, [hl]
+	call StartSimulatingJoypadStates
+	ld a, SFX_ARROW_TILES
+	call PlaySound
+	ld a, $ff
+	ld [wJoyIgnore], a
+	ld a, $3
+	ld [wCurMapScript], a
+	ret
+
+;format:
+;db y,x
+;dw pointer to movement
+RocketHideout2ArrowTilePlayerMovement:
+	db $9,$4
+	dw RocketHideout2ArrowMovement1
+	db $b,$4
+	dw RocketHideout2ArrowMovement2
+	db $f,$4
+	dw RocketHideout2ArrowMovement3
+	db $10,$4
+	dw RocketHideout2ArrowMovement4
+	db $13,$4
+	dw RocketHideout2ArrowMovement1
+	db $16,$4
+	dw RocketHideout2ArrowMovement5
+	db $e,$5
+	dw RocketHideout2ArrowMovement6
+	db $16,$6
+	dw RocketHideout2ArrowMovement7
+	db $18,$6
+	dw RocketHideout2ArrowMovement8
+	db $9,$8
+	dw RocketHideout2ArrowMovement9
+	db $c,$8
+	dw RocketHideout2ArrowMovement10
+	db $f,$8
+	dw RocketHideout2ArrowMovement8
+	db $13,$8
+	dw RocketHideout2ArrowMovement9
+	db $17,$8
+	dw RocketHideout2ArrowMovement11
+	db $e,$9
+	dw RocketHideout2ArrowMovement12
+	db $16,$9
+	dw RocketHideout2ArrowMovement12
+	db $9,$a
+	dw RocketHideout2ArrowMovement13
+	db $a,$a
+	dw RocketHideout2ArrowMovement14
+	db $f,$a
+	dw RocketHideout2ArrowMovement15
+	db $11,$a
+	dw RocketHideout2ArrowMovement16
+	db $13,$a
+	dw RocketHideout2ArrowMovement17
+	db $19,$a
+	dw RocketHideout2ArrowMovement2
+	db $e,$b
+	dw RocketHideout2ArrowMovement18
+	db $10,$b
+	dw RocketHideout2ArrowMovement19
+	db $12,$b
+	dw RocketHideout2ArrowMovement12
+	db $9,$c
+	dw RocketHideout2ArrowMovement20
+	db $b,$c
+	dw RocketHideout2ArrowMovement21
+	db $d,$c
+	dw RocketHideout2ArrowMovement22
+	db $11,$c
+	dw RocketHideout2ArrowMovement23
+	db $a,$d
+	dw RocketHideout2ArrowMovement24
+	db $c,$d
+	dw RocketHideout2ArrowMovement25
+	db $10,$d
+	dw RocketHideout2ArrowMovement26
+	db $12,$d
+	dw RocketHideout2ArrowMovement27
+	db $13,$d
+	dw RocketHideout2ArrowMovement28
+	db $16,$d
+	dw RocketHideout2ArrowMovement29
+	db $17,$d
+	dw RocketHideout2ArrowMovement30
+	db $11,$e
+	dw RocketHideout2ArrowMovement31
+	db $10,$f
+	dw RocketHideout2ArrowMovement12
+	db $e,$10
+	dw RocketHideout2ArrowMovement32
+	db $10,$10
+	dw RocketHideout2ArrowMovement33
+	db $12,$10
+	dw RocketHideout2ArrowMovement34
+	db $a,$11
+	dw RocketHideout2ArrowMovement35
+	db $b,$11
+	dw RocketHideout2ArrowMovement36
+	db $FF
+
+;format: direction, count
+;each list is read starting from the $FF and working backwards
+RocketHideout2ArrowMovement1:
+	db D_LEFT,$02
+	db $FF
+
+RocketHideout2ArrowMovement2:
+	db D_RIGHT,$04
+	db $FF
+
+RocketHideout2ArrowMovement3:
+	db D_UP,$04
+	db D_RIGHT,$04
+	db $FF
+
+RocketHideout2ArrowMovement4:
+	db D_UP,$04
+	db D_RIGHT,$04
+	db D_UP,$01
+	db $FF
+
+RocketHideout2ArrowMovement5:
+	db D_LEFT,$02
+	db D_UP,$03
+	db $FF
+
+RocketHideout2ArrowMovement6:
+	db D_DOWN,$02
+	db D_RIGHT,$04
+	db $FF
+
+RocketHideout2ArrowMovement7:
+	db D_UP,$02
+	db $FF
+
+RocketHideout2ArrowMovement8:
+	db D_UP,$04
+	db $FF
+
+RocketHideout2ArrowMovement9:
+	db D_LEFT,$06
+	db $FF
+
+RocketHideout2ArrowMovement10:
+	db D_UP,$01
+	db $FF
+
+RocketHideout2ArrowMovement11:
+	db D_LEFT,$06
+	db D_UP,$04
+	db $FF
+
+RocketHideout2ArrowMovement12:
+	db D_DOWN,$02
+	db $FF
+
+RocketHideout2ArrowMovement13:
+	db D_LEFT,$08
+	db $FF
+
+RocketHideout2ArrowMovement14:
+	db D_LEFT,$08
+	db D_UP,$01
+	db $FF
+
+RocketHideout2ArrowMovement15:
+	db D_LEFT,$08
+	db D_UP,$06
+	db $FF
+
+RocketHideout2ArrowMovement16:
+	db D_UP,$02
+	db D_RIGHT,$04
+	db $FF
+
+RocketHideout2ArrowMovement17:
+	db D_UP,$02
+	db D_RIGHT,$04
+	db D_UP,$02
+	db $FF
+
+RocketHideout2ArrowMovement18:
+	db D_DOWN,$02
+	db D_RIGHT,$04
+	db D_DOWN,$02
+	db $FF
+
+RocketHideout2ArrowMovement19:
+	db D_DOWN,$02
+	db D_RIGHT,$04
+	db $FF
+
+RocketHideout2ArrowMovement20:
+	db D_LEFT,$0A
+	db $FF
+
+RocketHideout2ArrowMovement21:
+	db D_LEFT,$0A
+	db D_UP,$02
+	db $FF
+
+RocketHideout2ArrowMovement22:
+	db D_LEFT,$0A
+	db D_UP,$04
+	db $FF
+
+RocketHideout2ArrowMovement23:
+	db D_UP,$02
+	db D_RIGHT,$02
+	db $FF
+
+RocketHideout2ArrowMovement24:
+	db D_RIGHT,$01
+	db D_DOWN,$02
+	db $FF
+
+RocketHideout2ArrowMovement25:
+	db D_RIGHT,$01
+	db $FF
+
+RocketHideout2ArrowMovement26:
+	db D_DOWN,$02
+	db D_RIGHT,$02
+	db $FF
+
+RocketHideout2ArrowMovement27:
+	db D_DOWN,$02
+	db D_LEFT,$02
+	db $FF
+
+RocketHideout2ArrowMovement28:
+	db D_UP,$02
+	db D_RIGHT,$04
+	db D_UP,$02
+	db D_LEFT,$03
+	db $FF
+
+RocketHideout2ArrowMovement29:
+	db D_DOWN,$02
+	db D_LEFT,$04
+	db $FF
+
+RocketHideout2ArrowMovement30:
+	db D_LEFT,$06
+	db D_UP,$04
+	db D_LEFT,$05
+	db $FF
+
+RocketHideout2ArrowMovement31:
+	db D_UP,$02
+	db $FF
+
+RocketHideout2ArrowMovement32:
+	db D_UP,$01
+	db $FF
+
+RocketHideout2ArrowMovement33:
+	db D_UP,$03
+	db $FF
+
+RocketHideout2ArrowMovement34:
+	db D_UP,$05
+	db $FF
+
+RocketHideout2ArrowMovement35:
+	db D_RIGHT,$01
+	db D_DOWN,$02
+	db D_LEFT,$04
+	db $FF
+
+RocketHideout2ArrowMovement36:
+	db D_LEFT,$0A
+	db D_UP,$02
+	db D_LEFT,$05
+	db $FF
+
+RocketHideout2Script3:
+	ld a, [wSimulatedJoypadStatesIndex]
+	and a
+	jr nz, LoadSpinnerArrowTiles
+	xor a
+	ld [wJoyIgnore], a
+	ld hl, wd736
+	res 7, [hl]
+	ld a, $0
+	ld [wCurMapScript], a
+	ret
+
+LoadSpinnerArrowTiles:
+	ld a, [wSpriteStateData1 + 2]
+	srl a
+	srl a
+	ld hl, SpinnerPlayerFacingDirections
+	ld c, a
+	ld b, $0
+	add hl, bc
+	ld a, [hl]
+	ld [wSpriteStateData1 + 2], a
+	ld a, [wCurMapTileset]
+	cp FACILITY
+	ld hl, FacilitySpinnerArrows
+	jr z, .asm_44ff6
+	ld hl, GymSpinnerArrows
+.asm_44ff6
+	ld a, [wSimulatedJoypadStatesIndex]
+	bit 0, a
+	jr nz, .asm_45001
+	ld de, $18
+	add hl, de
+.asm_45001
+	ld a, $4
+	ld bc, $0
+.asm_45006
+	push af
+	push hl
+	push bc
+	add hl, bc
+	ld a, [hli]
+	ld e, a
+	ld a, [hli]
+	ld d, a
+	ld a, [hli]
+	ld c, a
+	ld a, [hli]
+	ld b, a
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call CopyVideoData
+	pop bc
+	ld a, $6
+	add c
+	ld c, a
+	pop hl
+	pop af
+	dec a
+	jr nz, .asm_45006
+	ret
+
+spinner: MACRO
+; \1: source
+; \2: offset (BANK() chokes on literals)
+; \3: length
+; \4: dest
+	dw \1 + \2
+	db \3, BANK(\1)
+	dw \4
+ENDM
+
+FacilitySpinnerArrows:
+FACILITY_SPINNER EQU $20 * $10
+vFacilitySpinner EQU vTileset + FACILITY_SPINNER
+
+	spinner SpinnerArrowAnimTiles, $00, 1, vFacilitySpinner
+	spinner SpinnerArrowAnimTiles, $10, 1, vFacilitySpinner + $10
+	spinner SpinnerArrowAnimTiles, $20, 1, vFacilitySpinner + $100
+	spinner SpinnerArrowAnimTiles, $30, 1, vFacilitySpinner + $110
+	spinner Facility_GFX, FACILITY_SPINNER + $000, 1, vFacilitySpinner
+	spinner Facility_GFX, FACILITY_SPINNER + $010, 1, vFacilitySpinner + $10
+	spinner Facility_GFX, FACILITY_SPINNER + $100, 1, vFacilitySpinner + $100
+	spinner Facility_GFX, FACILITY_SPINNER + $110, 1, vFacilitySpinner + $110
+
+GymSpinnerArrows:
+GYM_SPINNER EQU $3c * $10
+vGymSpinner EQU vTileset + GYM_SPINNER
+
+	spinner SpinnerArrowAnimTiles, $10, 1, vGymSpinner
+	spinner SpinnerArrowAnimTiles, $30, 1, vGymSpinner + $10
+	spinner SpinnerArrowAnimTiles, $00, 1, vGymSpinner + $100
+	spinner SpinnerArrowAnimTiles, $20, 1, vGymSpinner + $110
+	spinner Gym_GFX, GYM_SPINNER + $000, 1, vGymSpinner
+	spinner Gym_GFX, GYM_SPINNER + $010, 1, vGymSpinner + $10
+	spinner Gym_GFX, GYM_SPINNER + $100, 1, vGymSpinner + $100
+	spinner Gym_GFX, GYM_SPINNER + $110, 1, vGymSpinner + $110
+
+SpinnerPlayerFacingDirections:
+; This isn't the order of the facing directions.  Rather, it's a list of
+; the facing directions that come next. For example, when the player is
+; facing down (00), the next facing direction is left (08).
+	db $08 ; down -> left
+	db $0C ; up -> right
+	db $04 ; left -> up
+	db $00 ; right -> down
+
+; these tiles are the animation for the tiles that push the player in dungeons like Rocket HQ
+SpinnerArrowAnimTiles:
+	INCBIN "gfx/spinner_arrow.2bpp"
+
+RocketHideoutB2F_TextPointers:
+	dw RocketHideout2Text1
+	dw PickUpItemText
+	dw PickUpItemText
+	dw PickUpItemText
+	dw PickUpItemText
+
+RocketHideout2TrainerHeader0:
+	dbEventFlagBit EVENT_BEAT_ROCKET_HIDEOUT_2_TRAINER_0
+	db ($4 << 4) ; trainer's view range
+	dwEventFlagAddress EVENT_BEAT_ROCKET_HIDEOUT_2_TRAINER_0
+	dw RocketHideout2BattleText2 ; TextBeforeBattle
+	dw RocketHideout2AfterBattleTxt2 ; TextAfterBattle
+	dw RocketHideout2EndBattleText2 ; TextEndBattle
+	dw RocketHideout2EndBattleText2 ; TextEndBattle
+
+	db $ff
+
+RocketHideout2Text1:
+	TX_ASM
+	ld hl, RocketHideout2TrainerHeader0
+	call TalkToTrainer
+	jp TextScriptEnd
+
+RocketHideout2BattleText2:
+	TX_FAR _RocketHideout2BattleText2
+	db "@"
+
+RocketHideout2EndBattleText2:
+	TX_FAR _RocketHideout2EndBattleText2
+	db "@"
+
+RocketHideout2AfterBattleTxt2:
+	TX_FAR _RocketHideout2AfterBattleTxt2
+	db "@"