home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / duffy14.lua < prev    next >
Encoding:
Text File  |  2003-10-07  |  3.0 KB  |  85 lines
  1. levelw=200
  2. levelh=60
  3. enigma.ConserveLevel = FALSE        -- dh
  4.  
  5. create_world( levelw, levelh)
  6.  
  7. fill_floor("fl-bluegreen", 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 == "!" then
  17. --            abyss(i-1,line)
  18.             fill_floor("fl-water", i-1,line, 1,1)
  19.         elseif c == "a" then
  20.             set_item("it-trigger", i-1,line, {action="openclose",target="door1"})
  21.         elseif c == "A" then
  22.             set_stone("st-door", i-1, line , {name="door1", type="v"})
  23.         elseif c == "s" then
  24.             set_stone("st-stoneimpulse", i-1,line)
  25.         elseif c == "D" then --1-d
  26.             set_floor("fl-gradient",  i-1,  line, {type=1})
  27.         elseif c == "U" then --2-u
  28.             set_floor("fl-gradient",  i-1,  line, {type=2})
  29.         elseif c == "R" then --3-r
  30.             set_floor("fl-gradient",  i-1,  line, {type=3})
  31.         elseif c == "L" then --4-l
  32.             set_floor("fl-gradient",  i-1,  line, {type=4})
  33.         elseif c == "1" then --ur
  34.             set_floor("fl-gradient",  i-1,  line, {type=11})
  35.         elseif c == "3" then --dl
  36.             set_floor("fl-gradient",  i-1,  line, {type=9})
  37.         elseif c == "7" then --dr
  38.             set_floor("fl-gradient",  i-1,  line, {type=12})
  39.         elseif c == "9" then --ul
  40.             set_floor("fl-gradient",  i-1,  line, {type=10})
  41.         elseif c=="z" then
  42.             set_actor("ac-blackball", i,line+1, {player=0})
  43.         elseif c=="b" then
  44.             set_item( "it-blackbomb", i-1,line)
  45.         elseif c=="+" then
  46.             set_stone( "st-wood", i-1, line)
  47.         elseif c=="g" then
  48.             draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
  49.         elseif c == "y" then
  50.                 dynamite(i-1,line)
  51.         end
  52.     end    
  53. end
  54.  
  55. -- Floor:  " "
  56. -- Border: "#"
  57. -- Oxyd:   "o"
  58.  
  59. renderLine(00,"#######################################")
  60. -- renderLine(01,"#    bb!b+  !    !        +           #")
  61. renderLine(01,"#    bb! +  !    !        +           #")
  62. renderLine(02,"# +ssssssss ! ssss       ssss  3D1    #")
  63. -- renderLine(03,"#g#  b  +bs   sbbsssssssssbbs 3DDD1   #")
  64. renderLine(03,"#g#  b   bs   sbbsssssssssbbs 3DDD1   #")
  65. renderLine(04,"# y  bsssgsssssbbbbbbbbbbbbbs3DDDD11  #")
  66. renderLine(05,"#!!ssss sbbbbbbbsssssssssbbbssssssLL1 #")
  67. renderLine(06,"#  s bb ssssbbmbs       sbmbbbbbosLLL1#")
  68. renderLine(07,"#  +g b bb sbbbbs       sbbbbbbbbsLLLL#")
  69. renderLine(08,"# # # bbb ssbbsss   !   sbbbbbbbosLLL7#")
  70. renderLine(09,"# ###     sbbbs     !   ssssssssssLL7 #")
  71. renderLine(10,"# z #     sssss     !   !      9UU77  #")
  72. renderLine(11,"#   #              !!        !! 9U7   #")
  73. renderLine(12,"#######################################")
  74.  
  75. oxyd_shuffle()
  76. set_item( "it-blackbomb",5,5)
  77. set_item( "it-blackbomb",5,2)
  78. set_item( "it-blackbomb",7,1)
  79. set_item( "it-blackbomb",9,1)
  80. set_item( "it-blackbomb",9,2)
  81. set_item( "it-blackbomb",9,6)
  82. set_item( "it-magnet",14 ,6 , {name="magnet1"})
  83. set_item( "it-magnet",26 ,6 , {name="magnet2"})
  84. set_item( "it-trigger", 1, 9, {action="on", target="magnet1"})
  85. set_item( "it-trigger", 1, 8, {action="on", target="magnet2"})