home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin24.lua < prev    next >
Text File  |  2003-01-05  |  1KB  |  52 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( 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 =="w" then
  12.         set_floor( "fl-wood", i-1, line)
  13.             set_stone( "st-wood", i-1, line)
  14.         elseif c == "o" then
  15.         set_floor( "fl-wood", i-1, line)
  16.             oxyd( i-1, line)
  17.     elseif c == "#" then
  18.         set_floor( "fl-wood", i-1, line)
  19.         set_stone( "st-greenbrown", i-1, line)
  20.         elseif c == " " then
  21.             set_floor( "fl-abyss", i-1, line)
  22.     elseif c == "=" then
  23.         set_floor( "fl-wood", i-1, line)
  24.         end
  25.     end
  26. end
  27.  
  28. -- Abyss:   " "
  29. -- Floor:   "="
  30. -- Wood:    "w"
  31. -- Brownie  "b"
  32. -- Oxyd:    "o"
  33.  
  34. renderLine(  0, "####################")
  35. renderLine(  1, "#==================#")
  36. renderLine(  2, "#==================#")
  37. renderLine(  3, "#==================#")
  38. renderLine(  4, "#==     ====     ==#")
  39. renderLine(  5, "#=  www  ==  www  =#")
  40. renderLine(  6, "#= w===w == wo=ow =#")
  41. renderLine(  7, "#=  www  ==  www  =#")
  42. renderLine(  8, "#==     ====     ==#")
  43. renderLine(  9, "#==================#")
  44. renderLine( 10, "#==================#")
  45. renderLine( 11, "#==================#")
  46. renderLine( 12, "####################")
  47.  
  48. oxyd_shuffle()
  49.  
  50. set_actor("ac-blackball", 5.5, 6.5, {player=0})
  51.  
  52.