home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin05.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.0 KB  |  46 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. fill_floor("fl-bluegreen", 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 == "$" then
  18.             set_stone( "st-death", i-1, line)
  19.         end
  20.     end
  21. end
  22.  
  23. -- Floor:   " "
  24. -- Border:  "#"
  25. -- Oxyd:    "o"
  26. -- Death:   "$"
  27.  
  28. renderLine(  0, "####################")
  29. renderLine(  1, "#        #         #")
  30. renderLine(  2, "#######o ########o #")
  31. renderLine(  3, "#        #         #")
  32. renderLine(  4, "#  $#####$ o########")
  33. renderLine(  5, "#  #     #         #")
  34. renderLine(  6, "#  #  o  #######$  #")
  35. renderLine(  7, "#  #  #  #      #  #")
  36. renderLine(  8, "#  #  #  # o#$  #  #")
  37. renderLine(  9, "#  #  #  #   #  #  #")
  38. renderLine( 10, "#  o  #  $#o $  o  #")
  39. renderLine( 11, "#     #      #     #")
  40. renderLine( 12, "####################")
  41.  
  42. oxyd_shuffle()
  43.  
  44. set_actor("ac-blackball", 1.5, 1.5, {player=0})
  45.  
  46.