pokered/scripts/billshouse.asm

BillsHouseScript: ; 1e76a (7:676a)
	call EnableAutoTextBoxDrawing
	ld a, [W_BILLSHOUSECURSCRIPT]
	ld hl, BillsHouseScriptPointers
	jp CallFunctionInTable

BillsHouseScriptPointers: ; 1e776 (7:6776)
	dw BillsHouseScript0
	dw BillsHouseScript1
	dw BillsHouseScript2
	dw BillsHouseScript3
	dw BillsHouseScript4
	dw BillsHouseScript5

BillsHouseScript0: ; 1e782 (7:6782)
	ret

BillsHouseScript1: ; 1e783 (7:6783)
	ld a, [wSpriteStateData1 + 9]
	and a ; cp SPRITE_FACING_DOWN
	ld de, MovementData_1e79c
	jr nz, .notDown
	ld de, MovementData_1e7a0
.notDown
	ld a, $1
	ld [H_SPRITEINDEX], a
	call MoveSprite
	ld a, $2
	ld [W_BILLSHOUSECURSCRIPT], a
	ret

MovementData_1e79c: ; 1e79c (7:679c)
	db NPC_MOVEMENT_UP
	db NPC_MOVEMENT_UP
	db NPC_MOVEMENT_UP
	db $FF

; make Bill walk around the player
MovementData_1e7a0: ; 1e7a0 (7:67a0)
	db NPC_MOVEMENT_RIGHT
	db NPC_MOVEMENT_UP
	db NPC_MOVEMENT_UP
	db NPC_MOVEMENT_LEFT
	db NPC_MOVEMENT_UP
	db $FF

BillsHouseScript2: ; 1e7a6 (7:67a6)
	ld a, [wd730]
	bit 0, a
	ret nz
	ld a, HS_BILL_POKEMON
	ld [wMissableObjectIndex], a
	predef HideObject
	SetEvent EVENT_BILL_SAID_USE_CELL_SEPARATOR
	xor a
	ld [wJoyIgnore], a
	ld a, $3
	ld [W_BILLSHOUSECURSCRIPT], a
	ret

BillsHouseScript3: ; 1e7c5 (7:67c5)
	CheckEvent EVENT_USED_CELL_SEPARATOR_ON_BILL
	ret z
	ld a, $f0
	ld [wJoyIgnore], a
	ld a, $2
	ld [wSpriteIndex], a
	ld a, $c
	ld [$ffeb], a
	ld a, $40
	ld [$ffec], a
	ld a, $6
	ld [$ffed], a
	ld a, $5
	ld [$ffee], a
	call SetSpritePosition1
	ld a, HS_BILL_1
	ld [wMissableObjectIndex], a
	predef ShowObject
	ld c, 8
	call DelayFrames
	ld a, $2
	ld [H_SPRITEINDEX], a
	ld de, MovementData_1e807
	call MoveSprite
	ld a, $4
	ld [W_BILLSHOUSECURSCRIPT], a
	ret

MovementData_1e807: ; 1e807 (7:6807)
	db NPC_MOVEMENT_DOWN
	db NPC_MOVEMENT_RIGHT
	db NPC_MOVEMENT_RIGHT
	db NPC_MOVEMENT_RIGHT
	db NPC_MOVEMENT_DOWN
	db $FF

BillsHouseScript4: ; 1e80d (7:680d)
	ld a, [wd730]
	bit 0, a
	ret nz
	xor a
	ld [wJoyIgnore], a
	SetEvent EVENT_MET_BILL_2 ; this event seems redundant
	SetEvent EVENT_MET_BILL
	ld a, $0
	ld [W_BILLSHOUSECURSCRIPT], a
	ret

BillsHouseScript5: ; 1e827 (7:6827)
	ld a, $4
	ld [hSpriteIndexOrTextID], a
	call DisplayTextID
	ld a, $0
	ld [W_BILLSHOUSECURSCRIPT], a
	ret

BillsHouseTextPointers: ; 1e834 (7:6834)
	dw BillsHouseText1
	dw BillsHouseText2
	dw BillsHouseText3
	dw BillsHouseText4

BillsHouseText4: ; 1e83c (7:683c)
	db $fd

BillsHouseText1: ; 1e83d (7:683d)
	TX_ASM
	ld hl, BillsHouseText_1e865
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .asm_1e85a
.asm_1e84d
	ld hl, BillsHouseText_1e86a
	call PrintText
	ld a, $1
	ld [W_BILLSHOUSECURSCRIPT], a
	jr .asm_1e862
.asm_1e85a
	ld hl, BillsHouseText_1e86f
	call PrintText
	jr .asm_1e84d
.asm_1e862
	jp TextScriptEnd

BillsHouseText_1e865: ; 1e865 (7:6865)
	TX_FAR _BillsHouseText_1e865
	db "@"

BillsHouseText_1e86a: ; 1e86a (7:686a)
	TX_FAR _BillsHouseText_1e86a
	db "@"

BillsHouseText_1e86f: ; 1e86f (7:686f)
	TX_FAR _BillsHouseText_1e86f
	db "@"

BillsHouseText2: ; 1e874 (7:6874)
	TX_ASM
	CheckEvent EVENT_GOT_SS_TICKET
	jr nz, .asm_1e8a9
	ld hl, BillThankYouText
	call PrintText
	ld bc, (S_S__TICKET << 8) | 1
	call GiveItem
	jr nc, .BagFull
	ld hl, SSTicketReceivedText
	call PrintText
	SetEvent EVENT_GOT_SS_TICKET
	ld a, HS_CERULEAN_GUARD_1
	ld [wMissableObjectIndex], a
	predef ShowObject
	ld a, HS_CERULEAN_GUARD_2
	ld [wMissableObjectIndex], a
	predef HideObject
.asm_1e8a9
	ld hl, BillsHouseText_1e8cb
	call PrintText
	jr .asm_1e8b7
.BagFull
	ld hl, SSTicketNoRoomText
	call PrintText
.asm_1e8b7
	jp TextScriptEnd

BillThankYouText: ; 1e8ba (7:68ba)
	TX_FAR _BillThankYouText
	db "@"

SSTicketReceivedText: ; 1e8bf (7:68bf)
	TX_FAR _SSTicketReceivedText
	db $11, $6, "@"

SSTicketNoRoomText: ; 1e8c6 (7:68c6)
	TX_FAR _SSTicketNoRoomText
	db "@"

BillsHouseText_1e8cb: ; 1e8cb (7:68cb)
	TX_FAR _BillsHouseText_1e8cb
	db "@"

BillsHouseText3: ; 1e8d0 (7:68d0)
	TX_ASM
	ld hl, BillsHouseText_1e8da
	call PrintText
	jp TextScriptEnd

BillsHouseText_1e8da: ; 1e8da (7:68da)
	TX_FAR _BillsHouseText_1e8da
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`BillsHouseScript: ; 1e76a (7:676a)`
			`call EnableAutoTextBoxDrawing`
			`ld a, [W_BILLSHOUSECURSCRIPT]`
			`ld hl, BillsHouseScriptPointers`
			`jp CallFunctionInTable`

			`BillsHouseScriptPointers: ; 1e776 (7:6776)`
			`dw BillsHouseScript0`
			`dw BillsHouseScript1`
			`dw BillsHouseScript2`
			`dw BillsHouseScript3`
			`dw BillsHouseScript4`
			`dw BillsHouseScript5`

			`BillsHouseScript0: ; 1e782 (7:6782)`
			`ret`

			`BillsHouseScript1: ; 1e783 (7:6783)`
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, [wSpriteStateData1 + 9]`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`and a ; cp SPRITE_FACING_DOWN`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, MovementData_1e79c`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`jr nz, .notDown`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, MovementData_1e7a0`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`.notDown`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [H_SPRITEINDEX], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call MoveSprite`
			`ld a, $2`
			`ld [W_BILLSHOUSECURSCRIPT], a`
			`ret`

			`MovementData_1e79c: ; 1e79c (7:679c)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db NPC_MOVEMENT_UP`
			`db NPC_MOVEMENT_UP`
			`db NPC_MOVEMENT_UP`
			`db $FF`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`; make Bill walk around the player`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`MovementData_1e7a0: ; 1e7a0 (7:67a0)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db NPC_MOVEMENT_RIGHT`
			`db NPC_MOVEMENT_UP`
			`db NPC_MOVEMENT_UP`
			`db NPC_MOVEMENT_LEFT`
			`db NPC_MOVEMENT_UP`
			`db $FF`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`BillsHouseScript2: ; 1e7a6 (7:67a6)`
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, [wd730]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 0, a`
			`ret nz`
$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_BILL_POKEMON`
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`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_BILL_SAID_USE_CELL_SEPARATOR`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $3`
			`ld [W_BILLSHOUSECURSCRIPT], a`
			`ret`

			`BillsHouseScript3: ; 1e7c5 (7:67c5)`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_USED_CELL_SEPARATOR_ON_BILL`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret z`
			`ld a, $f0`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $2`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wSpriteIndex], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $c`
			`ld [$ffeb], a`
			`ld a, $40`
			`ld [$ffec], a`
			`ld a, $6`
			`ld [$ffed], a`
			`ld a, $5`
			`ld [$ffee], a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call SetSpritePosition1`
$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_BILL_1`
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 ShowObject`
$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 c, 8`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DelayFrames`
			`ld a, $2`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [H_SPRITEINDEX], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, MovementData_1e807`
			`call MoveSprite`
			`ld a, $4`
			`ld [W_BILLSHOUSECURSCRIPT], a`
			`ret`

			`MovementData_1e807: ; 1e807 (7:6807)`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`db NPC_MOVEMENT_DOWN`
			`db NPC_MOVEMENT_RIGHT`
			`db NPC_MOVEMENT_RIGHT`
			`db NPC_MOVEMENT_RIGHT`
			`db NPC_MOVEMENT_DOWN`
			`db $FF`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`BillsHouseScript4: ; 1e80d (7:680d)`
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, [wd730]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 0, a`
			`ret nz`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_MET_BILL_2 ; this event seems redundant`
			`SetEvent EVENT_MET_BILL`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $0`
			`ld [W_BILLSHOUSECURSCRIPT], a`
			`ret`

			`BillsHouseScript5: ; 1e827 (7:6827)`
			`ld a, $4`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
			`ld a, $0`
			`ld [W_BILLSHOUSECURSCRIPT], a`
			`ret`

			`BillsHouseTextPointers: ; 1e834 (7:6834)`
			`dw BillsHouseText1`
			`dw BillsHouseText2`
			`dw BillsHouseText3`
			`dw BillsHouseText4`

			`BillsHouseText4: ; 1e83c (7:683c)`
			`db $fd`

			`BillsHouseText1: ; 1e83d (7:683d)`
$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, BillsHouseText_1e865`
			`call PrintText`
			`call YesNoChoice`
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, [wCurrentMenuItem]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
$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_1e85a`
			`.asm_1e84d`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BillsHouseText_1e86a`
			`call PrintText`
			`ld a, $1`
			`ld [W_BILLSHOUSECURSCRIPT], a`
$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 .asm_1e862`
			`.asm_1e85a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BillsHouseText_1e86f`
			`call PrintText`
$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 .asm_1e84d`
			`.asm_1e862`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

			`BillsHouseText_1e865: ; 1e865 (7:6865)`
$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			`TX_FAR _BillsHouseText_1e865`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "@"`

			`BillsHouseText_1e86a: ; 1e86a (7:686a)`
$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			`TX_FAR _BillsHouseText_1e86a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "@"`

			`BillsHouseText_1e86f: ; 1e86f (7:686f)`
$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			`TX_FAR _BillsHouseText_1e86f`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "@"`

			`BillsHouseText2: ; 1e874 (7:6874)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GOT_SS_TICKET`
$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_1e8a9`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BillThankYouText`
			`call PrintText`
			`ld bc, (S_S__TICKET << 8) \| 1`
			`call GiveItem`
			`jr nc, .BagFull`
			`ld hl, SSTicketReceivedText`
			`call PrintText`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_GOT_SS_TICKET`
$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_CERULEAN_GUARD_1`
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 ShowObject`
$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_CERULEAN_GUARD_2`
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`
$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_1e8a9`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BillsHouseText_1e8cb`
			`call PrintText`
$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 .asm_1e8b7`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.BagFull`
			`ld hl, SSTicketNoRoomText`
			`call PrintText`
$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_1e8b7`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

			`BillThankYouText: ; 1e8ba (7:68ba)`
			`TX_FAR _BillThankYouText`
			`db "@"`

			`SSTicketReceivedText: ; 1e8bf (7:68bf)`
			`TX_FAR _SSTicketReceivedText`
			`db $11, $6, "@"`

			`SSTicketNoRoomText: ; 1e8c6 (7:68c6)`
			`TX_FAR _SSTicketNoRoomText`
			`db "@"`

			`BillsHouseText_1e8cb: ; 1e8cb (7:68cb)`
			`TX_FAR _BillsHouseText_1e8cb`
			`db "@"`

			`BillsHouseText3: ; 1e8d0 (7:68d0)`
$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, BillsHouseText_1e8da`
			`call PrintText`
			`jp TextScriptEnd`

			`BillsHouseText_1e8da: ; 1e8da (7:68da)`
			`TX_FAR _BillsHouseText_1e8da`
			`db "@"`