home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp09.lua < prev    next >
Encoding:
Text File  |  2003-07-28  |  1.4 KB  |  45 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #009
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"       -- Default flavor for oxyd stones.
  8.  
  9. set_actor("ac-blackball", 10.5,6.5, {player=0})
  10.  
  11. fill_floor("fl-normal", 0,0, 15,level_height)
  12. fill_floor("fl-gray", 16,0, level_width,level_height)
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c ==   "#" then
  17.          set_stone("st-actorimpulse",i-1,line)
  18.       elseif c=="S" then
  19.          set_stone("st-grate2",i-1,line)
  20.       elseif c=="G" then
  21.      set_floor("fl-gradient",  i-1,  line, {type=3})
  22.       elseif c=="W" then
  23.          set_stone("st-metal",i-1,line)
  24.       elseif c=="O" then
  25.      oxyd(i-1,line)
  26.         end
  27.     end
  28. end
  29. --              01234567890123456789
  30. renderLine(00, "WWWWWWWWWWWWWWWWWWWW")
  31. renderLine(01, "W              G   W")
  32. renderLine(02, "W     WWWWWWW  G   W")
  33. renderLine(03, "W     W     W  G O W")
  34. renderLine(04, "W     W     W  G   W")  
  35. renderLine(05, "W     S     W  G   W")
  36. renderLine(06, "W     S  O  W  G O W")
  37. renderLine(07, "W     S     W  G   W")
  38. renderLine(08, "W     W     W  G   W")
  39. renderLine(09, "W     W     W  G O W")
  40. renderLine(10, "W     WWWWWWW  G   W")
  41. renderLine(11, "W              G   W")
  42. renderLine(12, "WWWWWWWWWWWWWWWWWWWW")
  43. --              01234567890123456789
  44. oxyd_shuffle()
  45.