home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp41.lua < prev    next >
Text File  |  2003-09-19  |  1KB  |  50 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #041
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "a"
  8. set_actor("ac-blackball", 10,3.5, {player=0})
  9. set_actor("ac-rotor", 10,9.5, {mouseforce=1, range=10, force=-100}) 
  10. fill_floor("fl-floor_001",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-actorimpulse", i-1,line)
  17.       elseif c=="a" then
  18.      set_floor("fl-dunes", i-1,line)         
  19.       elseif c=="b" then
  20.      set_floor("fl-space", i-1,line) 
  21.       elseif c=="O" then
  22.      oxyd(i-1,line)         
  23.         end
  24.     end  
  25. end
  26. --               01234567890123456789
  27. renderLine(00 , "#OO##############OO#")
  28. renderLine(01 , "#                  #")
  29. renderLine(02 , "# #              # #")
  30. renderLine(03 , "#    aaaaaaaaaa    #")
  31. renderLine(04 , "#    abbbbbbbba    #")  
  32. renderLine(05 , "#    abbbbbbbba    #")
  33. renderLine(06 , "#    abbbbbbbba    #")
  34. renderLine(07 , "#    abbbbbbbba    #")
  35. renderLine(08 , "#    abbbbbbbba    #")
  36. renderLine(09 , "#    aaaaaaaaaa    #")
  37. renderLine(10 , "O #              # O")
  38. renderLine(11 , "O                  O")
  39. renderLine(12 , "####################") 
  40. --               01234567890123456789
  41.  
  42. oxyd_shuffle()
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.