home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp17.lua < prev    next >
Text File  |  2003-07-29  |  1KB  |  45 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #017
  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", 1.5,1.5, {player=0})
  10.  
  11. fill_floor("fl-bluegreenx",0,0,levelw,levelh)
  12.  
  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-door_b", i-1,line)
  18.       elseif c=="D" then
  19.      set_stone("st-death",i-1,line)         
  20.       elseif c=="F" then
  21.      set_item("it-flagblack", i-1,line)  
  22.       elseif c=="N" then
  23.      document(i-1,line,"Please remember:    42")
  24.       elseif c=="O" then
  25.      oxyd(i-1,line)
  26.         end
  27.     end  
  28. end
  29. --               01234567890123456789
  30. renderLine(00 , "####################")
  31. renderLine(01 , "#F       DN        #")
  32. renderLine(02 , "#######O #######D  #")
  33. renderLine(03 , "#        #      #  #")
  34. renderLine(04 , "#  D###### O#D  #  #")  
  35. renderLine(05 , "#  #     #   #  #  #")
  36. renderLine(06 , "#  #  O  ##D #  #  #")
  37. renderLine(07 , "#  #  #  #   #  #  #")
  38. renderLine(08 , "#  #  #  # ###  #  #")
  39. renderLine(09 , "#  O  #  #   #  #  #")
  40. renderLine(10 , "#     #  D#O D  O  #")
  41. renderLine(11 , "#     #      #     #")
  42. renderLine(12 , "####################")
  43. --               01234567890123456789
  44. oxyd_shuffle()
  45.