pokecrystal/maps/CeladonDeptStore6F.asm

CELADONDEPTSTORE6F_FRESH_WATER_PRICE EQU 200
CELADONDEPTSTORE6F_SODA_POP_PRICE    EQU 300
CELADONDEPTSTORE6F_LEMONADE_PRICE    EQU 350

	object_const_def
	const CELADONDEPTSTORE6F_SUPER_NERD
	const CELADONDEPTSTORE6F_YOUNGSTER

CeladonDeptStore6F_MapScripts:
	def_scene_scripts

	def_callbacks
	callback MAPCALLBACK_TILES, .HideRooftopStairs

.HideRooftopStairs:
	changeblock 12, 0, $03 ; wall
	endcallback

CeladonDeptStore6FSuperNerdScript:
	jumptextfaceplayer CeladonDeptStore6FSuperNerdText

CeladonDeptStore6FYoungsterScript:
	jumptextfaceplayer CeladonDeptStore6FYoungsterText

CeladonDeptStore6FVendingMachine:
	opentext
	writetext CeladonVendingText
.Start:
	special PlaceMoneyTopRight
	loadmenu .MenuHeader
	verticalmenu
	closewindow
	ifequal 1, .FreshWater
	ifequal 2, .SodaPop
	ifequal 3, .Lemonade
	closetext
	end

.FreshWater:
	checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_FRESH_WATER_PRICE
	ifequal HAVE_LESS, .NotEnoughMoney
	giveitem FRESH_WATER
	iffalse .NotEnoughSpace
	takemoney YOUR_MONEY, CELADONDEPTSTORE6F_FRESH_WATER_PRICE
	getitemname STRING_BUFFER_3, FRESH_WATER
	sjump .VendItem

.SodaPop:
	checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_SODA_POP_PRICE
	ifequal HAVE_LESS, .NotEnoughMoney
	giveitem SODA_POP
	iffalse .NotEnoughSpace
	takemoney YOUR_MONEY, CELADONDEPTSTORE6F_SODA_POP_PRICE
	getitemname STRING_BUFFER_3, SODA_POP
	sjump .VendItem

.Lemonade:
	checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_LEMONADE_PRICE
	ifequal HAVE_LESS, .NotEnoughMoney
	giveitem LEMONADE
	iffalse .NotEnoughSpace
	takemoney YOUR_MONEY, CELADONDEPTSTORE6F_LEMONADE_PRICE
	getitemname STRING_BUFFER_3, LEMONADE
	sjump .VendItem

.VendItem:
	pause 10
	playsound SFX_ENTER_DOOR
	writetext CeladonClangText
	promptbutton
	itemnotify
	sjump .Start

.NotEnoughMoney:
	writetext CeladonVendingNoMoneyText
	waitbutton
	sjump .Start

.NotEnoughSpace:
	writetext CeladonVendingNoSpaceText
	waitbutton
	sjump .Start

.MenuHeader:
	db MENU_BACKUP_TILES ; flags
	menu_coords 0, 2, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
	dw .MenuData
	db 1 ; default option

.MenuData:
	db STATICMENU_CURSOR ; flags
	db 4 ; items
	db "FRESH WATER  ¥200@"
	db "SODA POP     ¥300@"
	db "LEMONADE     ¥350@"
	db "CANCEL@"

CeladonDeptStore6FDirectory:
	jumptext CeladonDeptStore6FDirectoryText

CeladonDeptStore6FElevatorButton: ; unreferenced
	jumpstd ElevatorButtonScript

CeladonVendingText:
	text "A vending machine!"
	line "Here's the menu."
	done

CeladonClangText:
	text "Clang!"

	para "@"
	text_ram wStringBuffer3
	text_start
	line "popped out."
	done

CeladonVendingNoMoneyText:
	text "Oops, not enough"
	line "money…"
	done

CeladonVendingNoSpaceText:
	text "There's no more"
	line "room for stuff…"
	done

CeladonDeptStore6FSuperNerdText:
	text "A vending machine"
	line "with a prize rou-"
	cont "lette…"

	para "You never see"
	line "those anymore."
	done

CeladonDeptStore6FYoungsterText:
	text "Aww! There's no"
	line "games here!"

	para "I wanted to play…"
	done

CeladonDeptStore6FDirectoryText:
	text "6F: ROOFTOP SQUARE"
	line "VENDING MACHINES"
	done

CeladonDeptStore6F_MapEvents:
	db 0, 0 ; filler

	def_warp_events
	warp_event 15,  0, CELADON_DEPT_STORE_5F, 2
	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1

	def_coord_events

	def_bg_events
	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore6FDirectory
	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore1FElevatorButton
	bg_event  8,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
	bg_event  9,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
	bg_event 10,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
	bg_event 11,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine

	def_object_events
	object_event  9,  2, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FSuperNerdScript, -1
	object_event 12,  5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 2, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FYoungsterScript, -1
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`CELADONDEPTSTORE6F_FRESH_WATER_PRICE EQU 200`
			`CELADONDEPTSTORE6F_SODA_POP_PRICE EQU 300`
			`CELADONDEPTSTORE6F_LEMONADE_PRICE EQU 350`

Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`object_const_def`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`const CELADONDEPTSTORE6F_SUPER_NERD`
			`const CELADONDEPTSTORE6F_YOUNGSTER`

map_header → map_def; map_header_2 → map_data 2018-01-17 03:57:19 +00:00			`CeladonDeptStore6F_MapScripts:`
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_scene_scripts`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_callbacks`
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`callback MAPCALLBACK_TILES, .HideRooftopStairs`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`.HideRooftopStairs:`
			`changeblock 12, 0, $03 ; wall`
return → endcallback, reloadandreturn → reloadend 2020-07-17 12:37:03 +00:00			`endcallback`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Auto-label more map scripts 2017-12-18 00:48:04 +00:00			`CeladonDeptStore6FSuperNerdScript:`
			`jumptextfaceplayer CeladonDeptStore6FSuperNerdText`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Auto-label more map scripts 2017-12-18 00:48:04 +00:00			`CeladonDeptStore6FYoungsterScript:`
			`jumptextfaceplayer CeladonDeptStore6FYoungsterText`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Auto-label more map scripts 2017-12-18 01:45:04 +00:00			`CeladonDeptStore6FVendingMachine:`
opentext and breeding 2015-12-09 23:25:44 +00:00			`opentext`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`writetext CeladonVendingText`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.Start:`
Remove Special_ prefix from special routines (close #478) 2018-01-24 16:17:05 +00:00			`special PlaceMoneyTopRight`
* loadmenuheader -> loadmenu (ead103d) * objectface -> turnobject (c834bda) 2018-02-26 01:05:37 +00:00			`loadmenu .MenuHeader`
Menu 2015-12-15 23:59:49 +00:00			`verticalmenu`
writebackup --> closewindow; game corner prize vendors; others 2015-12-25 03:58:42 +00:00			`closewindow`
Script commands don't have underscores 2018-02-03 02:09:17 +00:00			`ifequal 1, .FreshWater`
			`ifequal 2, .SodaPop`
			`ifequal 3, .Lemonade`
Rename several script commands 2015-11-25 15:16:29 +00:00			`closetext`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`end`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.FreshWater:`
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_FRESH_WATER_PRICE`
Script commands don't have underscores 2018-02-03 02:09:17 +00:00			`ifequal HAVE_LESS, .NotEnoughMoney`
give/takeitem *, 1: the 1 is optional 2015-11-05 01:20:14 +00:00			`giveitem FRESH_WATER`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`iffalse .NotEnoughSpace`
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`takemoney YOUR_MONEY, CELADONDEPTSTORE6F_FRESH_WATER_PRICE`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 19:31:59 +00:00			`getitemname STRING_BUFFER_3, FRESH_WATER`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .VendItem`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.SodaPop:`
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_SODA_POP_PRICE`
Script commands don't have underscores 2018-02-03 02:09:17 +00:00			`ifequal HAVE_LESS, .NotEnoughMoney`
give/takeitem *, 1: the 1 is optional 2015-11-05 01:20:14 +00:00			`giveitem SODA_POP`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`iffalse .NotEnoughSpace`
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`takemoney YOUR_MONEY, CELADONDEPTSTORE6F_SODA_POP_PRICE`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 19:31:59 +00:00			`getitemname STRING_BUFFER_3, SODA_POP`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .VendItem`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.Lemonade:`
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_LEMONADE_PRICE`
Script commands don't have underscores 2018-02-03 02:09:17 +00:00			`ifequal HAVE_LESS, .NotEnoughMoney`
give/takeitem *, 1: the 1 is optional 2015-11-05 01:20:14 +00:00			`giveitem LEMONADE`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`iffalse .NotEnoughSpace`
Define constants for prices in maps' event scripts Supersedes #592 2019-02-16 18:19:39 +00:00			`takemoney YOUR_MONEY, CELADONDEPTSTORE6F_LEMONADE_PRICE`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 19:31:59 +00:00			`getitemname STRING_BUFFER_3, LEMONADE`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .VendItem`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.VendItem:`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`pause 10`
Music and sound effect constants in map events. 2014-04-30 10:04:35 +00:00			`playsound SFX_ENTER_DOOR`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`writetext CeladonClangText`
Rename buttonsound to promptbutton 2019-11-03 17:48:54 +00:00			`promptbutton`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`itemnotify`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .Start`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NotEnoughMoney:`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`writetext CeladonVendingNoMoneyText`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .Start`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NotEnoughSpace:`
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`writetext CeladonVendingNoSpaceText`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`sjump .Start`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`.MenuHeader:`
Use constants for menu flags Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them. 2018-01-14 10:59:56 +00:00			`db MENU_BACKUP_TILES ; flags`
menu_coords macro for (x1, y1, x2, y2) order (see issue #440) 2018-01-13 21:38:14 +00:00			`menu_coords 0, 2, SCREEN_WIDTH - 1, TEXTBOX_Y - 1`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`dw .MenuData`
remove incbins in CeladonDeptStore6F 2013-05-01 06:24:05 +00:00			`db 1 ; default option`

MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`.MenuData:`
Use constants for menu flags Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them. 2018-01-14 10:59:56 +00:00			`db STATICMENU_CURSOR ; flags`
remove incbins in CeladonDeptStore6F 2013-05-01 06:24:05 +00:00			`db 4 ; items`
			`db "FRESH WATER ¥200@"`
			`db "SODA POP ¥300@"`
			`db "LEMONADE ¥350@"`
			`db "CANCEL@"`

Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`CeladonDeptStore6FDirectory:`
			`jumptext CeladonDeptStore6FDirectoryText`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Comment, remove, or revise many unreferenced labels 2020-10-26 19:45:57 +00:00			`CeladonDeptStore6FElevatorButton: ; unreferenced`
Resolve #723: treat std scripts like specials and predefs 2020-06-10 20:44:16 +00:00			`jumpstd ElevatorButtonScript`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`CeladonVendingText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "A vending machine!"`
			`line "Here's the menu."`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`CeladonClangText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "Clang!"`

			`para "@"`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_ram wStringBuffer3`
More charmap and home/text.asm documentation for JP chars 2018-01-18 23:34:20 +00:00			`text_start`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`line "popped out."`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`CeladonVendingNoMoneyText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "Oops, not enough"`
			`line "money…"`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`CeladonVendingNoSpaceText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "There's no more"`
			`line "room for stuff…"`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Auto-label more map scripts 2017-12-18 00:48:04 +00:00			`CeladonDeptStore6FSuperNerdText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "A vending machine"`
			`line "with a prize rou-"`
			`cont "lette…"`

			`para "You never see"`
			`line "those anymore."`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Auto-label more map scripts 2017-12-18 00:48:04 +00:00			`CeladonDeptStore6FYoungsterText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "Aww! There's no"`
			`line "games here!"`

			`para "I wanted to play…"`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Improve some signpost labels. 2015-06-26 04:01:08 +00:00			`CeladonDeptStore6FDirectoryText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "6F: ROOFTOP SQUARE"`
			`line "VENDING MACHINES"`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
map_header → map_def; map_header_2 → map_data 2018-01-17 03:57:19 +00:00			`CeladonDeptStore6F_MapEvents:`
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 0, 0 ; filler`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_warp_events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`warp_event 15, 0, CELADON_DEPT_STORE_5F, 2`
			`warp_event 2, 0, CELADON_DEPT_STORE_ELEVATOR, 1`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_coord_events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_bg_events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`bg_event 14, 0, BGEVENT_READ, CeladonDeptStore6FDirectory`
			`bg_event 3, 0, BGEVENT_READ, CeladonDeptStore1FElevatorButton`
			`bg_event 8, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine`
			`bg_event 9, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine`
			`bg_event 10, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine`
			`bg_event 11, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine`
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 18:46:34 +00:00
Use def_* macros for automatic map event counts Resolves #742 2020-07-24 13:49:26 +00:00			`def_object_events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`object_event 9, 2, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FSuperNerdScript, -1`
			`object_event 12, 5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 2, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FYoungsterScript, -1`