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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
object_const_def
const GOLDENRODHAPPINESSRATER_TEACHER
const GOLDENRODHAPPINESSRATER_POKEFAN_M
const GOLDENRODHAPPINESSRATER_TWIN
GoldenrodHappinessRater_MapScripts:
def_scene_scripts
def_callbacks
GoldenrodHappinessRaterTeacherScript:
faceplayer
opentext
special GetFirstPokemonHappiness
writetext GoldenrodHappinessRaterTeacherText
promptbutton
ifgreater 250 - 1, .LovesYouALot
ifgreater 200 - 1, .ReallyTrustsYou
ifgreater 150 - 1, .SortOfHappy
ifgreater 100 - 1, .QuiteCute
ifgreater 50 - 1, .NotUsedToYou
sjump .LooksMean
.LovesYouALot:
writetext GoldenrodHappinessRatingText_LovesYouALot
waitbutton
closetext
end
.ReallyTrustsYou:
writetext GoldenrodHappinessRatingText_ReallyTrustsYou
waitbutton
closetext
end
.SortOfHappy:
writetext GoldenrodHappinessRatingText_SortOfHappy
waitbutton
closetext
end
.QuiteCute:
writetext GoldenrodHappinessRatingText_QuiteCute
waitbutton
closetext
end
.NotUsedToYou:
writetext GoldenrodHappinessRatingText_NotUsedToYou
waitbutton
closetext
end
.LooksMean:
writetext GoldenrodHappinessRatingText_LooksMean
waitbutton
closetext
end
GoldenrodHappinessRaterPokefanMScript:
jumptextfaceplayer GoldenrodHappinessRaterPokefanMText
GoldenrodHappinessRaterTwinScript:
jumptextfaceplayer GoldenrodHappinessRaterTwinText
HappinessRatersHouseBookshelf:
jumpstd DifficultBookshelfScript
HappinessRatersHouseRadio:
jumpstd Radio2Script
GoldenrodHappinessRaterTeacherText:
text "If you treat your"
line "#MON nicely,"
para "they will love you"
line "in return."
para "Oh? Let me see"
line "your @"
text_ram wStringBuffer3
text "…"
done
GoldenrodHappinessRatingText_LovesYouALot:
text "It looks really"
line "happy! It must"
cont "love you a lot."
done
GoldenrodHappinessRatingText_ReallyTrustsYou:
text "I get the feeling"
line "that it really"
cont "trusts you."
done
GoldenrodHappinessRatingText_SortOfHappy:
text "It's friendly to-"
line "ward you. It looks"
cont "sort of happy."
done
GoldenrodHappinessRatingText_QuiteCute:
text "It's quite cute."
done
GoldenrodHappinessRatingText_NotUsedToYou:
text "You should treat"
line "it better. It's"
cont "not used to you."
done
GoldenrodHappinessRatingText_LooksMean:
text "It doesn't seem to"
line "like you at all."
cont "It looks mean."
done
GoldenrodHappinessRaterPokefanMText:
text "I keep losing in"
line "battles, and my"
para "#MON end up"
line "fainting…"
para "Maybe that's why"
line "my #MON don't"
cont "like me much…"
done
GoldenrodHappinessRaterTwinText:
text "When I use an item"
line "on my #MON, it"
cont "acts really glad!"
done
GoldenrodHappinessRater_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 2, 7, GOLDENROD_CITY, 3
warp_event 3, 7, GOLDENROD_CITY, 3
def_coord_events
def_bg_events
bg_event 0, 1, BGEVENT_READ, HappinessRatersHouseBookshelf
bg_event 1, 1, BGEVENT_READ, HappinessRatersHouseBookshelf
bg_event 7, 1, BGEVENT_READ, HappinessRatersHouseRadio
def_object_events
object_event 2, 4, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterTeacherScript, -1
object_event 5, 3, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterPokefanMScript, -1
object_event 5, 6, SPRITE_TWIN, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterTwinScript, -1
|
