mirror of https://github.com/pret/pokecrystal.git
143 lines
2.7 KiB
NASM
143 lines
2.7 KiB
NASM
const_def 2 ; object constants
|
|
const WILLSROOM_WILL
|
|
|
|
WillsRoom_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .LockDoor ; SCENE_DEFAULT
|
|
scene_script .DummyScene ; SCENE_FINISHED
|
|
|
|
db 1 ; callbacks
|
|
callback MAPCALLBACK_TILES, .WillsRoomDoors
|
|
|
|
.LockDoor:
|
|
priorityjump .WillsDoorLocksBehindYou
|
|
end
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
.WillsRoomDoors:
|
|
checkevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED
|
|
iffalse .KeepEntranceOpen
|
|
changeblock 4, 14, $2a ; wall
|
|
.KeepEntranceOpen:
|
|
checkevent EVENT_WILLS_ROOM_EXIT_OPEN
|
|
iffalse .KeepExitClosed
|
|
changeblock 4, 2, $16 ; open door
|
|
.KeepExitClosed:
|
|
return
|
|
|
|
.WillsDoorLocksBehindYou:
|
|
applymovement PLAYER, WillsRoom_EnterMovement
|
|
refreshscreen $86
|
|
playsound SFX_STRENGTH
|
|
earthquake 80
|
|
changeblock 4, 14, $2a ; wall
|
|
reloadmappart
|
|
closetext
|
|
setscene SCENE_FINISHED
|
|
setevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED
|
|
waitsfx
|
|
end
|
|
|
|
WillScript_Battle:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_ELITE_4_WILL
|
|
iftrue WillScript_AfterBattle
|
|
writetext WillScript_WillBeforeText
|
|
waitbutton
|
|
closetext
|
|
winlosstext WillScript_WillBeatenText, 0
|
|
loadtrainer WILL, WILL1
|
|
startbattle
|
|
reloadmapafterbattle
|
|
setevent EVENT_BEAT_ELITE_4_WILL
|
|
opentext
|
|
writetext WillScript_WillDefeatText
|
|
waitbutton
|
|
closetext
|
|
playsound SFX_ENTER_DOOR
|
|
changeblock 4, 2, $16 ; open door
|
|
reloadmappart
|
|
closetext
|
|
setevent EVENT_WILLS_ROOM_EXIT_OPEN
|
|
waitsfx
|
|
end
|
|
|
|
WillScript_AfterBattle:
|
|
writetext WillScript_WillDefeatText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
WillsRoom_EnterMovement:
|
|
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_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 3 ; warp events
|
|
warp_event 5, 17, INDIGO_PLATEAU_POKECENTER_1F, 4
|
|
warp_event 4, 2, KOGAS_ROOM, 1
|
|
warp_event 5, 2, KOGAS_ROOM, 2
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 5, 7, SPRITE_WILL, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, WillScript_Battle, -1
|