5
create_world( levelw, levelh)
10
enigma.ElectricForce=-15
12
enigma.ElectricForce=-20
15
fill_floor("fl-abyss", 0,0,levelw,levelh)
17
function renderLine( line, pattern)
18
for i=1, strlen(pattern) do
19
local c = strsub( pattern, i, i)
21
set_stone( "st-death", i-1, line)
23
set_stone( "st-greenbrown_move", i-1, line)
24
set_floor("fl-leaves",i-1,line)
26
set_stone( "st-greenbrown", i-1, line)
28
if difficult==false then
29
-- set_stone( "st-greenbrown", i-1, line)
31
set_stone( "st-greenbrown", i-1, line)
34
set_floor("fl-leaves",i-1,line)
35
if difficult==false then
36
set_item("it-flagblack",i-1,line)
38
-- set_item("it-flagblack",i-1,line)
41
set_stone( "st-greenbrown", i-1, line)
42
set_floor("fl-hay",i-1,line)
44
set_stone( "st-greenbrown", i-1, line)
45
set_floor("fl-bluegreen",i-1,line)
46
set_item("it-abyss",i-1,line)
48
set_stone( "st-death", i-1, line)
49
set_floor("fl-bluegreen",i-1,line)
50
set_item("it-abyss",i-1,line)
52
set_stone( "st-death", i-1, line)
53
set_floor("fl-leaves",i-1,line)
55
set_stone( "st-greenbrown", i-1, line)
56
set_floor("fl-inverse",i-1,line)
58
set_stone( "st-greenbrown", i-1, line)
59
set_floor("fl-leaves",i-1,line)
61
set_item("it-umbrella",i-1,line)
62
set_floor("fl-inverse",i-1,line)
65
set_floor("fl-leaves",i-1,line)
67
set_stone( "st-brownie", i-1, line)
71
set_floor("fl-water",i-1,line)
73
set_actor("ac-blackball", i-.5,line+.5)
74
set_floor("fl-leaves",i-1,line)
76
set_actor("ac-whiteball", i-1,line+.5, {mouseforce=0})
77
set_floor("fl-leaves",i-1,line)
79
set_floor("fl-leaves",i-1,line)
81
draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
82
set_floor("fl-leaves",i-1,line)
84
set_stone( "st-wood", i-1, line)
86
set_floor("fl-space",i-1,line)
88
set_floor("fl-ice_001",i-1,line)
90
set_floor("fl-inverse",i-1,line)
92
set_floor("fl-swamp",i-1,line)
94
set_floor("fl-bluegreen",i-1,line)
95
set_item("it-abyss",i-1,line)
97
set_floor("fl-abyss_fake",i-1,line)
99
if difficult==false then
100
set_floor("fl-abyss_fake",i-1,line)
102
set_floor("fl-bluegreen",i-1,line)
103
set_item("it-abyss",i-1,line)
106
if difficult==false then
107
set_stone( "st-greenbrown", i-1, line)
109
set_stone( "st-death", i-1, line)
112
set_floor("fl-leaves",i-1,line)
113
set_item("it-spring1",i-1,line)
115
set_floor("fl-leaves",i-1,line)
116
set_item("it-flagblack",i-1,line)
118
set_floor("fl-leaves",i-1,line)
119
set_item("it-extralife",i-1,line)
121
set_stone( "st-thief", i-1, line)
122
set_floor("fl-space",i-1,line)
123
elseif c == "d" then --1-d
124
set_floor("fl-gradient", i-1, line, {type=1})
125
elseif c == "u" then --2-u
126
set_floor("fl-gradient", i-1, line, {type=2})
127
elseif c == "r" then --3-r
128
set_floor("fl-gradient", i-1, line, {type=3})
129
elseif c == "e" then --4-l
130
set_floor("fl-gradient", i-1, line, {type=4})
131
elseif c == "1" then --ur
132
set_floor("fl-gradient", i-1, line, {type=11})
133
elseif c == "3" then --dl
134
set_floor("fl-gradient", i-1, line, {type=9})
135
elseif c == "7" then --dr
136
set_floor("fl-gradient", i-1, line, {type=12})
137
elseif c == "9" then --ul
138
set_floor("fl-gradient", i-1, line, {type=10})
140
set_floor("fl-hay",i-1,line)
142
set_floor("fl-hay",i-1,line)
144
set_floor("fl-hay",i-1,line)
145
set_stone("st-invisible",i-1,line)
147
set_floor("fl-hay",i-1,line)
148
set_stone("st-greenbrown_hole",i-1,line)
150
set_floor("fl-hay",i-1,line)
151
set_stone("st-greenbrown",i-1,line)
153
set_stone("st-invisible",i-1,line)
155
set_actor("ac-rotor", i-.5,line+.5, {player=1, mouseforce=0, range=4, force=-5})
156
set_floor("fl-leaves",i-1,line)
158
set_actor("ac-top", i-.5,line+.5, {player=1, mouseforce=0, range=8, force=20})
159
set_floor("fl-inverse",i-1,line)
161
set_stone("st-oneway-e", i-1,line)
162
set_floor("fl-leaves",i-1,line)
164
set_stone("st-break_acwhite",i-1,line)
170
set_stone("st-stone_break",i-1,line)
172
set_stone("st-actorimpulse_invisible",i-1,line)
174
yy1( "black", i-1, line)
175
set_floor("fl-leaves",i-1,line)
177
yy1( "white", i-1, line)
178
set_floor("fl-leaves",i-1,line)
180
set_floor("fl-bridge", 80,42, {name="bridgea1",type="xx"})
181
set_floor("fl-abyss_fake",i-1,line)
182
set_item("it-trigger",i-1,line,{invisible=1,action="callback",target="funcc2"})
184
set_floor("fl-bridge", 84,42, {name="bridgeb0",type="xx"})
185
set_item("it-abyss",i-1,line)
187
set_floor("fl-leaves",i-1,line)
188
set_stone("st-switch",i-1,line,{name="switch5",action="callback",target="funcc1"})
190
set_floor("fl-leaves",i-1,line)
191
set_stone("st-chargeplus",i-1,line)
193
set_floor("fl-leaves",i-1,line)
194
set_stone("st-chargeminus",i-1,line)
196
set_floor("fl-hay",i-1,line)
197
set_stone("st-chargezero",i-1,line)
199
-- set_floor("fl-bridge", i-1,line, {name="bridge1",type=xx})
200
set_floor("fl-leaves",i-1,line)
201
set_stone("st-invisible",i-1,line)
203
set_floor("fl-leaves",i-1,line)
204
set_stone("st-switch",i-1,line,{action="callback",target="funcc3",name="switch1"})
206
set_floor("fl-leaves",i-1,line)
207
set_stone("st-switch",i-1,line,{action="callback",target="funcc4",name="switch2"})
209
set_floor("fl-leaves",i-1,line)
210
set_stone("st-switch",i-1,line,{action="callback",target="funcc5",name="switch3"})
212
set_floor("fl-leaves",i-1,line)
213
set_stone("st-switch",i-1,line,{action="callback",target="funcc6",name="switch4"})
215
set_floor("fl-leaves",i-1,line)
216
document(i-1,line,".moor txen eht ot teg ot syaw owt era erehT")
221
function yy1( color, x, y)
222
stone = format( "st-%s4", color)
223
set_stone( stone, x, y)
226
renderLine(00,"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII")
227
renderLine(01,"I f f f f f f f f f f f f I")
228
renderLine(02,"I f I")
229
renderLine(03,"I t f f I")
230
renderLine(04,"I f f f f f f f f f f I")
231
renderLine(05,"I f f f f I")
232
renderLine(06,"If f f f I")
233
renderLine(07,"I f f f D I")
234
renderLine(08,"I f f f f f f I")
235
renderLine(09,"I f f f I")
236
renderLine(10,"I f f I")
237
renderLine(11,"I f D f f f f f fI")
238
renderLine(12,"I f f f f f f I")
239
renderLine(13,"If f f I")
240
renderLine(14,"I f f I")
241
renderLine(15,"I f f f f f f f f f I")
242
renderLine(16,"I f f I")
243
renderLine(17,"I f f f f f f I")
244
renderLine(18,"I f f f I")
245
renderLine(19,"I f f D f f f I")
246
renderLine(20,"I f f f I")
247
renderLine(21,"I f f f f f f f I")
248
renderLine(22,"I f f f f I")
249
renderLine(23,"I f fI")
250
renderLine(24,"I f f I")
251
renderLine(25,"I f f f f f f f I")
252
renderLine(26,"If f f f f f I")
253
renderLine(27,"I f f f I")
254
renderLine(28,"I f f f f f I")
255
renderLine(29,"I f f f f f f I")
256
renderLine(30,"I D I")
257
renderLine(31,"I f f f f f f I")
258
renderLine(32,"I f f f f f f I")
259
renderLine(33,"I f f f f fI")
260
renderLine(34,"I f I")
261
renderLine(35,"I f f f f f f f f f f f I")
262
renderLine(36,"IIIIIIIIIIIIIIIIIIIIIIIIIIIII%%%%%%%%%%%%%%%%%%%#########%%%%%%%%%%%%%%%%%%%%PPPPPPPPPPPPPPPPPPPQQQQQQQQQQQQ######################### I")
263
renderLine(37,"I f f f f HJJJJJJJJv % % lrrrrreeeeeejj %FllPlllP~~~~~~~~~~PbAaAAaBaBbablllsss%llllRiiiiiiiiiNUUU f I")
264
renderLine(38,"I HJJJJJJJJv llllll % llp # l l %lllPlllP~2wwllww4~PbBBBbaBBBbAAlllsss%ggllRiiiiiiiiiiUUU f f I")
265
renderLine(39,"I HJJJJJJJJv lzllSl lll ##% leeeerrrrll 3d1 %lllPlllP~wwwllwww~PbAaAaaAaBAAblllsssvlgllRiiiiiiiiiiUUU f I")
266
renderLine(40,"I f HJJJJJJJJv llllll % % l rie %lllPlllP~wwwllwww~PbabAbBBaBbablllsssvlgllRiiiiiiiiiiUUU I")
267
renderLine(41,"If f HJJJJJJJJv &xxxxxx^^^%TTTT 7uuuu9 9u7 %lllPlllP~llllllll~P:aBBbbbaBAAblllsssvlgllRiiiiiiiiiiUUU f I")
268
renderLine(42,"I f %%%%%%%%%%%%%%%%%%&xx@@@x^@@l===T e7uu9r l lqlClVlllWlll?ly/ll;qAABaaAbABaBblllsss%ggllRiiiiiiiiiiUUU f I")
269
renderLine(43,"I f #x@@cx@@@cxx@@@x^@@%TT=T ee79rr llxll%lllPlllP~llllllll~P:bBabAaabaBblllsss%$$$$$iiiiiiiiiiUUU I")
270
renderLine(44,"I f f #x@@cx@@@cxx@@@x^cc%===T ee13rr lxxlx%lllPlllP~wwwllwww~PbAAABBBBBAAbxxxx^m%oooP$iiiiiiiiiiUUU f fI")
271
renderLine(45,"If f #xxxxxxxx^^^^^^^^xx%=TTT e1dd3r llxlx%lllPlllP~wwwllwww~PbBabbaAabbaaxxxx^l$lllo$iiiiiiiiiiUUU f f f I")
272
renderLine(46,"I f#x@@xx@@@xx@@@cxx@@%llllll1dddd3 lxxlx%lllPlllP~5wwllww6~PbAAAAaBAAAABxxxx^M$lllo$iiiiiiiiiiUUU I")
273
renderLine(47,"I #x@@xxcccxx@@@cxx@@%llll llllx%OllPlllP~~~~~~~~~~PbBbaBbbabBabxxxx^qqlllo$iiiiiiiiiNUUU I")
274
renderLine(48,"I f f##GG###############%%%%%%%%%%%%%%%%%%%%PPPPPPPPPPPPPPPPPPPQQQQQQQQQQQQ######################### f I")
275
renderLine(49,"I f f f f f f f f f f f I")
276
renderLine(50,"If f f I")
277
renderLine(51,"I D f f I")
278
renderLine(52,"I f f f f fI")
279
renderLine(53,"I f f f f f f I")
280
renderLine(54,"I f f f I")
281
renderLine(55,"If f I")
282
renderLine(56,"I f f I")
283
renderLine(57,"I f f f f I")
284
renderLine(58,"If f f f f f I")
285
renderLine(59,"I f f f I")
286
renderLine(60,"I f f f f fI")
287
renderLine(61,"I f I")
288
renderLine(62,"I f f f f I")
289
renderLine(63,"I f f f D I")
290
renderLine(64,"I f f f I")
291
renderLine(65,"I f D f f f I")
292
renderLine(66,"I f f f f f f fI")
293
renderLine(67,"I f I")
294
renderLine(68,"If f f f f f I")
295
renderLine(69,"I f f I")
296
renderLine(70,"I f f f I")
297
renderLine(71,"I f f f f f f I")
298
renderLine(72,"I f f f f I")
299
renderLine(73,"I f f f f I")
300
renderLine(74,"I f f f f fI")
301
renderLine(75,"If f f f I")
302
renderLine(76,"I f f I")
303
renderLine(77,"I f f f f I")
304
renderLine(78,"I f f f f f f I")
305
renderLine(79,"I f f f f f I")
306
renderLine(80,"I D f f f f fI")
307
renderLine(81,"I f f I")
308
renderLine(82,"If f I")
309
renderLine(83,"I f f f f f f f f f f f f f I")
310
renderLine(84,"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII")
323
function timer_callback()
324
if bridge1gone==1 and bridge1done==0 then
326
set_floor("fl-abyss_fake",80,42)
327
--set_floor("fl-leaves",80,42)
333
if bridge2gone==1 and bridge2done==0 then
335
set_floor("fl-abyss_fake",84,42)
336
--set_floor("fl-leaves",84,42)
349
function timer_callback2()
351
if ttt2>15 and funcc1ready==0 then
352
SendMessage("switch5","on")
360
if funcc1ready==1 then
366
enigma.KillItem(80,42)
367
set_floor("fl-bridge", 80,42, {name="bridgea"..bridgenumber,type="xx"})
368
bridgeaa=enigma.GetNamedObject("bridgea"..bridgenumber)
369
SendMessage(bridgeaa,"close")
370
bridgenumber=bridgenumber+1
371
set_item("it-abyss",80,42)
375
enigma.KillItem(84,42)
376
SendMessage(bridgebb,"openclose")
377
--set_floor("fl-abyss_fake",84,42)
378
set_item("it-trigger",84,42,{invisible=1,action="callback",target="funcc2"})
384
enigma.KillItem(80,42)
385
SendMessage(bridgeaa,"open")
386
--set_floor("fl-abyss_fake",80,42)
387
set_item("it-trigger",80,42,{invisible=1,action="callback",target="funcc2"})
391
enigma.KillItem(84,42)
392
set_floor("fl-bridge", 84,42, {name="bridgeb"..bridgenumber2,type="xx"})
393
bridgebb=enigma.GetNamedObject("bridgeb"..bridgenumber2)
394
SendMessage(bridgebb,"openclose")
395
bridgenumber2=bridgenumber2+1
399
set_item("it-abyss",84,42)
402
set_item("it-abyss",84,42)
413
enigma.KillItem(80,42)
414
set_floor("fl-wood",80,42)
415
set_item("it-abyss",80,42)
417
enigma.KillItem(84,42)
418
set_floor("fl-abyss_fake",84,42)
419
set_item("it-trigger",84,42,{invisible=1,action="callback",target="funcc2"})
424
enigma.KillItem(80,42)
425
set_floor("fl-abyss_fake",80,42)
426
set_item("it-trigger",80,42,{invisible=1,action="callback",target="funcc2"})
428
enigma.KillItem(84,42)
429
set_floor("fl-wood",84,42)
430
set_item("it-abyss",84,42)
480
if ff3==1 and ff4==1 and ff5==1 and ff6==1 then
483
-- SendMessage(bridge1,"close")
484
set_stone("st-greenbrown_hole",94,42)
489
-- SendMessage(bridge1,"open")
490
set_stone("st-invisible",94,42)
495
set_stone( "st-timer", 179, 0,
496
{target="timer_callback", action="callback",
497
name="timer", interval=0.1} )
498
set_stone( "st-timer", 179, 1,
499
{target="timer_callback2", action="callback",
500
name="timer2", interval=0.1} )
504
--bridge1=enigma.GetNamedObject("bridge1")
506
bridgebb=enigma.GetNamedObject("bridgeb0")
507
SendMessage(bridgebb,"close")
509
SendMessage("switch1","on")
510
SendMessage("switch2","on")
511
SendMessage("switch3","on")
512
SendMessage("switch4","on")
513
SendMessage("switch5","on")