diff options
Diffstat (limited to 'scripts/SeafoamIslandsB4F.asm')
| -rwxr-xr-x | scripts/SeafoamIslandsB4F.asm | 173 |
1 files changed, 173 insertions, 0 deletions
diff --git a/scripts/SeafoamIslandsB4F.asm b/scripts/SeafoamIslandsB4F.asm new file mode 100755 index 00000000..d08628d0 --- /dev/null +++ b/scripts/SeafoamIslandsB4F.asm @@ -0,0 +1,173 @@ +SeafoamIslandsB4F_Script: + call EnableAutoTextBoxDrawing + ld a, [wSeafoamIslandsB4FCurScript] + ld hl, SeafoamIslandsB4F_ScriptPointers + jp CallFunctionInTable + +SeafoamIslands5Script_467a5: + xor a + ld [wSeafoamIslandsB4FCurScript], a + ld [wJoyIgnore], a + ret + +SeafoamIslandsB4F_ScriptPointers: + dw SeafoamIslands5Script0 + dw SeafoamIslands5Script1 + dw SeafoamIslands5Script2 + dw SeafoamIslands5Script3 + dw SeafoamIslands5Script4 + +SeafoamIslands5Script4: + ld a, [wIsInBattle] + cp $ff + jr z, SeafoamIslands5Script_467a5 + call EndTrainerBattle + ld a, $0 + ld [wSeafoamIslandsB4FCurScript], a + ret + +SeafoamIslands5Script0: + CheckBothEventsSet EVENT_SEAFOAM3_BOULDER1_DOWN_HOLE, EVENT_SEAFOAM3_BOULDER2_DOWN_HOLE + ret z + ld hl, .Coords + call ArePlayerCoordsInArray + ret nc + ld a, [wCoordIndex] + cp $3 + jr nc, .asm_467e6 + ld a, NPC_MOVEMENT_UP + ld [wSimulatedJoypadStatesEnd + 1], a + ld a, 2 + jr .asm_467e8 +.asm_467e6 + ld a, 1 +.asm_467e8 + ld [wSimulatedJoypadStatesIndex], a + ld a, D_UP + ld [wSimulatedJoypadStatesEnd], a + call StartSimulatingJoypadStates + ld hl, wFlags_D733 + res 2, [hl] + ld a, $1 + ld [wSeafoamIslandsB4FCurScript], a + ret + +.Coords + db $11,$14 + db $11,$15 + db $10,$14 + db $10,$15 + db $FF + +SeafoamIslands5Script1: + ld a, [wSimulatedJoypadStatesIndex] + and a + ret nz + xor a + ld [wJoyIgnore], a + ld a, $0 + ld [wSeafoamIslandsB4FCurScript], a + ret + +SeafoamIslands5Script2: + CheckBothEventsSet EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE, EVENT_SEAFOAM4_BOULDER2_DOWN_HOLE + ld a, $0 + jr z, .asm_46849 + ld hl, .Coords + call ArePlayerCoordsInArray + ld a, $0 + jr nc, .asm_46849 + ld a, [wCoordIndex] + cp $1 + jr nz, .asm_46837 + ld de, RLEMovementData_46859 + jr .asm_4683a +.asm_46837 + ld de, RLEMovementData_46852 +.asm_4683a + ld hl, wSimulatedJoypadStatesEnd + call DecodeRLEList + dec a + ld [wSimulatedJoypadStatesIndex], a + call StartSimulatingJoypadStates + ld a, $3 +.asm_46849 + ld [wSeafoamIslandsB4FCurScript], a + ret + +.Coords + db $0E,$04 + db $0E,$05 + db $FF + +RLEMovementData_46852: + db D_UP,$03 + db D_RIGHT,$02 + db D_UP,$01 + db $FF + +RLEMovementData_46859: + db D_UP,$03 + db D_RIGHT,$03 + db D_UP,$01 + db $FF + +SeafoamIslands5Script3: + ld a, [wSimulatedJoypadStatesIndex] + ld b, a + cp $1 + call z, SeaFoamIslands5Script_46872 + ld a, b + and a + ret nz + ld a, $0 + ld [wSeafoamIslandsB4FCurScript], a + ret + +SeaFoamIslands5Script_46872: + xor a + ld [wWalkBikeSurfState], a + ld [wWalkBikeSurfStateCopy], a + jp ForceBikeOrSurf + +SeafoamIslandsB4F_TextPointers: + dw BoulderText + dw BoulderText + dw ArticunoText + dw SeafoamIslands5Text4 + dw SeafoamIslands5Text5 + +ArticunoTrainerHeader: + dbEventFlagBit EVENT_BEAT_ARTICUNO + db ($0 << 4) ; trainer's view range + dwEventFlagAddress EVENT_BEAT_ARTICUNO + dw ArticunoBattleText ; TextBeforeBattle + dw ArticunoBattleText ; TextAfterBattle + dw ArticunoBattleText ; TextEndBattle + dw ArticunoBattleText ; TextEndBattle + + db $ff + +ArticunoText: + TX_ASM + ld hl, ArticunoTrainerHeader + call TalkToTrainer + ld a, $4 + ld [wSeafoamIslandsB4FCurScript], a + jp TextScriptEnd + +ArticunoBattleText: + TX_FAR _ArticunoBattleText + TX_ASM + ld a, ARTICUNO + call PlayCry + call WaitForSoundToFinish + jp TextScriptEnd + +SeafoamIslands5Text4: + TX_FAR _SeafoamIslands5Text4 + db "@" + +SeafoamIslands5Text5: + TX_FAR _SeafoamIslands5Text5 + db "@" |