pokered/scripts/museum1f.asm

247 lines
4.5 KiB
NASM
Raw Normal View History

2014-05-18 18:19:10 +00:00
Museum1FScript: ; 5c0f7 (17:40f7)
ld a, $1
2014-09-13 07:50:56 +00:00
ld [wAutoTextBoxDrawingControl], a
2014-05-18 18:19:10 +00:00
xor a
2014-09-13 07:50:56 +00:00
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
2014-05-18 18:19:10 +00:00
ld hl, Museum1FScriptPointers
ld a, [W_MUSEUM1FCURSCRIPT]
jp CallFunctionInTable
Museum1FScriptPointers: ; 5c109 (17:4109)
dw Museum1FScript0
dw Museum1FScript1
Museum1FScript0: ; 5c10d (17:410d)
ld a, [W_YCOORD]
cp $4
ret nz
ld a, [W_XCOORD]
cp $9
jr z, .asm_5c120
2014-05-18 18:19:10 +00:00
ld a, [W_XCOORD]
cp $a
ret nz
.asm_5c120
xor a
2014-05-25 17:51:53 +00:00
ld [hJoyHeld], a
2014-05-18 18:19:10 +00:00
ld a, $1
2015-07-18 15:17:29 +00:00
ld [hSpriteIndexOrTextID], a
2014-05-18 18:19:10 +00:00
jp DisplayTextID
Museum1FScript1: ; 5c12a (17:412a)
ret
Museum1FTextPointers: ; 5c12b (17:412b)
dw Museum1FText1
dw Museum1FText2
dw Museum1FText3
dw Museum1FText4
dw Museum1FText5
Museum1FText1: ; 5c135 (17:4135)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld a, [W_YCOORD]
cp $4
jr nz, .asm_8774b
ld a, [W_XCOORD]
cp $d
jp z, Museum1FScript_5c1f9
jr .asm_b8709
.asm_8774b
cp $3
jr nz, .asm_d49e7
ld a, [W_XCOORD]
cp $c
jp z, Museum1FScript_5c1f9
.asm_d49e7
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_BOUGHT_MUSEUM_TICKET
2014-05-18 18:19:10 +00:00
jr nz, .asm_31a16
ld hl, Museum1FText_5c23d
call PrintText
jp Museum1FScriptEnd
2014-05-18 18:19:10 +00:00
.asm_b8709
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_BOUGHT_MUSEUM_TICKET
2014-05-18 18:19:10 +00:00
jr z, .asm_3ded4
.asm_31a16
ld hl, Museum1FText_5c242
call PrintText
jp Museum1FScriptEnd
2014-05-18 18:19:10 +00:00
.asm_3ded4
2015-07-18 15:17:29 +00:00
ld a, MONEY_BOX
2015-02-07 10:43:08 +00:00
ld [wTextBoxID], a
2014-05-18 18:19:10 +00:00
call DisplayTextBoxID
xor a
2014-05-25 17:51:53 +00:00
ld [hJoyHeld], a
2014-05-18 18:19:10 +00:00
ld hl, Museum1FText_5c21f
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
2014-05-18 18:19:10 +00:00
and a
jr nz, .asm_de133
xor a
2015-07-17 08:21:40 +00:00
ld [hMoney], a
ld [hMoney + 1], a
2014-05-18 18:19:10 +00:00
ld a, $50
2015-07-17 08:21:40 +00:00
ld [hMoney + 2], a
2014-05-18 18:19:10 +00:00
call HasEnoughMoney
jr nc, .asm_0f3e3
ld hl, Museum1FText_5c229
call PrintText
jp .asm_de133
.asm_0f3e3
ld hl, Museum1FText_5c224
call PrintText
2015-07-21 17:36:03 +00:00
SetEvent EVENT_BOUGHT_MUSEUM_TICKET
2014-05-18 18:19:10 +00:00
xor a
2015-07-19 03:49:52 +00:00
ld [wPriceTemp], a
ld [wPriceTemp + 1], a
2014-05-18 18:19:10 +00:00
ld a, $50
2015-07-19 03:49:52 +00:00
ld [wPriceTemp + 2], a
ld hl, wPriceTemp + 2
ld de, wPlayerMoney + 2
2014-05-18 18:19:10 +00:00
ld c, $3
predef SubBCDPredef
2015-07-18 15:17:29 +00:00
ld a, MONEY_BOX
2015-02-07 10:43:08 +00:00
ld [wTextBoxID], a
2014-05-18 18:19:10 +00:00
call DisplayTextBoxID
2015-07-19 08:46:12 +00:00
ld a, SFX_PURCHASE
2014-05-18 18:19:10 +00:00
call PlaySoundWaitForCurrent
call WaitForSoundToFinish
jr .asm_0b094
.asm_de133
ld hl, Museum1FText_5c21a
2014-05-18 18:19:10 +00:00
call PrintText
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
ld a, D_DOWN
ld [wSimulatedJoypadStatesEnd], a
call StartSimulatingJoypadStates
2014-05-18 18:19:10 +00:00
call UpdateSprites
jr Museum1FScriptEnd
2014-05-18 18:19:10 +00:00
.asm_0b094
ld a, $1
ld [W_MUSEUM1FCURSCRIPT], a
jr Museum1FScriptEnd
2014-05-18 18:19:10 +00:00
Museum1FScript_5c1f9: ; 5c1f9 (17:41f9)
ld hl, Museum1FText_5c22e
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
2014-05-18 18:19:10 +00:00
cp $0
jr nz, .asm_d1144
ld hl, Museum1FText_5c233
call PrintText
jr Museum1FScriptEnd
2014-05-18 18:19:10 +00:00
.asm_d1144
ld hl, Museum1FText_5c238
call PrintText
Museum1FScriptEnd: ; 5c217 (17:4217)
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
Museum1FText_5c21a: ; 5c21a (17:421a)
TX_FAR _Museum1FText_5c21a
db "@"
Museum1FText_5c21f: ; 5c21f (17:421f)
TX_FAR _Museum1FText_5c21f
db "@"
Museum1FText_5c224: ; 5c224 (17:4224)
TX_FAR _Museum1FText_5c224
db "@"
Museum1FText_5c229: ; 5c229 (17:4229)
TX_FAR _Museum1FText_5c229
db "@"
Museum1FText_5c22e: ; 5c22e (17:422e)
TX_FAR _Museum1FText_5c22e
db "@"
Museum1FText_5c233: ; 5c233 (17:4233)
TX_FAR _Museum1FText_5c233
db "@"
Museum1FText_5c238: ; 5c238 (17:4238)
TX_FAR _Museum1FText_5c238
db "@"
Museum1FText_5c23d: ; 5c23d (17:423d)
TX_FAR _Museum1FText_5c23d
db "@"
Museum1FText_5c242: ; 5c242 (17:4242)
TX_FAR _Museum1FText_5c242
db "@"
Museum1FText2: ; 5c247 (17:4247)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, Museum1FText_5c251
call PrintText
jp TextScriptEnd
Museum1FText_5c251: ; 5c251 (17:4251)
TX_FAR _Museum1FText_5c251
db "@"
Museum1FText3: ; 5c256 (17:4256)
2015-07-03 19:58:50 +00:00
TX_ASM
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_GOT_OLD_AMBER
jr nz, .asm_5c285
2014-05-18 18:19:10 +00:00
ld hl, Museum1FText_5c28e
call PrintText
2015-08-05 21:20:29 +00:00
lb bc, OLD_AMBER, 1
2014-05-18 18:19:10 +00:00
call GiveItem
jr nc, .BagFull
2015-07-21 17:36:03 +00:00
SetEvent EVENT_GOT_OLD_AMBER
ld a, HS_OLD_AMBER
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef HideObject
2014-05-18 18:19:10 +00:00
ld hl, ReceivedOldAmberText
jr .asm_5c288
2014-05-18 18:19:10 +00:00
.BagFull
ld hl, Museum1FText_5c29e
jr .asm_5c288
.asm_5c285
2014-05-18 18:19:10 +00:00
ld hl, Museum1FText_5c299
.asm_5c288
2014-05-18 18:19:10 +00:00
call PrintText
jp TextScriptEnd
Museum1FText_5c28e: ; 5c28e (17:428e)
TX_FAR _Museum1FText_5c28e
db "@"
ReceivedOldAmberText: ; 5c293 (17:4293)
TX_FAR _ReceivedOldAmberText
db $0B, "@"
Museum1FText_5c299: ; 5c299 (17:4299)
TX_FAR _Museum1FText_5c299
db "@"
Museum1FText_5c29e: ; 5c29e (17:429e)
TX_FAR _Museum1FText_5c29e
db "@"
Museum1FText4: ; 5c2a3 (17:42a3)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, Museum1FText_5c2ad
call PrintText
jp TextScriptEnd
Museum1FText_5c2ad: ; 5c2ad (17:42ad)
TX_FAR _Museum1FText_5c2ad
db "@"
Museum1FText5: ; 5c2b2 (17:42b2)
2015-07-03 19:58:50 +00:00
TX_ASM
2014-05-18 18:19:10 +00:00
ld hl, Museum1FText_5c2bc
call PrintText
jp TextScriptEnd
Museum1FText_5c2bc: ; 5c2bc (17:42bc)
TX_FAR _Museum1FText_5c2bc
db "@"