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
|
-- -----------------------------------------------------------------
-- Init
-- -----------------------------------------------------------------
local function prog_init()
initModels()
sound_playMusic("music/rybky04.ogg")
local pokus = getRestartCount()
-- -------------------------------------------------------------
local function prog_init_room()
local pom1, pom2, pomb1, pomb2 = 0, 0, false, false
local roompole = createArray(1)
if roompole[0] == 0 then
roompole[0] = random(2) + 1
end
room.uvod = 0
room.osundavani = 0
room.otvaru = 0
room.rikanka = random(600) + 200 * pokus
return function()
if no_dialog() and isReady(small) and isReady(big) then
if room.rikanka > 30 then
room.rikanka = room.rikanka - 1
elseif room.rikanka > 10 and look_at(small, snecek) then
room.rikanka = room.rikanka - 1
elseif room.rikanka > 0 and look_at(small, snecek) and small.Y == snecek.Y then
room.rikanka = room.rikanka - 1
end
if room.uvod == 0 then
adddel(random(20) + 10)
switch(random(2)){
[0] = function()
addm(0, "bl-m-zvlastni0")
end,
[1] = function()
addv(0, "bl-v-zvlastni1")
end,
}
if pokus == roompole[0] then
addm(10, "bl-m-funkce")
addv(3, "bl-v-pozadi")
end
room.uvod = 1
elseif room.osundavani == 0 and muchoblud.dir ~= dir_no and random(100) < 8 then
room.osundavani = 1
if pokus == 1 then
pom1 = 3
else
pom1 = random(4)
end
adddel(20)
if pom1 >= 1 then
switch(random(2)){
[0] = function()
addm(0, "bl-m-koral0")
end,
[1] = function()
addv(0, "bl-v-koral1")
end,
}
end
if pom1 >= 2 then
addm(random(10) + 3, "bl-m-visi")
end
if pom1 >= 3 then
addv(random(10) + 3, "bl-v-nevim"..random(2))
end
elseif room.osundavani < 2 and muchoblud.X <= 14 and random(100) < 5 then
room.osundavani = 2
addv(30, "bl-v-proc")
addm(7, "bl-m-zeptej")
elseif room.otvaru == 0 and muchoblud.X <= 14 and muchoblud.Y <= 6 and random(100) < 1 then
room.otvaru = 1
addm(random(100), "bl-m-tvar")
addv(5, "bl-v-pestovany")
elseif room.rikanka == 0 and look_at(small, snecek) then
room.rikanka = -1
adddel(10)
planSet(snecek, "zprava", 1)
addm(0, "bl-m-snecku0")
planSet(snecek, "zprava", 3)
addv(0, "bl-v-dost0")
adddel(10)
planSet(snecek, "zprava", 2)
addm(0, "bl-m-snecku1")
planSet(snecek, "zprava", 3)
addv(0, "bl-v-dost1")
adddel(10)
planSet(snecek, "zprava", 2)
addm(10, "bl-m-snecku2")
planSet(snecek, "zprava", 3)
addv(0, "bl-v-dost2")
end
end
end
end
-- -------------------------------------------------------------
local function prog_init_snecek()
local pom1, pom2, pomb1, pomb2 = 0, 0, false, false
anim = ""
snecek.zprava = 0
return function()
switch(snecek.zprava){
[1] = function()
snecek.zprava = 0
setanim(snecek, "d4a1d1a2")
end,
[2] = function()
snecek.zprava = 0
setanim(snecek, "d11a1d1a2")
end,
[3] = function()
snecek.zprava = 0
setanim(snecek, "d3a1d2a0")
end,
}
if anim ~= "" then
goanim(snecek)
end
end
end
-- --------------------
local update_table = {}
local subinit
subinit = prog_init_room()
if subinit then
table.insert(update_table, subinit)
end
subinit = prog_init_snecek()
if subinit then
table.insert(update_table, subinit)
end
return update_table
end
local update_table = prog_init()
-- -----------------------------------------------------------------
-- Update
-- -----------------------------------------------------------------
function prog_update()
for key, subupdate in pairs(update_table) do
subupdate()
end
end
|
