home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level11c.lua < prev    next >
Text File  |  2003-02-20  |  4KB  |  133 lines
  1. --Siegfried Fennig 20.02.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 25
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-rock5")
  8. enigma.ConserveLevel = FALSE
  9. oxyd_default_flavor = "d"
  10. fill_floor("fl-samba", 0,0, level_width,level_height)
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c =="#" then
  16.          fill_floor("fl-abyss", i-1,line, 1,1)
  17.       elseif c == "o" then
  18.          oxyd( i-1, line)
  19.       elseif c == "r" then
  20.          set_stone("st-rock5",i-1,line)
  21.       elseif c == "i" then
  22.          set_stone("st-stoneimpulse",i-1,line)
  23.       elseif c == "t" then
  24.          set_stone("st-shogun",i-1,line)
  25.       elseif c == "v" then
  26.          set_stone("st-yinyang1",i-1,line)
  27.       elseif c == "w" then
  28.          set_stone("st-break_acwhite",i-1,line)
  29.       elseif c == "b" then
  30.          set_stone("st-break_acblack",i-1,line)
  31.       elseif c == "a" then
  32.          set_stone("st-wood",i-1,line)
  33.       elseif c == "h" then
  34.          set_item("it-hammer",i-1,line)
  35.       elseif c == "k" then
  36.          set_item("it-key_a",i-1,line)
  37.       elseif c == "z" then
  38.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  39.          set_item("it-yinyang", i-1, line+.5)
  40.       elseif c == "y" then
  41.          set_actor("ac-whiteball", i-.5,line+.5, {player=1})
  42.          set_item("it-yinyang", i-1, line+.5)
  43.         end
  44.     end
  45. end
  46. --              01234567890123456789
  47. renderLine(00, "                    ")
  48. renderLine(01, "                    ")
  49. renderLine(02, "  r                 ")
  50. renderLine(03, "  r     rrr         ")
  51. renderLine(04, "  r     r r      o  ")
  52. renderLine(05, "  rrrrrrr r         ")
  53. renderLine(06, "  a       r      o  ")
  54. renderLine(07, "  rrrrrrr r         ")
  55. renderLine(08, "  r     rwr      o  ")
  56. renderLine(09, "  r     r r         ")
  57. renderLine(10, " hrrrrrrr r      o  ")
  58. renderLine(11, "      rrr r         ")
  59. renderLine(12, "  t   rrr r         ")
  60. renderLine(13, "   r  rrr r         ")
  61. renderLine(14, "   r  rrr rrrrrrrrr ")
  62. renderLine(15, "   r  rrr r         ")
  63. renderLine(16, "   r  rrr rrrbtw y  ")
  64. renderLine(17, "   r     bb  wr     ")
  65. renderLine(18, "  rr   r w w  r wrr ")
  66. renderLine(19, "   vtrtr r r  r     ")
  67. renderLine(20, "  tii  r   r#  vrtr ")
  68. renderLine(21, "   tiz r rrrvr   v  ")
  69. renderLine(22, "      r  rwtw       ")
  70. renderLine(23, "          wkw   r   ")
  71. renderLine(24, "                    ")
  72. --              01234567890123456789
  73.  
  74. oxyd_shuffle()
  75.  
  76. doorh( 1,10, {name="door1"})
  77. function sdot1()
  78.     doora=enigma.GetNamedObject("door1")
  79.     enigma.SendMessage(doora, "openclose", nil)
  80. end
  81. shogundot1( 8,17, {action="callback", target="sdot1"})
  82.  
  83. doorh( 1, 9, {name="door2"})
  84. function sdot2()
  85.     doora=enigma.GetNamedObject("door2")
  86.     enigma.SendMessage(doora, "openclose", nil)
  87. end
  88. shogundot1( 8,18, {action="callback", target="sdot2"})
  89.  
  90. doorh( 1, 8, {name="door3"})
  91. function sdot3()
  92.     doora=enigma.GetNamedObject("door3")
  93.     enigma.SendMessage(doora, "openclose", nil)
  94. end
  95. shogundot1(11,17, {action="callback", target="sdot3"})
  96.  
  97. doorh( 1, 7, {name="door4"})
  98. function sdot4()
  99.     doora=enigma.GetNamedObject("door4")
  100.     enigma.SendMessage(doora, "openclose", nil)
  101. end
  102. shogundot1(11,18, {action="callback", target="sdot4"})
  103.  
  104. doorh( 1, 5, {name="door5"})
  105. function sdot5()
  106.     doora=enigma.GetNamedObject("door5")
  107.     enigma.SendMessage(doora, "openclose", nil)
  108. end
  109. shogundot1( 9,17, {action="callback", target="sdot5"})
  110.  
  111. doorh( 1, 4, {name="door6"})
  112. function sdot6()
  113.     doora=enigma.GetNamedObject("door6")
  114.     enigma.SendMessage(doora, "openclose", nil)
  115. end
  116. shogundot1( 9,18, {action="callback", target="sdot6"})
  117.  
  118. doorh( 1, 3, {name="door7"})
  119. function sdot7()
  120.     doora=enigma.GetNamedObject("door7")
  121.     enigma.SendMessage(doora, "openclose", nil)
  122. end
  123. shogundot1(10,17, {action="callback", target="sdot7"})
  124.  
  125. doorh( 1, 2, {name="door8"})
  126. function sdot8()
  127.     doora=enigma.GetNamedObject("door8")
  128.     enigma.SendMessage(doora, "openclose", nil)
  129. end
  130. shogundot1(10,18, {action="callback", target="sdot8"})
  131.  
  132. set_stone("st-key_a",16,21, {action="openclose", target="door9"})
  133. doorv( 16,22, {name="door9"})