mirror of https://github.com/pret/pokecrystal.git
145 lines
2.7 KiB
NASM
145 lines
2.7 KiB
NASM
const_def 2 ; object constants
|
|
const KOGASROOM_KOGA
|
|
|
|
KogasRoom_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .LockDoor ; SCENE_DEFAULT
|
|
scene_script .DummyScene ; SCENE_FINISHED
|
|
|
|
db 1 ; callbacks
|
|
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, KogasRoom_EnterMovement
|
|
refreshscreen $86
|
|
playsound SFX_STRENGTH
|
|
earthquake 80
|
|
changeblock 4, 14, $2a ; wall
|
|
reloadmappart
|
|
closetext
|
|
setscene SCENE_FINISHED
|
|
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
|
|
|
|
db 4 ; 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
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 5, 7, SPRITE_KOGA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, KogaScript_Battle, -1
|