mirror of https://github.com/pret/pokecrystal.git
56 lines
1.1 KiB
NASM
56 lines
1.1 KiB
NASM
object_const_def
|
|
const WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
|
|
WhirlIslandLugiaChamber_MapScripts:
|
|
def_scene_scripts
|
|
|
|
def_callbacks
|
|
callback MAPCALLBACK_OBJECTS, WhirlIslandLugiaChamberLugiaCallback
|
|
|
|
WhirlIslandLugiaChamberLugiaCallback:
|
|
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
|
|
|
|
def_warp_events
|
|
warp_event 9, 13, WHIRL_ISLAND_B2F, 3
|
|
|
|
def_coord_events
|
|
|
|
def_bg_events
|
|
|
|
def_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
|