pokecrystal-board/maps/WillsRoom.asm
Remy Oukaour c05b7f41dd Renaming: (fix #412)
- MapTriggers / maptrigger → SceneScripts / scene_script
- XYTriggers / xy_trigger → CoordEvents / coord_event
- Signposts / signpost → BGEvents / bg_event
- PersonEvents / person_event → ObjectEvents / object_event
2017-12-24 14:33:17 -05:00

150 lines
2.5 KiB
NASM

const_value set 2
const WILLSROOM_WILL
WillsRoom_MapScriptHeader:
.SceneScripts:
db 2
scene_script .LockDoor
scene_script .DummyScene
.MapCallbacks:
db 1
dbw MAPCALLBACK_TILES, .WillsRoomDoors
.LockDoor:
priorityjump .WillsDoorLocksBehindYou
end
.DummyScene:
end
.WillsRoomDoors:
checkevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED
iffalse .KeepDoorsClosed
changeblock $4, $e, $2a
.KeepDoorsClosed:
checkevent EVENT_WILLS_ROOM_EXIT_OPEN
iffalse .OpenDoors
changeblock $4, $2, $16
.OpenDoors:
return
.WillsDoorLocksBehindYou:
applymovement PLAYER, MovementData_0x18052c
refreshscreen $86
playsound SFX_STRENGTH
earthquake 80
changeblock $4, $e, $2a
reloadmappart
closetext
setscene $1
setevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED
waitsfx
end
WillScript_Battle:
faceplayer
opentext
checkevent EVENT_BEAT_ELITE_4_WILL
iftrue WillScript_0x180526
writetext WillScript_WillBeforeText
waitbutton
closetext
winlosstext WillScript_WillBeatenText, 0
loadtrainer WILL, 1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_ELITE_4_WILL
opentext
writetext WillScript_WillDefeatText
waitbutton
closetext
playsound SFX_ENTER_DOOR
changeblock $4, $2, $16
reloadmappart
closetext
setevent EVENT_WILLS_ROOM_EXIT_OPEN
waitsfx
end
WillScript_0x180526:
writetext WillScript_WillDefeatText
waitbutton
closetext
end
MovementData_0x18052c:
step UP
step UP
step UP
step UP
step_end
WillScript_WillBeforeText:
text "Welcome to #MON"
line "LEAGUE, <PLAYER>."
para "Allow me to intro-"
line "duce myself. I am"
cont "WILL."
para "I have trained all"
line "around the world,"
para "making my psychic"
line "#MON powerful."
para "And, at last, I've"
line "been accepted into"
cont "the ELITE FOUR."
para "I can only keep"
line "getting better!"
para "Losing is not an"
line "option!"
done
WillScript_WillBeatenText:
text "I… I can't…"
line "believe it…"
done
WillScript_WillDefeatText:
text "Even though I was"
line "defeated, I won't"
cont "change my course."
para "I will continue"
line "battling until I"
para "stand above all"
line "trainers!"
para "Now, <PLAYER>, move"
line "on and experience"
para "the true ferocity"
line "of the ELITE FOUR."
done
WillsRoom_MapEventHeader:
; filler
db 0, 0
.Warps:
db 3
warp_def $11, $5, 4, INDIGO_PLATEAU_POKECENTER_1F
warp_def $2, $4, 1, KOGAS_ROOM
warp_def $2, $5, 2, KOGAS_ROOM
.CoordEvents:
db 0
.BGEvents:
db 0
.ObjectEvents:
db 1
object_event SPRITE_WILL, 7, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, WillScript_Battle, -1