1 |
-- Sven Siggelkow 2003 |
-- Sven Siggelkow 2003 |
2 |
-- ESPRIT #075 |
-- ESPRIT #075 |
3 |
|
|
4 |
levelw = 20 |
levelw = 20 |
5 |
levelh = 13 |
levelh = 13 |
6 |
create_world(levelw, levelh) |
create_world(levelw, levelh) |
7 |
oxyd_default_flavor = "a" |
oxyd_default_flavor = "a" |
8 |
set_actor("ac-blackball", 3.5, 6.5, {player=0}) |
set_actor("ac-blackball", 3.5, 6.5, {player=0}) |
9 |
fill_floor("fl-ice_001", 0,0, level_width,level_height) |
fill_floor("fl-ice_001", 0,0, level_width,level_height) |
10 |
|
|
11 |
function renderLine( line, pattern) |
function renderLine( line, pattern) |
12 |
for i=1, strlen(pattern) do |
for i=1, strlen(pattern) do |
13 |
local c = strsub( pattern, i, i) |
local c = strsub( pattern, i, i) |
14 |
if c == "#" then |
if c == "#" then |
15 |
set_stone("st-door_a",i-1,line) |
set_stone("st-door_a",i-1,line) |
16 |
elseif c=="D" then |
elseif c=="D" then |
17 |
set_stone("st-death", i-1, line) |
set_stone("st-death", i-1, line) |
18 |
elseif c=="1" then |
elseif c=="1" then |
19 |
set_stone("st-door_a", i-1, line,{name="door1"}) |
set_stone("st-door_a", i-1, line,{name="door1"}) |
20 |
elseif c=="2" then |
elseif c=="2" then |
21 |
set_stone("st-door_a", i-1, line,{name="door2"}) |
set_stone("st-door_a", i-1, line,{name="door2"}) |
22 |
elseif c =="t" then |
elseif c =="t" then |
23 |
set_item("it-trigger", i-1,line, {invisible=1,action="callback", target="s1"}) |
set_item("it-trigger", i-1,line, {invisible=1,action="callback", target="s1"}) |
24 |
elseif c=="M" then |
elseif c=="M" then |
25 |
set_item("it-magnet",i-1,line,{on=1}) |
set_item("it-magnet",i-1,line,{on=1}) |
26 |
elseif c=="." then |
elseif c=="." then |
27 |
set_item("it-extralife", i-1,line) |
set_item("it-extralife", i-1,line) |
28 |
elseif c=="k" then |
elseif c=="k" then |
29 |
set_actor("ac-whiteball-small", i-1+0.5,line+0.5, {mouseforce=1, controllers=1}) |
set_actor("ac-killerball", i-1+0.5,line+0.5, {mouseforce=1, controllers=1}) |
30 |
elseif c=="O" then |
elseif c=="O" then |
31 |
oxyd(i-1,line) |
oxyd(i-1,line) |
32 |
end |
end |
33 |
end |
end |
34 |
end |
end |
35 |
-- 01234567890123456789 |
-- 01234567890123456789 |
36 |
renderLine(00, "####################") |
renderLine(00, "####################") |
37 |
renderLine(01, "# #") |
renderLine(01, "# #") |
38 |
renderLine(02, "# k #") |
renderLine(02, "# k #") |
39 |
renderLine(03, "# #") |
renderLine(03, "# #") |
40 |
renderLine(04, "# #") |
renderLine(04, "# #") |
41 |
renderLine(05, "# OO #") |
renderLine(05, "# OO #") |
42 |
renderLine(06, "# c OMMO c #") |
renderLine(06, "# c OMMO c #") |
43 |
renderLine(07, "# OO #") |
renderLine(07, "# OO #") |
44 |
renderLine(08, "# #") |
renderLine(08, "# #") |
45 |
renderLine(09, "# #") |
renderLine(09, "# #") |
46 |
renderLine(10, "# k #") |
renderLine(10, "# k #") |
47 |
renderLine(11, "# #") |
renderLine(11, "# #") |
48 |
renderLine(12, "####################") |
renderLine(12, "####################") |
49 |
-- 01234567890123456789 |
-- 01234567890123456789 |
50 |
|
|
51 |
oxyd_shuffle() |
oxyd_shuffle() |