home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp93.lua < prev    next >
Encoding:
Text File  |  2003-08-19  |  1.3 KB  |  44 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #93
  3.  
  4. levelw = 20
  5. levelh = 13
  6.  
  7. create_world(levelw, levelh)
  8. oxyd_default_flavor = "b"
  9. set_actor("ac-blackball", 10,6.5, {player=0})
  10. fill_floor("fl-space", 0,0, levelw,levelh)
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c ==   "#" then
  16.          set_stone("st-invisible", i-1,line)
  17.       elseif c =="D" then
  18.          set_stone("st-death",i-1,line)
  19.       elseif c =="d" then
  20.          set_stone("st-death_invisible",i-1,line)
  21.       elseif c =="f" then
  22.          set_floor("fl-black",i-1,line)
  23.       elseif c=="O" then                                                               
  24.      oxyd(i-1,line) 
  25.         end
  26.     end  
  27. end
  28. --               01234567890123456789
  29. renderLine(00 , "####################")
  30. renderLine(01 , "#                  #")
  31. renderLine(02 , "#  d d        d d  #")
  32. renderLine(03 , "#ffDfDffffffffDfDff#")
  33. renderLine(04 , "#                  #")  
  34. renderLine(05 , "#                  #")
  35. renderLine(06 , "# O O O DffD O O O #")
  36. renderLine(07 , "#                  #")
  37. renderLine(08 , "#                  #")
  38. renderLine(09 , "#ffDfDffffffffDfDff#")
  39. renderLine(10 , "#  d d        d d  #")
  40. renderLine(11 , "#                  #")
  41. renderLine(12 , "####################") 
  42. --               01234567890123456789
  43.  
  44. oxyd_shuffle()