home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / duffy11.lua < prev    next >
Text File  |  2003-10-07  |  4KB  |  92 lines
  1. levelw=58
  2. levelh=30
  3. enigma.ConserveLevel = FALSE        -- dh
  4.  
  5. create_world( levelw, levelh)
  6.  
  7. fill_floor("fl-leaves", 0,0,levelw,levelh)
  8.  
  9. function renderLine( line, pattern)
  10.     for i=1, strlen(pattern) do
  11.         local c = strsub( pattern, i, i)
  12.         if c =="#" then
  13.             set_stone( "st-greenbrown", i-1, line)
  14.         elseif c == "o" then
  15.             oxyd( i-1, line)
  16.         elseif c == "h" then
  17.             set_item("it-trigger", i-1,line, {action="openclose",target="door1"})
  18.         elseif c == "H" then
  19.             set_stone("st-door", i-1, line , {name="door1", type="v"})
  20.                 elseif c == "+" then
  21.             set_stone("st-wood", i-1, line)
  22.         elseif c == "*" then
  23.             set_stone("st-brownie", i-1, line)
  24.         elseif c == "g" then
  25.             draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
  26.                 elseif c == "a" then
  27.             set_stone("st-bolder", i-1,line, {direction=NORTH})
  28.         elseif c == "b" then
  29.             set_stone("st-bolder", i-1,line, {direction=EAST})
  30.         elseif c == "c" then
  31.             set_stone("st-bolder", i-1,line, {direction=WEST})
  32.          elseif c == "d" then
  33.             set_stone("st-bolder", i-1,line, {direction=SOUTH})
  34.                 elseif c == "1" then
  35.             oneway(i-1,line, enigma.NORTH)
  36.                 elseif c == "4" then
  37.             oneway(i-1,line, enigma.SOUTH)
  38.                 elseif c == "3" then
  39.             oneway(i-1,line, enigma.WEST)
  40.          elseif c == "2" then
  41.             oneway(i-1,line, enigma.EAST)
  42.         elseif c == "~" then
  43.             fill_floor("fl-water", i-1,line, 1,1)
  44.                 elseif c == "!" then
  45.             abyss(i-1,line)
  46.                 elseif c == "@" then
  47.             document(i-1,line,"I'ts a race!")
  48.                 elseif c == "s" then
  49.                 set_stone("st-stoneimpulse",i-1,line)
  50.         elseif c == "x" then
  51.             set_item("it-blackbomb",i-1,line)
  52.         elseif c == "y" then
  53.                 dynamite(i-1,line)
  54.                 end
  55.     end
  56. end
  57.  
  58. -- Floor:  " "
  59. -- Border: "#"
  60. -- Oxyd:   "o"
  61.  
  62. renderLine(00, "##########################################################")
  63. renderLine(01, "#  sd ####################################################")
  64. renderLine(02, "#b### ###############################################oo###")
  65. renderLine(03, "#se        y                              @   z   c#    ##")
  66. renderLine(04, "##### ############################################## #####")
  67. renderLine(05, "##### ##################h#########################sd #####")
  68. renderLine(06, "##### ################## ##########oooooooooooooo# g #####")
  69. renderLine(07, "##### #####             * H +    !               2 #s#####")
  70. renderLine(08, "##### ##### ############s######################### #c#####")
  71. renderLine(09, "##### # ds                             x+            #####")
  72. renderLine(10, "##### # ### ##### #####################xxx######## #######")
  73. renderLine(11, "##### #sd   as  # ################################ #######")
  74. renderLine(12, "##### ### #####c# ################################ #######")
  75. renderLine(13, "##### ###s#####s# ################################ #######")
  76. renderLine(14, "##### ###b##### # ################################ #######")
  77. renderLine(15, "##### ###    sa # ################################ #######")
  78. renderLine(16, "##### ############################################ #######")
  79. renderLine(17, "###                            +    ~                 s###")
  80. renderLine(18, "###b# ############################################ ###c###")
  81. renderLine(19, "###s# ######################                    sa #s  ###")
  82. renderLine(20, "### # ######################b#######################c#####")
  83. renderLine(21, "### as######################s                        #####")
  84. renderLine(22, "##########################################################")
  85.  
  86. set_actor("ac-blackball", 47.5,3.5, {player=0})    
  87.  
  88. set_stone("st-greenbrown",39,10)
  89.  
  90. oxyd_shuffle()
  91.  
  92.