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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
object_const_def
const VICTORYROADGATE_OFFICER
const VICTORYROADGATE_BLACK_BELT1
const VICTORYROADGATE_BLACK_BELT2
VictoryRoadGate_MapScripts:
def_scene_scripts
scene_script .DummyScene0 ; SCENE_DEFAULT
scene_script .DummyScene1 ; SCENE_FINISHED
def_callbacks
.DummyScene0:
end
.DummyScene1:
end
VictoryRoadGateBadgeCheckScene:
turnobject PLAYER, LEFT
sjump VictoryRoadGateBadgeCheckScript
VictoryRoadGateOfficerScript:
faceplayer
VictoryRoadGateBadgeCheckScript:
opentext
writetext VictoryRoadGateOfficerText
promptbutton
readvar VAR_BADGES
ifgreater NUM_JOHTO_BADGES - 1, .AllEightBadges
writetext VictoryRoadGateNotEnoughBadgesText
waitbutton
closetext
applymovement PLAYER, VictoryRoadGateStepDownMovement
end
.AllEightBadges:
writetext VictoryRoadGateEightBadgesText
waitbutton
closetext
setscene SCENE_FINISHED
end
VictoryRoadGateLeftBlackBeltScript:
jumptextfaceplayer VictoryRoadGateLeftBlackBeltText
VictoryRoadGateRightBlackBeltScript:
jumptextfaceplayer VictoryRoadGateRightBlackBeltText
VictoryRoadGateStepDownMovement:
step DOWN
step_end
VictoryRoadGateOfficerText:
text "Only trainers who"
line "have proven them-"
cont "selves may pass."
done
VictoryRoadGateNotEnoughBadgesText:
text "You don't have all"
line "the GYM BADGES of"
cont "JOHTO."
para "I'm sorry, but I"
line "can't let you go"
cont "through."
done
VictoryRoadGateEightBadgesText:
text "Oh! The eight"
line "BADGES of JOHTO!"
para "Please, go right"
line "on through!"
done
VictoryRoadGateLeftBlackBeltText:
text "This way leads to"
line "MT.SILVER."
para "You'll see scary-"
line "strong #MON out"
cont "there."
done
VictoryRoadGateRightBlackBeltText:
text "Off to the #MON"
line "LEAGUE, are you?"
para "The ELITE FOUR are"
line "so strong it's"
para "scary, and they're"
line "ready for you!"
done
VictoryRoadGate_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 17, 7, ROUTE_22, 1
warp_event 18, 7, ROUTE_22, 1
warp_event 9, 17, ROUTE_26, 1
warp_event 10, 17, ROUTE_26, 1
warp_event 9, 0, VICTORY_ROAD, 1
warp_event 10, 0, VICTORY_ROAD, 1
warp_event 1, 7, ROUTE_28, 2
warp_event 2, 7, ROUTE_28, 2
def_coord_events
coord_event 10, 11, SCENE_DEFAULT, VictoryRoadGateBadgeCheckScene
def_bg_events
def_object_events
object_event 8, 11, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VictoryRoadGateOfficerScript, -1
object_event 7, 5, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VictoryRoadGateLeftBlackBeltScript, EVENT_OPENED_MT_SILVER
object_event 12, 5, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VictoryRoadGateRightBlackBeltScript, EVENT_FOUGHT_SNORLAX
|
