home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp99.lua < prev    next >
Text File  |  2003-09-19  |  1KB  |  42 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #099
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b" 
  8. set_actor("ac-blackball",9.5,5.5, {player=0})
  9. set_actor("ac-rotor", 1.5,2.5, {range=25, force=33})
  10. set_actor("ac-rotor", 18.5,2.5, {range=25, force=33}) 
  11. enigma.AddConstantForce(0,30)
  12. fill_floor("fl-floor_001",0,0,levelw,levelh)
  13.  
  14. function renderLine( line, pattern)
  15.     for i=1, strlen(pattern) do
  16.       local c = strsub( pattern, i, i)
  17.       if c ==   "#" then
  18.          set_stone("st-invisible", i-1,line)
  19.       elseif c=="b" then
  20.          set_stone("st-actorimpulse_invisible", i-1,line)
  21.       elseif c=="O" then
  22.      oxyd(i-1,line)
  23.         end
  24.     end  
  25. end
  26. --               01234567890123456789
  27. renderLine(00 , "####################")
  28. renderLine(01 , "####################")
  29. renderLine(02 , "#     O      O     #")
  30. renderLine(03 , "#  O            O  #")
  31. renderLine(04 , "#                  #")  
  32. renderLine(05 , "#      O    O      #")
  33. renderLine(06 , "#                  #")
  34. renderLine(07 , "#                  #")
  35. renderLine(08 , "#  O            O  #")
  36. renderLine(09 , "#                  #")
  37. renderLine(10 , "#                  #")
  38. renderLine(11 , "#bbbbbbbbbbbbbbbbbb#")
  39. renderLine(12 , "####################")
  40. --               01234567890123456789
  41.  
  42. oxyd_shuffle()