-- Sven Siggelkow 2003 -- ESPRIT #079 levelw = 20 levelh = 13 create_world(levelw, levelh) oxyd_default_flavor = "a" set_actor("ac-blackball", 10.5, 6.5, {player=0}) fill_floor("fl-concrete", 0,0, level_width,level_height) enigma.ConserveLevel=FALSE function renderLine( line, pattern) for i=1, strlen(pattern) do local c = strsub( pattern, i, i) if c == "#" then set_stone("st-brick",i-1,line) elseif c =="c" then set_item("it-coin", i-1,line,{value=1}) elseif c =="M" then set_stone("st-rock1_move",i-1,line) elseif c =="m" then set_stone("st-rock1_move",i-1,line) set_item("it-spade", i-1,line) elseif c =="o" then set_item("it-hollow",i-1,line) elseif c =="*" then set_item("it-hill",i-1,line) elseif c=="C" then set_stone("st-coinslot", i-1,line,{target="s1", action="callback"}) elseif c=="1" then set_stone("st-door_c", i-1,line, {name="door1", type="v"}) elseif c=="2" then set_stone("st-door_c", i-1,line, {name="door2", type="v"}) elseif c=="R" then set_actor("ac-rotor", i-1+0.5,line+0.5, {player=1, mouseforce=1, range=25, force=40}) elseif c=="O" then oxyd(i-1,line) end end end -- 01234567890123456789 renderLine(00, "####################") renderLine(01, "#O 1***o****o******#") renderLine(02, "# R2o*o***o**o**o**#") renderLine(03, "####C############*o#") renderLine(04, "#################o*#") renderLine(05, "# oo#") renderLine(06, "# M M o #") renderLine(07, "# M o #") renderLine(08, "# c cc oo #") renderLine(09, "# c cc m M ooo #") renderLine(10, "# c c c ooo #") renderLine(11, "# o O#") renderLine(12, "####################") -- 01234567890123456789 oxyd_shuffle() function s1() enigma.SendMessage(enigma.GetNamedObject("door1"), "openclose", nil) enigma.SendMessage(enigma.GetNamedObject("door2"), "openclose", nil) end