mirror of https://github.com/pret/pokecrystal.git
148 lines
2.8 KiB
NASM
148 lines
2.8 KiB
NASM
object_const_def ; object_event constants
|
|
const KARENSROOM_KAREN
|
|
|
|
KarensRoom_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .LockDoor ; SCENE_DEFAULT
|
|
scene_script .DummyScene ; SCENE_FINISHED
|
|
|
|
db 1 ; callbacks
|
|
callback MAPCALLBACK_TILES, .KarensRoomDoors
|
|
|
|
.LockDoor:
|
|
prioritysjump .KarensDoorLocksBehindYou
|
|
end
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
.KarensRoomDoors:
|
|
checkevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
|
|
iffalse .KeepEntranceOpen
|
|
changeblock 4, 14, $2a ; wall
|
|
.KeepEntranceOpen:
|
|
checkevent EVENT_KARENS_ROOM_EXIT_OPEN
|
|
iffalse .KeepExitClosed
|
|
changeblock 4, 2, $16 ; open door
|
|
.KeepExitClosed:
|
|
return
|
|
|
|
.KarensDoorLocksBehindYou:
|
|
applymovement PLAYER, KarensRoom_EnterMovement
|
|
refreshscreen $86
|
|
playsound SFX_STRENGTH
|
|
earthquake 80
|
|
changeblock 4, 14, $2a ; wall
|
|
reloadmappart
|
|
closetext
|
|
setscene SCENE_FINISHED
|
|
setevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
|
|
waitsfx
|
|
end
|
|
|
|
KarenScript_Battle:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_ELITE_4_KAREN
|
|
iftrue KarenScript_AfterBattle
|
|
writetext KarenScript_KarenBeforeText
|
|
waitbutton
|
|
closetext
|
|
winlosstext KarenScript_KarenBeatenText, 0
|
|
loadtrainer KAREN, KAREN1
|
|
startbattle
|
|
reloadmapafterbattle
|
|
setevent EVENT_BEAT_ELITE_4_KAREN
|
|
opentext
|
|
writetext KarenScript_KarenDefeatText
|
|
waitbutton
|
|
closetext
|
|
playsound SFX_ENTER_DOOR
|
|
changeblock 4, 2, $16 ; open door
|
|
reloadmappart
|
|
closetext
|
|
setevent EVENT_KARENS_ROOM_EXIT_OPEN
|
|
waitsfx
|
|
end
|
|
|
|
KarenScript_AfterBattle:
|
|
writetext KarenScript_KarenDefeatText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
KarensRoom_EnterMovement:
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step_end
|
|
|
|
KarenScript_KarenBeforeText:
|
|
text "I am KAREN of the"
|
|
line "ELITE FOUR."
|
|
|
|
para "You're <PLAYER>?"
|
|
line "How amusing."
|
|
|
|
para "I love dark-type"
|
|
line "#MON."
|
|
|
|
para "I find their wild,"
|
|
line "tough image to be"
|
|
|
|
para "so appealing. And"
|
|
line "they're so strong."
|
|
|
|
para "Think you can take"
|
|
line "them? Just try to"
|
|
cont "entertain me."
|
|
|
|
para "Let's go."
|
|
done
|
|
|
|
KarenScript_KarenBeatenText:
|
|
text "Well, aren't you"
|
|
line "good. I like that"
|
|
cont "in a trainer."
|
|
done
|
|
|
|
KarenScript_KarenDefeatText:
|
|
text "Strong #MON."
|
|
|
|
para "Weak #MON."
|
|
|
|
para "That is only the"
|
|
line "selfish perception"
|
|
cont "of people."
|
|
|
|
para "Truly skilled"
|
|
line "trainers should"
|
|
|
|
para "try to win with"
|
|
line "their favorites."
|
|
|
|
para "I like your style."
|
|
line "You understand"
|
|
cont "what's important."
|
|
|
|
para "Go on--the CHAM-"
|
|
line "PION is waiting."
|
|
done
|
|
|
|
KarensRoom_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 4 ; warp events
|
|
warp_event 4, 17, BRUNOS_ROOM, 3
|
|
warp_event 5, 17, BRUNOS_ROOM, 4
|
|
warp_event 4, 2, LANCES_ROOM, 1
|
|
warp_event 5, 2, LANCES_ROOM, 2
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 5, 7, SPRITE_KAREN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, KarenScript_Battle, -1
|