home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss7.lua < prev    next >
Encoding:
Text File  |  2003-08-20  |  1.8 KB  |  56 lines
  1. -- Sven Siggelkow 2003
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "c"
  8. set_actor("ac-blackball", 8.5,6.5, {player=0})
  9. enigma.ConserveLevel=FALSE
  10.  
  11. fill_floor("fl-black", 0,0, levelw,levelh)
  12. fill_items( "it-burnable", 0, 0, 20, 13)
  13. enigma.KillItem(11,1) -- no burning water
  14.  
  15. function renderLine( line, pattern)
  16.     for i=1, strlen(pattern) do
  17.       local c = strsub( pattern, i, i)
  18.       if c ==   "#" then
  19.          set_stone("st-blocker", i-1,line)
  20.       elseif c =="I" then
  21.          set_stone("st-stoneimpulse",i-1,line)
  22.       elseif c =="W" then
  23.          set_stone("st-wood", i-1,line)
  24.       elseif c =="P" then
  25.          set_stone("st-pull", i-1,line)
  26.          set_item("it-extinguisher", i-1,line)         
  27.       elseif c =="c" then
  28.          set_item("it-crack3", i-1,line) 
  29.       elseif c =="b" then
  30.          set_item("it-brush", i-1,line)       
  31.       elseif c =="f" then
  32.          set_floor("fl-water", i-1,line)
  33.       elseif c=="O" then                                                               
  34.      oxyd(i-1,line) 
  35.       elseif c=="." then
  36.      set_item("it-burnable-ignited", i-1,line) 
  37.         end
  38.     end  
  39. end
  40. --               01234567890123456789
  41. renderLine(00 , "####################")
  42. renderLine(01 , "#O        cfc     O#")
  43. renderLine(02 , "# .        c     . #")
  44. renderLine(03 , "#                  #")
  45. renderLine(04 , "#                  #")  
  46. renderLine(05 , "#        WWW       #")
  47. renderLine(06 , "#        WIP       #")
  48. renderLine(07 , "#        WWW       #")
  49. renderLine(08 , "#                  #")
  50. renderLine(09 , "#                  #")
  51. renderLine(10 , "# .              . #")
  52. renderLine(11 , "#O        b       O#")
  53. renderLine(12 , "####################") 
  54. --               01234567890123456789
  55.  
  56.