home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp47.lua < prev    next >
Encoding:
Text File  |  2003-09-19  |  1.4 KB  |  44 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #047
  3. -- problem: killer should be a spermbird, which is seeking randomly for the marble
  4.  
  5. levelw = 20
  6. levelh = 13
  7. create_world(levelw, levelh)
  8. oxyd_default_flavor = "b" 
  9. set_actor("ac-blackball",10.5,9.5, {player=0})
  10. set_actor("ac-rotor", 10.5,3.5, {mouseforce=0, range=5, force=12}) 
  11. fill_floor("fl-abyss",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-rock4", i-1,line)
  18.       elseif c=="f" then
  19.          set_floor("fl-himalaya", i-1,line)
  20.       elseif c=="F" then
  21.          set_floor("fl-himalaya", i-1,line)
  22.          set_item("it-extralife", i-1,line)
  23.       elseif c=="O" then
  24.      oxyd(i-1,line)
  25.         end
  26.     end  
  27. end
  28. --               01234567890123456789
  29. renderLine(00 , "#O########O######O##")
  30. renderLine(01 , "Offffffffffffff  f #")
  31. renderLine(02 , "#    f f      f  f #")
  32. renderLine(03 , "#fffff f fff  f  f #")
  33. renderLine(04 , "#f  f  f f f  f  f #")  
  34. renderLine(05 , "#f  f  f f f  f  f #")
  35. renderLine(06 , "#f  f  f O f  ffff #")
  36. renderLine(07 , "#Fffffff   ffff  f #")
  37. renderLine(08 , "#f  f  f   f  f  f #")
  38. renderLine(09 , "#f  f  fffff  f  f #")
  39. renderLine(10 , "#f  f         f  f #")
  40. renderLine(11 , "#fffffffffffffFfff #")
  41. renderLine(12 , "##########O#########")
  42. --               01234567890123456789
  43.  
  44. oxyd_shuffle()