pokered/scripts/blueshouse.asm

BluesHouseScript: ; 19b3b (6:5b3b)
	call EnableAutoTextBoxDrawing
	ld hl,BluesHouseScriptPointers
	ld a,[wBluesHouseCurScript]
	jp CallFunctionInTable

BluesHouseScriptPointers: ; 19b47 (6:5b47)
	dw BluesHouseScript0
	dw BluesHouseScript1

BluesHouseScript0: ; 19b4b (6:5b4b)
	SetEvent EVENT_ENTERED_BLUES_HOUSE

	; trigger the next script
	ld a,1
	ld [wBluesHouseCurScript],a
	ret

BluesHouseScript1: ; 19b56 (6:5b56)
	ret

BluesHouseTextPointers: ; 19b57 (6:5b57)
	dw BluesHouseText1
	dw BluesHouseText2
	dw BluesHouseText3

BluesHouseText1: ; 19b5d (6:5b5d)
	TX_ASM
	CheckEvent EVENT_GOT_TOWN_MAP
	jr nz,.GotMap
	CheckEvent EVENT_GOT_POKEDEX
	jr nz,.GiveMap
	ld hl,DaisyInitialText
	call PrintText
	jr .done
.GiveMap
	ld hl,DaisyOfferMapText
	call PrintText
	lb bc, TOWN_MAP, 1
	call GiveItem
	jr nc, .BagFull
	ld a,HS_TOWN_MAP
	ld [wMissableObjectIndex],a
	predef HideObject ; hide table map object
	ld hl,GotMapText
	call PrintText
	SetEvent EVENT_GOT_TOWN_MAP
	jr .done
.GotMap
	ld hl,DaisyUseMapText
	call PrintText
	jr .done
.BagFull
	ld hl,DaisyBagFullText
	call PrintText
.done
	jp TextScriptEnd

DaisyInitialText: ; 19baa (6:5baa)
	TX_FAR _DaisyInitialText
	db "@"

DaisyOfferMapText: ; 19baf (6:5baf)
	TX_FAR _DaisyOfferMapText
	db "@"

GotMapText: ; 19bb4 (6:5bb4)
	TX_FAR _GotMapText
	db $11,"@"

DaisyBagFullText: ; 19bba (6:5bba)
	TX_FAR _DaisyBagFullText
	db "@"

DaisyUseMapText: ; 19bbf (6:5bbf)
	TX_FAR _DaisyUseMapText
	db "@"

BluesHouseText2: ; 0x19bc4 Daisy, walking around
	TX_FAR _BluesHouseText2
	db "@"

BluesHouseText3: ; 0x19bc9 map on table
	TX_FAR _BluesHouseText3
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`BluesHouseScript: ; 19b3b (6:5b3b)`
			`call EnableAutoTextBoxDrawing`
			`ld hl,BluesHouseScriptPointers`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a,[wBluesHouseCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp CallFunctionInTable`

			`BluesHouseScriptPointers: ; 19b47 (6:5b47)`
			`dw BluesHouseScript0`
			`dw BluesHouseScript1`

			`BluesHouseScript0: ; 19b4b (6:5b4b)`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_ENTERED_BLUES_HOUSE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`; trigger the next script`
			`ld a,1`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wBluesHouseCurScript],a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`BluesHouseScript1: ; 19b56 (6:5b56)`
			`ret`

			`BluesHouseTextPointers: ; 19b57 (6:5b57)`
			`dw BluesHouseText1`
			`dw BluesHouseText2`
			`dw BluesHouseText3`

			`BluesHouseText1: ; 19b5d (6:5b5d)`
$U-Daniel-PC\Daniel$ More TX_ASM 2015-07-04 03:49:20 +00:00			`TX_ASM`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GOT_TOWN_MAP`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr nz,.GotMap`
enumerate events 2015-07-21 01:32:02 +00:00			`CheckEvent EVENT_GOT_POKEDEX`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr nz,.GiveMap`
			`ld hl,DaisyInitialText`
			`call PrintText`
			`jr .done`
			`.GiveMap`
			`ld hl,DaisyOfferMapText`
			`call PrintText`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, TOWN_MAP, 1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call GiveItem`
			`jr nc, .BagFull`
$U-Daniel-PC\Daniel$ Make Hide/Show objects more dynamic be on the look out for more static ids in the wild unused constants are still included because a script could be written to check whether the player has picked up an item/fought a legendary etc. 2014-09-25 23:21:49 +00:00			`ld a,HS_TOWN_MAP`
more naming variables 2015-07-25 03:27:59 +00:00			`ld [wMissableObjectIndex],a`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef HideObject ; hide table map object`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl,GotMapText`
			`call PrintText`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_GOT_TOWN_MAP`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jr .done`
			`.GotMap`
			`ld hl,DaisyUseMapText`
			`call PrintText`
			`jr .done`
			`.BagFull`
			`ld hl,DaisyBagFullText`
			`call PrintText`
			`.done`
			`jp TextScriptEnd`

			`DaisyInitialText: ; 19baa (6:5baa)`
			`TX_FAR _DaisyInitialText`
			`db "@"`

			`DaisyOfferMapText: ; 19baf (6:5baf)`
			`TX_FAR _DaisyOfferMapText`
			`db "@"`

			`GotMapText: ; 19bb4 (6:5bb4)`
			`TX_FAR _GotMapText`
			`db $11,"@"`

			`DaisyBagFullText: ; 19bba (6:5bba)`
			`TX_FAR _DaisyBagFullText`
			`db "@"`

			`DaisyUseMapText: ; 19bbf (6:5bbf)`
			`TX_FAR _DaisyUseMapText`
			`db "@"`

			`BluesHouseText2: ; 0x19bc4 Daisy, walking around`
			`TX_FAR _BluesHouseText2`
			`db "@"`

			`BluesHouseText3: ; 0x19bc9 map on table`
			`TX_FAR _BluesHouseText3`
			`db "@"`