-- created by Martin Hawlisch levelw = 20 levelh = 13 create_world( levelw, levelh) fill_floor("fl-sand", 0,0,levelw,levelh) function renderLine( line, pattern) for i=1, strlen(pattern) do local c = strsub( pattern, i, i) if c =="#" then set_stone( "st-greenbrown", i-1, line) elseif c == "o" then oxyd( i-1, line) elseif c == "m" then set_stone( "st-brownie", i-1, line) end end end -- Floor: " " -- Border: "#" -- Oxyd: "o" -- Movable: "m" renderLine( 0, "####################") renderLine( 1, "# = #o##########") renderLine( 2, "# ###m # #") renderLine( 3, "# ### m##########|#") renderLine( 4, "#o# m m ## = #") renderLine( 5, "### # ## #o ###### #") renderLine( 6, "# # ## #### ss# #") renderLine( 7, "# m m ss# #") renderLine( 8, "##### ### # # ss# #") renderLine( 9, "# o# #|###### #") renderLine( 10, "#|########> #") renderLine( 11, "# <#######") renderLine( 12, "####################") set_stone("st-door", 4, 1 , {name="door1", type="v"}) set_item("it-trigger", 15,6, {action="openclose", target="door1"}) set_stone("st-door", 17, 4 , {name="door2", type="v"}) set_item("it-trigger", 16,6, {action="openclose", target="door2"}) set_attrib(laser(12,11, TRUE, WEST), "name", "laser1") set_item("it-trigger", 15,7, {action="onoff", target="laser1"}) set_stone("st-door", 18, 3 , {name="door4", type="h"}) set_item("it-trigger", 16,7, {action="openclose", target="door4"}) set_attrib(laser(10,10, TRUE, EAST), "name", "laser2") set_item("it-trigger", 15,8, {action="onoff", target="laser2"}) set_stone("st-door", 1, 10 , {name="door6", type="h"}) set_item("it-trigger", 16,8, {action="openclose", target="door6"}) oxyd_shuffle() set_actor("ac-blackball", 11.5, 8.5, {player=0})