home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar Special 2004 August
/
GSSH0804.iso
/
Geschicklichkeit
/
Enigma
/
Enigma-081.exe
/
data
/
levels
/
siegfried101.lua
< prev
next >
Wrap
Text File
|
2003-07-11
|
3KB
|
69 lines
--Siegfried Fennig 11.07.2003 Rev.0
levelw = 39
levelh = 13
create_world(levelw, levelh)
enigma.ConserveLevel = FALSE
enigma.SetCompatibility("oxyd1")
oxyd_default_flavor = "d"
fill_floor("fl-wood", 0, 0, level_width, level_height)
fill_floor("fl-abyss", 0, 0, 19, level_height)
function renderLine( line, pattern)
for i=1, strlen(pattern) do
local c = strsub( pattern, i, i)
if c =="A" then
set_item("it-vortex-open", i-1,line, {targetx = 37.5, targety = 1.5})
elseif c == "B" then
set_item("it-vortex-open", i-1,line, {targetx = 20.5, targety = 9.5})
elseif c == "C" then
set_item("it-vortex-open", i-1,line, {targetx = 20.5, targety = 10.5})
elseif c == "w" then
set_stone("st-wood",i-1,line)
elseif c == "s" then
set_stone("st-stoneimpulse",i-1,line)
elseif c == "#" then
set_floor("fl-abyss",i-1,line)
elseif c == "x" then
set_item("it-blackbomb",i-1,line)
elseif c == "X" then
set_stone("st-bombs",i-1,line)
elseif c == "d" then
document(i-1,line,"No problem! Piece of cake!")
elseif c == "D" then
document(i-1,line,"It was easy, wasn't it!")
elseif c == "o" then
oxyd( i-1, line)
elseif c == "a" then
set_actor("ac-blackball", i-.5,line+.5, {player=0})
end
end
end
-- 1 2 3
-- 012345678901234567890123456789012345678
renderLine(00, " ###############sssss")
renderLine(01, " ####### x Cs")
renderLine(02, " #######sw ###x s")
renderLine(03, " #sssssss#x###x s ss")
renderLine(04, " #D s x###x s# ##")
renderLine(05, " # #s # s x###xxs#x##")
renderLine(06, " # #s # s x### s#X##")
renderLine(07, " ###s # s x### s# ##")
renderLine(08, " #d#s # s x s# ##")
renderLine(09, " #A#s # s###### s# ##")
renderLine(10, " oBos ######### so o#")
renderLine(11, " #o#s s#o##")
renderLine(12, " ###sssssssssssss####")
-- 012345678901234567890123456789012345678
-- 1 2 3
oxyd_shuffle()
set_actor("ac-blackball",20.5, 8.5, {player=0})
draw_stones("st-actorimpulse", {24, 7}, {0,1}, 3)
draw_stones("st-actorimpulse", {27,10}, {1,0}, 6)
set_stones("st-block", {{27, 8},{37, 1}})
fill_floor("fl-stwood",20, 9, 1,1)
fill_floor("fl-stwood",20,10, 1,1)
fill_floor("fl-stwood",37, 1, 1,1)