home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level11a.lua < prev    next >
Encoding:
Text File  |  2003-02-02  |  5.0 KB  |  125 lines
  1. --Siegfried Fennig 02.02.2003 Rev.0
  2.  
  3. levelw = 39
  4. levelh = 25
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-invisible")
  8. enigma.ConserveLevel = FALSE
  9. oxyd_default_flavor = "a"
  10. fill_floor("fl-normal", 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 == "?" then
  20.          set_floor("fl-gradient",  i-1,  line, {type=24})
  21.       elseif c == "!" then
  22.          set_floor("fl-gradient",  i-1,  line, {type=23})
  23.       elseif c == "0" then
  24.          set_floor("fl-gradient",  i-1,  line, {type=21})
  25.       elseif c == "3" then
  26.          set_floor("fl-gradient",  i-1,  line, {type=3})
  27.       elseif c == "1" then
  28.          set_floor("fl-gradient",  i-1,  line, {type=1})
  29.       elseif c == "2" then
  30.          set_floor("fl-gradient",  i-1,  line, {type=2})
  31.       elseif c == "4" then
  32.          set_floor("fl-gradient",  i-1,  line, {type=4})
  33.       elseif c == "9" then
  34.          set_floor("fl-gradient",  i-1,  line, {type=22})
  35.       elseif c == "5" then
  36.          set_floor("fl-gradient",  i-1,  line, {type=5})
  37.       elseif c == "6" then
  38.          set_floor("fl-gradient",  i-1,  line, {type=6})
  39.       elseif c == "7" then
  40.          set_floor("fl-gradient",  i-1,  line, {type=7})
  41.       elseif c == "8" then
  42.          set_floor("fl-gradient",  i-1,  line, {type=8})
  43.       elseif c == "r" then
  44.          set_stone("st-rock4",i-1,line)
  45.       elseif c == "g" then
  46.          set_stone("st-grate2",i-1,line)
  47.       elseif c == "z" then
  48.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  49.       elseif c == "b" then
  50.          set_stone("st-stone_break",i-1,line)
  51.       elseif c == "w" then
  52.          set_stone("st-wood",i-1,line)
  53.       elseif c == "v" then
  54.          set_stone("st-break_invisible",i-1,line)
  55.       elseif c == "y" then
  56.          set_stone("st-stonebrush",i-1,line)
  57.       elseif c=="h" then
  58.          set_item("it-hammer",i-1,line)
  59.       elseif c=="x" then
  60.          set_item("it-brush",i-1,line)
  61.       elseif c=="l" then
  62.          set_stone("st-oneway", i-1,line, {orientation=enigma.SOUTH})
  63.       elseif c=="m" then
  64.          set_stone("st-oneway", i-1,line, {orientation=enigma.NORTH})
  65.       elseif c=="n" then
  66.          set_stone("st-oneway", i-1,line, {orientation=enigma.EAST})
  67.       elseif c=="p" then
  68.          set_stone("st-oneway", i-1,line, {orientation=enigma.WEST})
  69.         end
  70.     end
  71. end
  72.  
  73. renderLine(00, "511111111111111111111111111111111111116")
  74. renderLine(01, "3 ??????????????????????????????????? 4")
  75. renderLine(02, "30rmrmrrrmrrrrrmrrrrrmrrmrrrrrrrrrrrr94")
  76. renderLine(03, "30r r r r     r   r   r w w rr   yy r94")
  77. renderLine(04, "30r r r   rrrrrrr r rrrw b b r  yvvvr94")
  78. renderLine(05, "30r     r   r     r r v w w wr yyvvyr94")
  79. renderLine(06, "30rrrrr ror   r r r rrrr whw ryvoyvyr94")
  80. renderLine(07, "30rbbbb rrrrrrror r    rw w wryvyyvyr94")
  81. renderLine(08, "30rbrrr r  gg rrrrrrrr r w w ryvvvvyr94")
  82. renderLine(09, "30rbbrb    rr r      r rw w wryyyyyyr94")
  83. renderLine(10, "30rrrrrrrr gg r rr z r rrrrrrrrrrrrrr94")
  84. renderLine(11, "30r      r rr r  r   r #############r94")
  85. renderLine(12, "30rrrrrr r gg rr rrrrr    ##  ###  xr94")
  86. renderLine(13, "30ro r   r rr r        #############r94")
  87. renderLine(14, "30rr r r r gg r #####  rrrrrrrrrrrrrr94")
  88. renderLine(15, "30r  r r r rr r ##r##           r   r94")
  89. renderLine(16, "30r  r r r gg r #####  rrrrrrr rr r r94")
  90. renderLine(17, "30rr r r r rr r                   r r94")
  91. renderLine(18, "30p    r r gg r yyy yyvyvy yyy rrrr r94")
  92. renderLine(19, "30r rr r r rr r yoy yovyoy yoy    r n94")
  93. renderLine(20, "30r  r r r gg r yvy yyvyyy yvy r  rrr94")
  94. renderLine(21, "30r  r   r rr r                r    r94")
  95. renderLine(22, "30rrlrrrrrlrrlrrrrrrrrlrrrlrrrrrrrlrr94")
  96. renderLine(23, "3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 4")
  97. renderLine(24, "722222222222222222222222222222222222228")
  98.  
  99. oxyd_shuffle()
  100.  
  101. SetDefaultAttribs("it-wormhole", {range=1.0, strength=10})
  102.  
  103. set_item("it-wormhole", 1, 1, {targetx="19.5",targety="10.5"})
  104. set_item("it-wormhole", 1,23, {targetx="24.5",targety="8.5"})
  105. set_item("it-wormhole",21, 5, {targetx="35.5",targety="3.5"})
  106. set_item("it-wormhole",37, 1, {targetx="13.5",targety="16.5"})
  107. set_item("it-wormhole",37,23, {targetx="8.5",targety="18.5"})
  108.  
  109. display.SetFollowMode(display.FOLLOW_SCROLLING)
  110.  
  111. set_item("it-trigger",10,10, {invisible=1, action="close", target="door1"})
  112. set_item("it-trigger",13,14, {invisible=1, action="close", target="door1"})
  113. set_item("it-trigger",13,16, {invisible=1, action="close", target="door1"})
  114. set_item("it-trigger",10,10, {invisible=1, action="close", target="door1"})
  115. set_item("it-trigger",13,18, {invisible=1, action="open", target="door1"})
  116. set_stone("st-door_a", 8, 9, {name="door1"})
  117.  
  118. set_item("it-trigger",15, 9, {invisible=1, action="open", target="door2"})
  119. set_item("it-trigger",16,11, {invisible=1, action="close", target="door2"})
  120. set_stone("st-door_a",15,10, {name="door2"})
  121.  
  122. set_item("it-spring1", 4, 9)
  123.  
  124. document(35, 3, "press F3 or finish")
  125.