pokecrystal/maps/GoldenrodDeptStore6F.asm

178 lines
3.4 KiB
NASM
Raw Normal View History

2015-11-27 05:22:14 +00:00
const_value set 2
const GOLDENRODDEPTSTORE6F_LASS
const GOLDENRODDEPTSTORE6F_SUPER_NERD
2015-06-26 04:01:08 +00:00
GoldenrodDeptStore6F_MapScriptHeader:
.MapTriggers:
db 0
.MapCallbacks:
db 0
2015-06-26 04:01:08 +00:00
GoldenrodVendingMachine:
2015-12-09 23:25:44 +00:00
opentext
2015-06-26 04:01:08 +00:00
writetext GoldenrodVendingText
.Start
2015-12-18 03:31:16 +00:00
special PlaceMoneyTopRight
2015-06-26 04:01:08 +00:00
loadmenudata .MenuData
2015-12-15 23:59:49 +00:00
verticalmenu
closewindow
2015-06-26 04:01:08 +00:00
if_equal $1, .FreshWater
if_equal $2, .SodaPop
if_equal $3, .Lemonade
2015-11-25 15:16:29 +00:00
closetext
end
2015-06-26 04:01:08 +00:00
.FreshWater
checkmoney $0, 200
2015-06-26 04:01:08 +00:00
if_equal $2, .NotEnoughMoney
2015-11-05 01:20:14 +00:00
giveitem FRESH_WATER
2015-06-26 04:01:08 +00:00
iffalse .NotEnoughSpace
takemoney $0, 200
itemtotext FRESH_WATER, $0
2015-06-26 04:01:08 +00:00
jump .VendItem
2015-06-26 04:01:08 +00:00
.SodaPop
checkmoney $0, 300
2015-06-26 04:01:08 +00:00
if_equal $2, .NotEnoughMoney
2015-11-05 01:20:14 +00:00
giveitem SODA_POP
2015-06-26 04:01:08 +00:00
iffalse .NotEnoughSpace
takemoney $0, 300
itemtotext SODA_POP, $0
2015-06-26 04:01:08 +00:00
jump .VendItem
2015-06-26 04:01:08 +00:00
.Lemonade
checkmoney $0, 350
2015-06-26 04:01:08 +00:00
if_equal $2, .NotEnoughMoney
2015-11-05 01:20:14 +00:00
giveitem LEMONADE
2015-06-26 04:01:08 +00:00
iffalse .NotEnoughSpace
takemoney $0, 350
itemtotext LEMONADE, $0
2015-06-26 04:01:08 +00:00
jump .VendItem
2015-06-26 04:01:08 +00:00
.VendItem
pause 10
playsound SFX_ENTER_DOOR
2015-06-26 04:01:08 +00:00
writetext GoldenrodClangText
2015-11-30 03:29:45 +00:00
buttonsound
itemnotify
2015-06-26 04:01:08 +00:00
jump .Start
2015-06-26 04:01:08 +00:00
.NotEnoughMoney
writetext GoldenrodVendingNoMoneyText
2015-11-25 15:16:29 +00:00
waitbutton
2015-06-26 04:01:08 +00:00
jump .Start
2015-06-26 04:01:08 +00:00
.NotEnoughSpace
writetext GoldenrodVendingNoSpaceText
2015-11-25 15:16:29 +00:00
waitbutton
2015-06-26 04:01:08 +00:00
jump .Start
2015-06-26 04:01:08 +00:00
.MenuData
2013-05-01 09:27:54 +00:00
db $40 ; flags
db 02, 00 ; start coords
db 11, 19 ; end coords
2015-06-26 04:01:08 +00:00
dw .MenuData2
2013-05-01 09:27:54 +00:00
db 1 ; default option
2015-06-26 04:01:08 +00:00
.MenuData2
2013-05-01 09:27:54 +00:00
db $80 ; flags
db 4 ; items
db "FRESH WATER ¥200@"
db "SODA POP ¥300@"
db "LEMONADE ¥350@"
db "CANCEL@"
2015-06-26 04:01:08 +00:00
LassScript_0x564bf:
jumptextfaceplayer UnknownText_0x5654b
2015-06-26 04:01:08 +00:00
SuperNerdScript_0x564c2:
jumptextfaceplayer UnknownText_0x565ca
2015-06-26 04:01:08 +00:00
GoldenrodDeptStore6FDirectory:
jumptext GoldenrodDeptStore6FDirectoryText
2015-06-26 04:01:08 +00:00
GoldenrodDeptStore6FElevatorButton:
2015-06-25 01:26:24 +00:00
jumpstd elevatorbutton
2015-06-26 04:01:08 +00:00
GoldenrodVendingText:
text "A vending machine!"
line "Here's the menu."
done
2015-06-26 04:01:08 +00:00
GoldenrodClangText:
text "Clang! A can of"
line "@"
2015-02-10 23:37:24 +00:00
text_from_ram StringBuffer3
text $55
db "popped out!"
done
2015-06-26 04:01:08 +00:00
GoldenrodVendingNoMoneyText:
text "Oops, not enough"
line "money."
done
2015-06-26 04:01:08 +00:00
GoldenrodVendingNoSpaceText:
text "There's no more"
line "room for stuff."
done
2015-06-26 04:01:08 +00:00
UnknownText_0x5654b:
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
2015-06-26 04:01:08 +00:00
UnknownText_0x565ca:
text "If you're tired,"
line "try the vending"
cont "machine's drinks."
para "Your #MON will"
line "love them too."
done
2015-06-26 04:01:08 +00:00
GoldenrodDeptStore6FDirectoryText:
text "Take a Break from"
line "Shopping!"
para "6F TRANQUIL SQUARE"
done
2015-06-26 04:01:08 +00:00
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
.XYTriggers:
db 0
.Signposts:
db 6
signpost 0, 14, SIGNPOST_READ, GoldenrodDeptStore6FDirectory
signpost 0, 3, SIGNPOST_READ, GoldenrodDeptStore6FElevatorButton
signpost 1, 8, SIGNPOST_UP, GoldenrodVendingMachine
signpost 1, 9, SIGNPOST_UP, GoldenrodVendingMachine
signpost 1, 10, SIGNPOST_UP, GoldenrodVendingMachine
signpost 1, 11, SIGNPOST_UP, GoldenrodVendingMachine
.PersonEvents:
db 2
person_event SPRITE_LASS, 2, 10, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 0, 1, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, LassScript_0x564bf, -1
person_event SPRITE_SUPER_NERD, 2, 8, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, SuperNerdScript_0x564c2, -1