pokered/scripts/lorelei.asm

LoreleiScript: ; 7617b (1d:617b)
	call LoreleiScript_76191
	call EnableAutoTextBoxDrawing
	ld hl, LoreleiTrainerHeaders
	ld de, LoreleiScriptPointers
	ld a, [W_LORELEICURSCRIPT]
	call ExecuteCurMapScriptInTable
	ld [W_LORELEICURSCRIPT], a
	ret

LoreleiScript_76191: ; 76191 (1d:6191)
	ld hl, wd126
	bit 5, [hl]
	res 5, [hl]
	ret z
	ld hl, wd734
	set 1, [hl]
	ld a, [wd863]
	bit 1, a
	jr z, .asm_761a9
	ld a, $5
	jr .asm_761ab
.asm_761a9
	ld a, $24
.asm_761ab
	ld [wd09f], a
	ld bc, $2
	predef_jump ReplaceTileBlock

LoreleiScript_761b6: ; 761b6 (1d:61b6)
	xor a
	ld [W_LORELEICURSCRIPT], a
	ret

LoreleiScriptPointers: ; 761bb (1d:61bb)
	dw LoreleiScript0
	dw DisplayEnemyTrainerTextAndStartBattle
	dw LoreleiScript2
	dw LoreleiScript3
	dw LoreleiScript4

LoreleiScript4: ; 761c5 (1d:61c5)
	ret

LoreleiScript_761c6: ; 761c6 (1d:61c6)
	ld hl, wSimulatedJoypadStatesEnd
	ld a, D_UP
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hl], a
	ld a, $6
	ld [wSimulatedJoypadStatesIndex], a
	call StartSimulatingJoypadStates
	ld a, $3
	ld [W_LORELEICURSCRIPT], a
	ld [W_CURMAPSCRIPT], a
	ret

LoreleiScript0: ; 761e2 (1d:61e2)
	ld hl, CoordsData_76223
	call ArePlayerCoordsInArray
	jp nc, CheckFightingMapTrainers
	xor a
	ld [hJoyPressed], a
	ld [hJoyHeld], a
	ld [wSimulatedJoypadStatesEnd], a
	ld [wSimulatedJoypadStatesIndex], a
	ld a, [wWhichTrade]
	cp $3
	jr c, .asm_76206
	ld hl, wd863
	bit 6, [hl]
	set 6, [hl]
	jr z, LoreleiScript_761c6
.asm_76206
	ld a, $2
	ld [H_DOWNARROWBLINKCNT2], a
	call DisplayTextID
	ld a, D_UP
	ld [wSimulatedJoypadStatesEnd], a
	ld a, $1
	ld [wSimulatedJoypadStatesIndex], a
	call StartSimulatingJoypadStates
	ld a, $3
	ld [W_LORELEICURSCRIPT], a
	ld [W_CURMAPSCRIPT], a
	ret

CoordsData_76223: ; 76223 (1d:6223)
	db $0A,$04
	db $0A,$05
	db $0B,$04
	db $0B,$05
	db $FF

LoreleiScript3: ; 7622c (1d:622c)
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	call Delay3
	xor a
	ld [wJoyIgnore], a
	ld [W_LORELEICURSCRIPT], a
	ld [W_CURMAPSCRIPT], a
	ret
LoreleiScript2: ; 7623f (1d:623f)
	call EndTrainerBattle
	ld a, [W_ISINBATTLE]
	cp $ff
	jp z, LoreleiScript_761b6
	ld a, $1
	ld [H_DOWNARROWBLINKCNT2], a
	jp DisplayTextID

LoreleiTextPointers: ; 76251 (1d:6251)
	dw LoreleiText1
	dw LoreleiDontRunAwayText

LoreleiTrainerHeaders: ; 76255 (1d:6255)
LoreleiTrainerHeader0: ; 76255 (1d:6255)
	db $1 ; flag's bit
	db ($0 << 4) ; trainer's view range
	dw wd863 ; flag's byte
	dw LoreleiBeforeBattleText ; TextBeforeBattle
	dw LoreleiAfterBattleText ; TextAfterBattle
	dw LoreleiEndBattleText ; TextEndBattle
	dw LoreleiEndBattleText ; TextEndBattle

	db $ff

LoreleiText1: ; 76262 (1d:6262)
	TX_ASM
	ld hl, LoreleiTrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

LoreleiBeforeBattleText: ; 7626c (1d:626c)
	TX_FAR _LoreleiBeforeBattleText
	db "@"

LoreleiEndBattleText: ; 76271 (1d:6271)
	TX_FAR _LoreleiEndBattleText
	db "@"

LoreleiAfterBattleText: ; 76276 (1d:6276)
	TX_FAR _LoreleiAfterBattleText
	db "@"

LoreleiDontRunAwayText: ; 7627b (1d:627b)
	TX_FAR _LoreleiDontRunAwayText
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`LoreleiScript: ; 7617b (1d:617b)`
			`call LoreleiScript_76191`
			`call EnableAutoTextBoxDrawing`
			`ld hl, LoreleiTrainerHeaders`
			`ld de, LoreleiScriptPointers`
			`ld a, [W_LORELEICURSCRIPT]`
			`call ExecuteCurMapScriptInTable`
			`ld [W_LORELEICURSCRIPT], a`
			`ret`

			`LoreleiScript_76191: ; 76191 (1d:6191)`
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, wd126`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 5, [hl]`
			`res 5, [hl]`
			`ret z`
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, wd734`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 1, [hl]`
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 a, [wd863]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 1, a`
			`jr z, .asm_761a9`
			`ld a, $5`
			`jr .asm_761ab`
			`.asm_761a9`
			`ld a, $24`
			`.asm_761ab`
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 [wd09f], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld bc, $2`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`predef_jump ReplaceTileBlock`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`LoreleiScript_761b6: ; 761b6 (1d:61b6)`
			`xor a`
			`ld [W_LORELEICURSCRIPT], a`
			`ret`

			`LoreleiScriptPointers: ; 761bb (1d:61bb)`
			`dw LoreleiScript0`
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 LoreleiScript2`
			`dw LoreleiScript3`
			`dw LoreleiScript4`

			`LoreleiScript4: ; 761c5 (1d:61c5)`
			`ret`
$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
			`LoreleiScript_761c6: ; 761c6 (1d:61c6)`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld hl, wSimulatedJoypadStatesEnd`
			`ld a, D_UP`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld [hli], a`
			`ld [hli], a`
			`ld [hli], a`
			`ld [hli], a`
			`ld [hli], a`
			`ld [hl], a`
			`ld a, $6`
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`
			`ld [W_LORELEICURSCRIPT], a`
			`ld [W_CURMAPSCRIPT], a`
			`ret`
$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
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`LoreleiScript0: ; 761e2 (1d:61e2)`
			`ld hl, CoordsData_76223`
			`call ArePlayerCoordsInArray`
			`jp nc, CheckFightingMapTrainers`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [hJoyPressed], a`
			`ld [hJoyHeld], a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesEnd], a`
			`ld [wSimulatedJoypadStatesIndex], a`
$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			`ld a, [wWhichTrade]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $3`
			`jr c, .asm_76206`
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, wd863`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 6, [hl]`
			`set 6, [hl]`
$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			`jr z, LoreleiScript_761c6`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_76206`
			`ld a, $2`
$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			`ld [H_DOWNARROWBLINKCNT2], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld a, D_UP`
			`ld [wSimulatedJoypadStatesEnd], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
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`
			`ld [W_LORELEICURSCRIPT], a`
			`ld [W_CURMAPSCRIPT], a`
			`ret`

			`CoordsData_76223: ; 76223 (1d:6223)`
			`db $0A,$04`
			`db $0A,$05`
			`db $0B,$04`
			`db $0B,$05`
			`db $FF`

			`LoreleiScript3: ; 7622c (1d:622c)`
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`
			`call Delay3`
			`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 [W_LORELEICURSCRIPT], a`
			`ld [W_CURMAPSCRIPT], a`
			`ret`
			`LoreleiScript2: ; 7623f (1d:623f)`
			`call EndTrainerBattle`
$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			`ld a, [W_ISINBATTLE]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $ff`
			`jp z, LoreleiScript_761b6`
			`ld a, $1`
$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			`ld [H_DOWNARROWBLINKCNT2], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp DisplayTextID`

			`LoreleiTextPointers: ; 76251 (1d:6251)`
			`dw LoreleiText1`
$U-Daniel-PC\Daniel$ Name the last of unnamed text 2015-06-12 15:26:00 +00:00			`dw LoreleiDontRunAwayText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`LoreleiTrainerHeaders: ; 76255 (1d:6255)`
			`LoreleiTrainerHeader0: ; 76255 (1d:6255)`
			`db $1 ; flag's bit`
			`db ($0 << 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 wd863 ; 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 LoreleiBeforeBattleText ; TextBeforeBattle`
			`dw LoreleiAfterBattleText ; TextAfterBattle`
			`dw LoreleiEndBattleText ; TextEndBattle`
			`dw LoreleiEndBattleText ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

			`LoreleiText1: ; 76262 (1d:6262)`
$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, LoreleiTrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`LoreleiBeforeBattleText: ; 7626c (1d:626c)`
			`TX_FAR _LoreleiBeforeBattleText`
			`db "@"`

			`LoreleiEndBattleText: ; 76271 (1d:6271)`
			`TX_FAR _LoreleiEndBattleText`
			`db "@"`

			`LoreleiAfterBattleText: ; 76276 (1d:6276)`
			`TX_FAR _LoreleiAfterBattleText`
			`db "@"`

$U-Daniel-PC\Daniel$ Name the last of unnamed text 2015-06-12 15:26:00 +00:00			`LoreleiDontRunAwayText: ; 7627b (1d:627b)`
			`TX_FAR _LoreleiDontRunAwayText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "@"`