shithub: pokered

ref: 01095f77943b9a7fd0432a6ad2e5c18f2d3e66ae
dir: /scripts/silphco10.asm/

View raw version
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 ; $6173
	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 ; 0x61dd TextBeforeBattle
	dw SilphCo10AfterBattleText1 ; 0x61e7 TextAfterBattle
	dw SilphCo10EndBattleText1 ; 0x61e2 TextEndBattle
	dw SilphCo10EndBattleText1 ; 0x61e2 TextEndBattle

SilphCo10TrainerHeader1: ; 5a19e (16:619e)
	db $2 ; flag's bit
	db ($4 << 4) ; trainer's view range
	dw wd835 ; flag's byte
	dw SilphCo10BattleText2 ; 0x61ec TextBeforeBattle
	dw SilphCo10AfterBattleText2 ; 0x61f6 TextAfterBattle
	dw SilphCo10EndBattleText2 ; 0x61f1 TextEndBattle
	dw SilphCo10EndBattleText2 ; 0x61f1 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 "@"