5
create_world( levelw, levelh)
7
fill_floor("fl-hay", 0,0,levelw,levelh)
9
function renderLine( line, pattern)
10
for i=1, strlen(pattern) do
11
local c = strsub( pattern, i, i)
13
set_stone( "st-greenbrown", i-1, line)
15
set_stone( "st-death", i-1, line)
19
set_stone( "st-brownie", i-1, line)
22
-- fill_floor("fl-water", i-1,line, 1,1)
25
fill_floor("fl-water", i-1,line, 1,1)
27
set_actor("ac-blackball", i,line+.5)
29
draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
31
set_stone( "st-wood", i-1, line)
33
set_floor("fl-space",i-1,line)
34
elseif c == "d" then --1-d
35
set_floor("fl-gradient", i-1, line, {type=1})
36
elseif c == "u" then --2-u
37
set_floor("fl-gradient", i-1, line, {type=2})
38
elseif c == "r" then --3-r
39
set_floor("fl-gradient", i-1, line, {type=3})
40
elseif c == "l" then --4-l
41
set_floor("fl-gradient", i-1, line, {type=4})
42
elseif c == "1" then --ur
43
set_floor("fl-gradient", i-1, line, {type=11})
44
elseif c == "3" then --dl
45
set_floor("fl-gradient", i-1, line, {type=9})
46
elseif c == "7" then --dr
47
set_floor("fl-gradient", i-1, line, {type=12})
48
elseif c == "9" then --ul
49
set_floor("fl-gradient", i-1, line, {type=10})
51
set_actor("ac-top", i-.5,line+.5, {player=1, mouseforce=0, range=30, force=30})
53
set_actor("ac-rotor", i-.5,line+.5, {player=1, mouseforce=0, range=30, force=30})
55
set_stone("st-switch", i-1,line, {action="callback", target="funcc1"})
57
set_stone("st-door_b",i-1,line,{name="door1"})
59
set_stone("st-door_b",i-1,line,{name="door2"})
61
set_item("it-trigger", i-1,line, {action="openclose", target="door3"})
63
set_item("it-trigger", i-1,line, {action="openclose", target="door4"})
65
set_item("it-trigger", i-1,line, {action="openclose", target="door5"})
67
set_item("it-trigger", i-1,line, {action="openclose", target="door6"})
69
doorv( i-1,line, {name="door3"})
71
doorv( i-1,line, {name="door4"})
73
doorv( i-1,line, {name="door5"})
75
doorv( i-1,line, {name="door6"})
80
function yy1( color, x, y)
81
stone = format( "st-%s4", color)
82
set_stone( stone, x, y)
85
renderLine(00,"####################")
86
renderLine(01,"#RF 3d1 ABo")
87
renderLine(02,"### r l ###")
88
renderLine(03,"# 9u7 # # 3d1 #")
89
renderLine(04,"# ### #e# r l #")
90
renderLine(05,"# a# ### 9u7 #")
91
renderLine(06,"H ### z ### H")
92
renderLine(07,"# 3d1 ### #c #")
93
renderLine(08,"# r l #b# ### #")
94
renderLine(09,"# 9u7 # # 3d1 #")
95
renderLine(10,"### r l ###")
96
renderLine(11,"oDC 9u7 GR#")
97
renderLine(12,"####################")
102
SendMessage("door1", "openclose")
103
SendMessage("door2", "openclose")
b'\\ No newline at end of file'