home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp70.lua < prev    next >
Encoding:
Text File  |  2003-09-24  |  2.2 KB  |  63 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #070
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. enigma.SlopeForce = 10
  8. fill_floor("fl-abyss", 0,0, level_width,level_height)
  9.  
  10. function renderLine( line, pattern)
  11.     for i=1, strlen(pattern) do
  12.       local c = strsub( pattern, i, i)
  13.       if c ==   "#" then
  14.          set_stone("st-greenbrown",i-1,line)
  15.       elseif c=="H" then
  16.          set_floor("fl-gray",i-1,line)
  17.          hollow(i-1,line)
  18.       elseif c=="1" then
  19.      set_floor("fl-gradient",  i-1,  line, {type=2})
  20.       elseif c=="2" then
  21.      set_floor("fl-gradient",  i-1,  line, {type=1})
  22.       elseif c=="3" then
  23.      set_floor("fl-gradient",  i-1,  line, {type=3})
  24.       elseif c=="4" then
  25.      set_floor("fl-gradient",  i-1,  line, {type=4})    
  26.       elseif c=="a" then
  27.          set_stone("st-actorimpulse_invisible",i-1,line)
  28.      set_floor("fl-gradient",  i-1,  line, {type=2})
  29.       elseif c=="b" then
  30.          set_stone("st-actorimpulse_invisible",i-1,line)      
  31.      set_floor("fl-gradient",  i-1,  line, {type=1})
  32.       elseif c=="c" then
  33.          set_stone("st-actorimpulse_invisible",i-1,line)      
  34.      set_floor("fl-gradient",  i-1,  line, {type=3})
  35.       elseif c=="d" then
  36.          set_stone("st-actorimpulse_invisible",i-1,line)      
  37.      set_floor("fl-gradient",  i-1,  line, {type=4})               
  38.       elseif c=="M" then
  39.          set_stone("st-greenbrown",i-1,line)
  40.         end
  41.     end
  42. end
  43. --              01234567890123456789
  44. renderLine(00, "###  ### ###########")
  45. renderLine(01, "#a#  #H# #H3333333c#")
  46. renderLine(02, "#1#  #2# ###########")
  47. renderLine(03, "#1#  #2#            ")
  48. renderLine(04, "#1#  #2#            ")  
  49. renderLine(05, "#1#  #2#            ")
  50. renderLine(06, "#1#  #2#            ")
  51. renderLine(07, "#1#  #2#            ")
  52. renderLine(08, "#1#  #2#            ")
  53. renderLine(09, "#1#  #2#            ")
  54. renderLine(10, "#1#  #2# ###########")
  55. renderLine(11, "#H#  #b# #d4444444H#")
  56. renderLine(12, "###  ### ###########")
  57. --              01234567890123456789
  58.  
  59. set_actor("ac-whiteball-small", 1.5, 5.5, {player=0, mouseforce=1})
  60. set_actor("ac-whiteball-small",6.5, 5.5, {player=0, mouseforce=1})
  61. set_actor("ac-whiteball-small", 14.5, 1.5, {player=0, mouseforce=1})
  62. set_actor("ac-whiteball-small",14.5, 11.5, {player=0, mouseforce=1})
  63.