home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin83.lua < prev    next >
Text File  |  2003-03-18  |  1KB  |  48 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.          fakeoxyd(i-1,line, 1,1)
  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-water",i-1,line)
  28.       end
  29.     end
  30. end
  31.  
  32. renderLine( 0, "                    ")
  33. renderLine( 1, "                    ")
  34. renderLine( 2, "      #####         ")
  35. renderLine( 3, "      #---#         ")
  36. renderLine( 4, "      #-++# ###     ")
  37. renderLine( 5, "      #-+-# O.O     ")
  38. renderLine( 6, "      ###-###.#     ")
  39. renderLine( 7, "       ##----.#     ")
  40. renderLine( 8, "       #---#--#     ")
  41. renderLine( 9, "       #---####     ")
  42. renderLine(10, "       #####        ")
  43. renderLine(11, "                    ")
  44. renderLine(12, "                    ")
  45.  
  46. set_actor("ac-blackball", 7.5, 4.5, {player=0})
  47.  
  48.