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
|
const_value set 2
const KRISSHOUSE2F_CONSOLE
const KRISSHOUSE2F_DOLL_1
const KRISSHOUSE2F_DOLL_2
const KRISSHOUSE2F_BIG_DOLL
KrissHouse2F_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 2
dbw MAPCALLBACK_NEWMAP, .InitializeRoom
dbw MAPCALLBACK_TILES, .SetSpawn
.Null:
end
.InitializeRoom:
special ToggleDecorationsVisibility
setevent EVENT_IN_YOUR_ROOM
checkevent EVENT_INITIALIZED_EVENTS
iftrue .SkipInizialization
jumpstd initializeevents
return
.SkipInizialization:
return
.SetSpawn:
special ToggleMaptileDecorations
return
db 0, 0, 0 ; filler
Doll1:
describedecoration 1
Doll2:
describedecoration 2
BigDoll:
describedecoration 3
GameConsole:
describedecoration 4
KrissHousePoster:
dw EVENT_KRISS_ROOM_POSTER, .Script
.Script:
describedecoration 0
KrissHouseRadio:
checkevent EVENT_GOT_A_POKEMON_FROM_ELM
iftrue .NormalRadio
checkevent EVENT_LISTENED_TO_INITIAL_RADIO
iftrue .AbbreviatedRadio
playmusic MUSIC_POKEMON_TALK
opentext
writetext KrisRadioText1
pause 45
writetext KrisRadioText2
pause 45
writetext KrisRadioText3
pause 45
musicfadeout MUSIC_NEW_BARK_TOWN, 16
writetext KrisRadioText4
pause 45
closetext
setevent EVENT_LISTENED_TO_INITIAL_RADIO
end
.NormalRadio:
jumpstd radio1
.AbbreviatedRadio:
opentext
writetext KrisRadioText4
pause 45
closetext
end
KrissHouseBookshelf:
jumpstd picturebookshelf
KrissHousePC:
opentext
special Special_KrissHousePC
iftrue .Warp
closetext
end
.Warp:
warp NONE, 0, 0
end
KrisRadioText1:
text "PROF.OAK'S #MON"
line "TALK! Please tune"
cont "in next time!"
done
KrisRadioText2:
text "#MON CHANNEL!"
done
KrisRadioText3:
text "This is DJ MARY,"
line "your co-host!"
done
KrisRadioText4:
text "#MON!"
line "#MON CHANNEL…"
done
KrissHouse2F_MapEventHeader:
; filler
db 0, 0
.Warps:
db 1
warp_def 7, 0, 3, KRISS_HOUSE_1F
.CoordEvents:
db 0
.BGEvents:
db 4
bg_event 2, 1, BGEVENT_UP, KrissHousePC
bg_event 3, 1, BGEVENT_READ, KrissHouseRadio
bg_event 5, 1, BGEVENT_READ, KrissHouseBookshelf
bg_event 6, 0, BGEVENT_IFSET, KrissHousePoster
.ObjectEvents:
db 4
object_event 4, 2, SPRITE_CONSOLE, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GameConsole, EVENT_KRISS_HOUSE_2F_CONSOLE
object_event 4, 4, SPRITE_DOLL_1, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Doll1, EVENT_KRISS_HOUSE_2F_DOLL_1
object_event 5, 4, SPRITE_DOLL_2, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Doll2, EVENT_KRISS_HOUSE_2F_DOLL_2
object_event 0, 1, SPRITE_BIG_DOLL, SPRITEMOVEDATA_BIGDOLL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BigDoll, EVENT_KRISS_HOUSE_2F_BIG_DOLL
|