home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level10f.lua < prev    next >
Text File  |  2003-02-02  |  2KB  |  76 lines
  1. --Siegfried Fennig 01.02.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 37
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "a"
  9. fill_floor("fl-normal", 0,0, level_width,level_height)
  10.  
  11. SetDefaultAttribs("st-rubberband", {strength=20})
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c =="#" then
  17.          set_stone( "st-rubberband", i-1, line)
  18.       elseif c == "o" then
  19.          oxyd( i-1, line)
  20.       elseif c == "d" then
  21.          set_stone("st-death",i-1,line)
  22.       elseif c == "z" then
  23.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  24.       elseif c == "b" then
  25.          set_stone("st-stone_break",i-1,line)
  26.       elseif c == "g" then
  27.          set_stone("st-door_a",i-1,line)
  28.       elseif c=="h" then
  29.          hammer(i-1,line)
  30.         end
  31.     end
  32. end
  33.  
  34. renderLine(00, "####################")
  35. renderLine(01, "#                  #")
  36. renderLine(02, "#     bbb#bb       #")
  37. renderLine(03, "#   # bbbbb    #   #")
  38. renderLine(04, "#    bbbbbb        #")
  39. renderLine(05, "#    bbbbb         #")
  40. renderLine(06, "#   bbb       #    #")
  41. renderLine(07, "#  dodb  #         #")
  42. renderLine(08, "#  dddb            #")
  43. renderLine(09, "#    bb            #")
  44. renderLine(10, "#   #bb      dod   #")
  45. renderLine(11, "# bbbbb      ddd   #")
  46. renderLine(12, "#bb#bbb   #        #")
  47. renderLine(13, "#bbbb          #   #")
  48. renderLine(14, "#                # #")
  49. renderLine(15, "#       #          #")
  50. renderLine(16, "#                  #")
  51. renderLine(17, "#  #               #")
  52. renderLine(18, "#               dod#")
  53. renderLine(19, "#           #  hddd#")
  54. renderLine(20, "#                  #")
  55. renderLine(21, "# dod  #       #   #")
  56. renderLine(22, "# ddd              #")
  57. renderLine(23, "#                  #")
  58. renderLine(24, "#           #      #")
  59. renderLine(25, "#     dod          #")
  60. renderLine(26, "#     ddd      #   #")
  61. renderLine(27, "#         #        #")
  62. renderLine(28, "#     #       #    #")
  63. renderLine(29, "#                  #")
  64. renderLine(30, "#  #        #      #")
  65. renderLine(31, "#                  #")
  66. renderLine(32, "#                  #")
  67. renderLine(33, "#          #       #")
  68. renderLine(34, "# dod              #")
  69. renderLine(35, "# ddd     z        #")
  70. renderLine(36, "#########ggg########")
  71.  
  72. oxyd_shuffle()
  73.  
  74. enigma.AddConstantForce(0,50)
  75. display.SetFollowMode(display.FOLLOW_SCROLLING)
  76.