home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp84.lua < prev    next >
Text File  |  2003-09-19  |  2KB  |  59 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #084
  3.  
  4. levelw = 20
  5. levelh = 25
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"
  8. set_actor("ac-blackball", 9.5,5.5, {player=0})
  9. fill_floor("fl-space",0,0,levelw,levelh)
  10. fill_floor("fl-metal",1,1,levelw-2,levelh-2)
  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_invisible", i-1,line)
  17.       elseif c=="I" then
  18.          set_stone("st-invisible", i-1,line) 
  19.        
  20.       elseif c=="0" then
  21.      set_item("it-crack0", i-1,line)   
  22.       elseif c=="1" then
  23.      set_item("it-crack1", i-1,line)   
  24.       elseif c=="R" then
  25.      set_actor("ac-rotor", i-1+0.5,line+0.5, {mouseforce=1, range=50, force=20})
  26.       elseif c=="O" then
  27.      oxyd(i-1,line)
  28.         end
  29.     end  
  30. end
  31. --               01234567890123456789
  32. renderLine(00 , "#I#I#I#III#I#I#II###")
  33. renderLine(01 , "I                  I")
  34. renderLine(02 , "I  O    1    1  0  I")
  35. renderLine(03 , "I  1               #")
  36. renderLine(04 , "#     1            #")  
  37. renderLine(05 , "#             O    I")
  38. renderLine(06 , "I          1  0    #")
  39. renderLine(07 , "#  O  0            I")
  40. renderLine(08 , "I                  #")
  41. renderLine(09 , "I       0 0   O    #")
  42. renderLine(10 , "#      0 0      11 #")
  43. renderLine(11 , "#                  I")
  44. renderLine(12 , "#00  01     0      I")
  45. renderLine(13 , "I                  #")
  46. renderLine(14 , "I       0  1   1   #")
  47. renderLine(15 , "I   O              I")
  48. renderLine(16 , "#      0       O   I")
  49. renderLine(17 , "I       1          #")
  50. renderLine(18 , "I   O         00   I")
  51. renderLine(19 , "I  0   0         0 #")
  52. renderLine(20 , "#                  I")
  53. renderLine(21 , "I   1         O    #")
  54. renderLine(22 , "I   0   0 0     00 I")
  55. renderLine(23 , "I                 RI")
  56. renderLine(24 , "##III##III#I##IIII##")
  57. --               01234567890123456789
  58.  
  59. oxyd_shuffle()