home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp31.lua < prev    next >
Text File  |  2003-09-19  |  1KB  |  41 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #031
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "b"
  9. set_actor("ac-blackball", 10,5.5, {player=0})
  10. set_actor("ac-rotor", 10,11.5, {range=25, force=50})
  11. fill_floor("fl-samba",0,0,levelw,levelh)
  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-bigbrick", i-1,line)
  17.       elseif c=="." then
  18.          set_floor("fl-leaves", i-1,line)
  19.       elseif c=="O" then
  20.      oxyd(i-1,line)
  21.         end
  22.     end  
  23. end
  24. --               01234567890123456789
  25. renderLine(00 , "####################")
  26. renderLine(01 , "#.   .   .   .   . #")
  27. renderLine(02 , "# . . . O . . . . .#")
  28. renderLine(03 , "#  .O  .   .   .   #")
  29. renderLine(04 , "#.   .   .   O   . #")  
  30. renderLine(05 , "# . . . . . . . . .#")
  31. renderLine(06 , "#  .   .   .   .   #")
  32. renderLine(07 , "#.   .   .   .   . #")
  33. renderLine(08 , "# . .O. . . . . .O.#")
  34. renderLine(09 , "#  .   .   .   .   #")
  35. renderLine(10 , "#.   .   .  O.   . #")
  36. renderLine(11 , "# . . . . . . . . .#")
  37. renderLine(12 , "####################")
  38. --               01234567890123456789
  39.  
  40. oxyd_shuffle()
  41.