pokecrystal/maps/GoldenrodDeptStore6F.asm

174 lines
3.3 KiB
NASM
Raw Normal View History

2015-06-26 04:01:08 +00:00
GoldenrodDeptStore6F_MapScriptHeader:
; trigger count
db 0
; callback count
db 0
2015-06-26 04:01:08 +00:00
GoldenrodVendingMachine:
loadfont
2015-06-26 04:01:08 +00:00
writetext GoldenrodVendingText
.Start
special Function24ae8
2015-06-26 04:01:08 +00:00
loadmenudata .MenuData
interpretmenu2
writebackup
2015-06-26 04:01:08 +00:00
if_equal $1, .FreshWater
if_equal $2, .SodaPop
if_equal $3, .Lemonade
loadmovesprites
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
giveitem FRESH_WATER, $1
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
giveitem SODA_POP, $1
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
giveitem LEMONADE, $1
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
keeptextopen
itemnotify
2015-06-26 04:01:08 +00:00
jump .Start
2015-06-26 04:01:08 +00:00
.NotEnoughMoney
writetext GoldenrodVendingNoMoneyText
closetext
2015-06-26 04:01:08 +00:00
jump .Start
2015-06-26 04:01:08 +00:00
.NotEnoughSpace
writetext GoldenrodVendingNoSpaceText
closetext
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, GROUP_GOLDENROD_DEPT_STORE_5F, MAP_GOLDENROD_DEPT_STORE_5F
warp_def $0, $2, 1, GROUP_GOLDENROD_DEPT_STORE_ELEVATOR, MAP_GOLDENROD_DEPT_STORE_ELEVATOR
warp_def $0, $d, 1, GROUP_GOLDENROD_DEPT_STORE_ROOF, MAP_GOLDENROD_DEPT_STORE_ROOF
; xy triggers
db 0
; signposts
db 6
2015-06-26 04:01:08 +00:00
signpost 0, 14, $0, GoldenrodDeptStore6FDirectory
signpost 0, 3, $0, GoldenrodDeptStore6FElevatorButton
signpost 1, 8, $1, GoldenrodVendingMachine
signpost 1, 9, $1, GoldenrodVendingMachine
signpost 1, 10, $1, GoldenrodVendingMachine
signpost 1, 11, $1, GoldenrodVendingMachine
; people-events
db 2
2013-07-12 21:06:11 +00:00
person_event SPRITE_LASS, 6, 14, $5, $1, 255, 255, $a0, 0, LassScript_0x564bf, $ffff
person_event SPRITE_SUPER_NERD, 6, 12, $7, $0, 255, 255, $80, 0, SuperNerdScript_0x564c2, $ffff