pokecrystal-board/maps/KogasRoom.asm

152 lines
2.6 KiB
NASM

const_value set 2
const KOGASROOM_KOGA
KogasRoom_MapScripts:
.SceneScripts:
db 2
scene_script .LockDoor
scene_script .DummyScene
.MapCallbacks:
db 1
callback MAPCALLBACK_TILES, .KogasRoomDoors
.LockDoor:
priorityjump .KogasDoorLocksBehindYou
end
.DummyScene:
end
.KogasRoomDoors:
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:
return
.KogasDoorLocksBehindYou:
applymovement PLAYER, KogasMovementData_0x18078e
refreshscreen $86
playsound SFX_STRENGTH
earthquake 80
changeblock 4, 14, $2a ; wall
reloadmappart
closetext
setscene 1
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
KogasMovementData_0x18078e:
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:
; filler
db 0, 0
.Warps:
db 4
warp_event 4, 17, 2, WILLS_ROOM
warp_event 5, 17, 3, WILLS_ROOM
warp_event 4, 2, 1, BRUNOS_ROOM
warp_event 5, 2, 2, BRUNOS_ROOM
.CoordEvents:
db 0
.BGEvents:
db 0
.ObjectEvents:
db 1
object_event 5, 7, SPRITE_KOGA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, KogaScript_Battle, -1