pokecrystal/maps/KogasRoom.asm

154 lines
2.6 KiB
NASM

KogasRoom_MapScriptHeader:
.MapTriggers:
db 2
; triggers
dw UnknownScript_0x180728, $0000
dw UnknownScript_0x18072c, $0000
.MapCallbacks:
db 1
; callbacks
dbw 1, UnknownScript_0x18072d
UnknownScript_0x180728:
priorityjump UnknownScript_0x180742
end
UnknownScript_0x18072c:
end
UnknownScript_0x18072d:
checkevent EVENT_KOGAS_ROOM_ENTRANCE_CLOSED
iffalse UnknownScript_0x180737
changeblock $4, $e, $2a
UnknownScript_0x180737:
checkevent EVENT_KOGAS_ROOM_EXIT_OPEN
iffalse UnknownScript_0x180741
changeblock $4, $2, $16
UnknownScript_0x180741:
return
UnknownScript_0x180742:
applymovement PLAYER, MovementData_0x18078e
refreshscreen $86
playsound SFX_STRENGTH
earthquake 80
changeblock $4, $e, $2a
reloadmappart
loadmovesprites
dotrigger $1
setevent EVENT_KOGAS_ROOM_ENTRANCE_CLOSED
waitbutton
end
KogaScript_0x18075a:
faceplayer
loadfont
checkevent EVENT_BEAT_ELITE_4_KOGA
iftrue UnknownScript_0x180788
writetext UnknownText_0x180793
closetext
loadmovesprites
winlosstext UnknownText_0x1808a9, $0000
loadtrainer KOGA, 1
startbattle
returnafterbattle
setevent EVENT_BEAT_ELITE_4_KOGA
loadfont
writetext UnknownText_0x1808ca
closetext
loadmovesprites
playsound SFX_ENTER_DOOR
changeblock $4, $2, $16
reloadmappart
loadmovesprites
setevent EVENT_KOGAS_ROOM_EXIT_OPEN
waitbutton
end
UnknownScript_0x180788:
writetext UnknownText_0x1808ca
closetext
loadmovesprites
end
MovementData_0x18078e:
step_up
step_up
step_up
step_up
step_end
UnknownText_0x180793:
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
UnknownText_0x1808a9:
text "Ah!"
line "You have proven"
cont "your worth!"
done
UnknownText_0x1808ca:
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_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def $11, $4, 2, WILLS_ROOM
warp_def $11, $5, 3, WILLS_ROOM
warp_def $2, $4, 1, BRUNOS_ROOM
warp_def $2, $5, 2, BRUNOS_ROOM
.XYTriggers:
db 0
.Signposts:
db 0
.PersonEvents:
db 1
person_event SPRITE_KOGA, 11, 9, $6, 0, 0, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, KogaScript_0x18075a, -1