pokered/scripts/silphco6.asm

SilphCo6Script: ; 1a1a9 (6:61a9)
	call SilphCo6Script_1a1bf
	call EnableAutoTextBoxDrawing
	ld hl, SilphCo6TrainerHeaders
	ld de, SilphCo6ScriptPointers
	ld a, [W_SILPHCO6CURSCRIPT]
	call ExecuteCurMapScriptInTable
	ld [W_SILPHCO6CURSCRIPT], a
	ret

SilphCo6Script_1a1bf: ; 1a1bf (6:61bf)
	ld hl, wd126
	bit 5, [hl]
	res 5, [hl]
	ret z
	ld hl, SilphCo6GateCoords
	call SilphCo4Script_19d5d
	call SilphCo6Script_1a1e6
	CheckEvent EVENT_SILPH_CO_6_UNLOCKED_DOOR
	ret nz
	ld a, $5f
	ld [wNewTileBlockID], a
	lb bc, 6, 2
	predef_jump ReplaceTileBlock

SilphCo6GateCoords: ; 1a1e3 (6:61e3)
	db $06,$02
	db $FF

SilphCo6Script_1a1e6: ; 1a1e6 (6:61e6)
	ld a, [$ffe0]
	and a
	ret z
	SetEvent EVENT_SILPH_CO_6_UNLOCKED_DOOR
	ret

SilphCo6ScriptPointers: ; 1a1f0 (6:61f0)
	dw CheckFightingMapTrainers
	dw DisplayEnemyTrainerTextAndStartBattle
	dw EndTrainerBattle

SilphCo6TextPointers: ; 1a1f6 (6:61f6)
	dw SilphCo6Text1
	dw SilphCo6Text2
	dw SilphCo6Text3
	dw SilphCo6Text4
	dw SilphCo6Text5
	dw SilphCo6Text6
	dw SilphCo6Text7
	dw SilphCo6Text8
	dw PickUpItemText
	dw PickUpItemText

SilphCo6TrainerHeaders: ; 1a20a (6:620a)
SilphCo6TrainerHeader0: ; 1a20a (6:620a)
	dbEventFlagBit EVENT_BEAT_SILPH_CO_6F_TRAINER_0
	db ($2 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_SILPH_CO_6F_TRAINER_0
	dw SilphCo6BattleText2 ; TextBeforeBattle
	dw SilphCo6AfterBattleText2 ; TextAfterBattle
	dw SilphCo6EndBattleText2 ; TextEndBattle
	dw SilphCo6EndBattleText2 ; TextEndBattle

SilphCo6TrainerHeader2: ; 1a216 (6:6216)
	dbEventFlagBit EVENT_BEAT_SILPH_CO_6F_TRAINER_2
	db ($3 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_SILPH_CO_6F_TRAINER_2
	dw SilphCo6BattleText3 ; TextBeforeBattle
	dw SilphCo6AfterBattleText3 ; TextAfterBattle
	dw SilphCo6EndBattleText3 ; TextEndBattle
	dw SilphCo6EndBattleText3 ; TextEndBattle

SilphCo6TrainerHeader3: ; 1a222 (6:6222)
	dbEventFlagBit EVENT_BEAT_SILPH_CO_6F_TRAINER_3, 1
	db ($2 << 4) ; trainer's view range
	dwEventFlagAddress EVENT_BEAT_SILPH_CO_6F_TRAINER_3, 1
	dw SilphCo6BattleText4 ; TextBeforeBattle
	dw SilphCo6AfterBattleText4 ; TextAfterBattle
	dw SilphCo6EndBattleText4 ; TextEndBattle
	dw SilphCo6EndBattleText4 ; TextEndBattle

	db $ff

SilphCo6Script_1a22f: ; 1a22f (6:622f)
	CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI
	jr nz, .asm_1a238
	jr .asm_1a23a
.asm_1a238
	ld h, d
	ld l, e
.asm_1a23a
	jp PrintText

SilphCo6Text1: ; 1a23d (6:623d)
	TX_ASM
	ld hl, SilphCo6Text_1a24a
	ld de, SilphCo6Text_1a24f
	call SilphCo6Script_1a22f
	jp TextScriptEnd

SilphCo6Text_1a24a: ; 1a24a (6:624a)
	TX_FAR _SilphCo6Text_1a24a
	db "@"

SilphCo6Text_1a24f: ; 1a24f (6:624f)
	TX_FAR _SilphCo6Text_1a24f
	db "@"

SilphCo6Text2: ; 1a254 (6:6254)
	TX_ASM
	ld hl, SilphCo6Text_1a261
	ld de, SilphCo6Text_1a266
	call SilphCo6Script_1a22f
	jp TextScriptEnd

SilphCo6Text_1a261: ; 1a261 (6:6261)
	TX_FAR _SilphCo6Text_1a261
	db "@"

SilphCo6Text_1a266: ; 1a266 (6:6266)
	TX_FAR _SilphCo6Text_1a266
	db "@"

SilphCo6Text3: ; 1a26b (6:626b)
	TX_ASM
	ld hl, SilphCo6Text_1a278
	ld de, SilphCo6Text_1a27d
	call SilphCo6Script_1a22f
	jp TextScriptEnd

SilphCo6Text_1a278: ; 1a278 (6:6278)
	TX_FAR _SilphCo6Text_1a278
	db "@"

SilphCo6Text_1a27d: ; 1a27d (6:627d)
	TX_FAR _SilphCo6Text_1a27d
	db "@"

SilphCo6Text4: ; 1a282 (6:6282)
	TX_ASM
	ld hl, SilphCo6Text_1a28f
	ld de, SilphCo6Text_1a294
	call SilphCo6Script_1a22f
	jp TextScriptEnd

SilphCo6Text_1a28f: ; 1a28f (6:628f)
	TX_FAR _SilphCo6Text_1a28f
	db "@"

SilphCo6Text_1a294: ; 1a294 (6:6294)
	TX_FAR _SilphCo6Text_1a294
	db "@"

SilphCo6Text5: ; 1a299 (6:6299)
	TX_ASM
	ld hl, SilphCo6Text_1a2a6
	ld de, SilphCo6Text_1a2ab
	call SilphCo6Script_1a22f
	jp TextScriptEnd

SilphCo6Text_1a2a6: ; 1a2a6 (6:62a6)
	TX_FAR _SilphCo6Text_1a2a6
	db "@"

SilphCo6Text_1a2ab: ; 1a2ab (6:62ab)
	TX_FAR _SilphCo6Text_1a2ab
	db "@"

SilphCo6Text6: ; 1a2b0 (6:62b0)
	TX_ASM
	ld hl, SilphCo6TrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

SilphCo6BattleText2: ; 1a2ba (6:62ba)
	TX_FAR _SilphCo6BattleText2
	db "@"

SilphCo6EndBattleText2: ; 1a2bf (6:62bf)
	TX_FAR _SilphCo6EndBattleText2
	db "@"

SilphCo6AfterBattleText2: ; 1a2c4 (6:62c4)
	TX_FAR _SilphCo6AfterBattleText2
	db "@"

SilphCo6Text7: ; 1a2c9 (6:62c9)
	TX_ASM
	ld hl, SilphCo6TrainerHeader2
	call TalkToTrainer
	jp TextScriptEnd

SilphCo6BattleText3: ; 1a2d3 (6:62d3)
	TX_FAR _SilphCo6BattleText3
	db "@"

SilphCo6EndBattleText3: ; 1a2d8 (6:62d8)
	TX_FAR _SilphCo6EndBattleText3
	db "@"

SilphCo6AfterBattleText3: ; 1a2dd (6:62dd)
	TX_FAR _SilphCo6AfterBattleText3
	db "@"

SilphCo6Text8: ; 1a2e2 (6:62e2)
	TX_ASM
	ld hl, SilphCo6TrainerHeader3
	call TalkToTrainer
	jp TextScriptEnd

SilphCo6BattleText4: ; 1a2ec (6:62ec)
	TX_FAR _SilphCo6BattleText4
	db "@"

SilphCo6EndBattleText4: ; 1a2f1 (6:62f1)
	TX_FAR _SilphCo6EndBattleText4
	db "@"

SilphCo6AfterBattleText4: ; 1a2f6 (6:62f6)
	TX_FAR _SilphCo6AfterBattleText4
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`SilphCo6Script: ; 1a1a9 (6:61a9)`
			`call SilphCo6Script_1a1bf`
			`call EnableAutoTextBoxDrawing`
			`ld hl, SilphCo6TrainerHeaders`
			`ld de, SilphCo6ScriptPointers`
			`ld a, [W_SILPHCO6CURSCRIPT]`
			`call ExecuteCurMapScriptInTable`
			`ld [W_SILPHCO6CURSCRIPT], a`
			`ret`

			`SilphCo6Script_1a1bf: ; 1a1bf (6:61bf)`
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`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`ld hl, SilphCo6GateCoords`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call SilphCo4Script_19d5d`
			`call SilphCo6Script_1a1e6`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_SILPH_CO_6_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, 6, 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
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`SilphCo6GateCoords: ; 1a1e3 (6:61e3)`
			`db $06,$02`
			`db $FF`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo6Script_1a1e6: ; 1a1e6 (6:61e6)`
			`ld a, [$ffe0]`
			`and a`
			`ret z`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_SILPH_CO_6_UNLOCKED_DOOR`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`SilphCo6ScriptPointers: ; 1a1f0 (6:61f0)`
			`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`

			`SilphCo6TextPointers: ; 1a1f6 (6:61f6)`
			`dw SilphCo6Text1`
			`dw SilphCo6Text2`
			`dw SilphCo6Text3`
			`dw SilphCo6Text4`
			`dw SilphCo6Text5`
			`dw SilphCo6Text6`
			`dw SilphCo6Text7`
			`dw SilphCo6Text8`
fix variable naming 2015-07-18 15:17:29 +00:00			`dw PickUpItemText`
			`dw PickUpItemText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo6TrainerHeaders: ; 1a20a (6:620a)`
			`SilphCo6TrainerHeader0: ; 1a20a (6:620a)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_SILPH_CO_6F_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_6F_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 SilphCo6BattleText2 ; TextBeforeBattle`
			`dw SilphCo6AfterBattleText2 ; TextAfterBattle`
			`dw SilphCo6EndBattleText2 ; TextEndBattle`
			`dw SilphCo6EndBattleText2 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo6TrainerHeader2: ; 1a216 (6:6216)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_SILPH_CO_6F_TRAINER_2`
$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_6F_TRAINER_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			`dw SilphCo6BattleText3 ; TextBeforeBattle`
			`dw SilphCo6AfterBattleText3 ; TextAfterBattle`
			`dw SilphCo6EndBattleText3 ; TextEndBattle`
			`dw SilphCo6EndBattleText3 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCo6TrainerHeader3: ; 1a222 (6:6222)`
enumerate events 2015-07-21 01:32:02 +00:00			`dbEventFlagBit EVENT_BEAT_SILPH_CO_6F_TRAINER_3, 1`
$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_6F_TRAINER_3, 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 SilphCo6BattleText4 ; TextBeforeBattle`
			`dw SilphCo6AfterBattleText4 ; TextAfterBattle`
			`dw SilphCo6EndBattleText4 ; TextEndBattle`
			`dw SilphCo6EndBattleText4 ; TextEndBattle`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`db $ff`

			`SilphCo6Script_1a22f: ; 1a22f (6:622f)`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_BEAT_SILPH_CO_GIOVANNI`
$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_1a238`
			`jr .asm_1a23a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_1a238`
			`ld h, d`
			`ld l, e`
			`.asm_1a23a`
			`jp PrintText`

			`SilphCo6Text1: ; 1a23d (6:623d)`
$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, SilphCo6Text_1a24a`
			`ld de, SilphCo6Text_1a24f`
			`call SilphCo6Script_1a22f`
			`jp TextScriptEnd`

			`SilphCo6Text_1a24a: ; 1a24a (6:624a)`
			`TX_FAR _SilphCo6Text_1a24a`
			`db "@"`

			`SilphCo6Text_1a24f: ; 1a24f (6:624f)`
			`TX_FAR _SilphCo6Text_1a24f`
			`db "@"`

			`SilphCo6Text2: ; 1a254 (6:6254)`
$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, SilphCo6Text_1a261`
			`ld de, SilphCo6Text_1a266`
			`call SilphCo6Script_1a22f`
			`jp TextScriptEnd`

			`SilphCo6Text_1a261: ; 1a261 (6:6261)`
			`TX_FAR _SilphCo6Text_1a261`
			`db "@"`

			`SilphCo6Text_1a266: ; 1a266 (6:6266)`
			`TX_FAR _SilphCo6Text_1a266`
			`db "@"`

			`SilphCo6Text3: ; 1a26b (6:626b)`
$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, SilphCo6Text_1a278`
			`ld de, SilphCo6Text_1a27d`
			`call SilphCo6Script_1a22f`
			`jp TextScriptEnd`

			`SilphCo6Text_1a278: ; 1a278 (6:6278)`
			`TX_FAR _SilphCo6Text_1a278`
			`db "@"`

			`SilphCo6Text_1a27d: ; 1a27d (6:627d)`
			`TX_FAR _SilphCo6Text_1a27d`
			`db "@"`

			`SilphCo6Text4: ; 1a282 (6:6282)`
$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, SilphCo6Text_1a28f`
			`ld de, SilphCo6Text_1a294`
			`call SilphCo6Script_1a22f`
			`jp TextScriptEnd`

			`SilphCo6Text_1a28f: ; 1a28f (6:628f)`
			`TX_FAR _SilphCo6Text_1a28f`
			`db "@"`

			`SilphCo6Text_1a294: ; 1a294 (6:6294)`
			`TX_FAR _SilphCo6Text_1a294`
			`db "@"`

			`SilphCo6Text5: ; 1a299 (6:6299)`
$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, SilphCo6Text_1a2a6`
			`ld de, SilphCo6Text_1a2ab`
			`call SilphCo6Script_1a22f`
			`jp TextScriptEnd`

			`SilphCo6Text_1a2a6: ; 1a2a6 (6:62a6)`
			`TX_FAR _SilphCo6Text_1a2a6`
			`db "@"`

			`SilphCo6Text_1a2ab: ; 1a2ab (6:62ab)`
			`TX_FAR _SilphCo6Text_1a2ab`
			`db "@"`

			`SilphCo6Text6: ; 1a2b0 (6:62b0)`
$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, SilphCo6TrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo6BattleText2: ; 1a2ba (6:62ba)`
			`TX_FAR _SilphCo6BattleText2`
			`db "@"`

			`SilphCo6EndBattleText2: ; 1a2bf (6:62bf)`
			`TX_FAR _SilphCo6EndBattleText2`
			`db "@"`

			`SilphCo6AfterBattleText2: ; 1a2c4 (6:62c4)`
			`TX_FAR _SilphCo6AfterBattleText2`
			`db "@"`

			`SilphCo6Text7: ; 1a2c9 (6:62c9)`
$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, SilphCo6TrainerHeader2`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo6BattleText3: ; 1a2d3 (6:62d3)`
			`TX_FAR _SilphCo6BattleText3`
			`db "@"`

			`SilphCo6EndBattleText3: ; 1a2d8 (6:62d8)`
			`TX_FAR _SilphCo6EndBattleText3`
			`db "@"`

			`SilphCo6AfterBattleText3: ; 1a2dd (6:62dd)`
			`TX_FAR _SilphCo6AfterBattleText3`
			`db "@"`

			`SilphCo6Text8: ; 1a2e2 (6:62e2)`
$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, SilphCo6TrainerHeader3`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`SilphCo6BattleText4: ; 1a2ec (6:62ec)`
			`TX_FAR _SilphCo6BattleText4`
			`db "@"`

			`SilphCo6EndBattleText4: ; 1a2f1 (6:62f1)`
			`TX_FAR _SilphCo6EndBattleText4`
			`db "@"`

			`SilphCo6AfterBattleText4: ; 1a2f6 (6:62f6)`
			`TX_FAR _SilphCo6AfterBattleText4`
			`db "@"`