mirror of https://github.com/pret/pokecrystal.git
63 lines
1.0 KiB
NASM
63 lines
1.0 KiB
NASM
const_value set 2
|
|
const WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
|
|
WhirlIslandLugiaChamber_MapScripts:
|
|
.SceneScripts:
|
|
db 0
|
|
|
|
.MapCallbacks:
|
|
db 1
|
|
callback MAPCALLBACK_OBJECTS, .Lugia
|
|
|
|
.Lugia:
|
|
checkevent EVENT_FOUGHT_LUGIA
|
|
iftrue .NoAppear
|
|
checkitem SILVER_WING
|
|
iftrue .Appear
|
|
jump .NoAppear
|
|
|
|
.Appear:
|
|
appear WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
return
|
|
|
|
.NoAppear:
|
|
disappear WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
return
|
|
|
|
Lugia:
|
|
faceplayer
|
|
opentext
|
|
writetext LugiaText
|
|
cry LUGIA
|
|
pause 15
|
|
closetext
|
|
setevent EVENT_FOUGHT_LUGIA
|
|
writecode VAR_BATTLETYPE, BATTLETYPE_FORCEITEM
|
|
loadwildmon LUGIA, 60
|
|
startbattle
|
|
disappear WHIRLISLANDLUGIACHAMBER_LUGIA
|
|
reloadmapafterbattle
|
|
end
|
|
|
|
LugiaText:
|
|
text "Gyaaas!"
|
|
done
|
|
|
|
WhirlIslandLugiaChamber_MapEvents:
|
|
; filler
|
|
db 0, 0
|
|
|
|
.Warps:
|
|
db 1
|
|
warp_event 9, 13, 3, WHIRL_ISLAND_B2F
|
|
|
|
.CoordEvents:
|
|
db 0
|
|
|
|
.BGEvents:
|
|
db 0
|
|
|
|
.ObjectEvents:
|
|
db 1
|
|
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
|