pokecrystal/maps/CeladonDeptStore6F.asm

173 lines
3.5 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
CeladonDeptStore6F_MapScripts:
.SceneScripts:
db 0
.MapCallbacks:
db 1
2018-01-17 18:23:43 +00:00
callback MAPCALLBACK_TILES, .HideRooftopStairs
2018-01-17 18:23:43 +00:00
.HideRooftopStairs:
changeblock 12, 0, $03 ; wall
return
2017-12-18 00:48:04 +00:00
CeladonDeptStore6FSuperNerdScript:
jumptextfaceplayer CeladonDeptStore6FSuperNerdText
2017-12-18 00:48:04 +00:00
CeladonDeptStore6FYoungsterScript:
jumptextfaceplayer CeladonDeptStore6FYoungsterText
2017-12-18 01:45:04 +00:00
CeladonDeptStore6FVendingMachine:
2015-12-09 23:25:44 +00:00
opentext
2015-06-26 04:01:08 +00:00
writetext CeladonVendingText
.Start:
2018-01-02 16:13:57 +00:00
special Special_PlaceMoneyTopRight
loadmenuheader .MenuHeader
2015-12-15 23:59:49 +00:00
verticalmenu
closewindow
2018-01-12 06:40:20 +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:
2018-01-12 06:40:20 +00:00
checkmoney YOUR_MONEY, 200
if_equal HAVE_LESS, .NotEnoughMoney
2015-11-05 01:20:14 +00:00
giveitem FRESH_WATER
2015-06-26 04:01:08 +00:00
iffalse .NotEnoughSpace
2018-01-12 06:40:20 +00:00
takemoney YOUR_MONEY, 200
itemtotext FRESH_WATER, MEM_BUFFER_0
2015-06-26 04:01:08 +00:00
jump .VendItem
.SodaPop:
2018-01-12 06:40:20 +00:00
checkmoney YOUR_MONEY, 300
if_equal HAVE_LESS, .NotEnoughMoney
2015-11-05 01:20:14 +00:00
giveitem SODA_POP
2015-06-26 04:01:08 +00:00
iffalse .NotEnoughSpace
2018-01-12 06:40:20 +00:00
takemoney YOUR_MONEY, 300
itemtotext SODA_POP, MEM_BUFFER_0
2015-06-26 04:01:08 +00:00
jump .VendItem
.Lemonade:
2018-01-12 06:40:20 +00:00
checkmoney YOUR_MONEY, 350
if_equal HAVE_LESS, .NotEnoughMoney
2015-11-05 01:20:14 +00:00
giveitem LEMONADE
2015-06-26 04:01:08 +00:00
iffalse .NotEnoughSpace
2018-01-12 06:40:20 +00:00
takemoney YOUR_MONEY, 350
itemtotext LEMONADE, MEM_BUFFER_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
.MenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 2, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
dw .MenuData
2013-05-01 06:24:05 +00:00
db 1 ; default option
.MenuData:
db STATICMENU_CURSOR ; flags
2013-05-01 06:24:05 +00:00
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
2017-12-18 01:45:04 +00:00
; unused
CeladonDeptStore6FElevatorButton:
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_start
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
2017-12-18 00:48:04 +00:00
CeladonDeptStore6FSuperNerdText:
text "A vending machine"
line "with a prize rou-"
cont "lette…"
para "You never see"
line "those anymore."
done
2017-12-18 00:48:04 +00:00
CeladonDeptStore6FYoungsterText:
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
CeladonDeptStore6F_MapEvents:
; filler
db 0, 0
.Warps:
db 2
warp_def 15, 0, 2, CELADON_DEPT_STORE_5F
warp_def 2, 0, 1, CELADON_DEPT_STORE_ELEVATOR
.CoordEvents:
db 0
.BGEvents:
db 6
bg_event 14, 0, BGEVENT_READ, CeladonDeptStore6FDirectory
bg_event 3, 0, BGEVENT_READ, CeladonDeptStore1FElevatorButton
bg_event 8, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
bg_event 9, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
bg_event 10, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
bg_event 11, 1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
.ObjectEvents:
db 2
object_event 9, 2, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FSuperNerdScript, -1
object_event 12, 5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 2, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FYoungsterScript, -1