pokecrystal/maps/MahoganyTown.asm

270 lines
5.4 KiB
NASM

const_def 2 ; object constants
const MAHOGANYTOWN_POKEFAN_M
const MAHOGANYTOWN_GRAMPS
const MAHOGANYTOWN_FISHER
const MAHOGANYTOWN_LASS
MahoganyTown_MapScripts:
db 2 ; scene scripts
scene_script .DummyScene0 ; SCENE_DEFAULT
scene_script .DummyScene1 ; SCENE_FINISHED
db 1 ; callbacks
callback MAPCALLBACK_NEWMAP, .FlyPoint
.DummyScene0:
end
.DummyScene1:
end
.FlyPoint:
setflag ENGINE_FLYPOINT_MAHOGANY
return
UnknownScript_0x190013:
showemote EMOTE_SHOCK, MAHOGANYTOWN_POKEFAN_M, 15
applymovement MAHOGANYTOWN_POKEFAN_M, MovementData_0x1900a9
follow PLAYER, MAHOGANYTOWN_POKEFAN_M
applymovement PLAYER, MovementData_0x1900a7
stopfollow
objectface PLAYER, RIGHT
scall UnknownScript_0x19002f
applymovement MAHOGANYTOWN_POKEFAN_M, MovementData_0x1900ad
end
PokefanMScript_0x19002e:
faceplayer
UnknownScript_0x19002f:
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue UnknownScript_0x190039
scall UnknownScript_0x190040
end
UnknownScript_0x190039:
opentext
writetext UnknownText_0x1901a6
waitbutton
closetext
end
UnknownScript_0x190040:
opentext
writetext UnknownText_0x1900b0
special PlaceMoneyTopRight
yesorno
iffalse UnknownScript_0x190072
checkmoney YOUR_MONEY, 300
ifequal HAVE_LESS, UnknownScript_0x19006c
giveitem RAGECANDYBAR
iffalse UnknownScript_0x190078
waitsfx
playsound SFX_TRANSACTION
takemoney YOUR_MONEY, 300
special PlaceMoneyTopRight
writetext UnknownText_0x19014a
waitbutton
closetext
end
UnknownScript_0x19006c:
writetext UnknownText_0x19015b
waitbutton
closetext
end
UnknownScript_0x190072:
writetext UnknownText_0x190178
waitbutton
closetext
end
UnknownScript_0x190078:
writetext UnknownText_0x190188
waitbutton
closetext
end
GrampsScript_0x19007e:
faceplayer
opentext
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue UnknownScript_0x19008c
writetext UnknownText_0x1901e5
waitbutton
closetext
end
UnknownScript_0x19008c:
writetext UnknownText_0x19021d
waitbutton
closetext
end
MahoganyTownFisherScript:
jumptextfaceplayer MahoganyTownFisherText
MahoganyTownLassScript:
jumptextfaceplayer MahoganyTownLassText
MahoganyTownSign:
jumptext MahoganyTownSignText
MahoganyTownRagecandybarSign:
jumptext MahoganyTownRagecandybarSignText
MahoganyGymSign:
jumptext MahoganyGymSignText
MahoganyTownPokecenterSign:
jumpstd pokecentersign
MovementData_0x1900a4:
step DOWN
big_step UP
turn_head DOWN
MovementData_0x1900a7:
step LEFT
step_end
MovementData_0x1900a9:
step RIGHT
step DOWN
turn_head LEFT
step_end
MovementData_0x1900ad:
step UP
turn_head DOWN
step_end
UnknownText_0x1900b0:
text "Hiya, kid!"
para "I see you're new"
line "in MAHOGANY TOWN."
para "Since you're new,"
line "you should try a"
para "yummy RAGECANDY-"
line "BAR!"
para "Right now, it can"
line "be yours for just"
cont "¥300! Want one?"
done
UnknownText_0x19014a:
text "Good! Savor it!"
done
UnknownText_0x19015b:
text "You don't have"
line "enough money."
done
UnknownText_0x190178:
text "Oh, fine then…"
done
UnknownText_0x190188:
text "You don't have"
line "room for this."
done
UnknownText_0x1901a6:
text "RAGECANDYBAR's"
line "sold out."
para "I'm packing up."
line "Don't bother me,"
cont "kiddo."
done
UnknownText_0x1901e5:
text "Are you off to see"
line "the GYARADOS ram-"
cont "page at the LAKE?"
done
UnknownText_0x19021d:
text "MAGIKARP have"
line "returned to LAKE"
cont "OF RAGE."
para "That should be"
line "good news for the"
cont "anglers there."
done
MahoganyTownFisherText:
text "Since you came"
line "this far, take the"
para "time to do some"
line "sightseeing."
para "You should head"
line "north and check"
para "out LAKE OF RAGE"
line "right now."
done
MahoganyTownLassText:
text "Visit Grandma's"
line "shop. She sells"
para "stuff that nobody"
line "else has."
done
MahoganyTownSignText:
text "MAHOGANY TOWN"
para "Welcome to the"
line "Home of the Ninja"
done
MahoganyTownRagecandybarSignText:
text "While visiting"
line "MAHOGANY TOWN, try"
cont "a RAGECANDYBAR!"
done
MahoganyGymSignText:
text "MAHOGANY TOWN"
line "#MON GYM"
cont "LEADER: PRYCE"
para "The Teacher of"
line "Winter's Harshness"
done
MahoganyTown_MapEvents:
db 0, 0 ; filler
db 5 ; warp events
warp_event 11, 7, MAHOGANY_MART_1F, 1
warp_event 17, 7, MAHOGANY_RED_GYARADOS_SPEECH_HOUSE, 1
warp_event 6, 13, MAHOGANY_GYM, 1
warp_event 15, 13, MAHOGANY_POKECENTER_1F, 1
warp_event 9, 1, ROUTE_43_MAHOGANY_GATE, 3
db 2 ; coord events
coord_event 19, 8, SCENE_DEFAULT, UnknownScript_0x190013
coord_event 19, 9, SCENE_DEFAULT, UnknownScript_0x190013
db 4 ; bg events
bg_event 1, 5, BGEVENT_READ, MahoganyTownSign
bg_event 9, 7, BGEVENT_READ, MahoganyTownRagecandybarSign
bg_event 3, 13, BGEVENT_READ, MahoganyGymSign
bg_event 16, 13, BGEVENT_READ, MahoganyTownPokecenterSign
db 4 ; object events
object_event 19, 8, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, PokefanMScript_0x19002e, EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST
object_event 6, 9, SPRITE_GRAMPS, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GrampsScript_0x19007e, -1
object_event 6, 14, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, MahoganyTownFisherScript, EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_GYM
object_event 12, 8, SPRITE_LASS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahoganyTownLassScript, EVENT_MAHOGANY_MART_OWNERS