mirror of https://github.com/pret/pokecrystal.git
140 lines
2.6 KiB
NASM
140 lines
2.6 KiB
NASM
object_const_def ; object_event constants
|
|
const BRUNOSROOM_BRUNO
|
|
|
|
BrunosRoom_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .LockDoor ; SCENE_DEFAULT
|
|
scene_script .DummyScene ; SCENE_FINISHED
|
|
|
|
db 1 ; callbacks
|
|
callback MAPCALLBACK_TILES, .BrunosRoomDoors
|
|
|
|
.LockDoor:
|
|
prioritysjump .BrunosDoorLocksBehindYou
|
|
end
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
.BrunosRoomDoors:
|
|
checkevent EVENT_BRUNOS_ROOM_ENTRANCE_CLOSED
|
|
iffalse .KeepEntranceOpen
|
|
changeblock 4, 14, $2a ; wall
|
|
.KeepEntranceOpen:
|
|
checkevent EVENT_BRUNOS_ROOM_EXIT_OPEN
|
|
iffalse .KeepExitClosed
|
|
changeblock 4, 2, $16 ; open door
|
|
.KeepExitClosed:
|
|
return
|
|
|
|
.BrunosDoorLocksBehindYou:
|
|
applymovement PLAYER, BrunosRoom_EnterMovement
|
|
refreshscreen $86
|
|
playsound SFX_STRENGTH
|
|
earthquake 80
|
|
changeblock 4, 14, $2a ; wall
|
|
reloadmappart
|
|
closetext
|
|
setscene SCENE_FINISHED
|
|
setevent EVENT_BRUNOS_ROOM_ENTRANCE_CLOSED
|
|
waitsfx
|
|
end
|
|
|
|
BrunoScript_Battle:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_ELITE_4_BRUNO
|
|
iftrue BrunoScript_AfterBattle
|
|
writetext BrunoScript_BrunoBeforeText
|
|
waitbutton
|
|
closetext
|
|
winlosstext BrunoScript_BrunoBeatenText, 0
|
|
loadtrainer BRUNO, BRUNO1
|
|
startbattle
|
|
reloadmapafterbattle
|
|
setevent EVENT_BEAT_ELITE_4_BRUNO
|
|
opentext
|
|
writetext BrunoScript_BrunoDefeatText
|
|
waitbutton
|
|
closetext
|
|
playsound SFX_ENTER_DOOR
|
|
changeblock 4, 2, $16 ; open door
|
|
reloadmappart
|
|
closetext
|
|
setevent EVENT_BRUNOS_ROOM_EXIT_OPEN
|
|
waitsfx
|
|
end
|
|
|
|
BrunoScript_AfterBattle:
|
|
writetext BrunoScript_BrunoDefeatText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
BrunosRoom_EnterMovement:
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step_end
|
|
|
|
BrunoScript_BrunoBeforeText:
|
|
text "I am BRUNO of the"
|
|
line "ELITE FOUR."
|
|
|
|
para "I always train to"
|
|
line "the extreme be-"
|
|
cont "cause I believe in"
|
|
cont "our potential."
|
|
|
|
para "That is how we"
|
|
line "became strong."
|
|
|
|
para "Can you withstand"
|
|
line "our power?"
|
|
|
|
para "Hm? I see no fear"
|
|
line "in you. You look"
|
|
|
|
para "determined. Per-"
|
|
line "fect for battle!"
|
|
|
|
para "Ready, <PLAYER>?"
|
|
line "You will bow down"
|
|
|
|
para "to our overwhelm-"
|
|
line "ing power!"
|
|
|
|
para "Hoo hah!"
|
|
done
|
|
|
|
BrunoScript_BrunoBeatenText:
|
|
text "Why? How could we"
|
|
line "lose?"
|
|
done
|
|
|
|
BrunoScript_BrunoDefeatText:
|
|
text "Having lost, I"
|
|
line "have no right to"
|
|
cont "say anything…"
|
|
|
|
para "Go face your next"
|
|
line "challenge!"
|
|
done
|
|
|
|
BrunosRoom_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 4 ; warp events
|
|
warp_event 4, 17, KOGAS_ROOM, 3
|
|
warp_event 5, 17, KOGAS_ROOM, 4
|
|
warp_event 4, 2, KARENS_ROOM, 1
|
|
warp_event 5, 2, KARENS_ROOM, 2
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 5, 7, SPRITE_BRUNO, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, BrunoScript_Battle, -1
|