pokered/scripts/museum1f.asm

248 lines
4 KiB
NASM
Raw Normal View History

2016-06-12 00:24:04 +00:00
Museum1FScript:
2014-05-18 18:19:10 +00:00
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
2015-08-31 02:38:41 +00:00
ld a, [wMuseum1fCurScript]
2014-05-18 18:19:10 +00:00
jp CallFunctionInTable
2016-06-12 00:24:04 +00:00
Museum1FScriptPointers:
2014-05-18 18:19:10 +00:00
dw Museum1FScript0
dw Museum1FScript1
2016-06-12 00:24:04 +00:00
Museum1FScript0:
2015-08-31 02:38:41 +00:00
ld a, [wYCoord]
2014-05-18 18:19:10 +00:00
cp $4
ret nz
2015-08-31 02:38:41 +00:00
ld a, [wXCoord]
2014-05-18 18:19:10 +00:00
cp $9
jr z, .asm_5c120
2015-08-31 02:38:41 +00:00
ld a, [wXCoord]
2014-05-18 18:19:10 +00:00
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
2016-06-12 00:24:04 +00:00
Museum1FScript1:
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
Museum1FTextPointers:
2014-05-18 18:19:10 +00:00
dw Museum1FText1
dw Museum1FText2
dw Museum1FText3
dw Museum1FText4
dw Museum1FText5
2016-06-12 00:24:04 +00:00
Museum1FText1:
2015-07-03 19:58:50 +00:00
TX_ASM
2015-08-31 02:38:41 +00:00
ld a, [wYCoord]
2014-05-18 18:19:10 +00:00
cp $4
jr nz, .asm_8774b
2015-08-31 02:38:41 +00:00
ld a, [wXCoord]
2014-05-18 18:19:10 +00:00
cp $d
jp z, Museum1FScript_5c1f9
jr .asm_b8709
.asm_8774b
cp $3
jr nz, .asm_d49e7
2015-08-31 02:38:41 +00:00
ld a, [wXCoord]
2014-05-18 18:19:10 +00:00
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
2015-08-31 02:38:41 +00:00
ld [wMuseum1fCurScript], a
jr Museum1FScriptEnd
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
Museum1FScript_5c1f9:
2014-05-18 18:19:10 +00:00
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
2016-06-12 00:24:04 +00:00
Museum1FScriptEnd:
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
2016-06-12 00:24:04 +00:00
Museum1FText_5c21a:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c21a
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c21f:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c21f
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c224:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c224
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c229:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c229
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c22e:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c22e
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c233:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c233
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c238:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c238
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c23d:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c23d
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c242:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c242
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText2:
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
2016-06-12 00:24:04 +00:00
Museum1FText_5c251:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c251
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText3:
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
2016-06-12 00:24:04 +00:00
Museum1FText_5c28e:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c28e
db "@"
2016-06-12 00:24:04 +00:00
ReceivedOldAmberText:
2014-05-18 18:19:10 +00:00
TX_FAR _ReceivedOldAmberText
2016-07-18 06:17:03 +00:00
TX_SFX_ITEM_1
db "@"
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
Museum1FText_5c299:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c299
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText_5c29e:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c29e
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText4:
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
2016-06-12 00:24:04 +00:00
Museum1FText_5c2ad:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c2ad
db "@"
2016-06-12 00:24:04 +00:00
Museum1FText5:
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
2016-06-12 00:24:04 +00:00
Museum1FText_5c2bc:
2014-05-18 18:19:10 +00:00
TX_FAR _Museum1FText_5c2bc
db "@"