pokered/scripts/billshouse.asm

215 lines
3.6 KiB
NASM
Raw Normal View History

2016-06-12 00:24:04 +00:00
BillsHouseScript:
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
2015-08-31 02:38:41 +00:00
ld a, [wBillsHouseCurScript]
2014-05-18 18:19:10 +00:00
ld hl, BillsHouseScriptPointers
jp CallFunctionInTable
2016-06-12 00:24:04 +00:00
BillsHouseScriptPointers:
2014-05-18 18:19:10 +00:00
dw BillsHouseScript0
dw BillsHouseScript1
dw BillsHouseScript2
dw BillsHouseScript3
dw BillsHouseScript4
dw BillsHouseScript5
2016-06-12 00:24:04 +00:00
BillsHouseScript0:
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
BillsHouseScript1:
ld a, [wSpriteStateData1 + 9]
and a ; cp SPRITE_FACING_DOWN
2014-05-18 18:19:10 +00:00
ld de, MovementData_1e79c
jr nz, .notDown
2014-05-18 18:19:10 +00:00
ld de, MovementData_1e7a0
.notDown
2014-05-18 18:19:10 +00:00
ld a, $1
2015-07-18 15:17:29 +00:00
ld [H_SPRITEINDEX], a
2014-05-18 18:19:10 +00:00
call MoveSprite
ld a, $2
2015-08-31 02:38:41 +00:00
ld [wBillsHouseCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
MovementData_1e79c:
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db $FF
2014-05-18 18:19:10 +00:00
; make Bill walk around the player
2016-06-12 00:24:04 +00:00
MovementData_1e7a0:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_UP
db NPC_MOVEMENT_LEFT
db NPC_MOVEMENT_UP
db $FF
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
BillsHouseScript2:
ld a, [wd730]
2014-05-18 18:19:10 +00:00
bit 0, a
ret nz
ld a, HS_BILL_POKEMON
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef HideObject
2015-07-21 17:36:03 +00:00
SetEvent EVENT_BILL_SAID_USE_CELL_SEPARATOR
2014-05-18 18:19:10 +00:00
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2014-05-18 18:19:10 +00:00
ld a, $3
2015-08-31 02:38:41 +00:00
ld [wBillsHouseCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
BillsHouseScript3:
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_USED_CELL_SEPARATOR_ON_BILL
2014-05-18 18:19:10 +00:00
ret z
ld a, $f0
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2014-05-18 18:19:10 +00:00
ld a, $2
2014-09-13 07:50:56 +00:00
ld [wSpriteIndex], a
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
call SetSpritePosition1
ld a, HS_BILL_1
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef ShowObject
ld c, 8
2014-05-18 18:19:10 +00:00
call DelayFrames
ld a, $2
2015-07-18 15:17:29 +00:00
ld [H_SPRITEINDEX], a
2014-05-18 18:19:10 +00:00
ld de, MovementData_1e807
call MoveSprite
ld a, $4
2015-08-31 02:38:41 +00:00
ld [wBillsHouseCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
MovementData_1e807:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db $FF
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
BillsHouseScript4:
ld a, [wd730]
2014-05-18 18:19:10 +00:00
bit 0, a
ret nz
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2015-07-21 17:36:03 +00:00
SetEvent EVENT_MET_BILL_2 ; this event seems redundant
SetEvent EVENT_MET_BILL
2014-05-18 18:19:10 +00:00
ld a, $0
2015-08-31 02:38:41 +00:00
ld [wBillsHouseCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
BillsHouseScript5:
2014-05-18 18:19:10 +00:00
ld a, $4
2015-07-18 15:17:29 +00:00
ld [hSpriteIndexOrTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
ld a, $0
2015-08-31 02:38:41 +00:00
ld [wBillsHouseCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
BillsHouseTextPointers:
2014-05-18 18:19:10 +00:00
dw BillsHouseText1
dw BillsHouseText2
dw BillsHouseText3
dw BillsHouseText4
2016-06-12 00:24:04 +00:00
BillsHouseText4:
TX_BILLS_PC
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
BillsHouseText1:
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, BillsHouseText_1e865
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
2014-05-18 18:19:10 +00:00
and a
jr nz, .asm_1e85a
.asm_1e84d
2014-05-18 18:19:10 +00:00
ld hl, BillsHouseText_1e86a
call PrintText
ld a, $1
2015-08-31 02:38:41 +00:00
ld [wBillsHouseCurScript], a
jr .asm_1e862
.asm_1e85a
2014-05-18 18:19:10 +00:00
ld hl, BillsHouseText_1e86f
call PrintText
jr .asm_1e84d
.asm_1e862
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
2016-06-12 00:24:04 +00:00
BillsHouseText_1e865:
TX_FAR _BillsHouseText_1e865
2014-05-18 18:19:10 +00:00
db "@"
2016-06-12 00:24:04 +00:00
BillsHouseText_1e86a:
TX_FAR _BillsHouseText_1e86a
2014-05-18 18:19:10 +00:00
db "@"
2016-06-12 00:24:04 +00:00
BillsHouseText_1e86f:
TX_FAR _BillsHouseText_1e86f
2014-05-18 18:19:10 +00:00
db "@"
2016-06-12 00:24:04 +00:00
BillsHouseText2:
2015-07-03 19:58:50 +00:00
TX_ASM
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_GOT_SS_TICKET
jr nz, .asm_1e8a9
2014-05-18 18:19:10 +00:00
ld hl, BillThankYouText
call PrintText
2015-12-15 04:09:30 +00:00
lb bc, S_S_TICKET, 1
2014-05-18 18:19:10 +00:00
call GiveItem
jr nc, .BagFull
ld hl, SSTicketReceivedText
call PrintText
2015-07-21 17:36:03 +00:00
SetEvent EVENT_GOT_SS_TICKET
ld a, HS_CERULEAN_GUARD_1
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef ShowObject
ld a, HS_CERULEAN_GUARD_2
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef HideObject
.asm_1e8a9
2014-05-18 18:19:10 +00:00
ld hl, BillsHouseText_1e8cb
call PrintText
jr .asm_1e8b7
2014-05-18 18:19:10 +00:00
.BagFull
ld hl, SSTicketNoRoomText
call PrintText
.asm_1e8b7
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
2016-06-12 00:24:04 +00:00
BillThankYouText:
2014-05-18 18:19:10 +00:00
TX_FAR _BillThankYouText
db "@"
2016-06-12 00:24:04 +00:00
SSTicketReceivedText:
2014-05-18 18:19:10 +00:00
TX_FAR _SSTicketReceivedText
TX_SFX_KEY_ITEM
2016-07-18 06:17:03 +00:00
TX_BLINK
db "@"
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
SSTicketNoRoomText:
2014-05-18 18:19:10 +00:00
TX_FAR _SSTicketNoRoomText
db "@"
2016-06-12 00:24:04 +00:00
BillsHouseText_1e8cb:
2014-05-18 18:19:10 +00:00
TX_FAR _BillsHouseText_1e8cb
db "@"
2016-06-12 00:24:04 +00:00
BillsHouseText3:
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, BillsHouseText_1e8da
call PrintText
jp TextScriptEnd
2016-06-12 00:24:04 +00:00
BillsHouseText_1e8da:
2014-05-18 18:19:10 +00:00
TX_FAR _BillsHouseText_1e8da
db "@"