home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried90.lua < prev    next >
Encoding:
Text File  |  2003-05-03  |  3.9 KB  |  95 lines
  1. --Siegfried Fennig 03.05.2003 Rev.0
  2.  
  3. levelw = 39
  4. levelh = 37
  5.  
  6. create_world(levelw, levelh)
  7. --enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "d"
  9. fill_floor("fl-gray", 0, 0, level_width,level_height)
  10. fill_floor("fl-water", 8,11, 13, 7)
  11. fill_floor("fl-water", 1,18, 20,18)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c == "r" then
  17.          set_stone("st-rock1",i-1,line)
  18.       elseif c == "7" then
  19.          set_stone("st-shogun",i-1,line, {holes=7})
  20.       elseif c == "5" then
  21.          set_stone("st-shogun",i-1,line, {holes=5})
  22.       elseif c == "4" then
  23.          set_stone("st-shogun",i-1,line, {holes=4})
  24.       elseif c == "1" then
  25.          set_stone("st-shogun",i-1,line, {holes=1})
  26.       elseif c == "S" then
  27.          set_stone("st-stoneimpulse",i-1,line)
  28.       elseif c == "e" then
  29.          set_floor("fl-gradient",i-1,line, {type=3})
  30.       elseif c == "E" then
  31.          set_stone("st-oneway",i-1,line, {orientation=enigma.EAST})
  32.       elseif c == "W" then
  33.          set_stone("st-oneway",i-1,line, {orientation=enigma.WEST})
  34.       elseif c =="#" then
  35.          fill_floor("fl-sand", i-1,line, 1,1)
  36.       elseif c == "s" then
  37.          set_stone("st-scissors",i-1,line)
  38.       elseif c == "w" then
  39.          set_stone("st-wood",i-1,line)
  40.       elseif c == "b" then
  41.          set_stone("st-rubberband",i-1,line)
  42.       elseif c == "o" then
  43.          oxyd( i-1, line)
  44.       elseif c == "a" then
  45.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  46.         end
  47.     end
  48. end
  49. --                        1         2         3
  50. --              012345678901234567890123456789012345678
  51. renderLine(00, "SSSSSSSSSSSSSSSSS7777777777777777777777")
  52. renderLine(01, "S              oS                7    7")
  53. renderLine(02, "S SSSSSSSSSSSSSSSSSS 77777777777 7    7")
  54. renderLine(03, "S So  44444   E    S 7           7    7")
  55. renderLine(04, "S 5S  11111  SSSS41S 7 77777777777    7")
  56. renderLine(05, "S SSSSSSSSSS W  S41S 7           7    7")
  57. renderLine(06, "S So  S5455SSS14S  S 7777777 77777    7")
  58. renderLine(07, "S r      1      S SS S       7        7")
  59. renderLine(08, "S SSSSSSSSSSSS14S S41S 7777777        7")
  60. renderLine(09, "S                  1 S  7             7")
  61. renderLine(10, "S7SSSr r777777SSSSSSSS7 7             7")
  62. renderLine(11, "S    r r             e7 7             7")
  63. renderLine(12, "S    r r             e7 7             7")
  64. renderLine(13, "7    r r             e             o  7")
  65. renderLine(14, "7    r r             e #####          7")
  66. renderLine(15, "7  o r r             e #####          7")
  67. renderLine(16, "7    rrr             e #####          7")
  68. renderLine(17, "7                    e #####      w   7")
  69. renderLine(18, "7                    77777s7777777w7777")
  70. renderLine(19, "7                    7                7")
  71. renderLine(20, "7                    7          w     7")
  72. renderLine(21, "7                    e                7")
  73. renderLine(22, "7                    e   w            7")
  74. renderLine(23, "7                    e             b  7")
  75. renderLine(24, "7                    e                7")
  76. renderLine(25, "7                    e                7")
  77. renderLine(26, "7                    e          b     7")
  78. renderLine(27, "7                    e                7")
  79. renderLine(28, "7                    e                7")
  80. renderLine(29, "7                    e                7")
  81. renderLine(30, "7                    e      b    b    7")
  82. renderLine(31, "7                    e                7")
  83. renderLine(32, "7                    e                7")
  84. renderLine(33, "7                    e          o a   7")
  85. renderLine(34, "7                    e                7")
  86. renderLine(35, "7                    e                7")
  87. renderLine(36, "777777777777777777777777777777777777777")
  88.  
  89. --              012345678901234567890123456789012345678
  90. --                        1         2         3
  91.  
  92. oxyd_shuffle()
  93.  
  94. set_item("it-spring1", 25, 22)
  95. set_item("it-magicwand", 32, 20)