1 |
--Siegfried Fennig 23.02.2003 Rev.0 |
--Siegfried Fennig 25.05.2003 Rev.1 |
2 |
|
|
3 |
levelw = 20 |
levelw = 20 |
4 |
levelh = 13 |
levelh = 13 |
13 |
for i=1, strlen(pattern) do |
for i=1, strlen(pattern) do |
14 |
local c = strsub( pattern, i, i) |
local c = strsub( pattern, i, i) |
15 |
if c =="#" then |
if c =="#" then |
16 |
fill_floor("fl-water", i-1,line, 1,1) |
fill_floor("fl-swamp", i-1,line, 1,1) |
17 |
elseif c == "o" then |
elseif c == "o" then |
18 |
oxyd( i-1, line) |
oxyd( i-1, line) |
19 |
elseif c == "r" then |
elseif c == "r" then |
20 |
set_stone("st-marble",i-1,line) |
set_stone("st-marble",i-1,line) |
|
elseif c == "h" then |
|
|
set_stone("st-marble_hole",i-1,line) |
|
21 |
elseif c == "w" then |
elseif c == "w" then |
22 |
set_stone("st-break_acwhite",i-1,line) |
set_stone("st-break_acwhite",i-1,line) |
23 |
|
elseif c == "s" then |
24 |
|
set_stone("st-switch",i-1,line, {action="onoff", target="laser"}) |
25 |
|
elseif c == "S" then |
26 |
|
set_stone("st-switch",i-1,line, {action="onoff", target="laser"}) |
27 |
|
elseif c == "l" then |
28 |
|
set_attrib(laser(i-1,line, FALSE, EAST), "name", "laser") |
29 |
elseif c == "a" then |
elseif c == "a" then |
30 |
set_actor("ac-blackball", i-.5,line+.5, {player=0}) |
set_actor("ac-blackball", i-.5,line+.5, {player=0}) |
31 |
elseif c == "d" then |
elseif c == "d" then |
32 |
document(i-1,line,"Laserlight on") |
document(i-1,line,"Let there be light!") |
33 |
end |
end |
34 |
end |
end |
35 |
end |
end |
38 |
renderLine(01, " o #### oro ") |
renderLine(01, " o #### oro ") |
39 |
renderLine(02, " #### r ") |
renderLine(02, " #### r ") |
40 |
renderLine(03, " #### r ") |
renderLine(03, " #### r ") |
41 |
renderLine(04, " #### r ") |
renderLine(04, " #### sr ") |
42 |
renderLine(05, " hhhhrrr ") |
renderLine(05, " rrrrrrr ") |
43 |
renderLine(06, " dwwwwwww ") |
renderLine(06, "l dwwwwwww ") |
44 |
renderLine(07, " rrrrrrr ") |
renderLine(07, " rrrrrrr ") |
45 |
renderLine(08, " #### r ") |
renderLine(08, " #### Sr ") |
46 |
renderLine(09, " #### r ") |
renderLine(09, " #### r ") |
47 |
renderLine(10, " a #### r ") |
renderLine(10, " a #### r ") |
48 |
renderLine(11, " o #### oro ") |
renderLine(11, " o #### oro ") |
50 |
-- 01234567890123456789 |
-- 01234567890123456789 |
51 |
|
|
52 |
oxyd_shuffle() |
oxyd_shuffle() |
|
|
|
|
set_item("it-spring1",14, 5) |
|
|
set_item("it-spring2",11, 5) |
|
|
|
|
|
set_attrib(laser( 0, 6, FALSE, EAST), "name", "laser") |
|
|
set_stone("st-switch",16, 4, {action="onoff", target="laser"}) |
|
|
set_stone("st-switch",16, 8, {action="onoff", target="laser"}) |
|