home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin15.lua < prev    next >
Text File  |  2003-01-05  |  1KB  |  48 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. fill_floor("fl-wood", 0,0,levelw,levelh)
  9.  
  10. function renderLine( line, pattern)
  11.     for i=1, strlen(pattern) do
  12.         local c = strsub( pattern, i, i)
  13.         if c =="#" then
  14.             set_stone( "st-glass", i-1, line)
  15.         elseif c == "o" then
  16.             oxyd( i-1, line)
  17.         elseif c == "x" then
  18.             fakeoxyd( i-1, line)
  19.         elseif c == "$" then
  20.                 set_stone( "st-death", i-1, line)
  21.         end
  22.     end
  23. end
  24.  
  25. -- Floor:   " "
  26. -- Border:  "#"
  27. -- Oxyd:    "o"
  28. -- Death:   "$"
  29.  
  30. renderLine(  0, "####o###o##o###o####")
  31. renderLine(  1, "#x    x      x    x#")
  32. renderLine(  2, "# xx xxx xx xxx xx #")
  33. renderLine(  3, "# x   x      x   x #")
  34. renderLine(  4, "o   $   x  x   $   o")
  35. renderLine(  5, "# x   x      x   x #")
  36. renderLine(  6, "#xxx    $$$$    xxx#")
  37. renderLine(  7, "# x   x      x   x #")
  38. renderLine(  8, "o   $   x  x   $   o")
  39. renderLine(  9, "# x   x      x   x #")
  40. renderLine( 10, "# xx xxx xx xxx xx #")
  41. renderLine( 11, "#x    x      x    x#")
  42. renderLine( 12, "####o###o##o###o####")
  43.  
  44. oxyd_shuffle()
  45.  
  46. set_actor("ac-blackball", 10.5, 5, {player=0})
  47.  
  48.