home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin22.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. function renderLine( line, pattern)
  9.     for i=1, strlen(pattern) do
  10.         local c = strsub( pattern, i, i)
  11.         if c =="#" then
  12.         set_floor( "fl-rough", i-1, line)
  13.             set_stone( "st-fakeoxyd", i-1, line)
  14.         elseif c == "o" then
  15.         set_floor( "fl-rough", i-1, line)
  16.             oxyd( i-1, line)
  17.         elseif c == " " then
  18.             set_floor( "fl-abyss", i-1, line)
  19.     elseif c == "=" then
  20.         set_floor( "fl-rough", i-1, line)
  21.         end
  22.     end
  23. end
  24.  
  25. -- Abyss:   " "
  26. -- Floor:   "="
  27. -- Border:  "#"
  28. -- Oxyd:    "o"
  29.  
  30. renderLine(  0, "######o########o####")
  31. renderLine(  1, "#======= ==========#")
  32. renderLine(  2, "#==   == ==========#")
  33. renderLine(  3, "#== =      =    o==#")
  34. renderLine(  4, "#== = ========== ==#")
  35. renderLine(  5, "#== = ========== ==#")
  36. renderLine(  6, "o== =  ===== === ==o")
  37. renderLine(  7, "#== ======== ===  =#")
  38. renderLine(  8, "#==o======== ======#")
  39. renderLine(  9, "#====== = ==    ===#")
  40. renderLine( 10, "#=== =  ======= ===#")
  41. renderLine( 11, "#=== == ======= ===#")
  42. renderLine( 12, "#o####o###o#######o#")
  43.  
  44. oxyd_shuffle()
  45.  
  46. set_actor("ac-blackball", 11.5, 5.5, {player=0})
  47.  
  48.