Enigma E-mail List,Here is my latest development of a new Enigma Level, "Impulsive Order". Please try it. Your comments are welcome.
Thank You,
Ray Wick
<?xml version="1.0" encoding="UTF-8" standalone="no" ?> <el:level xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"; xsi:schemaLocation="http://enigma-game.org/schema/level/1 level.xsd" xmlns:el="http://enigma-game.org/schema/level/1";> <el:protected> <el:info el:type="level"> <el:identity el:title="Impulsive Order" el:subtitle="" el:id="RayWick005"/> <el:version el:score="1" el:release="1" el:revision="0" el:status="stable"/> <el:author el:name="Ray Wick" el:email="[EMAIL PROTECTED]" el:homepage=""/> <el:copyright>Copyright © Ray Wick</el:copyright> <el:license el:type="Donated to Enigma under the projects license" el:open="true"/> <el:compatibility el:enigma="0.92"> </el:compatibility> <el:modes el:easy="false" el:single="true" el:network="false"/> <el:comments> <el:code>Lua 5.1 and XML converted by Leveladministrators</el:code> </el:comments> <el:score el:easy="-" el:difficult="-"/> </el:info> <el:luamain><![CDATA[ LAND_FLOOR = "fl-marble" MARBLE_FLOOR = "fl-marble" WATER_FLOOR = "fl-water" MARBLE = "st-marble" GLASS = "st-glass" function color_block( color, x, y) stone = format( "st-%s4", color) set_stone( stone, x, y) end level = { " ", "@.....;;~~~~;;.....@", "~~~~~~.~~~~;;~~~~~..", ".....;;;.....~......", " ~~~~ ~~~~~~~~~~~ ", "@ @", "ggg4g4g4g4g4g4g4g gg", "Lgg+g+g+g+g+g+g+g gg", "Mg x x x x x x x x~g", "Mg x x x x x x x x~@", "Mg x x x x x x x x~g", "Jgvgggggggggggggg gg", "ggEgggggg42gggggg gg", "g g 44 K GGGGg", "gvgvg 44 5g g Gg", "gCgBg 44 44g g Gg", "gvgvg 4 44gg g Gg", "g g g 44 gg g Gg", "g g gz 44 gg*Z4 Gg", "g > g 44 gg g Gg", "g < g 4 44gg g Gg", "g g g 44 44g g Gg", "g g g 44 3g g Gg", "gvgvg 44 K GGGGg", "gCgBggggg46ggggg ggg", "gvgvgggggggggggg ggg", "g 1 @", "ggggggggggggggggggsg", "@ ~~~~gg~~~~ @", " ~~~~gg~~~~ ", " ~~~~gg~~~~ ", "~~~~~~~~ ~~~~~~~~", "ggggg~~~ ~~~ggggg", "~~~~~~~~ ~~~~~~~~", " ~~~~gg~~~~ ", "@ ~~~~gg~~~~ @", " ~~~~gg~~~~ " } cells = {} cells["*"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_actor( "ac-blackball", x+0.5, y+0.5, {player=0} ) -- set_item( "it-yinyang", x, y+0.5 ) end cells["."] = function( x, y ) set_floor( "fl-swamp", x, y ) end cells[";"] = function( x, y ) set_floor( "fl-leaves", x, y ) end cells["&"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_actor( "ac-whiteball", x+0.5, y+0.5, {player=1} ) -- set_item( "it-yinyang", x, y+0.5 ) end cells["@"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) oxyd(x,y) end cells["+"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-wood", x, y ) end cells["~"] = function( x, y ) set_floor( WATER_FLOOR, x, y ) end cells["<"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-oneway", x, y, {orientation=WEST}) end cells[">"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-oneway", x, y, {orientation=EAST}) end cells["^"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-oneway", x, y, {orientation=NORTH}) end cells["v"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-oneway", x, y, {orientation=SOUTH}) end cells["%"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-swap", x, y ) end cells["x"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_item( "it-blackbomb", x, y ) end cells["z"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) shogundot3(x, y, {action="callback", target="sdot3"}) end cells["1"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) doorv(x, y, {name="door1"} ) end cells["2"] = function( x, y ) set_stone( "st-stoneimpulse", x, y, {name="imp2"} ) end cells["3"] = function( x, y ) set_stone( "st-stoneimpulse", x, y, {name="imp3"} ) end cells["4"] = function( x, y ) set_stone( "st-stoneimpulse", x, y, {name="imp4"} ) end cells["5"] = function( x, y ) set_stone( "st-stoneimpulse", x, y, {name="imp5"} ) end cells["6"] = function( x, y ) set_stone( "st-stoneimpulse", x, y, {name="imp6"} ) end cells["8"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) doorv(x, y ) end cells["9"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) doorh(x, y ) end cells["A"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_item("it-trigger", x, y, {invisible=0, action="trigger", target="imp1"}) end cells["B"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_item("it-trigger", x, y, {invisible=0, action="callback", target="hit2"}) end cells["C"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_item("it-trigger", x, y, {invisible=0, action="callback", target="hit3"}) end cells["D"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_item("it-trigger", x, y, {invisible=0, action="trigger", target="imp4"}) end cells["E"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_item("it-trigger", x, y, {action="onoff", target="laser1"}) end cells["G"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate2", x, y ) end cells["I"] = function( x, y ) set_floor( "fl-ice_001", x, y ) -- set_stone( "st-grate1", x, y ) end cells["J"] = function( x, y ) set_floor( MARBLE, x, y ) -- set_stone( "st-grate1", x, y ) end cells["K"] = function( x, y ) set_floor( "fl-abyss", x, y ) -- set_stone( "st-grate1", x, y ) end cells["L"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_attrib(laser(x, y, FALSE, SOUTH), "name", "laser1") end cells["M"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-pmirror", x, y, {movable=0, transparent=1, orientation=2 }) end cells["S"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate1", x, y ) set_item( "it-seed", x+0.5, y+0.5 ) end cells["V"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) color_block( "black", x, y) end cells["W"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) color_block( "white", x, y) end cells["Y"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-yinyang1", x, y ) end cells["Z"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-shogun", x, y, {holes=7}) end cells["a"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate1", x, y ) set_item( "it-key_a", x, y ) end cells["b"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate1", x, y ) set_item( "it-key_b", x, y ) end cells["c"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate1", x, y ) set_item( "it-key_c", x, y ) end cells["d"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate1", x, y ) set_item( "it-floppy", x, y ) end cells["g"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( GLASS, x, y ) end cells["s"] = function( x, y ) set_floor( LAND_FLOOR, x, y ) set_stone( "st-grate2", x, y ) set_item( "it-spring1", x, y ) end cells[" "] = function( x, y ) -- set_floor( LAND_FLOOR, x,y ) end create_world( 20, 37 ) fill_floor(MARBLE_FLOOR, 0, 0, 20, 37 ) draw_border( MARBLE ) for y,line in pairs(level) do for x = 1,strlen(line) do cell = strchar(strbyte(line,x)) cells[cell]( x-1, y-1 ) end end -- counter variables for callbacks hit2 and hit3 through3 = 0 through2 = 0 function hit3() -- code so the impulse stones only fire when stepping ON -- the floor trigger (and don't fire when stepping OFF) through3 = through3 + 1 if through3 == 1 then impc=enigma.GetNamedObject("imp3") enigma.SendMessage(impc, "trigger", nil) impe=enigma.GetNamedObject("imp5") enigma.SendMessage(impe, "trigger", nil) else through3 = 0 end end function hit2() -- code so the impulse stones only fire when stepping ON -- the floor trigger (and don't fire when stepping OFF) through2 = through2 + 1 if through2 == 1 then impb=enigma.GetNamedObject("imp2") enigma.SendMessage(impb, "trigger", nil) impf=enigma.GetNamedObject("imp6") enigma.SendMessage(impf, "trigger", nil) else through2 = 0 end end function sdot3() -- shogun-dot callback, opens door when all of -- the dots are stacked in place. doora=enigma.GetNamedObject("door1") enigma.SendMessage(doora, "openclose", nil) end oxyd_shuffle() oxyd_shuffle() ]]></el:luamain> <el:i18n> <el:string el:key="title"> <el:english el:translate="false"/> </el:string> </el:i18n> </el:protected> </el:level>
<<inline: RayWick005.png>>
_______________________________________________ Enigma-devel mailing list Enigma-devel@nongnu.org http://lists.nongnu.org/mailman/listinfo/enigma-devel
