home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / duffy13.lua < prev    next >
Encoding:
Text File  |  2003-05-22  |  3.3 KB  |  88 lines
  1. levelw=50
  2. levelh=30
  3.  
  4. create_world( levelw, levelh)
  5.  
  6. fill_floor("fl-bluegreen", 0,0,levelw,levelh)
  7.  
  8. function renderLine( line, pattern)
  9.     for i=1, strlen(pattern) do
  10.         local c = strsub( pattern, i, i)
  11.         if c =="#" then
  12.             set_stone( "st-greenbrown", i-1, line)
  13.         elseif c == "o" then
  14.             oxyd( i-1, line)
  15.                 elseif c == "!" then
  16.             abyss(i-1,line)
  17.         elseif c == "=" then
  18.             fill_floor("fl-bluegreen", i-1,line, 1,1)
  19.         elseif c == "+" then
  20.             fill_floor("fl-space", i-1,line, 1,1)
  21.         elseif c == "a" then
  22.               set_stone("st-switch", i-1,line, {action="openclose", target="door1"})
  23.         elseif c == "A" then
  24.             set_stone("st-door", i-1, line , {name="door1", type="h"})
  25.         elseif c == "z" then
  26.             set_actor("ac-blackball", i-1-.5,line+.5, {player=0})
  27.         elseif c == "d" then --1-d
  28.             set_floor("fl-gradient",  i-1,  line, {type=1})
  29.         elseif c == "u" then --2-u
  30.             set_floor("fl-gradient",  i-1,  line, {type=2})
  31.         elseif c == "r" then --3-r
  32.             set_floor("fl-gradient",  i-1,  line, {type=3})
  33.         elseif c == "l" then --4-l
  34.             set_floor("fl-gradient",  i-1,  line, {type=4})
  35.         elseif c == "1" then --ur
  36.             set_floor("fl-gradient",  i-1,  line, {type=6})
  37.         elseif c == "3" then --dl
  38.             set_floor("fl-gradient",  i-1,  line, {type=5})
  39.         elseif c == "7" then --dr
  40.             set_floor("fl-gradient",  i-1,  line, {type=8})
  41.         elseif c == "9" then --ul
  42.             set_floor("fl-gradient",  i-1,  line, {type=7})
  43.         elseif c == "2" then --small ur
  44.             set_floor("fl-gradient",  i-1,  line, {type=11})
  45.         elseif c == "4" then --small dl
  46.             set_floor("fl-gradient",  i-1,  line, {type=9})
  47.         elseif c == "6" then --small dr
  48.             set_floor("fl-gradient",  i-1,  line, {type=12})
  49.         elseif c == "8" then --small ul
  50.             set_floor("fl-gradient",  i-1,  line, {type=10})
  51.         end
  52.     end    
  53. end
  54.  
  55. -- Floor:  " "
  56. -- Border: "#"
  57. -- Oxyd:   "o"
  58.  
  59. renderLine(00,"#######################################")
  60. renderLine(01,"#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#")
  61. renderLine(02,"#!a+==llrr==rr++ll=======r==rr++ll===!#")
  62. renderLine(03,"#!!!!!!!!!!!!!!!!!!!!!!==r==rr++ll=+=!#")
  63. renderLine(04,"#!3ddd1!!3ddddd!!dddd1!!!r==rr++ll+++!#")
  64. renderLine(05,"#!r===2dd4++++++++===l!!!!!#A#!!!!rul!#")
  65. renderLine(06,"#!r=z=++++++++++++===l!3dd1#=#3d1!rul!#")
  66. renderLine(07,"#!r===6uu8++++++++===l!r++++++++l!rul!#")
  67. renderLine(08,"#!9uuu7!!9uuuuu!!r+++l!!u8++3d1+!!rul!#")
  68. renderLine(09,"#!!!!!!!!!!!!!!!!98+67!!+r++r+l+!!rul!#")
  69. renderLine(10,"#!==r=l+=r+llll=!!r+l!!!d4++9u7+!!rul!#")
  70. renderLine(11,"#!=!!!!!!!!!!!!=!!r+l!!!+3d1++6u!!rul!#")
  71. renderLine(12,"#!===!!!!3dddd4+l!r+l!!!+r+l++l+!!rul!#")
  72. renderLine(13,"#!===!!!!r++++++l!r+l!!!+9u7++2d!!rul!#")
  73. renderLine(14,"#!===!!!!r+6uuuu7!r+l!!!++3dd1++!!rul!#")
  74. renderLine(15,"#!8+6!!!!r+l!!!!!!r+l!!!l+r++l+r!!rul!#")
  75. renderLine(16,"#!r+l!!!!4+2!!!!!!!+!!!!l+9uu7+r!!rul!#")
  76. renderLine(17,"#!r+l!!!!===!##!13===8!!++++++++!!rul!#")
  77. renderLine(18,"#!r+l!!!!===ddu+++===r!r========l!rul!#")
  78. renderLine(19,"#!r+l!!!!===uud+++===4!o========o!rul!#")
  79. renderLine(20,"#!r+2dd1!!!!!!!!!!!!!!!!!!!!!!!!!!rul!#")
  80. renderLine(21,"#!r++++2ddddddlllddddudddduudddudd4ul!#")
  81. renderLine(22,"#!9uuuuuuuuuuullluuuuduuuudduuuuuduu7!#")
  82. renderLine(23,"#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#")
  83. renderLine(24,"#######################################")
  84.  
  85. oxyd_shuffle()
  86. display.SetFollowMode(display.FOLLOW_SCROLLING)
  87.  
  88.