pokered/scripts/silphco10.asm

SilphCo10Script: ; 5a139 (16:6139)
	call SilphCo10Script_5a14f
	call EnableAutoTextBoxDrawing
	ld hl, SilphCo10TrainerHeaders
	ld de, SilphCo10ScriptPointers
	ld a, [W_SILPHCO10CURSCRIPT]
	call ExecuteCurMapScriptInTable
	ld [W_SILPHCO10CURSCRIPT], a
	ret

SilphCo10Script_5a14f: ; 5a14f (16:614f)
	ld hl, wd126
	bit 5, [hl]
	res 5, [hl]
	ret z
	ld hl, DataTable_5a173
	call SilphCo2Script_59d43
	call SilphCo10Text_5a176
	ld a, [wd836]
	bit 0, a
	ret nz
	ld a, $54
	ld [wd09f], a
	ld bc, $405
	predef_jump ReplaceTileBlock

DataTable_5a173: ; 5a173 (16:6173)
	db $04,$05,$FF

SilphCo10Text_5a176: ; 5a176 (16:6176)
	ld a, [$ffe0]
	and a
	ret z
	ld hl, wd836
	set 0, [hl]
	ret

SilphCo10ScriptPointers: ; 5a180 (16:6180)
	dw CheckFightingMapTrainers
	dw DisplayEnemyTrainerTextAndStartBattle
	dw EndTrainerBattle

SilphCo10TextPointers: ; 5a186 (16:6186)
	dw SilphCo10Text1
	dw SilphCo10Text2
	dw SilphCo10Text3
	dw Predef5CText
	dw Predef5CText
	dw Predef5CText

SilphCo10TrainerHeaders: ; 5a192 (16:6192)
SilphCo10TrainerHeader0: ; 5a192 (16:6192)
	db $1 ; flag's bit
	db ($3 << 4) ; trainer's view range
	dw wd835 ; flag's byte
	dw SilphCo10BattleText1 ; TextBeforeBattle
	dw SilphCo10AfterBattleText1 ; TextAfterBattle
	dw SilphCo10EndBattleText1 ; TextEndBattle
	dw SilphCo10EndBattleText1 ; TextEndBattle

SilphCo10TrainerHeader1: ; 5a19e (16:619e)
	db $2 ; flag's bit
	db ($4 << 4) ; trainer's view range
	dw wd835 ; flag's byte
	dw SilphCo10BattleText2 ; TextBeforeBattle
	dw SilphCo10AfterBattleText2 ; TextAfterBattle
	dw SilphCo10EndBattleText2 ; TextEndBattle
	dw SilphCo10EndBattleText2 ; TextEndBattle

	db $ff

SilphCo10Text1: ; 5a1ab (16:61ab)
	db $08 ; asm
	ld hl, SilphCo10TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

SilphCo10Text2: ; 5a1b5 (16:61b5)
	db $08 ; asm
	ld hl, SilphCo10TrainerHeader1
	call TalkToTrainer
	jp TextScriptEnd

SilphCo10Text3: ; 5a1bf (16:61bf)
	db $08 ; asm
	ld a, [wd838]
	bit 7, a
	ld hl, SilphCo10Text_5a1d8
	jr nz, .asm_cf85f
	ld hl, SilphCo10Text_5a1d3
.asm_cf85f
	call PrintText
	jp TextScriptEnd

SilphCo10Text_5a1d3: ; 5a1d3 (16:61d3)
	TX_FAR _SilphCo10Text_5a1d3
	db "@"

SilphCo10Text_5a1d8: ; 5a1d8 (16:61d8)
	TX_FAR _SilphCo10Text_5a1d8
	db "@"

SilphCo10BattleText1: ; 5a1dd (16:61dd)
	TX_FAR _SilphCo10BattleText1
	db "@"

SilphCo10EndBattleText1: ; 5a1e2 (16:61e2)
	TX_FAR _SilphCo10EndBattleText1
	db "@"

SilphCo10AfterBattleText1: ; 5a1e7 (16:61e7)
	TX_FAR _SilphCo10AfterBattleText1
	db "@"

SilphCo10BattleText2: ; 5a1ec (16:61ec)
	TX_FAR _SilphCo10BattleText2
	db "@"

SilphCo10EndBattleText2: ; 5a1f1 (16:61f1)
	TX_FAR _SilphCo10EndBattleText2
	db "@"

SilphCo10AfterBattleText2: ; 5a1f6 (16:61f6)
	TX_FAR _SilphCo10AfterBattleText2
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`SilphCo10Script: ; 5a139 (16:6139)`
			`call SilphCo10Script_5a14f`
			`call EnableAutoTextBoxDrawing`
			`ld hl, SilphCo10TrainerHeaders`
			`ld de, SilphCo10ScriptPointers`
			`ld a, [W_SILPHCO10CURSCRIPT]`
			`call ExecuteCurMapScriptInTable`
			`ld [W_SILPHCO10CURSCRIPT], a`
			`ret`

			`SilphCo10Script_5a14f: ; 5a14f (16:614f)`
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_5a173`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call SilphCo2Script_59d43`
			`call SilphCo10Text_5a176`
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, [wd836]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 0, a`
			`ret nz`
			`ld a, $54`
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, $405`
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_5a173: ; 5a173 (16:6173)`
			`db $04,$05,$FF`

			`SilphCo10Text_5a176: ; 5a176 (16:6176)`
			`ld a, [$ffe0]`
			`and a`
			`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, wd836`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 0, [hl]`
			`ret`

			`SilphCo10ScriptPointers: ; 5a180 (16:6180)`
			`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`

			`SilphCo10TextPointers: ; 5a186 (16:6186)`
			`dw SilphCo10Text1`
			`dw SilphCo10Text2`
			`dw SilphCo10Text3`
			`dw Predef5CText`
			`dw Predef5CText`
			`dw Predef5CText`

			`SilphCo10TrainerHeaders: ; 5a192 (16:6192)`
			`SilphCo10TrainerHeader0: ; 5a192 (16:6192)`
			`db $1 ; flag's bit`
			`db ($3 << 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 wd835 ; 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 SilphCo10BattleText1 ; TextBeforeBattle`
			`dw SilphCo10AfterBattleText1 ; TextAfterBattle`
			`dw SilphCo10EndBattleText1 ; TextEndBattle`
			`dw SilphCo10EndBattleText1 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo10TrainerHeader1: ; 5a19e (16:619e)`
			`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 wd835 ; 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 SilphCo10BattleText2 ; TextBeforeBattle`
			`dw SilphCo10AfterBattleText2 ; TextAfterBattle`
			`dw SilphCo10EndBattleText2 ; TextEndBattle`
			`dw SilphCo10EndBattleText2 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

			`SilphCo10Text1: ; 5a1ab (16:61ab)`
			`db $08 ; asm`
			`ld hl, SilphCo10TrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo10Text2: ; 5a1b5 (16:61b5)`
			`db $08 ; asm`
			`ld hl, SilphCo10TrainerHeader1`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo10Text3: ; 5a1bf (16:61bf)`
			`db $08 ; asm`
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, [wd838]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 7, a`
			`ld hl, SilphCo10Text_5a1d8`
			`jr nz, .asm_cf85f`
			`ld hl, SilphCo10Text_5a1d3`
			`.asm_cf85f`
			`call PrintText`
			`jp TextScriptEnd`

			`SilphCo10Text_5a1d3: ; 5a1d3 (16:61d3)`
			`TX_FAR _SilphCo10Text_5a1d3`
			`db "@"`

			`SilphCo10Text_5a1d8: ; 5a1d8 (16:61d8)`
			`TX_FAR _SilphCo10Text_5a1d8`
			`db "@"`

			`SilphCo10BattleText1: ; 5a1dd (16:61dd)`
			`TX_FAR _SilphCo10BattleText1`
			`db "@"`

			`SilphCo10EndBattleText1: ; 5a1e2 (16:61e2)`
			`TX_FAR _SilphCo10EndBattleText1`
			`db "@"`

			`SilphCo10AfterBattleText1: ; 5a1e7 (16:61e7)`
			`TX_FAR _SilphCo10AfterBattleText1`
			`db "@"`

			`SilphCo10BattleText2: ; 5a1ec (16:61ec)`
			`TX_FAR _SilphCo10BattleText2`
			`db "@"`

			`SilphCo10EndBattleText2: ; 5a1f1 (16:61f1)`
			`TX_FAR _SilphCo10EndBattleText2`
			`db "@"`

			`SilphCo10AfterBattleText2: ; 5a1f6 (16:61f6)`
			`TX_FAR _SilphCo10AfterBattleText2`
			`db "@"`