mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-16 18:30:50 +12:00
5279e8a06e
The warp at the moment is an absolute travesty, something on that tileset needs to change. Either that or we figure out something else. Everything in the Grotto is done, except for making Galarian Zapdos disappear after being defeated. At least, to my knowledge... Pokemon Tower 3F is dead until future notice - Martha said she wanted to compress the Diglett's Cave maps, though.
171 lines
3.2 KiB
NASM
171 lines
3.2 KiB
NASM
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
|
|
dbmapcoord 20, 17
|
|
dbmapcoord 21, 17
|
|
dbmapcoord 20, 16
|
|
dbmapcoord 21, 16
|
|
db -1 ; end
|
|
|
|
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
|
|
dbmapcoord 4, 14
|
|
dbmapcoord 5, 14
|
|
db -1 ; end
|
|
|
|
RLEMovementData_46852:
|
|
db D_UP, 3
|
|
db D_RIGHT, 2
|
|
db D_UP, 1
|
|
db -1 ; end
|
|
|
|
RLEMovementData_46859:
|
|
db D_UP, 3
|
|
db D_RIGHT, 3
|
|
db D_UP, 1
|
|
db -1 ; end
|
|
|
|
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
|
|
|
|
; Articuno is object 3, but its event flag is bit 2.
|
|
; This is not a problem because its sight range is 0, and
|
|
; trainer headers were not stored by ExecuteCurMapScriptInTable.
|
|
def_trainers 2
|
|
ArticunoTrainerHeader:
|
|
trainer EVENT_BEAT_ARTICUNO, 0, ArticunoBattleText, ArticunoBattleText, ArticunoBattleText
|
|
db -1 ; end
|
|
|
|
ArticunoText:
|
|
text_asm
|
|
ld hl, ArticunoTrainerHeader
|
|
call TalkToTrainer
|
|
ld a, $4
|
|
ld [wSeafoamIslandsB4FCurScript], a
|
|
jp TextScriptEnd
|
|
|
|
ArticunoBattleText:
|
|
text_far _BirdBattleText
|
|
text_asm
|
|
ld a, ARTICUNO
|
|
call PlayCry
|
|
call WaitForSoundToFinish
|
|
jp TextScriptEnd
|
|
|
|
SeafoamIslands5Text4:
|
|
text_far _SeafoamIslands5Text4
|
|
text_end
|
|
|
|
SeafoamIslands5Text5:
|
|
text_far _SeafoamIslands5Text5
|
|
text_end
|