diff options
Diffstat (limited to 'scripts/RocketHideoutB2F.asm')
| -rwxr-xr-x | scripts/RocketHideoutB2F.asm | 450 |
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 "@" |