home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin42.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.2 KB  |  48 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. fill_floor("fl-water", 0,0,levelw,levelh)
  9.  
  10. oxyd_default_flavor = "d"
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.         local c = strsub( pattern, i, i)
  15.         if c =="#" then
  16.             set_stone( "st-yinyang2", i-1, line)
  17.             set_floor( "fl-wood", i-1, line)
  18.         elseif c == "o" then
  19.             oxyd( i-1, line)
  20.         elseif c == "=" then
  21.             set_floor( "fl-wood", i-1, line)
  22.         end
  23.     end
  24. end
  25.  
  26. renderLine(  0, " o                  ")
  27. renderLine(  1, "o################## ")
  28. renderLine(  2, " #  #  #o   #  # o# ")
  29. renderLine(  3, " #  #  #    #  #  # ")
  30. renderLine(  4, " #  #  #    #  #  # ")
  31. renderLine(  5, " #  #o #    #  #  # ")
  32. renderLine(  6, " #######====####### ")
  33. renderLine(  7, " #  #  #    # o#  # ")
  34. renderLine(  8, " #  #  #    #  #  # ")
  35. renderLine(  9, " #  #  #    #  #  # ")
  36. renderLine( 10, " #o #  #   o#  #  # ")
  37. renderLine( 11, " ##################o")
  38. renderLine( 12, "                  o ")
  39.  
  40. oxyd_shuffle()
  41.  
  42. set_item("it-yinyang", 9, 6)
  43. set_item("it-yinyang",10, 6)
  44.  
  45. set_actor("ac-whiteball", 9.5, 6.5, {player=1})
  46. set_actor("ac-blackball",10.5, 6.5, {player=0})
  47.  
  48.