home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp89.lua < prev    next >
Text File  |  2003-10-03  |  1KB  |  41 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #089
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "a"       -- Default flavor for oxyd stones.
  8. set_actor("ac-blackball",3.5,2.5, {player=0})
  9. set_actor("ac-killerball", 12.5,10.5, {mouseforce=1, controllers=1}) 
  10.  
  11. fill_floor("fl-water",0,0,levelw,levelh)
  12. fill_floor("fl-sand",1,1,18,11)
  13.  
  14. function renderLine( line, pattern)
  15.     for i=1, strlen(pattern) do
  16.       local c = strsub( pattern, i, i)
  17.       if c ==   "#" then
  18.          set_stone("st-invisible", i-1,line)
  19.       elseif c=="O" then
  20.      oxyd(i-1,line)
  21.         end
  22.     end  
  23. end
  24. --               01234567890123456789
  25. renderLine(00 , "                    ")
  26. renderLine(01 , " ################## ")
  27. renderLine(02 , "#O# # #   #       O#")
  28. renderLine(03 , "# # # # ### #####  #")
  29. renderLine(04 , "# #       #     #  #")  
  30. renderLine(05 , "# ######  ####  #  #")
  31. renderLine(06 , "#    O#         #  #")
  32. renderLine(07 , "#  #  #    # #O    #")
  33. renderLine(08 , "#  #  #### # ### # #")
  34. renderLine(09 , "#  #       #     # #")
  35. renderLine(10 , "#O #       #     #O#")
  36. renderLine(11 , " ################## ")
  37. renderLine(12 , "                    ")
  38. --               01234567890123456789
  39.  
  40. oxyd_shuffle()
  41.