ref: 83ef3b9a36bf4b11239713df229165e40694421f
dir: /maps/GoldenrodDeptStore6F.asm/
const_value set 2 const GOLDENRODDEPTSTORE6F_LASS const GOLDENRODDEPTSTORE6F_SUPER_NERD GoldenrodDeptStore6F_MapScriptHeader: .SceneScripts: db 0 .MapCallbacks: db 0 GoldenrodVendingMachine: opentext writetext GoldenrodVendingText .Start: special PlaceMoneyTopRight loadmenudata .MenuData verticalmenu closewindow if_equal $1, .FreshWater if_equal $2, .SodaPop if_equal $3, .Lemonade closetext end .FreshWater: checkmoney $0, 200 if_equal $2, .NotEnoughMoney giveitem FRESH_WATER iffalse .NotEnoughSpace takemoney $0, 200 itemtotext FRESH_WATER, $0 jump .VendItem .SodaPop: checkmoney $0, 300 if_equal $2, .NotEnoughMoney giveitem SODA_POP iffalse .NotEnoughSpace takemoney $0, 300 itemtotext SODA_POP, $0 jump .VendItem .Lemonade: checkmoney $0, 350 if_equal $2, .NotEnoughMoney giveitem LEMONADE iffalse .NotEnoughSpace takemoney $0, 350 itemtotext LEMONADE, $0 jump .VendItem .VendItem: pause 10 playsound SFX_ENTER_DOOR writetext GoldenrodClangText buttonsound itemnotify jump .Start .NotEnoughMoney: writetext GoldenrodVendingNoMoneyText waitbutton jump .Start .NotEnoughSpace: writetext GoldenrodVendingNoSpaceText waitbutton jump .Start .MenuData: db $40 ; flags db 02, 00 ; start coords db 11, 19 ; end coords dw .MenuData2 db 1 ; default option .MenuData2: db $80 ; flags db 4 ; items db "FRESH WATER ¥200@" db "SODA POP ¥300@" db "LEMONADE ¥350@" db "CANCEL@" GoldenrodDeptStore6FLassScript: jumptextfaceplayer GoldenrodDeptStore6FLassText GoldenrodDeptStore6FSuperNerdScript: jumptextfaceplayer GoldenrodDeptStore6FSuperNerdText GoldenrodDeptStore6FDirectory: jumptext GoldenrodDeptStore6FDirectoryText GoldenrodDeptStore6FElevatorButton: jumpstd elevatorbutton GoldenrodVendingText: text "A vending machine!" line "Here's the menu." done GoldenrodClangText: text "Clang! A can of" line "@" text_from_ram StringBuffer3 text $55 db "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_MapEventHeader: ; filler db 0, 0 .Warps: db 3 warp_def $0, $f, 2, GOLDENROD_DEPT_STORE_5F warp_def $0, $2, 1, GOLDENROD_DEPT_STORE_ELEVATOR warp_def $0, $d, 1, GOLDENROD_DEPT_STORE_ROOF .CoordEvents: db 0 .BGEvents: db 6 bg_event 0, 14, BGEVENT_READ, GoldenrodDeptStore6FDirectory bg_event 0, 3, BGEVENT_READ, GoldenrodDeptStore6FElevatorButton bg_event 1, 8, BGEVENT_UP, GoldenrodVendingMachine bg_event 1, 9, BGEVENT_UP, GoldenrodVendingMachine bg_event 1, 10, BGEVENT_UP, GoldenrodVendingMachine bg_event 1, 11, BGEVENT_UP, GoldenrodVendingMachine .ObjectEvents: db 2 object_event SPRITE_LASS, 2, 10, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 0, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStore6FLassScript, -1 object_event SPRITE_SUPER_NERD, 2, 8, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStore6FSuperNerdScript, -1