home *** CD-ROM | disk | FTP | other *** search
- --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)