pokecrystal/maps/CeladonDeptStore6F.asm

177 lines
3.2 KiB
NASM
Raw Normal View History

2015-11-27 05:22:14 +00:00
const_value set 2
const CELADONDEPTSTORE6F_SUPER_NERD
const CELADONDEPTSTORE6F_YOUNGSTER
2015-06-26 04:01:08 +00:00
CeladonDeptStore6F_MapScriptHeader:
.MapTriggers:
db 0
.MapCallbacks:
db 1
; callbacks
2016-01-06 12:44:50 +00:00
dbw MAPCALLBACK_TILES, .Callback
2015-11-17 17:29:37 +00:00
.Callback:
changeblock $c, $0, $3
return
2015-06-26 04:01:08 +00:00
SuperNerdScript_0x7117a:
jumptextfaceplayer UnknownText_0x712c7
2015-06-26 04:01:08 +00:00
YoungsterScript_0x7117d:
jumptextfaceplayer UnknownText_0x71310
2015-06-26 04:01:08 +00:00
CeladonVendingMachine:
2015-12-09 23:25:44 +00:00
opentext
2015-06-26 04:01:08 +00:00
writetext CeladonVendingText
.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
.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
.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
.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
.VendItem:
pause 10
playsound SFX_ENTER_DOOR
2015-06-26 04:01:08 +00:00
writetext CeladonClangText
2015-11-30 03:29:45 +00:00
buttonsound
itemnotify
2015-06-26 04:01:08 +00:00
jump .Start
.NotEnoughMoney:
2015-06-26 04:01:08 +00:00
writetext CeladonVendingNoMoneyText
2015-11-25 15:16:29 +00:00
waitbutton
2015-06-26 04:01:08 +00:00
jump .Start
.NotEnoughSpace:
2015-06-26 04:01:08 +00:00
writetext CeladonVendingNoSpaceText
2015-11-25 15:16:29 +00:00
waitbutton
2015-06-26 04:01:08 +00:00
jump .Start
.MenuData:
2013-05-01 06:24:05 +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 06:24:05 +00:00
db 1 ; default option
.MenuData2:
2013-05-01 06:24:05 +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
CeladonDeptStore6FDirectory:
jumptext CeladonDeptStore6FDirectoryText
2015-06-26 04:01:08 +00:00
UnknownScript_0x7124d:
2015-06-25 01:26:24 +00:00
jumpstd elevatorbutton
2015-06-26 04:01:08 +00:00
CeladonVendingText:
text "A vending machine!"
line "Here's the menu."
done
2015-06-26 04:01:08 +00:00
CeladonClangText:
text "Clang!"
para "@"
2015-02-10 23:37:24 +00:00
text_from_ram StringBuffer3
text ""
line "popped out."
done
2015-06-26 04:01:08 +00:00
CeladonVendingNoMoneyText:
text "Oops, not enough"
line "money…"
done
2015-06-26 04:01:08 +00:00
CeladonVendingNoSpaceText:
text "There's no more"
line "room for stuff…"
done
2015-06-26 04:01:08 +00:00
UnknownText_0x712c7:
text "A vending machine"
line "with a prize rou-"
cont "lette…"
para "You never see"
line "those anymore."
done
2015-06-26 04:01:08 +00:00
UnknownText_0x71310:
text "Aww! There's no"
line "games here!"
para "I wanted to play…"
done
2015-06-26 04:01:08 +00:00
CeladonDeptStore6FDirectoryText:
text "6F: ROOFTOP SQUARE"
line "VENDING MACHINES"
done
2015-06-26 04:01:08 +00:00
CeladonDeptStore6F_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $0, $f, 2, CELADON_DEPT_STORE_5F
warp_def $0, $2, 1, CELADON_DEPT_STORE_ELEVATOR
.XYTriggers:
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
.PersonEvents:
db 2
person_event SPRITE_SUPER_NERD, 2, 9, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, SuperNerdScript_0x7117a, -1
person_event SPRITE_YOUNGSTER, 5, 12, SPRITEMOVEDATA_WANDER, 1, 2, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, YoungsterScript_0x7117d, -1