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
|
-- Library functions for CLANNAD.
-- Declare the CLANNAD function's namespace
CLANNAD = { }
AfterStoryLights = {
[1] = "Nagisa",
[2] = "Fuuko",
[3] = "Tomoyo",
[4] = "Kyou",
[5] = "Kotomi",
[6] = "Yukine",
[9] = "Mei",
[12] = "Kappei",
[13] = "Misae",
[15] = "Koumura",
[30] = "Yukine (?)",
[31] = "Tomoyo (?)"
}
TrueEndLights = {
[14] = "Naoyuki Okazaki",
[33] = "Thirty-three (6802)",
[10] = "Ten (6802)",
[8] = "Sanae",
[11] = "Yuusuke",
[7] = "Akio"
}
-- Returns a string array of all routes still needed to open the After Story
function CLANNAD:routesNeededFor (mapping)
routes = { }
for key,value in pairs(mapping) do
if Machine:getInt('G', key) == 0 then
table.insert(routes, value)
end
end
return routes
end
function CLANNAD:installMainMenuHandler (type)
state = 0
World:addHandler(9032, 944, function ()
if state == 0 then
if type == "New Game" then
-- Object 20 is the New Game button
origin = System:graphics():getFgObject(20):getClickPointHack()
elseif type == "After Story" then
-- Object 22 is the After Story button
obj = System:graphics():getFgObject(22)
if obj:visible() == 0 then
paths = CLANNAD:routesNeededFor(AfterStoryLights)
routes = table.concat(paths, ", ")
errmsg = "After Story not unlocked yet! Still need: " .. routes
World:error(errmsg)
end
origin = obj:getClickPointHack()
end
System:event():injectMouseMovement(origin)
state = 1
elseif state == 1 then
System:event():injectMouseDown()
state = 2
elseif state == 2 then
System:event():injectMouseUp()
state = 3
elseif state == 4 then
-- Object 27 is the Exit button
origin = System:graphics():getFgObject(27):getClickPointHack()
System:event():injectMouseMovement(origin)
state = 5
elseif state == 5 then
System:event():injectMouseDown()
state = 6
elseif state == 6 then
System:event():injectMouseUp()
state = 7
end
end)
-- Once we've started a New Game, we shouldn't see the main menu until we are
-- ready to exit.
if type == "New Game" then
World:addHandler(6900, 17, function ()
if state == 3 then
state = 4
end
end)
elseif type == "After Story" then
World:addHandler(6900, 1307, function ()
if state == 3 then
state = 4
end
end)
else
World:error("type passed to CLANNAD:installMainMenuHandler not valid")
end
end
-- Some paths have Sunohara and other characters being throw around... and will
-- continue until a click breaks them free.
function CLANNAD:clickOnCharactersBeingThrown ()
-- Different editions of CLANNAD need to have the click injected on different
-- line numbers.
name = World:regname()
if name == "KEY_CLANNAD" then
-- Sunohara
World:addHandler(1, 137, function ()
System:event():injectMouseDown()
end)
-- Botan
World:addHandler(1, 215, function ()
System:event():injectMouseDown()
end)
elseif name == "KEY_CLANNAD_FV" then
-- Sunohara
World:addHandler(1, 154, function ()
System:event():injectMouseDown()
end)
-- Botan
World:addHandler(1, 233, function ()
System:event():injectMouseDown()
end)
else
World:error("We don't appear to be CLANNAD or CLANNAD_FV...")
end
end
|
