pokecrystal-board/maps/MahoganyMart1F.asm
2018-03-01 13:18:51 -05:00

239 lines
5.1 KiB
NASM

const_def 2 ; object constants
const MAHOGANYMART1F_PHARMACIST
const MAHOGANYMART1F_BLACK_BELT
const MAHOGANYMART1F_LANCE
const MAHOGANYMART1F_DRAGON
const MAHOGANYMART1F_GRANNY
MahoganyMart1F_MapScripts:
db 2 ; scene scripts
scene_script .DummyScene0 ; SCENE_MAHOGANYMART1F_NOTHING
scene_script .LanceUncoversStaircase ; SCENE_MAHOGANYMART1F_LANCE_UNCOVERS_STAIRS
db 1 ; callbacks
callback MAPCALLBACK_TILES, .MahoganyMart1FStaircase
.DummyScene0:
end
.LanceUncoversStaircase:
priorityjump MahoganyMart1FLanceUncoversStaircaseScript
end
.MahoganyMart1FStaircase:
checkevent EVENT_UNCOVERED_STAIRCASE_IN_MAHOGANY_MART
iftrue .ShowStairs
return
.ShowStairs:
changeblock 6, 2, $1e ; stairs
return
MahogayMart1FPharmacistScript:
faceplayer
opentext
checkevent EVENT_DECIDED_TO_HELP_LANCE
iftrue .LanceEntered
pokemart MARTTYPE_STANDARD, MART_MAHOGANY_1
closetext
end
.LanceEntered:
writetext MahogayMart1FPharmacistText_LanceEntered
waitbutton
closetext
end
MahogayMart1FBlackBeltScript:
faceplayer
opentext
checkevent EVENT_DECIDED_TO_HELP_LANCE
iftrue .LanceEntered
writetext MahogayMart1FBlackBeltText
waitbutton
closetext
end
.LanceEntered:
writetext MahogayMart1FBlackBeltText_LanceEntered
waitbutton
closetext
end
MahoganyMart1FLanceUncoversStaircaseScript:
pause 15
opentext
writetext UnknownText_0x6c52a
pause 15
closetext
playsound SFX_TACKLE
applymovement MAHOGANYMART1F_DRAGON, MovementData_0x6c3f6
applymovement MAHOGANYMART1F_BLACK_BELT, MovementData_0x6c3fb
pause 15
disappear MAHOGANYMART1F_DRAGON
pause 15
applymovement MAHOGANYMART1F_LANCE, MovementData_0x6c407
opentext
writetext UnknownText_0x6c549
waitbutton
closetext
follow MAHOGANYMART1F_LANCE, PLAYER
applymovement MAHOGANYMART1F_LANCE, MovementData_0x6c40a
applymovement MAHOGANYMART1F_PHARMACIST, MovementData_0x6c403
applymovement MAHOGANYMART1F_LANCE, MovementData_0x6c40e
stopfollow
opentext
writetext UnknownText_0x6c59e
waitbutton
showemote EMOTE_SHOCK, MAHOGANYMART1F_PHARMACIST, 10
playsound SFX_FAINT
changeblock 6, 2, $1e ; stairs
reloadmappart
closetext
setevent EVENT_UNCOVERED_STAIRCASE_IN_MAHOGANY_MART
turnobject MAHOGANYMART1F_LANCE, LEFT
opentext
writetext UnknownText_0x6c5ba
waitbutton
closetext
applymovement MAHOGANYMART1F_LANCE, MovementData_0x6c412
playsound SFX_EXIT_BUILDING
disappear MAHOGANYMART1F_LANCE
setscene SCENE_MAHOGANYMART1F_NOTHING
waitsfx
end
MahogayMart1FGrannyScript:
faceplayer
opentext
pokemart MARTTYPE_STANDARD, MART_MAHOGANY_2
closetext
end
MovementData_0x6c3f6:
fix_facing
big_step LEFT
big_step RIGHT
remove_fixed_facing
step_end
MovementData_0x6c3fb:
fix_facing
big_step LEFT
remove_fixed_facing
turn_head DOWN
turn_head LEFT
turn_head UP
turn_head RIGHT
step_end
MovementData_0x6c403:
fix_facing
big_step LEFT
remove_fixed_facing
step_end
MovementData_0x6c407:
slow_step LEFT
turn_head DOWN
step_end
MovementData_0x6c40a:
slow_step RIGHT
slow_step UP
slow_step UP
step_end
MovementData_0x6c40e:
slow_step UP
slow_step RIGHT
slow_step RIGHT
step_end
MovementData_0x6c412:
slow_step RIGHT
step_end
UnknownText_0x6c414:
text "Hello, kiddo!"
para "How would you like"
line "some RAGECANDYBAR?"
para "It's the thing to"
line "eat in MAHOGANY!"
done
MahogayMart1FPharmacistText_LanceEntered:
text "Arrgh… You found"
line "the secret stair-"
cont "way…"
done
MahogayMart1FBlackBeltText:
text "Heheh! The experi-"
line "ment worked like a"
cont "charm."
para "MAGIKARP are just"
line "worthless, but"
para "GYARADOS are big"
line "moneymakers."
done
MahogayMart1FBlackBeltText_LanceEntered:
text "Urrgh…"
para "That guy's dragon"
line "#MON are tough…"
done
UnknownText_0x6c52a:
text "LANCE: DRAGONITE,"
line "HYPER BEAM."
done
UnknownText_0x6c549:
text "What took you,"
line "<PLAY_G>?"
para "Just as I thought,"
line "that strange radio"
para "signal is coming"
line "from here."
done
UnknownText_0x6c59e:
text "The stairs are"
line "right here."
done
UnknownText_0x6c5ba:
text "LANCE: <PLAY_G>, we"
line "should split up to"
para "check this place."
line "I'll go first."
done
MahoganyMart1F_MapEvents:
db 0, 0 ; filler
db 3 ; warp events
warp_event 3, 7, MAHOGANY_TOWN, 1
warp_event 4, 7, MAHOGANY_TOWN, 1
warp_event 7, 3, TEAM_ROCKET_BASE_B1F, 1
db 0 ; coord events
db 0 ; bg events
db 5 ; object events
object_event 4, 3, SPRITE_PHARMACIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahogayMart1FPharmacistScript, EVENT_TEAM_ROCKET_BASE_POPULATION
object_event 1, 6, SPRITE_BLACK_BELT, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahogayMart1FBlackBeltScript, EVENT_TEAM_ROCKET_BASE_POPULATION
object_event 4, 6, SPRITE_LANCE, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE
object_event 3, 6, SPRITE_DRAGON, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE
object_event 1, 3, SPRITE_GRANNY, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahogayMart1FGrannyScript, EVENT_MAHOGANY_MART_OWNERS