pokecrystal/maps/WhirlIslandLugiaChamber.asm

56 lines
1.0 KiB
NASM

object_const_def
const WHIRLISLANDLUGIACHAMBER_LUGIA
WhirlIslandLugiaChamber_MapScripts:
def_scene_scripts
def_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
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