First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

maps/GoldenrodDeptStore6F.asm

@@ -0,0 +1,172 @@
+DEF GOLDENRODDEPTSTORE6F_FRESH_WATER_PRICE EQU 200
+DEF GOLDENRODDEPTSTORE6F_SODA_POP_PRICE    EQU 300
+DEF GOLDENRODDEPTSTORE6F_LEMONADE_PRICE    EQU 350
+
+	object_const_def
+	const GOLDENRODDEPTSTORE6F_LASS
+	const GOLDENRODDEPTSTORE6F_SUPER_NERD
+
+GoldenrodDeptStore6F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+GoldenrodVendingMachine:
+	opentext
+	writetext GoldenrodVendingText
+.Start:
+	special PlaceMoneyTopRight
+	loadmenu .MenuHeader
+	verticalmenu
+	closewindow
+	ifequal 1, .FreshWater
+	ifequal 2, .SodaPop
+	ifequal 3, .Lemonade
+	closetext
+	end
+
+.FreshWater:
+	checkmoney YOUR_MONEY, GOLDENRODDEPTSTORE6F_FRESH_WATER_PRICE
+	ifequal HAVE_LESS, .NotEnoughMoney
+	giveitem FRESH_WATER
+	iffalse .NotEnoughSpace
+	takemoney YOUR_MONEY, GOLDENRODDEPTSTORE6F_FRESH_WATER_PRICE
+	getitemname STRING_BUFFER_3, FRESH_WATER
+	sjump .VendItem
+
+.SodaPop:
+	checkmoney YOUR_MONEY, GOLDENRODDEPTSTORE6F_SODA_POP_PRICE
+	ifequal HAVE_LESS, .NotEnoughMoney
+	giveitem SODA_POP
+	iffalse .NotEnoughSpace
+	takemoney YOUR_MONEY, GOLDENRODDEPTSTORE6F_SODA_POP_PRICE
+	getitemname STRING_BUFFER_3, SODA_POP
+	sjump .VendItem
+
+.Lemonade:
+	checkmoney YOUR_MONEY, GOLDENRODDEPTSTORE6F_LEMONADE_PRICE
+	ifequal HAVE_LESS, .NotEnoughMoney
+	giveitem LEMONADE
+	iffalse .NotEnoughSpace
+	takemoney YOUR_MONEY, GOLDENRODDEPTSTORE6F_LEMONADE_PRICE
+	getitemname STRING_BUFFER_3, LEMONADE
+	sjump .VendItem
+
+.VendItem:
+	pause 10
+	playsound SFX_ENTER_DOOR
+	writetext GoldenrodClangText
+	promptbutton
+	itemnotify
+	sjump .Start
+
+.NotEnoughMoney:
+	writetext GoldenrodVendingNoMoneyText
+	waitbutton
+	sjump .Start
+
+.NotEnoughSpace:
+	writetext GoldenrodVendingNoSpaceText
+	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  ¥{d:GOLDENRODDEPTSTORE6F_FRESH_WATER_PRICE}@"
+	db "SODA POP     ¥{d:GOLDENRODDEPTSTORE6F_SODA_POP_PRICE}@"
+	db "LEMONADE     ¥{d:GOLDENRODDEPTSTORE6F_LEMONADE_PRICE}@"
+	db "CANCEL@"
+
+GoldenrodDeptStore6FLassScript:
+	jumptextfaceplayer GoldenrodDeptStore6FLassText
+
+GoldenrodDeptStore6FSuperNerdScript:
+	jumptextfaceplayer GoldenrodDeptStore6FSuperNerdText
+
+GoldenrodDeptStore6FDirectory:
+	jumptext GoldenrodDeptStore6FDirectoryText
+
+GoldenrodDeptStore6FElevatorButton:
+	jumpstd ElevatorButtonScript
+
+GoldenrodVendingText:
+	text "A vending machine!"
+	line "Here's the menu."
+	done
+
+GoldenrodClangText:
+	text "Clang! A can of"
+	line "@"
+	text_ram wStringBuffer3
+	text_start
+	cont "popped out!"
+	done
+
+GoldenrodVendingNoMoneyText:
+	text "Oops, not enough"
+	line "money."
+	done
+
+GoldenrodVendingNoSpaceText:
+	text "There's no more"
+	line "room for stuff."
+	done
+
+GoldenrodDeptStore6FLassText:
+	text "Do you listen to"
+	line "LUCKY CHANNEL?"
+
+	para "If you want to"
+	line "win, trade #MON"
+
+	para "with as many peo-"
+	line "ple as possible to"
+
+	para "get different ID"
+	line "numbers."
+	done
+
+GoldenrodDeptStore6FSuperNerdText:
+	text "If you're tired,"
+	line "try the vending"
+	cont "machine's drinks."
+
+	para "Your #MON will"
+	line "love them too."
+	done
+
+GoldenrodDeptStore6FDirectoryText:
+	text "Take a Break from"
+	line "Shopping!"
+
+	para "6F TRANQUIL SQUARE"
+	done
+
+GoldenrodDeptStore6F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 15,  0, GOLDENROD_DEPT_STORE_5F, 2
+	warp_event  2,  0, GOLDENROD_DEPT_STORE_ELEVATOR, 1
+	warp_event 13,  0, GOLDENROD_DEPT_STORE_ROOF, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, GoldenrodDeptStore6FDirectory
+	bg_event  3,  0, BGEVENT_READ, GoldenrodDeptStore6FElevatorButton
+	bg_event  8,  1, BGEVENT_UP, GoldenrodVendingMachine
+	bg_event  9,  1, BGEVENT_UP, GoldenrodVendingMachine
+	bg_event 10,  1, BGEVENT_UP, GoldenrodVendingMachine
+	bg_event 11,  1, BGEVENT_UP, GoldenrodVendingMachine
+
+	def_object_events
+	object_event 10,  2, SPRITE_LASS, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStore6FLassScript, -1
+	object_event  8,  2, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStore6FSuperNerdScript, -1