pokered/scripts/celadondiner.asm
dannye f8a9c37a00 Use more lb
and other clean up
2015-08-05 16:25:58 -05:00

65 lines
1.3 KiB
NASM
Executable file

CeladonDinerScript: ; 49151 (12:5151)
call EnableAutoTextBoxDrawing
ret
CeladonDinerTextPointers: ; 49155 (12:5155)
dw CeladonDinerText1
dw CeladonDinerText2
dw CeladonDinerText3
dw CeladonDinerText4
dw CeladonDinerText5
CeladonDinerText1: ; 4915f (12:515f)
TX_FAR _CeladonDinerText1
db "@"
CeladonDinerText2: ; 49164 (12:5164)
TX_FAR _CeladonDinerText2
db "@"
CeladonDinerText3: ; 49169 (12:5169)
TX_FAR _CeladonDinerText3
db "@"
CeladonDinerText4: ; 4916e (12:516e)
TX_FAR _CeladonDinerText4
db "@"
CeladonDinerText5: ; 49173 (12:5173)
TX_ASM
CheckEvent EVENT_GOT_COIN_CASE
jr nz, .asm_eb14d
ld hl, CeladonDinerText_491a7
call PrintText
lb bc, COIN_CASE, 1
call GiveItem
jr nc, .BagFull
SetEvent EVENT_GOT_COIN_CASE
ld hl, ReceivedCoinCaseText
call PrintText
jr .asm_68b61
.BagFull
ld hl, CoinCaseNoRoomText
call PrintText
jr .asm_68b61
.asm_eb14d
ld hl, CeladonDinerText_491b7
call PrintText
.asm_68b61
jp TextScriptEnd
CeladonDinerText_491a7: ; 491a7 (12:51a7)
TX_FAR _CeladonDinerText_491a7
db "@"
ReceivedCoinCaseText: ; 491ac (12:51ac)
TX_FAR _ReceivedCoinCaseText
db $11, "@"
CoinCaseNoRoomText: ; 491b2 (12:51b2)
TX_FAR _CoinCaseNoRoomText
db "@"
CeladonDinerText_491b7: ; 491b7 (12:51b7)
TX_FAR _CeladonDinerText_491b7
db "@"