pokecrystal/maps/KogasRoom.asm

145 lines
2.7 KiB
NASM

object_const_def
const KOGASROOM_KOGA
KogasRoom_MapScripts:
def_scene_scripts
scene_script KogasRoomLockDoorScene, SCENE_KOGASROOM_LOCK_DOOR
scene_script KogasRoomNoopScene, SCENE_KOGASROOM_NOOP
def_callbacks
callback MAPCALLBACK_TILES, KogasRoomDoorsCallback
KogasRoomLockDoorScene:
sdefer KogasRoomDoorLocksBehindYouScript
end
KogasRoomNoopScene:
end
KogasRoomDoorsCallback:
checkevent EVENT_KOGAS_ROOM_ENTRANCE_CLOSED
iffalse .KeepEntranceOpen
changeblock 4, 14, $2a ; wall
.KeepEntranceOpen:
checkevent EVENT_KOGAS_ROOM_EXIT_OPEN
iffalse .KeepExitClosed
changeblock 4, 2, $16 ; open door
.KeepExitClosed:
endcallback
KogasRoomDoorLocksBehindYouScript:
applymovement PLAYER, KogasRoom_EnterMovement
refreshscreen $86
playsound SFX_STRENGTH
earthquake 80
changeblock 4, 14, $2a ; wall
reloadmappart
closetext
setscene SCENE_KOGASROOM_NOOP
setevent EVENT_KOGAS_ROOM_ENTRANCE_CLOSED
waitsfx
end
KogaScript_Battle:
faceplayer
opentext
checkevent EVENT_BEAT_ELITE_4_KOGA
iftrue KogaScript_AfterBattle
writetext KogaScript_KogaBeforeText
waitbutton
closetext
winlosstext KogaScript_KogaBeatenText, 0
loadtrainer KOGA, KOGA1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_ELITE_4_KOGA
opentext
writetext KogaScript_KogaDefeatText
waitbutton
closetext
playsound SFX_ENTER_DOOR
changeblock 4, 2, $16 ; open door
reloadmappart
closetext
setevent EVENT_KOGAS_ROOM_EXIT_OPEN
waitsfx
end
KogaScript_AfterBattle:
writetext KogaScript_KogaDefeatText
waitbutton
closetext
end
KogasRoom_EnterMovement:
step UP
step UP
step UP
step UP
step_end
KogaScript_KogaBeforeText:
text "Fwahahahaha!"
para "I am KOGA of the"
line "ELITE FOUR."
para "I live in shadows,"
line "a ninja!"
para "My intricate style"
line "will confound and"
cont "destroy you!"
para "Confusion, sleep,"
line "poison…"
para "Prepare to be the"
line "victim of my sin-"
cont "ister technique!"
para "Fwahahahaha!"
para "#MON is not"
line "merely about brute"
para "force--you shall"
line "see soon enough!"
done
KogaScript_KogaBeatenText:
text "Ah!"
line "You have proven"
cont "your worth!"
done
KogaScript_KogaDefeatText:
text "I subjected you to"
line "everything I could"
cont "muster."
para "But my efforts"
line "failed. I must"
cont "hone my skills."
para "Go on to the next"
line "room, and put your"
cont "abilities to test!"
done
KogasRoom_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 4, 17, WILLS_ROOM, 2
warp_event 5, 17, WILLS_ROOM, 3
warp_event 4, 2, BRUNOS_ROOM, 1
warp_event 5, 2, BRUNOS_ROOM, 2
def_coord_events
def_bg_events
def_object_events
object_event 5, 7, SPRITE_KOGA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, KogaScript_Battle, -1