home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin84.lua < prev    next >
Encoding:
Text File  |  2003-03-18  |  1.3 KB  |  50 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7.  
  8. oxyd_default_flavor = "b"
  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_floor("fl-samba",i-1,line)
  15.          set_stone("st-death",i-1,line)
  16.       elseif c == "O" then
  17.          set_floor("fl-samba",i-1,line)
  18.          oxyd( i-1, line)
  19.       elseif c == "." then
  20.          set_floor("fl-water",i-1,line)
  21.       elseif c == "+" then
  22.          set_floor("fl-samba",i-1,line)
  23.          set_stone("st-wood",i-1,line)
  24.       elseif c == "-" then
  25.          set_floor("fl-samba",i-1,line)
  26.       else
  27.          set_floor("fl-abyss",i-1,line)
  28.       end
  29.     end
  30. end
  31.  
  32. renderLine( 0, "        #O#         ")
  33. renderLine( 1, "        #.#         ")
  34. renderLine( 2, "        #-#         ")
  35. renderLine( 3, "        #-#         ")
  36. renderLine( 4, "        #-#         ")
  37. renderLine( 5, "        #+##########")
  38. renderLine( 6, "#########--+------.O")
  39. renderLine( 7, "O.------+--#########")
  40. renderLine( 8, "##########+#        ")
  41. renderLine( 9, "         #-#        ")
  42. renderLine(10, "         #-#        ")
  43. renderLine(11, "         #.#        ")
  44. renderLine(12, "         #O#        ")
  45.  
  46. oxyd_shuffle()
  47.  
  48. set_actor("ac-blackball", 10, 7, {player=0})
  49.  
  50.