pokecrystal-board/maps/CeladonDeptStore6F.asm

173 lines
3.2 KiB
NASM
Raw Normal View History

2015-06-25 21:01:08 -07:00
CeladonDeptStore6F_MapScriptHeader:
; trigger count
db 0
; callback count
db 1
; callbacks
dbw 1, UnknownScript_0x71175
2015-06-25 21:01:08 -07:00
UnknownScript_0x71175:
changeblock $c, $0, $3
return
2015-06-25 21:01:08 -07:00
SuperNerdScript_0x7117a:
jumptextfaceplayer UnknownText_0x712c7
2015-06-25 21:01:08 -07:00
YoungsterScript_0x7117d:
jumptextfaceplayer UnknownText_0x71310
2015-06-25 21:01:08 -07:00
CeladonVendingMachine:
loadfont
2015-06-25 21:01:08 -07:00
writetext CeladonVendingText
.Start
special Function24ae8
2015-06-25 21:01:08 -07:00
loadmenudata .MenuData
interpretmenu2
writebackup
2015-06-25 21:01:08 -07:00
if_equal $1, .FreshWater
if_equal $2, .SodaPop
if_equal $3, .Lemonade
loadmovesprites
end
2015-06-25 21:01:08 -07:00
.FreshWater
checkmoney $0, 200
2015-06-25 21:01:08 -07:00
if_equal $2, .NotEnoughMoney
giveitem FRESH_WATER, $1
2015-06-25 21:01:08 -07:00
iffalse .NotEnoughSpace
takemoney $0, 200
itemtotext FRESH_WATER, $0
2015-06-25 21:01:08 -07:00
jump .VendItem
2015-06-25 21:01:08 -07:00
.SodaPop
checkmoney $0, 300
2015-06-25 21:01:08 -07:00
if_equal $2, .NotEnoughMoney
giveitem SODA_POP, $1
2015-06-25 21:01:08 -07:00
iffalse .NotEnoughSpace
takemoney $0, 300
itemtotext SODA_POP, $0
2015-06-25 21:01:08 -07:00
jump .VendItem
2015-06-25 21:01:08 -07:00
.Lemonade
checkmoney $0, 350
2015-06-25 21:01:08 -07:00
if_equal $2, .NotEnoughMoney
giveitem LEMONADE, $1
2015-06-25 21:01:08 -07:00
iffalse .NotEnoughSpace
takemoney $0, 350
itemtotext LEMONADE, $0
2015-06-25 21:01:08 -07:00
jump .VendItem
2015-06-25 21:01:08 -07:00
.VendItem
pause 10
playsound SFX_ENTER_DOOR
2015-06-25 21:01:08 -07:00
writetext CeladonClangText
keeptextopen
itemnotify
2015-06-25 21:01:08 -07:00
jump .Start
2015-06-25 21:01:08 -07:00
.NotEnoughMoney
writetext CeladonVendingNoMoneyText
closetext
2015-06-25 21:01:08 -07:00
jump .Start
2015-06-25 21:01:08 -07:00
.NotEnoughSpace
writetext CeladonVendingNoSpaceText
closetext
2015-06-25 21:01:08 -07:00
jump .Start
2015-06-25 21:01:08 -07:00
.MenuData
2013-04-30 23:24:05 -07:00
db $40 ; flags
db 02, 00 ; start coords
db 11, 19 ; end coords
2015-06-25 21:01:08 -07:00
dw .MenuData2
2013-04-30 23:24:05 -07:00
db 1 ; default option
2015-06-25 21:01:08 -07:00
.MenuData2
2013-04-30 23:24:05 -07:00
db $80 ; flags
db 4 ; items
db "FRESH WATER ¥200@"
db "SODA POP ¥300@"
db "LEMONADE ¥350@"
db "CANCEL@"
2015-06-25 21:01:08 -07:00
CeladonDeptStore6FDirectory:
jumptext CeladonDeptStore6FDirectoryText
2015-06-25 21:01:08 -07:00
UnknownScript_0x7124d:
2015-06-24 18:26:24 -07:00
jumpstd elevatorbutton
2015-06-25 21:01:08 -07:00
CeladonVendingText:
text "A vending machine!"
line "Here's the menu."
done
2015-06-25 21:01:08 -07:00
CeladonClangText:
text "Clang!"
para "@"
2015-02-10 15:37:24 -08:00
text_from_ram StringBuffer3
text ""
line "popped out."
done
2015-06-25 21:01:08 -07:00
CeladonVendingNoMoneyText:
text "Oops, not enough"
line "money…"
done
2015-06-25 21:01:08 -07:00
CeladonVendingNoSpaceText:
text "There's no more"
line "room for stuff…"
done
2015-06-25 21:01:08 -07:00
UnknownText_0x712c7:
text "A vending machine"
line "with a prize rou-"
cont "lette…"
para "You never see"
line "those anymore."
done
2015-06-25 21:01:08 -07:00
UnknownText_0x71310:
text "Aww! There's no"
line "games here!"
para "I wanted to play…"
done
2015-06-25 21:01:08 -07:00
CeladonDeptStore6FDirectoryText:
text "6F: ROOFTOP SQUARE"
line "VENDING MACHINES"
done
2015-06-25 21:01:08 -07:00
CeladonDeptStore6F_MapEventHeader:
; filler
db 0, 0
; warps
db 2
warp_def $0, $f, 2, GROUP_CELADON_DEPT_STORE_5F, MAP_CELADON_DEPT_STORE_5F
warp_def $0, $2, 1, GROUP_CELADON_DEPT_STORE_ELEVATOR, MAP_CELADON_DEPT_STORE_ELEVATOR
; xy triggers
db 0
; signposts
db 6
signpost 0, 14, SIGNPOST_READ, CeladonDeptStore6FDirectory
signpost 0, 3, SIGNPOST_READ, CeladonDeptStore1FElevatorButton
signpost 1, 8, SIGNPOST_UP, CeladonVendingMachine
signpost 1, 9, SIGNPOST_UP, CeladonVendingMachine
signpost 1, 10, SIGNPOST_UP, CeladonVendingMachine
signpost 1, 11, SIGNPOST_UP, CeladonVendingMachine
; people-events
db 2
person_event SPRITE_SUPER_NERD, 6, 13, OW_UP | $3, $0, -1, -1, $0, 0, SuperNerdScript_0x7117a, -1
person_event SPRITE_YOUNGSTER, 9, 16, OW_DOWN | $2, $12, -1, -1, (PAL_OW_RED << 4) | $80, 0, YoungsterScript_0x7117d, -1