home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp32.lua < prev    next >
Encoding:
Text File  |  2003-08-05  |  1.5 KB  |  46 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #032
  3. -- problem: trigger under grates -> Killstone doesn't work, therefore fl-abyss
  4.  
  5. levelw = 20
  6. levelh = 13
  7. create_world(levelw, levelh)
  8. oxyd_default_flavor = "b"
  9. set_actor("ac-blackball", 10,6.5, {player=0})
  10. fill_floor("fl-woven",0,0,levelw,levelh)
  11. function renderLine( line, pattern)
  12.     for i=1, strlen(pattern) do
  13.       local c = strsub( pattern, i, i)
  14.       if c ==   "#" then
  15.          set_stone("st-fakeoxyd", i-1,line)
  16.       elseif c=="." then                 
  17.          set_item("it-extralife", i-1,line)
  18.       elseif c=="G" then                 
  19.          set_stone("st-grate2", i-1,line)
  20.          set_floor("fl-abyss", i-1,line)
  21.       elseif c=="g" then                 
  22.          set_stone("st-grate2", i-1,line)
  23.          set_floor("fl-black", i-1,line)         
  24.       elseif c=="O" then
  25.      oxyd(i-1,line)
  26.         end
  27.     end  
  28. end
  29. --               01234567890123456789
  30. renderLine(00 , "####################")
  31. renderLine(01 , "# O  #  #..#  #  # #")
  32. renderLine(02 , "# G  G .G. g  g  G #")
  33. renderLine(03 , "# #  O  #  #  #  # #")
  34. renderLine(04 , "# g  G  G  G  G  G #")  
  35. renderLine(05 , "# #  #  O  #  #  # #")
  36. renderLine(06 , "# G  G  G  G  G  g #")
  37. renderLine(07 , "# #  #  #  O  #  # #")
  38. renderLine(08 , "# G  G  G  G  G  G #")
  39. renderLine(09 , "# #  #  #  #  O  # #")
  40. renderLine(10 , "# G  g  g .G  G  G #")
  41. renderLine(11 , "# #  #  #..#  # .O #")
  42. renderLine(12 , "####################")
  43. --               01234567890123456789
  44.                      
  45. oxyd_shuffle()
  46.