mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
11d67567d2
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.
178 lines
3.5 KiB
NASM
178 lines
3.5 KiB
NASM
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 MENU_BACKUP_TILES ; flags
|
|
db 02, 00 ; start coords
|
|
db 11, 19 ; end coords
|
|
dw .MenuData2
|
|
db 1 ; default option
|
|
|
|
.MenuData2:
|
|
db STATICMENU_CURSOR ; 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 15, 0, 2, GOLDENROD_DEPT_STORE_5F
|
|
warp_def 2, 0, 1, GOLDENROD_DEPT_STORE_ELEVATOR
|
|
warp_def 13, 0, 1, GOLDENROD_DEPT_STORE_ROOF
|
|
|
|
.CoordEvents:
|
|
db 0
|
|
|
|
.BGEvents:
|
|
db 6
|
|
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
|
|
|
|
.ObjectEvents:
|
|
db 2
|
|
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
|