pokecrystal/maps/KarensRoom.asm

155 lines
2.6 KiB
NASM

const_value set 2
const KARENSROOM_KAREN
KarensRoom_MapScriptHeader:
.MapTriggers:
db 2
maptrigger .LockDoor
maptrigger .DummyTrigger
.MapCallbacks:
db 1
dbw MAPCALLBACK_TILES, .KarensRoomDoors
.LockDoor:
priorityjump .KarensDoorLocksBehindYou
end
.DummyTrigger:
end
.KarensRoomDoors:
checkevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
iffalse .KeepDoorsClosed
changeblock $4, $e, $2a
.KeepDoorsClosed:
checkevent EVENT_KARENS_ROOM_EXIT_OPEN
iffalse .OpenDoors
changeblock $4, $2, $16
.OpenDoors:
return
.KarensDoorLocksBehindYou:
applymovement PLAYER, MovementData_0x180c22
refreshscreen $86
playsound SFX_STRENGTH
earthquake 80
changeblock $4, $e, $2a
reloadmappart
closetext
dotrigger $1
setevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
waitsfx
end
KarenScript_Battle:
faceplayer
opentext
checkevent EVENT_BEAT_ELITE_4_KAREN
iftrue UnknownScript_0x180c1c
writetext KarenScript_KarenBeforeText
waitbutton
closetext
winlosstext KarenScript_KarenBeatenText, 0
loadtrainer KAREN, 1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_ELITE_4_KAREN
opentext
writetext KarenScript_KarenDefeatText
waitbutton
closetext
playsound SFX_ENTER_DOOR
changeblock $4, $2, $16
reloadmappart
closetext
setevent EVENT_KARENS_ROOM_EXIT_OPEN
waitsfx
end
UnknownScript_0x180c1c:
writetext KarenScript_KarenDefeatText
waitbutton
closetext
end
MovementData_0x180c22:
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_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def $11, $4, 3, BRUNOS_ROOM
warp_def $11, $5, 4, BRUNOS_ROOM
warp_def $2, $4, 1, LANCES_ROOM
warp_def $2, $5, 2, LANCES_ROOM
.XYTriggers:
db 0
.Signposts:
db 0
.PersonEvents:
db 1
person_event SPRITE_KAREN, 7, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, KarenScript_Battle, -1