pokered/scripts/rockethideout3.asm

RocketHideout3Script: ; 45225 (11:5225)
	call EnableAutoTextBoxDrawing
	ld hl, RocketHideout3TrainerHeaders
	ld de, RocketHideout3ScriptPointers
	ld a, [W_ROCKETHIDEOUT3CURSCRIPT]
	call ExecuteCurMapScriptInTable
	ld [W_ROCKETHIDEOUT3CURSCRIPT], a
	ret

RocketHideout3ScriptPointers: ; 45238 (11:5238)
	dw RocketHideout3Script0
	dw DisplayEnemyTrainerTextAndStartBattle
	dw EndTrainerBattle
	dw RocketHideout3Script3

RocketHideout3Script0: ; 45240 (11:5240)
	ld a, [W_YCOORD]
	ld b, a
	ld a, [W_XCOORD]
	ld c, a
	ld hl, RocketHideout3ArrowTilePlayerMovement
	call DecodeArrowMovementRLE
	cp $ff
	jp z, CheckFightingMapTrainers
	ld hl, wd736
	set 7, [hl]
	call StartSimulatingJoypadStates
	ld a, (SFX_02_52 - SFX_Headers_02) / 3
	call PlaySound
	ld a, $ff
	ld [wJoyIgnore], a
	ld a, $3
	ld [W_CURMAPSCRIPT], a
	ret

;format:
;db y,x
;dw pointer to movement
RocketHideout3ArrowTilePlayerMovement: ; 4526b (11:526b)
	db $d,$a
	dw RocketHideout3ArrowMovement6
	db $13,$a
	dw RocketHideout3ArrowMovement1
	db $12,$b
	dw RocketHideout3ArrowMovement2
	db $b,$c
	dw RocketHideout3ArrowMovement3
	db $11,$c
	dw RocketHideout3ArrowMovement4
	db $14,$c
	dw RocketHideout3ArrowMovement5
	db $10,$d
	dw RocketHideout3ArrowMovement6
	db $b,$e
	dw RocketHideout3ArrowMovement7
	db $f,$e
	dw RocketHideout3ArrowMovement6
	db $11,$e
	dw RocketHideout3ArrowMovement8
	db $13,$e
	dw RocketHideout3ArrowMovement9
	db $10,$f
	dw RocketHideout3ArrowMovement7
	db $12,$f
	dw RocketHideout3ArrowMovement10
	db $d,$10
	dw RocketHideout3ArrowMovement11
	db $c,$11
	dw RocketHideout3ArrowMovement10
	db $10,$12
	dw RocketHideout3ArrowMovement12
	db $FF

;format: direction, count
;each list is read starting from the $FF and working backwards
RocketHideout3ArrowMovement1: ; 452ac (11:52ac)
	db D_RIGHT,$04
	db D_UP,$04
	db D_RIGHT,$04
	db $FF

RocketHideout3ArrowMovement2: ; 452b3 (11:52b3)
	db D_DOWN,$04
	db D_RIGHT,$04
	db $FF

RocketHideout3ArrowMovement3: ; 452b8 (11:52b8)
	db D_LEFT,$02
	db $FF

RocketHideout3ArrowMovement4: ; 452bb (11:52bb)
	db D_RIGHT,$04
	db D_UP,$02
	db D_RIGHT,$02
	db $FF

RocketHideout3ArrowMovement5: ; 452c2 (11:52c2)
	db D_RIGHT,$04
	db D_UP,$02
	db D_RIGHT,$02
	db D_UP,$03
	db $FF

RocketHideout3ArrowMovement6: ; 452cb (11:52cb)
	db D_RIGHT,$04
	db $FF

RocketHideout3ArrowMovement7: ; 452ce (11:52ce)
	db D_RIGHT,$02
	db $FF

RocketHideout3ArrowMovement8: ; 452d1 (11:52d1)
	db D_RIGHT,$04
	db D_UP,$02
	db $FF

RocketHideout3ArrowMovement9: ; 452d6 (11:52d6)
	db D_RIGHT,$04
	db D_UP,$04
	db $FF

RocketHideout3ArrowMovement10: ; 452db (11:52db)
	db D_DOWN,$04
	db $FF

RocketHideout3ArrowMovement11: ; 452de (11:52de)
	db D_UP,$02
	db $FF

RocketHideout3ArrowMovement12: ; 452e1 (11:52e1)
	db D_UP,$01
	db $FF

RocketHideout3Script3: ; 452e4 (11:452e4)
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	jp nz, LoadSpinnerArrowTiles
	xor a
	ld [wJoyIgnore], a
	ld hl, wd736
	res 7, [hl]
	ld a, $0
	ld [W_CURMAPSCRIPT], a
	ret

RocketHideout3TextPointers: ; 452fa (11:52fa)
	dw RocketHideout3Text1
	dw RocketHideout3Text2
	dw Predef5CText
	dw Predef5CText

RocketHideout3TrainerHeaders: ; 45302 (11:5302)
RocketHideout3TrainerHeader0: ; 45302 (11:5302)
	db $1 ; flag's bit
	db ($2 << 4) ; trainer's view range
	dw wd819 ; flag's byte
	dw RocketHideout3BattleText2 ; TextBeforeBattle
	dw RocketHideout3AfterBattleTxt2 ; TextAfterBattle
	dw RocketHideout3EndBattleText2 ; TextEndBattle
	dw RocketHideout3EndBattleText2 ; TextEndBattle

RocketHideout3TrainerHeader2: ; 4530e (11:530e)
	db $2 ; flag's bit
	db ($4 << 4) ; trainer's view range
	dw wd819 ; flag's byte
	dw RocketHideout3BattleTxt ; TextBeforeBattle
	dw RocketHideout3AfterBattleText3 ; TextAfterBattle
	dw RocketHideout3EndBattleText3 ; TextEndBattle
	dw RocketHideout3EndBattleText3 ; TextEndBattle

	db $ff

RocketHideout3Text1: ; 4531b (11:531b)
	TX_ASM
	ld hl, RocketHideout3TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

RocketHideout3BattleText2: ; 45325 (11:5325)
	TX_FAR _RocketHideout3BattleText2
	db "@"

RocketHideout3EndBattleText2: ; 4532a (11:532a)
	TX_FAR _RocketHideout3EndBattleText2
	db "@"

RocketHideout3AfterBattleTxt2: ; 4532f (11:532f)
	TX_FAR _RocketHideout3AfterBattleTxt2
	db "@"

RocketHideout3Text2: ; 45334 (11:5334)
	TX_ASM
	ld hl, RocketHideout3TrainerHeader2
	call TalkToTrainer
	jp TextScriptEnd

RocketHideout3BattleTxt: ; 4533e (11:533e)
	TX_FAR _RocketHideout3BattleTxt
	db "@"

RocketHideout3EndBattleText3: ; 45343 (11:5343)
	TX_FAR _RocketHideout3EndBattleText3
	db "@"

RocketHideout3AfterBattleText3: ; 45348 (11:5348)
	TX_FAR _RocketHide3AfterBattleText3
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`RocketHideout3Script: ; 45225 (11:5225)`
			`call EnableAutoTextBoxDrawing`
			`ld hl, RocketHideout3TrainerHeaders`
			`ld de, RocketHideout3ScriptPointers`
			`ld a, [W_ROCKETHIDEOUT3CURSCRIPT]`
			`call ExecuteCurMapScriptInTable`
			`ld [W_ROCKETHIDEOUT3CURSCRIPT], a`
			`ret`

			`RocketHideout3ScriptPointers: ; 45238 (11:5238)`
			`dw RocketHideout3Script0`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`dw DisplayEnemyTrainerTextAndStartBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw EndTrainerBattle`
			`dw RocketHideout3Script3`

			`RocketHideout3Script0: ; 45240 (11:5240)`
			`ld a, [W_YCOORD]`
			`ld b, a`
			`ld a, [W_XCOORD]`
			`ld c, a`
			`ld hl, RocketHideout3ArrowTilePlayerMovement`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`call DecodeArrowMovementRLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $ff`
			`jp z, CheckFightingMapTrainers`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd736`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 7, [hl]`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call StartSimulatingJoypadStates`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, (SFX_02_52 - SFX_Headers_02) / 3`
			`call PlaySound`
			`ld a, $ff`
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, $3`
			`ld [W_CURMAPSCRIPT], a`
			`ret`

			`;format:`
			`;db y,x`
			`;dw pointer to movement`
			`RocketHideout3ArrowTilePlayerMovement: ; 4526b (11:526b)`
			`db $d,$a`
			`dw RocketHideout3ArrowMovement6`
			`db $13,$a`
			`dw RocketHideout3ArrowMovement1`
			`db $12,$b`
			`dw RocketHideout3ArrowMovement2`
			`db $b,$c`
			`dw RocketHideout3ArrowMovement3`
			`db $11,$c`
			`dw RocketHideout3ArrowMovement4`
			`db $14,$c`
			`dw RocketHideout3ArrowMovement5`
			`db $10,$d`
			`dw RocketHideout3ArrowMovement6`
			`db $b,$e`
			`dw RocketHideout3ArrowMovement7`
			`db $f,$e`
			`dw RocketHideout3ArrowMovement6`
			`db $11,$e`
			`dw RocketHideout3ArrowMovement8`
			`db $13,$e`
			`dw RocketHideout3ArrowMovement9`
			`db $10,$f`
			`dw RocketHideout3ArrowMovement7`
			`db $12,$f`
			`dw RocketHideout3ArrowMovement10`
			`db $d,$10`
			`dw RocketHideout3ArrowMovement11`
			`db $c,$11`
			`dw RocketHideout3ArrowMovement10`
			`db $10,$12`
			`dw RocketHideout3ArrowMovement12`
			`db $FF`

			`;format: direction, count`
			`;each list is read starting from the $FF and working backwards`
			`RocketHideout3ArrowMovement1: ; 452ac (11:52ac)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$04`
			`db D_UP,$04`
			`db D_RIGHT,$04`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement2: ; 452b3 (11:52b3)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_DOWN,$04`
			`db D_RIGHT,$04`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement3: ; 452b8 (11:52b8)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_LEFT,$02`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement4: ; 452bb (11:52bb)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$04`
			`db D_UP,$02`
			`db D_RIGHT,$02`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement5: ; 452c2 (11:52c2)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$04`
			`db D_UP,$02`
			`db D_RIGHT,$02`
			`db D_UP,$03`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement6: ; 452cb (11:52cb)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$04`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement7: ; 452ce (11:52ce)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$02`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement8: ; 452d1 (11:52d1)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$04`
			`db D_UP,$02`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement9: ; 452d6 (11:52d6)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_RIGHT,$04`
			`db D_UP,$04`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement10: ; 452db (11:52db)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_DOWN,$04`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement11: ; 452de (11:52de)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db D_UP,$02`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF`

			`RocketHideout3ArrowMovement12: ; 452e1 (11:52e1)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`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`

$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`RocketHideout3Script3: ; 452e4 (11:452e4)`
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`
			`jp nz, LoadSpinnerArrowTiles`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd736`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`res 7, [hl]`
			`ld a, $0`
			`ld [W_CURMAPSCRIPT], a`
			`ret`

			`RocketHideout3TextPointers: ; 452fa (11:52fa)`
			`dw RocketHideout3Text1`
			`dw RocketHideout3Text2`
			`dw Predef5CText`
			`dw Predef5CText`

			`RocketHideout3TrainerHeaders: ; 45302 (11:5302)`
			`RocketHideout3TrainerHeader0: ; 45302 (11:5302)`
			`db $1 ; flag's bit`
			`db ($2 << 4) ; trainer's view range`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wd819 ; flag's byte`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`dw RocketHideout3BattleText2 ; TextBeforeBattle`
			`dw RocketHideout3AfterBattleTxt2 ; TextAfterBattle`
			`dw RocketHideout3EndBattleText2 ; TextEndBattle`
			`dw RocketHideout3EndBattleText2 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`RocketHideout3TrainerHeader2: ; 4530e (11:530e)`
			`db $2 ; flag's bit`
			`db ($4 << 4) ; trainer's view range`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wd819 ; flag's byte`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`dw RocketHideout3BattleTxt ; TextBeforeBattle`
			`dw RocketHideout3AfterBattleText3 ; TextAfterBattle`
			`dw RocketHideout3EndBattleText3 ; TextEndBattle`
			`dw RocketHideout3EndBattleText3 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

			`RocketHideout3Text1: ; 4531b (11:531b)`
$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 hl, RocketHideout3TrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`RocketHideout3BattleText2: ; 45325 (11:5325)`
			`TX_FAR _RocketHideout3BattleText2`
			`db "@"`

			`RocketHideout3EndBattleText2: ; 4532a (11:532a)`
			`TX_FAR _RocketHideout3EndBattleText2`
			`db "@"`

			`RocketHideout3AfterBattleTxt2: ; 4532f (11:532f)`
			`TX_FAR _RocketHideout3AfterBattleTxt2`
			`db "@"`

			`RocketHideout3Text2: ; 45334 (11:5334)`
$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 hl, RocketHideout3TrainerHeader2`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`RocketHideout3BattleTxt: ; 4533e (11:533e)`
			`TX_FAR _RocketHideout3BattleTxt`
			`db "@"`

			`RocketHideout3EndBattleText3: ; 45343 (11:5343)`
			`TX_FAR _RocketHideout3EndBattleText3`
			`db "@"`

			`RocketHideout3AfterBattleText3: ; 45348 (11:5348)`
			`TX_FAR _RocketHide3AfterBattleText3`
			`db "@"`