mirror of https://github.com/pret/pokecrystal.git
56 lines
1.0 KiB
NASM
56 lines
1.0 KiB
NASM
object_const_def ; object_event constants
|
|
const WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
|
|
WhirlIslandLugiaChamber_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 1 ; callbacks
|
|
callback MAPCALLBACK_OBJECTS, .Lugia
|
|
|
|
.Lugia:
|
|
checkevent EVENT_FOUGHT_LUGIA
|
|
iftrue .NoAppear
|
|
checkitem SILVER_WING
|
|
iftrue .Appear
|
|
sjump .NoAppear
|
|
|
|
.Appear:
|
|
appear WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
endcallback
|
|
|
|
.NoAppear:
|
|
disappear WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
endcallback
|
|
|
|
Lugia:
|
|
faceplayer
|
|
opentext
|
|
writetext LugiaText
|
|
cry LUGIA
|
|
pause 15
|
|
closetext
|
|
setevent EVENT_FOUGHT_LUGIA
|
|
loadvar VAR_BATTLETYPE, BATTLETYPE_FORCEITEM
|
|
loadwildmon LUGIA, 60
|
|
startbattle
|
|
disappear WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
reloadmapafterbattle
|
|
end
|
|
|
|
LugiaText:
|
|
text "Gyaaas!"
|
|
done
|
|
|
|
WhirlIslandLugiaChamber_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 1 ; warp events
|
|
warp_event 9, 13, WHIRL_ISLAND_B2F, 3
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 9, 5, SPRITE_LUGIA, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, Lugia, EVENT_WHIRL_ISLAND_LUGIA_CHAMBER_LUGIA
|