pokecrystal-board/maps/PowerPlant.asm

411 lines
8.1 KiB
NASM

object_const_def ; object_event constants
const POWERPLANT_OFFICER1
const POWERPLANT_GYM_GUY1
const POWERPLANT_GYM_GUY2
const POWERPLANT_OFFICER2
const POWERPLANT_GYM_GUY3
const POWERPLANT_FISHER
const POWERPLANT_FOREST
PowerPlant_MapScripts:
db 2 ; scene scripts
scene_script .DummyScene0 ; SCENE_POWERPLANT_NOTHING
scene_script .DummyScene1 ; SCENE_POWERPLANT_GUARD_GETS_PHONE_CALL
db 0 ; callbacks
.DummyScene0:
end
.DummyScene1:
end
PowerPlantGuardPhoneScript:
playsound SFX_CALL
showemote EMOTE_SHOCK, POWERPLANT_OFFICER1, 15
waitsfx
pause 30
applymovement POWERPLANT_OFFICER1, MovementData_0x188ed5
turnobject POWERPLANT_GYM_GUY1, DOWN
turnobject POWERPLANT_GYM_GUY2, DOWN
opentext
writetext UnknownText_0x188f22
waitbutton
closetext
turnobject POWERPLANT_OFFICER1, LEFT
turnobject PLAYER, RIGHT
opentext
writetext UnknownText_0x188f7f
waitbutton
closetext
turnobject PLAYER, DOWN
applymovement POWERPLANT_OFFICER1, MovementData_0x188eda
setscene SCENE_POWERPLANT_NOTHING
end
PowerPlantOfficerScript:
faceplayer
opentext
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
checkevent EVENT_MET_MANAGER_AT_POWER_PLANT
iftrue .MetManager
writetext UnknownText_0x188ee0
waitbutton
closetext
end
.MetManager:
writetext UnknownText_0x188f7f
waitbutton
closetext
end
.ReturnedMachinePart:
writetext UnknownText_0x188fa2
waitbutton
closetext
end
PowerPlantGymGuy1Script:
faceplayer
opentext
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
writetext UnknownText_0x188fcf
waitbutton
closetext
end
.ReturnedMachinePart:
writetext UnknownText_0x189038
waitbutton
closetext
end
PowerPlantGymGuy2Script:
faceplayer
opentext
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
writetext UnknownText_0x189079
waitbutton
closetext
end
.ReturnedMachinePart:
writetext UnknownText_0x1890ef
waitbutton
closetext
end
PowerPlantGymGuy3Script:
faceplayer
opentext
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
writetext UnknownText_0x18910e
waitbutton
closetext
end
.ReturnedMachinePart:
writetext UnknownText_0x18917f
waitbutton
closetext
end
PowerPlantGymGuy4Script:
faceplayer
opentext
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
writetext UnknownText_0x1891c2
waitbutton
closetext
end
.ReturnedMachinePart:
writetext UnknownText_0x189225
waitbutton
closetext
end
PowerPlantManager:
faceplayer
opentext
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
checkitem MACHINE_PART
iftrue .FoundMachinePart
checkevent EVENT_MET_MANAGER_AT_POWER_PLANT
iftrue .MetManager
writetext UnknownText_0x189264
waitbutton
closetext
setevent EVENT_MET_MANAGER_AT_POWER_PLANT
clearevent EVENT_CERULEAN_GYM_ROCKET
clearevent EVENT_FOUND_MACHINE_PART_IN_CERULEAN_GYM
setmapscene CERULEAN_GYM, SCENE_CERULEANGYM_GRUNT_RUNS_OUT
setscene SCENE_POWERPLANT_GUARD_GETS_PHONE_CALL
end
.MetManager:
writetext UnknownText_0x189308
waitbutton
closetext
end
.FoundMachinePart:
writetext UnknownText_0x18936e
buttonsound
takeitem MACHINE_PART
setevent EVENT_RETURNED_MACHINE_PART
clearevent EVENT_SAFFRON_TRAIN_STATION_POPULATION
setevent EVENT_ROUTE_5_6_POKEFAN_M_BLOCKS_UNDERGROUND_PATH
setevent EVENT_ROUTE_24_ROCKET
setevent EVENT_RESTORED_POWER_TO_KANTO
clearevent EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN
.ReturnedMachinePart:
checkevent EVENT_GOT_TM07_ZAP_CANNON
iftrue .GotZapCannon
writetext UnknownText_0x1893c4
buttonsound
verbosegiveitem TM_ZAP_CANNON
iffalse .NoRoom
setevent EVENT_GOT_TM07_ZAP_CANNON
writetext UnknownText_0x1893f4
waitbutton
.NoRoom:
closetext
end
.GotZapCannon:
writetext UnknownText_0x189475
waitbutton
closetext
end
Forest:
faceplayer
opentext
trade NPC_TRADE_FOREST
waitbutton
closetext
end
PowerPlantBookshelf:
jumpstd difficultbookshelf
MovementData_0x188ed5:
step RIGHT
step RIGHT
step UP
step UP
step_end
MovementData_0x188eda:
step DOWN
step DOWN
step LEFT
step LEFT
turn_head DOWN
step_end
UnknownText_0x188ee0:
text "A thief broke into"
line "the POWER PLANT…"
para "What is the world"
line "coming to?"
done
UnknownText_0x188f22:
text "I just got word"
line "from CERULEAN."
para "It appears that a"
line "shady character"
para "has been loitering"
line "around."
done
UnknownText_0x188f7f:
text "Could I ask for"
line "your cooperation?"
done
UnknownText_0x188fa2:
text "We'll have to beef"
line "up our security"
cont "presence."
done
UnknownText_0x188fcf:
text "Someone made off"
line "with a part that's"
para "essential for the"
line "generator."
para "Without it, the"
line "new generator's"
cont "useless!"
done
UnknownText_0x189038:
text "The generator's up"
line "and running. It's"
para "making electricity"
line "to spare."
done
UnknownText_0x189079:
text "This POWER PLANT"
line "had been abandoned"
cont "in the past."
para "We got it back up"
line "and running to"
para "provide power to"
line "the MAGNET TRAIN."
done
UnknownText_0x1890ef:
text "The generator's"
line "running again!"
done
UnknownText_0x18910e:
text "The POWER PLANT's"
line "MANAGER is up"
cont "ahead."
para "But since someone"
line "wrecked the gener-"
cont "ator, he's been"
cont "both sad and"
cont "furious…"
done
UnknownText_0x18917f:
text "Since the gener-"
line "ator's been fixed,"
para "the MANAGER has"
line "been cheerful."
done
UnknownText_0x1891c2:
text "The MAGNET TRAIN"
line "consumes a lot of"
cont "electricity."
para "It can't move if"
line "the new generator"
cont "isn't operating."
done
UnknownText_0x189225:
text "All right! We can"
line "finally get the"
para "MAGNET TRAIN"
line "running again."
done
UnknownText_0x189264:
text "MANAGER: I, I, I'm"
line "ready to blast"
cont "someone!"
para "Who would dare"
line "ruin my generator?"
para "I spent so much"
line "time on it!"
para "If I catch him,"
line "he's going to get"
para "a taste of my ZAP"
line "CANNON!"
done
UnknownText_0x189308:
text "MANAGER: I won't"
line "forgive him!"
para "The culprit can"
line "cry and apologize,"
para "but I'll still"
line "hammer him!"
para "Gahahahah!"
done
UnknownText_0x18936e:
text "MANAGER: Ah! Yeah!"
para "That's the missing"
line "PART from my be-"
cont "loved generator!"
cont "You found it?"
done
UnknownText_0x1893c4:
text "Wahah! Thanks!"
para "Here! Take this TM"
line "as a reward!"
done
UnknownText_0x1893f4:
text "MANAGER: TM07 is"
line "my ZAP CANNON."
para "It's a powerful"
line "technique!"
para "It's not what any-"
line "one would consider"
para "accurate, but it"
line "packs a wallop!"
done
UnknownText_0x189475:
text "MANAGER: My be-"
line "loved generator!"
para "Keep pumping the"
line "electricity out!"
done
PowerPlant_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 2, 17, ROUTE_10_NORTH, 2
warp_event 3, 17, ROUTE_10_NORTH, 2
db 1 ; coord events
coord_event 5, 12, SCENE_POWERPLANT_GUARD_GETS_PHONE_CALL, PowerPlantGuardPhoneScript
db 2 ; bg events
bg_event 0, 1, BGEVENT_READ, PowerPlantBookshelf
bg_event 1, 1, BGEVENT_READ, PowerPlantBookshelf
db 7 ; object events
object_event 4, 14, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, PowerPlantOfficerScript, -1
object_event 2, 9, SPRITE_GYM_GUY, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, PowerPlantGymGuy1Script, -1
object_event 6, 11, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, PowerPlantGymGuy2Script, -1
object_event 9, 3, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, PowerPlantGymGuy3Script, -1
object_event 7, 2, SPRITE_GYM_GUY, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, PowerPlantGymGuy4Script, -1
object_event 14, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, PowerPlantManager, -1
object_event 5, 5, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, Forest, -1