home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin23.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.3 KB  |  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 == "b" then
  18.         set_floor( "fl-wood", i-1, line)
  19.         set_stone( "st-greenbrown_move", 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, "        o           ")
  36. renderLine(  2, "                    ")
  37. renderLine(  3, "  ====         =    ")
  38. renderLine(  4, " ==w=====      ==   ")
  39. renderLine(  5, " =====w==b== =====  ")
  40. renderLine(  6, " ==b=w==w==  ===b=  ")
  41. renderLine(  7, " ===b====w=  ==bo   ")
  42. renderLine(  8, " ===ww=bw   ====b   ")
  43. renderLine(  9, " o==ww==    ======  ")
  44. renderLine( 10, "    ==        ===   ")
  45. renderLine( 11, "          o         ")
  46. renderLine( 12, "                    ")
  47.  
  48. oxyd_shuffle()
  49.  
  50. set_actor("ac-blackball", 5.5, 4.5, {player=0})
  51.  
  52.