home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar Special 2004 August
/
GSSH0804.iso
/
Geschicklichkeit
/
Enigma
/
Enigma-081.exe
/
data
/
levels
/
martin04.lua
< prev
next >
Wrap
Text File
|
2003-01-05
|
2KB
|
68 lines
-- 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})