mirror of https://github.com/pret/pokecrystal.git
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 $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
|