pokered/scripts/seafoamislands5.asm

SeafoamIslands5Script:
	call EnableAutoTextBoxDrawing
	ld a, [wSeafoamIslands5CurScript]
	ld hl, SeafoamIslands5ScriptPointers
	jp CallFunctionInTable

SeafoamIslands5Script_467a5:
	xor a
	ld [wSeafoamIslands5CurScript], a
	ld [wJoyIgnore], a
	ret

SeafoamIslands5ScriptPointers:
	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 [wSeafoamIslands5CurScript], 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 [wSeafoamIslands5CurScript], 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 [wSeafoamIslands5CurScript], 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 [wSeafoamIslands5CurScript], 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 [wSeafoamIslands5CurScript], a
	ret

SeaFoamIslands5Script_46872:
	xor a
	ld [wWalkBikeSurfState], a
	ld [wWalkBikeSurfStateCopy], a
	jp ForceBikeOrSurf

SeafoamIslands5TextPointers:
	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 [wSeafoamIslands5CurScript], 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 "@"
Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call EnableAutoTextBoxDrawing`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wSeafoamIslands5CurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SeafoamIslands5ScriptPointers`
			`jp CallFunctionInTable`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script_467a5:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5ScriptPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw SeafoamIslands5Script0`
			`dw SeafoamIslands5Script1`
			`dw SeafoamIslands5Script2`
			`dw SeafoamIslands5Script3`
			`dw SeafoamIslands5Script4`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script4:`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wIsInBattle]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $ff`
			`jr z, SeafoamIslands5Script_467a5`
			`call EndTrainerBattle`
			`ld a, $0`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script0:`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckBothEventsSet EVENT_SEAFOAM3_BOULDER1_DOWN_HOLE, EVENT_SEAFOAM3_BOULDER2_DOWN_HOLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret z`
Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`ld hl, .Coords`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ArePlayerCoordsInArray`
			`ret nc`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wCoordIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $3`
			`jr nc, .asm_467e6`
yet more naming 2015-07-26 02:26:54 +00:00			`ld a, NPC_MOVEMENT_UP`
			`ld [wSimulatedJoypadStatesEnd + 1], a`
			`ld a, 2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr .asm_467e8`
			`.asm_467e6`
yet more naming 2015-07-26 02:26:54 +00:00			`ld a, 1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_467e8`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesIndex], a`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`ld a, D_UP`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesEnd], a`
			`call StartSimulatingJoypadStates`
No more W_ 2015-08-31 02:38:41 +00:00			`ld hl, wFlags_D733`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`res 2, [hl]`
			`ld a, $1`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`.Coords`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $11,$14`
			`db $11,$15`
			`db $10,$14`
			`db $10,$15`
			`db $FF`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script1:`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld a, [wSimulatedJoypadStatesIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
			`ret nz`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $0`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script2:`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckBothEventsSet EVENT_SEAFOAM4_BOULDER1_DOWN_HOLE, EVENT_SEAFOAM4_BOULDER2_DOWN_HOLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $0`
			`jr z, .asm_46849`
Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`ld hl, .Coords`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ArePlayerCoordsInArray`
			`ld a, $0`
			`jr nc, .asm_46849`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wCoordIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $1`
			`jr nz, .asm_46837`
			`ld de, RLEMovementData_46859`
			`jr .asm_4683a`
			`.asm_46837`
			`ld de, RLEMovementData_46852`
			`.asm_4683a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld hl, wSimulatedJoypadStatesEnd`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DecodeRLEList`
			`dec a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesIndex], a`
			`call StartSimulatingJoypadStates`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $3`
			`.asm_46849`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`.Coords`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $0E,$04`
			`db $0E,$05`
			`db $FF`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`RLEMovementData_46852:`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_UP,$03`
			`db D_RIGHT,$02`
			`db D_UP,$01`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`RLEMovementData_46859:`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_UP,$03`
			`db D_RIGHT,$03`
			`db D_UP,$01`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Script3:`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld a, [wSimulatedJoypadStatesIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
			`cp $1`
			`call z, SeaFoamIslands5Script_46872`
			`ld a, b`
			`and a`
			`ret nz`
			`ld a, $0`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeaFoamIslands5Script_46872:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wWalkBikeSurfState], a`
			`ld [wWalkBikeSurfStateCopy], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp ForceBikeOrSurf`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5TextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw BoulderText`
			`dw BoulderText`
Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`dw ArticunoText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw SeafoamIslands5Text4`
			`dw SeafoamIslands5Text5`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`ArticunoTrainerHeader:`
			`dbEventFlagBit EVENT_BEAT_ARTICUNO`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db ($0 << 4) ; trainer's view range`
Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`dwEventFlagAddress EVENT_BEAT_ARTICUNO`
			`dw ArticunoBattleText ; TextBeforeBattle`
			`dw ArticunoBattleText ; TextAfterBattle`
			`dw ArticunoBattleText ; TextEndBattle`
			`dw ArticunoBattleText ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`ArticunoText:`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`ld hl, ArticunoTrainerHeader`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call TalkToTrainer`
			`ld a, $4`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSeafoamIslands5CurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`ArticunoBattleText:`
			`TX_FAR _ArticunoBattleText`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, ARTICUNO`
			`call PlayCry`
			`call WaitForSoundToFinish`
			`jp TextScriptEnd`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Text4:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _SeafoamIslands5Text4`
			`db "@"`

Clean up labels and trainer headers for overworld Pokémon. 2016-04-07 02:58:45 +00:00			`SeafoamIslands5Text5:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _SeafoamIslands5Text5`
			`db "@"`