mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
83b373ad73
* Add constants for wMapConnections bits * Apply Vulcandth and Rangi42 feedback --------- Co-authored-by: vulcandth <vulcandth@gmail.com>
99 lines
2.6 KiB
NASM
99 lines
2.6 KiB
NASM
ViridianMart_Script:
|
|
call ViridianMartCheckParcelDeliveredScript
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, ViridianMart_ScriptPointers
|
|
ld a, [wViridianMartCurScript]
|
|
jp CallFunctionInTable
|
|
|
|
ViridianMartCheckParcelDeliveredScript:
|
|
CheckEvent EVENT_OAK_GOT_PARCEL
|
|
jr nz, .delivered_parcel
|
|
ld hl, ViridianMart_TextPointers
|
|
jr .done
|
|
.delivered_parcel
|
|
ld hl, ViridianMart_TextPointers2
|
|
.done
|
|
ld a, l
|
|
ld [wCurMapTextPtr], a
|
|
ld a, h
|
|
ld [wCurMapTextPtr+1], a
|
|
ret
|
|
|
|
ViridianMart_ScriptPointers:
|
|
def_script_pointers
|
|
dw_const ViridianMartDefaultScript, SCRIPT_VIRIDIANMART_DEFAULT
|
|
dw_const ViridianMartOaksParcelScript, SCRIPT_VIRIDIANMART_OAKS_PARCEL
|
|
dw_const ViridianMartNoopScript, SCRIPT_VIRIDIANMART_NOOP
|
|
|
|
ViridianMartDefaultScript:
|
|
call UpdateSprites
|
|
ld a, TEXT_VIRIDIANMART_CLERK_YOU_CAME_FROM_PALLET_TOWN
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
ld hl, wSimulatedJoypadStatesEnd
|
|
ld de, .PlayerMovement
|
|
call DecodeRLEList
|
|
dec a
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
call StartSimulatingJoypadStates
|
|
ld a, SCRIPT_VIRIDIANMART_OAKS_PARCEL
|
|
ld [wViridianMartCurScript], a
|
|
ret
|
|
|
|
.PlayerMovement:
|
|
db D_LEFT, 1
|
|
db D_UP, 2
|
|
db -1 ; end
|
|
|
|
ViridianMartOaksParcelScript:
|
|
ld a, [wSimulatedJoypadStatesIndex]
|
|
and a
|
|
ret nz
|
|
call Delay3
|
|
ld a, TEXT_VIRIDIANMART_CLERK_PARCEL_QUEST
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
lb bc, OAKS_PARCEL, 1
|
|
call GiveItem
|
|
SetEvent EVENT_GOT_OAKS_PARCEL
|
|
ld a, SCRIPT_VIRIDIANMART_NOOP
|
|
ld [wViridianMartCurScript], a
|
|
; fallthrough
|
|
ViridianMartNoopScript:
|
|
ret
|
|
|
|
ViridianMart_TextPointers:
|
|
dw ViridianMartClerkSayHiToOakText
|
|
dw ViridianMartYoungsterText
|
|
dw ViridianMartCooltrainerMText
|
|
const_def 4
|
|
dw_const ViridianMartClerkYouCameFromPalletTownText, TEXT_VIRIDIANMART_CLERK_YOU_CAME_FROM_PALLET_TOWN
|
|
dw_const ViridianMartClerkParcelQuestText, TEXT_VIRIDIANMART_CLERK_PARCEL_QUEST
|
|
|
|
ViridianMart_TextPointers2:
|
|
; This becomes the primary text pointers table when Oak's parcel has been delivered.
|
|
def_text_pointers
|
|
dw_const ViridianMartClerkText, TEXT_VIRIDIANMART_CLERK
|
|
dw_const ViridianMartYoungsterText, TEXT_VIRIDIANMART_YOUNGSTER
|
|
dw_const ViridianMartCooltrainerMText, TEXT_VIRIDIANMART_COOLTRAINER_M
|
|
|
|
ViridianMartClerkSayHiToOakText:
|
|
text_far _ViridianMartClerkSayHiToOakText
|
|
text_end
|
|
|
|
ViridianMartClerkYouCameFromPalletTownText:
|
|
text_far _ViridianMartClerkYouCameFromPalletTownText
|
|
text_end
|
|
|
|
ViridianMartClerkParcelQuestText:
|
|
text_far _ViridianMartClerkParcelQuestText
|
|
sound_get_key_item
|
|
text_end
|
|
|
|
ViridianMartYoungsterText:
|
|
text_far _ViridianMartYoungsterText
|
|
text_end
|
|
|
|
ViridianMartCooltrainerMText:
|
|
text_far _ViridianMartCooltrainerMText
|
|
text_end
|