1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
const_def 2 ; object 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
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
checkver
iftrue .Silver
writecode VAR_BATTLETYPE, BATTLETYPE_FORCEITEM
loadwildmon LUGIA, 70
startbattle
disappear WHIRLISLANDLUGIACHAMBER_LUGIA
reloadmapafterbattle
end
.Silver:
writecode VAR_BATTLETYPE, BATTLETYPE_FORCEITEM
loadwildmon LUGIA, 40
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
|
