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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
object_const_def ; object_event constants
const RUINSOFALPHKABUTOCHAMBER_RECEPTIONIST
RuinsOfAlphKabutoChamber_MapScripts:
db 0 ; scene scripts
db 1 ; callbacks
callback MAPCALLBACK_TILES, RuinsOfAlphKabutoChamberHiddenDoors
RuinsOfAlphKabutoChamberReceptionistScript:
jumptextfaceplayer RuinsOfAlphKabutoChamberReceptionistText
RuinsOfAlphKabutoChamberHiddenDoors:
checkevent EVENT_SOLVED_KABUTO_PUZZLE
iffalse .FloorClosed
endcallback
.FloorClosed:
changeblock 2, 2, $01 ; left floor
changeblock 4, 2, $02 ; right floor
endcallback
RuinsOfAlphKabutoChamberPuzzle:
refreshscreen
setval UNOWNPUZZLE_KABUTO
special UnownPuzzle
closetext
iftrue .PuzzleComplete
end
.PuzzleComplete:
setevent EVENT_RUINS_OF_ALPH_INNER_CHAMBER_TOURISTS
setevent EVENT_SOLVED_KABUTO_PUZZLE
setflag ENGINE_UNLOCKED_UNOWNS_A_TO_K
setevent EVENT_RUINS_OF_ALPH_KABUTO_CHAMBER_RECEPTIONIST
setmapscene RUINS_OF_ALPH_INNER_CHAMBER, SCENE_RUINSOFALPHINNERCHAMBER_STRANGE_PRESENCE
earthquake 30
showemote EMOTE_SHOCK, PLAYER, 15
changeblock 2, 2, $18 ; left hole
changeblock 4, 2, $19 ; right hole
reloadmappart
playsound SFX_STRENGTH
earthquake 80
warpcheck
end
RuinsOfAlphKabutoChamberAncientReplica:
jumptext RuinsOfAlphKabutoChamberAncientReplicaText
RuinsOfAlphKabutoChamberDescriptionSign:
jumptext RuinsOfAlphKabutoChamberDescriptionText
RuinsOfAlphKabutoChamberReceptionistText:
text "Welcome to this"
line "chamber."
para "There are sliding"
line "panels that depict"
para "a #MON drawn by"
line "the ancients."
para "Slide the panels"
line "around to form the"
cont "picture."
para "To the right is a"
line "description of the"
cont "#MON."
done
RuinsOfAlphKabutoChamberAncientReplicaText:
text "It's a replica of"
line "an ancient #-"
cont "MON."
done
RuinsOfAlphKabutoChamberDescriptionText:
text "A #MON that hid"
line "on the sea floor."
para "Eyes on its back"
line "scanned the area."
done
RuinsOfAlphKabutoChamber_MapEvents:
db 0, 0 ; filler
db 4 ; warp events
warp_event 3, 9, RUINS_OF_ALPH_OUTSIDE, 2
warp_event 4, 9, RUINS_OF_ALPH_OUTSIDE, 2
warp_event 3, 3, RUINS_OF_ALPH_INNER_CHAMBER, 4
warp_event 4, 3, RUINS_OF_ALPH_INNER_CHAMBER, 5
db 0 ; coord events
db 4 ; bg events
bg_event 2, 3, BGEVENT_READ, RuinsOfAlphKabutoChamberAncientReplica
bg_event 5, 3, BGEVENT_READ, RuinsOfAlphKabutoChamberAncientReplica
bg_event 3, 2, BGEVENT_UP, RuinsOfAlphKabutoChamberPuzzle
bg_event 4, 2, BGEVENT_UP, RuinsOfAlphKabutoChamberDescriptionSign
db 1 ; object events
object_event 5, 5, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphKabutoChamberReceptionistScript, EVENT_RUINS_OF_ALPH_KABUTO_CHAMBER_RECEPTIONIST
|
