pokecrystal-board/maps/BrunosRoom.asm
2020-07-24 09:57:16 -04:00

140 lines
2.6 KiB
NASM

object_const_def
const BRUNOSROOM_BRUNO
BrunosRoom_MapScripts:
def_scene_scripts
scene_script .LockDoor ; SCENE_DEFAULT
scene_script .DummyScene ; SCENE_FINISHED
def_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:
endcallback
.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
def_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
def_coord_events
def_bg_events
def_object_events
object_event 5, 7, SPRITE_BRUNO, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, BrunoScript_Battle, -1