pokered/scripts/ViridianMart.asm

100 lines
2.6 KiB
NASM
Raw Normal View History

ViridianMart_Script:
call ViridianMartCheckParcelDeliveredScript
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
ld hl, ViridianMart_ScriptPointers
ld a, [wViridianMartCurScript]
2014-05-18 18:19:10 +00:00
jp CallFunctionInTable
ViridianMartCheckParcelDeliveredScript:
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_OAK_GOT_PARCEL
jr nz, .delivered_parcel
ld hl, ViridianMart_TextPointers
jr .done
.delivered_parcel
ld hl, ViridianMart_TextPointers2
.done
2014-05-18 18:19:10 +00:00
ld a, l
ld [wCurMapTextPtr], a
2014-05-18 18:19:10 +00:00
ld a, h
ld [wCurMapTextPtr+1], a
2014-05-18 18:19:10 +00:00
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
2014-05-18 18:19:10 +00:00
ViridianMartDefaultScript:
2014-05-18 18:19:10 +00:00
call UpdateSprites
ld a, TEXT_VIRIDIANMART_CLERK_YOU_CAME_FROM_PALLET_TOWN
ldh [hTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
ld hl, wSimulatedJoypadStatesEnd
ld de, .PlayerMovement
2014-05-18 18:19:10 +00:00
call DecodeRLEList
dec a
ld [wSimulatedJoypadStatesIndex], a
call StartSimulatingJoypadStates
ld a, SCRIPT_VIRIDIANMART_OAKS_PARCEL
ld [wViridianMartCurScript], a
2014-05-18 18:19:10 +00:00
ret
.PlayerMovement:
db D_LEFT, 1
db D_UP, 2
db -1 ; end
2014-05-18 18:19:10 +00:00
ViridianMartOaksParcelScript:
ld a, [wSimulatedJoypadStatesIndex]
2014-05-18 18:19:10 +00:00
and a
ret nz
call Delay3
ld a, TEXT_VIRIDIANMART_CLERK_PARCEL_QUEST
ldh [hTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
2015-08-05 21:20:29 +00:00
lb bc, OAKS_PARCEL, 1
2014-05-18 18:19:10 +00:00
call GiveItem
2015-07-21 17:36:03 +00:00
SetEvent EVENT_GOT_OAKS_PARCEL
ld a, SCRIPT_VIRIDIANMART_NOOP
ld [wViridianMartCurScript], a
2014-05-18 18:19:10 +00:00
; fallthrough
ViridianMartNoopScript:
2014-05-18 18:19:10 +00:00
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
2014-05-18 18:19:10 +00:00
ViridianMartClerkSayHiToOakText:
text_far _ViridianMartClerkSayHiToOakText
text_end
2014-05-18 18:19:10 +00:00
ViridianMartClerkYouCameFromPalletTownText:
text_far _ViridianMartClerkYouCameFromPalletTownText
text_end
2014-05-18 18:19:10 +00:00
ViridianMartClerkParcelQuestText:
text_far _ViridianMartClerkParcelQuestText
sound_get_key_item
text_end
2014-05-18 18:19:10 +00:00
ViridianMartYoungsterText:
text_far _ViridianMartYoungsterText
text_end
2014-05-18 18:19:10 +00:00
ViridianMartCooltrainerMText:
text_far _ViridianMartCooltrainerMText
text_end