home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp61.lua < prev    next >
Encoding:
Text File  |  2003-08-28  |  3.4 KB  |  77 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #061
  3. -- change rotors with spermbirds if implemented!
  4. -- floor between st-actorimpulse_invisible should be fl-abyss_fake
  5.  
  6. levelw = 58
  7. levelh = 13
  8. create_world(levelw, levelh)
  9. oxyd_default_flavor = "b"
  10. set_actor("ac-blackball", 7,4, {player=0})
  11. set_actor("ac-rotor", 11.5,10.5, {player=0, mouseforce=0, range=0, force=60})
  12. fill_floor("fl-abyss",0,0,levelw,levelh)
  13. draw_floor("fl-gradient", {23,3}, {1,0}, 12, {type=3})
  14. draw_floor("fl-gradient", {23,4}, {1,0}, 12, {type=4})
  15.  
  16. function renderLine( line, pattern)
  17.     for i=1, strlen(pattern) do
  18.       local c = strsub( pattern, i, i)
  19.       if c ==   "#" then
  20.          set_stone("st-invisible", i-1,line)
  21.       elseif c=="B" then
  22.      set_stone("st-actorimpulse_invisible", i-1,line)
  23.       elseif c=="f" then                                 
  24.          set_floor("fl-abyss_fake",  i-1,  line)
  25.       elseif c=="a" then
  26.          set_floor("fl-gradient",  i-1,  line, {type=12})   
  27.       elseif c=="b" then
  28.          set_floor("fl-gradient",  i-1,  line, {type=10})         
  29.       elseif c=="c" then
  30.          set_floor("fl-gradient",  i-1,  line, {type=11})   
  31.       elseif c=="d" then
  32.          set_floor("fl-gradient",  i-1,  line, {type=9})                      
  33.       elseif c=="1" then
  34.      set_floor("fl-gradient",  i-1,  line, {type=3})         
  35.       elseif c=="2" then
  36.      set_floor("fl-gradient",  i-1,  line, {type=4})   
  37.       elseif c=="3" then
  38.      set_floor("fl-gradient",  i-1,  line, {type=1})   
  39.       elseif c=="4" then
  40.      set_floor("fl-gradient",  i-1,  line, {type=2})         
  41.       elseif c=="5" then
  42.          set_floor("fl-gradient",  i-1,  line, {type=5})   
  43.       elseif c=="6" then
  44.          set_floor("fl-gradient",  i-1,  line, {type=6})       
  45.       elseif c=="7" then
  46.          set_floor("fl-gradient",  i-1,  line, {type=7})         
  47.       elseif c=="8" then
  48.          set_floor("fl-gradient",  i-1,  line, {type=8})
  49.       elseif c=="I" then
  50.      set_stone("st-invisible", i-1,line)
  51.      set_floor("fl-gradient",  i-1,  line, {type=1})   
  52.       elseif c=="i" then
  53.      set_stone("st-invisible", i-1,line)
  54.      set_floor("fl-gradient",  i-1,  line, {type=2})         
  55.       elseif c=="O" then
  56.      oxyd(i-1,line)         
  57.         end
  58.     end  
  59. end
  60. --               0123456789012345678901234567890123456789012345678901234567
  61. renderLine(00 , "##########################################################")
  62. renderLine(01 , "#                                                        #")
  63. renderLine(02 , "#                      BBBBBBBBBBBB                      #")
  64. renderLine(03 , "# 533333333333333333333ffffffffffff333333333333333333336 #")
  65. renderLine(04 , "# 1a4444444444444444444ffffffffffff4444444444444444444b2 #")  
  66. renderLine(05 , "# 12  O             O  BBBBBBBBBBBB  O              O 12 #")
  67. renderLine(06 , "# 12                                                  12 #")
  68. renderLine(07 , "# 12    O         O                                   12 #")
  69. renderLine(08 , "# 1c3333333333333333333IIIIIIIIIIII3333333333333333333d2 #")
  70. renderLine(09 , "# 744444444444444444444iiiiiiiiiiii444444444444444444448 #")
  71. renderLine(10 , "#                                      O           O     #")
  72. renderLine(11 , "#                                                        #")
  73. renderLine(12 , "##########################################################") 
  74. --               0123456789012345678901234567890123456789012345678901234567
  75.  
  76. oxyd_shuffle()
  77.