home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp63.lua < prev    next >
Text File  |  2003-10-01  |  2KB  |  66 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #063
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"
  8. set_actor("ac-blackball", 9.5,6.5, {player=0})
  9. set_actor("ac-killerball", 5.5,6.5, {mouseforce=1, controllers=1})
  10. set_actor("ac-killerball", 13.5,6.5, {mouseforce=1, controllers=1})
  11. fill_floor("fl-abyss",0,0,levelw,levelh)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c ==   "F" then
  17.          set_stone("st-fakeoxyd", i-1,line)
  18.       elseif c=="#" then
  19.          set_floor("fl-normal",  i-1,  line) 
  20.       elseif c=="a" then
  21.          set_floor("fl-gradient",  i-1,  line, {type=12})   
  22.       elseif c=="b" then
  23.          set_floor("fl-gradient",  i-1,  line, {type=10})         
  24.       elseif c=="c" then
  25.          set_floor("fl-gradient",  i-1,  line, {type=11})   
  26.       elseif c=="d" then
  27.          set_floor("fl-gradient",  i-1,  line, {type=9})                      
  28.       elseif c=="1" then
  29.      set_floor("fl-gradient",  i-1,  line, {type=3})         
  30.       elseif c=="2" then
  31.      set_floor("fl-gradient",  i-1,  line, {type=4})   
  32.       elseif c=="3" then
  33.      set_floor("fl-gradient",  i-1,  line, {type=1})   
  34.       elseif c=="4" then
  35.      set_floor("fl-gradient",  i-1,  line, {type=2})         
  36.       elseif c=="5" then
  37.          set_floor("fl-gradient",  i-1,  line, {type=5})   
  38.       elseif c=="6" then
  39.          set_floor("fl-gradient",  i-1,  line, {type=6})       
  40.       elseif c=="7" then
  41.          set_floor("fl-gradient",  i-1,  line, {type=7})         
  42.       elseif c=="8" then
  43.          set_floor("fl-gradient",  i-1,  line, {type=8})
  44.       elseif c=="O" then
  45.      oxyd(i-1,line)         
  46.         end
  47.     end  
  48. end
  49. --               01234567890123456789
  50. renderLine(00 , "                    ")
  51. renderLine(01 , "    FOFF   FFOF     ")
  52. renderLine(02 , "    F56F   F56F     ")
  53. renderLine(03 , "    O12OFOFO12O     ")
  54. renderLine(04 , "    F1c33333d2F     ")  
  55. renderLine(05 , "    F1#######2F     ")
  56. renderLine(06 , "    O1#######2O     ")
  57. renderLine(07 , "    F1#######2F     ")
  58. renderLine(08 , "    F1a44444b2F     ")
  59. renderLine(09 , "    O12OFOFO12O     ")
  60. renderLine(10 , "    F78F   F78F     ")
  61. renderLine(11 , "    FOFF   FFOF     ")
  62. renderLine(12 , "                    ") 
  63. --               01234567890123456789
  64.  
  65. oxyd_shuffle()
  66.