home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried71.lua < prev    next >
Encoding:
Text File  |  2003-10-05  |  5.6 KB  |  164 lines
  1. --Siegfried Fennig 23.02.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 73
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. enigma.SetCompatibility("oxyd1")
  9. oxyd_default_flavor = "a"
  10. fill_floor("fl-abyss", 0, 0, level_width,level_height)
  11. fill_floor("fl-rough", 0,12, level_width,25)
  12. fill_floor("fl-wood", 0,49, level_width,10)
  13.  
  14. function renderLine( line, pattern)
  15.     for i=1, strlen(pattern) do
  16.       local c = strsub( pattern, i, i)
  17.       if c =="#" then
  18.          fill_floor("fl-abyss", i-1,line, 1,1)
  19.       elseif c =="x" then
  20.          fill_floor("fl-wood", i-1,line, 1,1)
  21.       elseif c == "o" then
  22.          oxyd( i-1, line)
  23.       elseif c == "r" then
  24.          set_stone("st-rock1",i-1,line)
  25.       elseif c == "h" then
  26.          set_stone("st-rock1_hole",i-1,line)
  27.       elseif c == "i" then
  28.          set_stone("st-invisible",i-1,line)
  29.       elseif c == "g" then
  30.          set_stone("st-glass",i-1,line)
  31.       elseif c == "s" then
  32.          set_stone("st-rock6",i-1,line)
  33.       elseif c == "l" then
  34.          set_stone("st-actorimpulse",i-1,line)
  35.       elseif c == "b" then
  36.          set_stone("st-block",i-1,line)
  37.       elseif c=="n" then
  38.          set_stone("st-oneway", i-1,line, {orientation=enigma.NORTH})
  39.       elseif c=="m" then
  40.          set_stone("st-oneway", i-1,line, {orientation=enigma.WEST})
  41.       elseif c == "w" then
  42.          set_stone("st-break_acwhite",i-1,line)
  43.       elseif c == "a" then
  44.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  45.       elseif c == "d" then
  46.          document(i-1,line,"Don't believe all that you see!")
  47.         end
  48.     end
  49. end
  50. --              01234567890123456789
  51. renderLine(00, "                    ")
  52. renderLine(01, "                    ")
  53. renderLine(02, "                    ")
  54. renderLine(03, "                    ")
  55. renderLine(04, "                    ")
  56. renderLine(05, "                    ")
  57. renderLine(06, "                    ")
  58. renderLine(07, "                    ")
  59. renderLine(08, "                    ")
  60. renderLine(09, "                    ")
  61. renderLine(10, "                    ")
  62. renderLine(11, "                    ")
  63. renderLine(12, "rrrrrrrgrrrrrrrrrr r")
  64. renderLine(13, "r      i r i      or")
  65. renderLine(14, "r rhrrhr h rhrrir  r")
  66. renderLine(15, "r r h  r r i  r r  r")
  67. renderLine(16, "r r r  r r r  h r  r")
  68. renderLine(17, "r i rirrhr h  r rirr")
  69. renderLine(18, "r r    h i r  r    r")
  70. renderLine(19, "r hhrrrr r rrhrrirrr")
  71. renderLine(20, "r r i  r h         r")
  72. renderLine(21, "r r r  r r         r")
  73. renderLine(22, "r r r    r         r")
  74. renderLine(23, "rdr r    r         r")
  75. renderLine(24, "rrrrrrrgrrrrrrrrrr r")
  76. renderLine(25, "r      i r i      or")
  77. renderLine(26, "r rhrrhr h rhrrir  r")
  78. renderLine(27, "r r h  r r i  r r  r")
  79. renderLine(28, "r r r  r r r  h r  r")
  80. renderLine(29, "r i rirrhr h  r rirr")
  81. renderLine(30, "r r    h i r  r    r")
  82. renderLine(31, "r hhrrrr r rrhrrirrr")
  83. renderLine(32, "r r i  r h         r")
  84. renderLine(33, "r r r  r r         r")
  85. renderLine(34, "r r r    r         r")
  86. renderLine(35, "rdr r    r         r")
  87. renderLine(36, "rrrrrrrgrrrrrrrrrr r")
  88. renderLine(37, "                    ")
  89. renderLine(38, "                    ")
  90. renderLine(39, "                    ")
  91. renderLine(40, "                    ")
  92. renderLine(41, "wwwwwwwwwwwwwwwwwww ")
  93. renderLine(42, "wwwwwwwwwwwwwwwwwww ")
  94. renderLine(43, "                    ")
  95. renderLine(44, "                    ")
  96. renderLine(45, "                    ")
  97. renderLine(46, "                    ")
  98. renderLine(47, "       w            ")
  99. renderLine(48, "     s w            ")
  100. renderLine(49, "#s     w   s#      #")
  101. renderLine(50, "s# ####wss    #s## #")
  102. renderLine(51, "o #####wssss #     s")
  103. renderLine(52, "s #    w   s o ##s #")
  104. renderLine(53, "# l # sws ss #     i")
  105. renderLine(54, "s  i   w a   #s ## #")
  106. renderLine(55, "s sss### s s      b#")
  107. renderLine(56, "#ns    # s s isss# s")
  108. renderLine(57, "#   ol w s s b  m  s")
  109. renderLine(58, "#######w## s #####o#")
  110. renderLine(59, "       w  xsx       ")
  111. renderLine(60, "       w  xxx       ")
  112. renderLine(61, "       w  x         ")
  113. renderLine(62, "       w  x         ")
  114. renderLine(63, "       w  x         ")
  115. renderLine(64, "       w  x         ")
  116. renderLine(65, "       w  x         ")
  117. renderLine(66, "                    ")
  118. renderLine(67, "                    ")
  119. renderLine(68, "                    ")
  120. renderLine(69, "                    ")
  121. renderLine(70, "                    ")
  122. renderLine(71, "                    ")
  123. renderLine(72, "                    ")
  124. --              01234567890123456789
  125.  
  126. oxyd_shuffle()
  127.  
  128. set_stones("st-wood", {{ 2,51},{10,60},{10,65}})
  129.  
  130. set_stones("st-break_acwhite", {{ 7,55},{ 7,56}})
  131.  
  132. set_attrib(laser(19,41, TRUE, WEST), "name", "laser")
  133. set_stone("st-switch",18,12)
  134.  
  135. set_attrib(laser(19,42, FALSE, WEST), "name", "laser3")
  136. set_attrib(laser( 7,11, FALSE, SOUTH), "name", "laser4")
  137.  
  138. set_attrib(laser( 7,22, FALSE, SOUTH), "name", "laser1")
  139. set_stone("st-switch",18,24, {action="callback", target="sw1"})
  140.  
  141. function sw1()
  142.     lasera=enigma.GetNamedObject("laser1")
  143.     enigma.SendMessage(lasera, "onoff", nil)
  144.     laserb=enigma.GetNamedObject("laser3")
  145.     enigma.SendMessage(laserb, "onoff", nil)
  146. end
  147.  
  148. set_attrib(laser( 7,34, FALSE, SOUTH), "name", "laser2")
  149. set_stone("st-switch",18,36, {action="callback", target="sw2"})
  150.  
  151. function sw2()
  152.     lasera=enigma.GetNamedObject("laser2")
  153.     enigma.SendMessage(lasera, "onoff", nil)
  154.     laserb=enigma.GetNamedObject("laser4")
  155.     enigma.SendMessage(laserb, "onoff", nil)
  156. end
  157.  
  158. SetDefaultAttribs("it-wormhole", {range=1.0, strength=10})
  159.  
  160. set_item("it-wormhole", 3,15, {targetx=" 9.5",targety="54.5"})
  161. set_item("it-wormhole",10,52, {targetx=" 3.5",targety="14.5"})
  162. set_item("it-wormhole", 3,27, {targetx=" 9.5",targety="54.5"})
  163. set_item("it-wormhole",10,65, {targetx=" 3.5",targety="26.5"})
  164.