pokered/scripts/SilphCo8F.asm

SilphCo8F_Script:
	call SilphCo8Script_5651a
	call EnableAutoTextBoxDrawing
	ld hl, SilphCo8TrainerHeaders
	ld de, SilphCo8F_ScriptPointers
	ld a, [wSilphCo8FCurScript]
	call ExecuteCurMapScriptInTable
	ld [wSilphCo8FCurScript], a
	ret

SilphCo8Script_5651a:
	ld hl, wCurrentMapScriptFlags
	bit 5, [hl]
	res 5, [hl]
	ret z
	ld hl, SilphCo8GateCoords
	call SilphCo8Script_56541
	call SilphCo8Script_5656d
	CheckEvent EVENT_SILPH_CO_8_UNLOCKED_DOOR
	ret nz
	ld a, $5f
	ld [wNewTileBlockID], a
	lb bc, 4, 3
	predef_jump ReplaceTileBlock

SilphCo8GateCoords:
	dbmapcoord  3,  4
	db -1 ; end

SilphCo8Script_56541:
	push hl
	ld hl, wCardKeyDoorY
	ld a, [hli]
	ld b, a
	ld a, [hl]
	ld c, a
	xor a
	ldh [hUnlockedSilphCoDoors], a
	pop hl
.asm_5654d
	ld a, [hli]
	cp $ff
	jr z, .asm_56569
	push hl
	ld hl, hUnlockedSilphCoDoors
	inc [hl]
	pop hl
	cp b
	jr z, .asm_5655e
	inc hl
	jr .asm_5654d
.asm_5655e
	ld a, [hli]
	cp c
	jr nz, .asm_5654d
	ld hl, wCardKeyDoorY
	xor a
	ld [hli], a
	ld [hl], a
	ret
.asm_56569
	xor a
	ldh [hUnlockedSilphCoDoors], a
	ret

SilphCo8Script_5656d:
	ldh a, [hUnlockedSilphCoDoors]
	and a
	ret z
	SetEvent EVENT_SILPH_CO_8_UNLOCKED_DOOR
	ret

SilphCo8F_ScriptPointers:
	dw CheckFightingMapTrainers
	dw DisplayEnemyTrainerTextAndStartBattle
	dw EndTrainerBattle

SilphCo8F_TextPointers:
	dw SilphCo8Text1
	dw SilphCo8Text2
	dw SilphCo8Text3
	dw SilphCo8Text4

SilphCo8TrainerHeaders:
	def_trainers 2
SilphCo8TrainerHeader0:
	trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_0, 4, SilphCo8BattleText1, SilphCo8EndBattleText1, SilphCo8AfterBattleText1
SilphCo8TrainerHeader1:
	trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_1, 4, SilphCo8BattleText2, SilphCo8EndBattleText2, SilphCo8AfterBattleText2
SilphCo8TrainerHeader2:
	trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_2, 4, SilphCo8BattleText3, SilphCo8EndBattleText3, SilphCo8AfterBattleText3
	db -1 ; end

SilphCo8Text1:
	text_asm
	CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
	ld hl, SilphCo8Text_565c3
	jr nz, .asm_565b8
	ld hl, SilphCo8Text_565be
.asm_565b8
	call PrintText
	jp TextScriptEnd

SilphCo8Text_565be:
	text_far _SilphCo8Text_565be
	text_end

SilphCo8Text_565c3:
	text_far _SilphCo8Text_565c3
	text_end

SilphCo8Text2:
	text_asm
	ld hl, SilphCo8TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

SilphCo8Text3:
	text_asm
	ld hl, SilphCo8TrainerHeader1
	call TalkToTrainer
	jp TextScriptEnd

SilphCo8Text4:
	text_asm
	ld hl, SilphCo8TrainerHeader2
	call TalkToTrainer
	jp TextScriptEnd

SilphCo8BattleText1:
	text_far _SilphCo8BattleText1
	text_end

SilphCo8EndBattleText1:
	text_far _SilphCo8EndBattleText1
	text_end

SilphCo8AfterBattleText1:
	text_far _SilphCo8AfterBattleText1
	text_end

SilphCo8BattleText2:
	text_far _SilphCo8BattleText2
	text_end

SilphCo8EndBattleText2:
	text_far _SilphCo8EndBattleText2
	text_end

SilphCo8AfterBattleText2:
	text_far _SilphCo8AfterBattleText2
	text_end

SilphCo8BattleText3:
	text_far _SilphCo8BattleText3
	text_end

SilphCo8EndBattleText3:
	text_far _SilphCo8EndBattleText3
	text_end

SilphCo8AfterBattleText3:
	text_far _SilphCo8AfterBattleText3
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`SilphCo8F_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call SilphCo8Script_5651a`
			`call EnableAutoTextBoxDrawing`
The 'def_trainers' macro checks that trainers' event flag bits are correct (#318) 2021-04-13 22:24:37 +00:00			`ld hl, SilphCo8TrainerHeaders`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld de, SilphCo8F_ScriptPointers`
			`ld a, [wSilphCo8FCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ExecuteCurMapScriptInTable`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld [wSilphCo8FCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Script_5651a:`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
$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`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`ld hl, SilphCo8GateCoords`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call SilphCo8Script_56541`
			`call SilphCo8Script_5656d`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_SILPH_CO_8_UNLOCKED_DOOR`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret nz`
			`ld a, $5f`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld [wNewTileBlockID], a`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 4, 3`
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
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8GateCoords:`
Reformat map scripts' coordinate and movement data 'dbmapcoord' has X, Y order like other coordinate-related data macros 2020-07-16 16:32:19 +00:00			`dbmapcoord 3, 4`
			`db -1 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Script_56541:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`push hl`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld hl, wCardKeyDoorY`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, [hli]`
			`ld b, a`
			`ld a, [hl]`
			`ld c, a`
			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hUnlockedSilphCoDoors], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`pop hl`
			`.asm_5654d`
			`ld a, [hli]`
			`cp $ff`
			`jr z, .asm_56569`
			`push hl`
Replace raw hex values with HRAM constants To do: turn constants into labels and use ldh 2020-07-04 02:11:35 +00:00			`ld hl, hUnlockedSilphCoDoors`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`inc [hl]`
			`pop hl`
			`cp b`
			`jr z, .asm_5655e`
			`inc hl`
			`jr .asm_5654d`
			`.asm_5655e`
			`ld a, [hli]`
			`cp c`
			`jr nz, .asm_5654d`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld hl, wCardKeyDoorY`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
			`ld [hli], a`
			`ld [hl], a`
			`ret`
			`.asm_56569`
			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hUnlockedSilphCoDoors], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Script_5656d:`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hUnlockedSilphCoDoors]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
			`ret z`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_SILPH_CO_8_UNLOCKED_DOOR`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`SilphCo8F_ScriptPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`SilphCo8F_TextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw SilphCo8Text1`
			`dw SilphCo8Text2`
			`dw SilphCo8Text3`
			`dw SilphCo8Text4`

The 'def_trainers' macro checks that trainers' event flag bits are correct (#318) 2021-04-13 22:24:37 +00:00			`SilphCo8TrainerHeaders:`
			`def_trainers 2`
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8TrainerHeader0:`
Use a 'trainer' macro for trainers in scripts/ 2020-07-14 19:45:36 +00:00			`trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_0, 4, SilphCo8BattleText1, SilphCo8EndBattleText1, SilphCo8AfterBattleText1`
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8TrainerHeader1:`
Use a 'trainer' macro for trainers in scripts/ 2020-07-14 19:45:36 +00:00			`trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_1, 4, SilphCo8BattleText2, SilphCo8EndBattleText2, SilphCo8AfterBattleText2`
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8TrainerHeader2:`
Use a 'trainer' macro for trainers in scripts/ 2020-07-14 19:45:36 +00:00			`trainer EVENT_BEAT_SILPH_CO_8F_TRAINER_2, 4, SilphCo8BattleText3, SilphCo8EndBattleText3, SilphCo8AfterBattleText3`
			`db -1 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Text1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo8Text_565c3`
$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_565b8`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo8Text_565be`
$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_565b8`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Text_565be:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8Text_565be`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Text_565c3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8Text_565c3`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Text2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo8TrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Text3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo8TrainerHeader1`
			`call TalkToTrainer`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8Text4:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SilphCo8TrainerHeader2`
			`call TalkToTrainer`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8BattleText1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8BattleText1`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8EndBattleText1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8EndBattleText1`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8AfterBattleText1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8AfterBattleText1`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8BattleText2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8BattleText2`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8EndBattleText2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8EndBattleText2`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8AfterBattleText2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8AfterBattleText2`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8BattleText3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8BattleText3`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8EndBattleText3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8EndBattleText3`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`SilphCo8AfterBattleText3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SilphCo8AfterBattleText3`
			`text_end`