pokered/scripts/silphco3.asm

SilphCo3Script: ; 59f5b (16:5f5b)
	call SilphCo3Script_59f71
	call EnableAutoTextBoxDrawing
	ld hl, SilphCo3TrainerHeaders
	ld de, SilphCo3ScriptPointers
	ld a, [W_SILPHCO3CURSCRIPT]
	call ExecuteCurMapScriptInTable
	ld [W_SILPHCO3CURSCRIPT], a
	ret

SilphCo3Script_59f71: ; 59f71 (16:5f71)
	ld hl, wd126
	bit 5, [hl]
	res 5, [hl]
	ret z
	ld hl, DataTable_59fa8
	call SilphCo2Script_59d43
	call SilphCo3Script_59fad
	CheckEvent EVENT_708
	jr nz, .asm_59f98
	push af
	ld a, $5f
	ld [wd09f], a
	ld bc, $404
	predef ReplaceTileBlock
	pop af
.asm_59f98
	bit 1, a
	ret nz
	ld a, $5f
	ld [wd09f], a
	ld bc, $408
	predef_jump ReplaceTileBlock

DataTable_59fa8: ; 59fa8 (16:5fa8)
	db $04,$04,$04,$08,$FF

SilphCo3Script_59fad: ; 59fad (16:5fad)
	EventFlagAddress hl, EVENT_708
	ld a, [$ffe0]
	and a
	ret z
	cp $1
	jr nz, .next
	SetEventReuseHL EVENT_708
	ret
.next
	SetEventAfterBranchReuseHL EVENT_709, EVENT_708
	ret

SilphCo3ScriptPointers: ; 59fbe (16:5fbe)
	dw CheckFightingMapTrainers
	dw DisplayEnemyTrainerTextAndStartBattle
	dw EndTrainerBattle

SilphCo3TextPointers: ; 59fc4 (16:5fc4)
	dw SilphCo3Text1
	dw SilphCo3Text2
	dw SilphCo3Text3
	dw PickUpItemText

SilphCo3TrainerHeaders: ; 59fcc (16:5fcc)
SilphCo3TrainerHeader0: ; 59fcc (16:5fcc)
	dbEventFlagBit EVENT_BEAT_SILPH_CO_3F_TRAINER_0
	db ($2 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_SILPH_CO_3F_TRAINER_0
	dw SilphCo3BattleText1 ; TextBeforeBattle
	dw SilphCo3AfterBattleText1 ; TextAfterBattle
	dw SilphCo3EndBattleText1 ; TextEndBattle
	dw SilphCo3EndBattleText1 ; TextEndBattle

SilphCo3TrainerHeader1: ; 59fd8 (16:5fd8)
	dbEventFlagBit EVENT_BEAT_SILPH_CO_3F_TRAINER_1
	db ($3 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_SILPH_CO_3F_TRAINER_1
	dw SilphCo3BattleText2 ; TextBeforeBattle
	dw SilphCo3AfterBattleText2 ; TextAfterBattle
	dw SilphCo3EndBattleText2 ; TextEndBattle
	dw SilphCo3EndBattleText2 ; TextEndBattle

	db $ff

SilphCo3Text1: ; 59fe5 (16:5fe5)
	TX_ASM
	CheckEvent EVENT_78F
	ld hl, SilphCo3Text_59ffe
	jr nz, .asm_59fee
	ld hl, SilphCo3Text_59ff9
.asm_59fee
	call PrintText
	jp TextScriptEnd

SilphCo3Text_59ff9: ; 59ff9 (16:5ff9)
	TX_FAR _SilphCo3Text_59ff9
	db "@"

SilphCo3Text_59ffe: ; 59ffe (16:5ffe)
	TX_FAR _SilphCo3Text_59ffe
	db "@"

SilphCo3Text2: ; 5a003 (16:6003)
	TX_ASM
	ld hl, SilphCo3TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

SilphCo3BattleText1: ; 5a00d (16:600d)
	TX_FAR _SilphCo3BattleText1
	db "@"

SilphCo3EndBattleText1: ; 5a012 (16:6012)
	TX_FAR _SilphCo3EndBattleText1
	db "@"

SilphCo3AfterBattleText1: ; 5a017 (16:6017)
	TX_FAR _SilphCo3AfterBattleText1
	db "@"

SilphCo3Text3: ; 5a01c (16:601c)
	TX_ASM
	ld hl, SilphCo3TrainerHeader1
	call TalkToTrainer
	jp TextScriptEnd

SilphCo3BattleText2: ; 5a026 (16:6026)
	TX_FAR _SilphCo3BattleText2
	db "@"

SilphCo3EndBattleText2: ; 5a02b (16:602b)
	TX_FAR _SilphCo3EndBattleText2
	db "@"

SilphCo3AfterBattleText2: ; 5a030 (16:6030)
	TX_FAR _SilphCo3AfterBattleText2
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`SilphCo3Script: ; 59f5b (16:5f5b)`
			`call SilphCo3Script_59f71`
			`call EnableAutoTextBoxDrawing`
			`ld hl, SilphCo3TrainerHeaders`
			`ld de, SilphCo3ScriptPointers`
			`ld a, [W_SILPHCO3CURSCRIPT]`
			`call ExecuteCurMapScriptInTable`
			`ld [W_SILPHCO3CURSCRIPT], a`
			`ret`

			`SilphCo3Script_59f71: ; 59f71 (16:5f71)`
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`
$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 hl, DataTable_59fa8`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call SilphCo2Script_59d43`
			`call SilphCo3Script_59fad`
enumerate events 2015-07-21 01:32:02 +00:00			`CheckEvent EVENT_708`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr nz, .asm_59f98`
			`push af`
			`ld a, $5f`
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, $404`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`predef ReplaceTileBlock`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`pop af`
			`.asm_59f98`
			`bit 1, a`
			`ret nz`
			`ld a, $5f`
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, $408`
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
			`DataTable_59fa8: ; 59fa8 (16:5fa8)`
			`db $04,$04,$04,$08,$FF`

			`SilphCo3Script_59fad: ; 59fad (16:5fad)`
enumerate events 2015-07-21 01:32:02 +00:00			`EventFlagAddress hl, EVENT_708`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, [$ffe0]`
			`and a`
			`ret z`
			`cp $1`
enumerate events 2015-07-21 01:32:02 +00:00			`jr nz, .next`
			`SetEventReuseHL EVENT_708`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`
enumerate events 2015-07-21 01:32:02 +00:00			`.next`
			`SetEventAfterBranchReuseHL EVENT_709, EVENT_708`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`SilphCo3ScriptPointers: ; 59fbe (16:5fbe)`
			`dw CheckFightingMapTrainers`
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`

			`SilphCo3TextPointers: ; 59fc4 (16:5fc4)`
			`dw SilphCo3Text1`
			`dw SilphCo3Text2`
			`dw SilphCo3Text3`
fix variable naming 2015-07-18 15:17:29 +00:00			`dw PickUpItemText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo3TrainerHeaders: ; 59fcc (16:5fcc)`
			`SilphCo3TrainerHeader0: ; 59fcc (16:5fcc)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_SILPH_CO_3F_TRAINER_0`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db ($2 << 4) ; trainer's view range`
enumerate events 2015-07-21 01:32:02 +00:00			`dwEventFlagAddress EVENT_BEAT_SILPH_CO_3F_TRAINER_0`
$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 SilphCo3BattleText1 ; TextBeforeBattle`
			`dw SilphCo3AfterBattleText1 ; TextAfterBattle`
			`dw SilphCo3EndBattleText1 ; TextEndBattle`
			`dw SilphCo3EndBattleText1 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo3TrainerHeader1: ; 59fd8 (16:5fd8)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_SILPH_CO_3F_TRAINER_1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db ($3 << 4) ; trainer's view range`
enumerate events 2015-07-21 01:32:02 +00:00			`dwEventFlagAddress EVENT_BEAT_SILPH_CO_3F_TRAINER_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			`dw SilphCo3BattleText2 ; TextBeforeBattle`
			`dw SilphCo3AfterBattleText2 ; TextAfterBattle`
			`dw SilphCo3EndBattleText2 ; TextEndBattle`
			`dw SilphCo3EndBattleText2 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

			`SilphCo3Text1: ; 59fe5 (16:5fe5)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
enumerate events 2015-07-21 01:32:02 +00:00			`CheckEvent EVENT_78F`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo3Text_59ffe`
$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 nz, .asm_59fee`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo3Text_59ff9`
$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			`.asm_59fee`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`jp TextScriptEnd`

			`SilphCo3Text_59ff9: ; 59ff9 (16:5ff9)`
			`TX_FAR _SilphCo3Text_59ff9`
			`db "@"`

			`SilphCo3Text_59ffe: ; 59ffe (16:5ffe)`
			`TX_FAR _SilphCo3Text_59ffe`
			`db "@"`

			`SilphCo3Text2: ; 5a003 (16:6003)`
$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, SilphCo3TrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo3BattleText1: ; 5a00d (16:600d)`
			`TX_FAR _SilphCo3BattleText1`
			`db "@"`

			`SilphCo3EndBattleText1: ; 5a012 (16:6012)`
			`TX_FAR _SilphCo3EndBattleText1`
			`db "@"`

			`SilphCo3AfterBattleText1: ; 5a017 (16:6017)`
			`TX_FAR _SilphCo3AfterBattleText1`
			`db "@"`

			`SilphCo3Text3: ; 5a01c (16:601c)`
$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, SilphCo3TrainerHeader1`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo3BattleText2: ; 5a026 (16:6026)`
			`TX_FAR _SilphCo3BattleText2`
			`db "@"`

			`SilphCo3EndBattleText2: ; 5a02b (16:602b)`
			`TX_FAR _SilphCo3EndBattleText2`
			`db "@"`

			`SilphCo3AfterBattleText2: ; 5a030 (16:6030)`
			`TX_FAR _SilphCo3AfterBattleText2`
			`db "@"`