pokered/scripts/ViridianMart.asm

ViridianMart_Script:
	call ViridianMartScript_1d47d
	call EnableAutoTextBoxDrawing
	ld hl, ViridianMart_ScriptPointers
	ld a, [wViridianMartCurScript]
	jp CallFunctionInTable

ViridianMartScript_1d47d:
	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 [wMapTextPtr], a
	ld a, h
	ld [wMapTextPtr+1], a
	ret

ViridianMart_ScriptPointers:
	dw ViridianMartScript0
	dw ViridianMartScript1
	dw ViridianMartScript2

ViridianMartScript0:
	call UpdateSprites
	ld a, $4
	ldh [hSpriteIndexOrTextID], a
	call DisplayTextID
	ld hl, wSimulatedJoypadStatesEnd
	ld de, RLEMovement1d4bb
	call DecodeRLEList
	dec a
	ld [wSimulatedJoypadStatesIndex], a
	call StartSimulatingJoypadStates
	ld a, $1
	ld [wViridianMartCurScript], a
	ret

RLEMovement1d4bb:
	db D_LEFT, 1
	db D_UP, 2
	db -1 ; end

ViridianMartScript1:
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	call Delay3
	ld a, $5
	ldh [hSpriteIndexOrTextID], a
	call DisplayTextID
	lb bc, OAKS_PARCEL, 1
	call GiveItem
	SetEvent EVENT_GOT_OAKS_PARCEL
	ld a, $2
	ld [wViridianMartCurScript], a
	; fallthrough
ViridianMartScript2:
	ret

ViridianMart_TextPointers:
	dw ViridianMartText1
	dw ViridianMartText2
	dw ViridianMartText3
	dw ViridianMartText4
	dw ViridianMartText5

ViridianMart_TextPointers2:
	dw ViridianCashierText
	dw ViridianMartText2
	dw ViridianMartText3

ViridianMartText1:
	text_far _ViridianMartText1
	text_end

ViridianMartText4:
	text_far _ViridianMartText4
	text_end

ViridianMartText5:
	text_far ViridianMartParcelQuestText
	sound_get_key_item
	text_end

ViridianMartText2:
	text_far _ViridianMartText2
	text_end

ViridianMartText3:
	text_far _ViridianMartText3
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ViridianMart_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call ViridianMartScript_1d47d`
			`call EnableAutoTextBoxDrawing`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld hl, ViridianMart_ScriptPointers`
			`ld a, [wViridianMartCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp CallFunctionInTable`

Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartScript_1d47d:`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_OAK_GOT_PARCEL`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nz, .delivered_parcel`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld hl, ViridianMart_TextPointers`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr .done`
			`.delivered_parcel`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld hl, ViridianMart_TextPointers2`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`.done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, l`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wMapTextPtr], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, h`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wMapTextPtr+1], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ViridianMart_ScriptPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw ViridianMartScript0`
			`dw ViridianMartScript1`
			`dw ViridianMartScript2`

Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartScript0:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call UpdateSprites`
			`ld a, $4`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld hl, wSimulatedJoypadStatesEnd`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, RLEMovement1d4bb`
			`call DecodeRLEList`
			`dec a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesIndex], a`
			`call StartSimulatingJoypadStates`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld [wViridianMartCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`RLEMovement1d4bb:`
Reformat map scripts' coordinate and movement data 'dbmapcoord' has X, Y order like other coordinate-related data macros 2020-07-16 16:32:19 +00:00			`db D_LEFT, 1`
			`db D_UP, 2`
			`db -1 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartScript1:`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld a, [wSimulatedJoypadStatesIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
			`ret nz`
			`call Delay3`
			`ld a, $5`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, OAKS_PARCEL, 1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call GiveItem`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_GOT_OAKS_PARCEL`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $2`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld [wViridianMartCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`; fallthrough`
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartScript2:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ViridianMart_TextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw ViridianMartText1`
			`dw ViridianMartText2`
			`dw ViridianMartText3`
			`dw ViridianMartText4`
			`dw ViridianMartText5`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ViridianMart_TextPointers2:`
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`dw ViridianCashierText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw ViridianMartText2`
			`dw ViridianMartText3`

Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartText1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _ViridianMartText1`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartText4:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _ViridianMartText4`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartText5:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far ViridianMartParcelQuestText`
			`sound_get_key_item`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartText2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _ViridianMartText2`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Clean up script labels in marts and Pokémon Centers. 2016-04-09 01:04:36 +00:00			`ViridianMartText3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _ViridianMartText3`
			`text_end`