mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
93 lines
1.7 KiB
NASM
Executable file
93 lines
1.7 KiB
NASM
Executable file
ViridianMartScript:
|
|
call ViridianMartScript_1d47d
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, ViridianMartScriptPointers
|
|
ld a, [wViridianMarketCurScript]
|
|
jp CallFunctionInTable
|
|
|
|
ViridianMartScript_1d47d:
|
|
CheckEvent EVENT_OAK_GOT_PARCEL
|
|
jr nz, .asm_1d489
|
|
ld hl, ViridianMartTextPointers
|
|
jr .asm_1d48c
|
|
.asm_1d489
|
|
ld hl, ViridianMartTextPointers + $a ; starts at ViridianMartText6
|
|
.asm_1d48c
|
|
ld a, l
|
|
ld [wMapTextPtr], a
|
|
ld a, h
|
|
ld [wMapTextPtr+1], a
|
|
ret
|
|
|
|
ViridianMartScriptPointers:
|
|
dw ViridianMartScript0
|
|
dw ViridianMartScript1
|
|
dw ViridianMartScript2
|
|
|
|
ViridianMartScript0:
|
|
call UpdateSprites
|
|
ld a, $4
|
|
ld [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
ld hl, wSimulatedJoypadStatesEnd
|
|
ld de, RLEMovement1d4bb
|
|
call DecodeRLEList
|
|
dec a
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
call StartSimulatingJoypadStates
|
|
ld a, $1
|
|
ld [wViridianMarketCurScript], a
|
|
ret
|
|
|
|
RLEMovement1d4bb:
|
|
db D_LEFT, $01
|
|
db D_UP, $02
|
|
db $ff
|
|
|
|
ViridianMartScript1:
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
|
and a
|
|
ret nz
|
|
call Delay3
|
|
ld a, $5
|
|
ld [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
lb bc, OAKS_PARCEL, 1
|
|
call GiveItem
|
|
SetEvent EVENT_GOT_OAKS_PARCEL
|
|
ld a, $2
|
|
ld [wViridianMarketCurScript], a
|
|
; fallthrough
|
|
ViridianMartScript2:
|
|
ret
|
|
|
|
ViridianMartTextPointers:
|
|
dw ViridianMartText1
|
|
dw ViridianMartText2
|
|
dw ViridianMartText3
|
|
dw ViridianMartText4
|
|
dw ViridianMartText5
|
|
dw ViridianCashierText
|
|
dw ViridianMartText2
|
|
dw ViridianMartText3
|
|
|
|
ViridianMartText1:
|
|
TX_FAR _ViridianMartText1
|
|
db "@"
|
|
|
|
ViridianMartText4:
|
|
TX_FAR _ViridianMartText4
|
|
db "@"
|
|
|
|
ViridianMartText5:
|
|
TX_FAR ViridianMartParcelQuestText
|
|
TX_SFX_KEY_ITEM
|
|
db "@"
|
|
|
|
ViridianMartText2:
|
|
TX_FAR _ViridianMartText2
|
|
db "@"
|
|
|
|
ViridianMartText3:
|
|
TX_FAR _ViridianMartText3
|
|
db "@"
|