home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp97.lua < prev    next >
Text File  |  2003-08-18  |  5KB  |  122 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #097
  3.  
  4. levelw = 21
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "a"
  8. set_actor("ac-blackball", 10,6.5, {player=0})
  9. fill_floor("fl-stone",0,0,levelw,levelh)
  10.  
  11. function renderLine( line, pattern)
  12.     for i=1, strlen(pattern) do
  13.       local c = strsub( pattern, i, i)
  14.       if c ==   "#" then
  15.          set_stone("st-door_b", i-1,line)
  16.       elseif c =="t" then                                                               
  17.          set_stone("st-timer", i-1,line)
  18.       elseif c=="1" then
  19.          set_stone("st-timer", i-1,line, {action="callback", target="s1", interval=0.5})
  20.       elseif c=="2" then
  21.          set_stone("st-timer", i-1,line, {action="callback", target="s2", interval=2.5})
  22.       elseif c=="3" then
  23.          set_stone("st-timer", i-1,line, {action="callback", target="s3", interval=3})
  24.       elseif c=="4" then
  25.          set_stone("st-timer", i-1,line, {action="callback", target="s4", interval=1})
  26.       elseif c=="5" then
  27.          set_stone("st-timer", i-1,line, {action="callback", target="s5", interval=0.8333})
  28.       elseif c=="a" then
  29.          set_stone("st-door_c", i-1, line, {name="a"})
  30.       elseif c=="b" then
  31.          set_stone("st-door_c", i-1, line, {name="b"})
  32.       elseif c=="c" then
  33.          set_stone("st-door_c", i-1, line, {name="c"})
  34.       elseif c=="d" then
  35.          set_stone("st-door_c", i-1, line, {name="d"})
  36.       elseif c=="e" then
  37.          set_stone("st-door_c", i-1, line, {name="e"})
  38.       elseif c=="f" then
  39.          set_stone("st-door_c", i-1, line, {name="f"})
  40.       elseif c=="g" then
  41.          set_stone("st-door_c", i-1, line, {name="g"})
  42.       elseif c=="h" then
  43.          set_stone("st-door_c", i-1, line, {name="h"})
  44.       elseif c=="i" then
  45.          set_stone("st-door_c", i-1, line, {name="i"})
  46.       elseif c=="j" then
  47.          set_stone("st-door_c", i-1, line, {name="j"})
  48.       elseif c=="k" then
  49.          set_stone("st-door_c", i-1, line, {name="k"})
  50.       elseif c=="l" then
  51.          set_stone("st-door_c", i-1, line, {name="l"})
  52.       elseif c=="m" then
  53.          set_stone("st-door_c", i-1, line, {name="m"})
  54.       elseif c=="n" then
  55.          set_stone("st-door_c", i-1, line, {name="n"})
  56.       elseif c=="o" then
  57.          set_stone("st-door_c", i-1, line, {name="o"})
  58.       elseif c=="p" then
  59.          set_stone("st-door_c", i-1, line, {name="p"})
  60.       elseif c=="q" then
  61.          set_stone("st-door_c", i-1, line, {name="q"})
  62.       elseif c=="O" then                                                                        
  63.      oxyd(i-1,line)         
  64.         end
  65.     end  
  66. end
  67. --               01234567890123456789 
  68. renderLine(00 , "12345ttttttttttttttt")
  69. renderLine(01 , "####################")
  70. renderLine(02 , "#O #   #    #   # O#")
  71. renderLine(03 , "#  o   p    j   a  #")
  72. renderLine(04 , "##e#######l###f##b##")  
  73. renderLine(05 , "#  #   #    #   #  #")
  74. renderLine(06 , "#O # O g    m O # O#")
  75. renderLine(07 , "#  #   #    #   #  #")
  76. renderLine(08 , "##q#######n###h##k##")
  77. renderLine(09 , "#  i   d    c   #  #")
  78. renderLine(10 , "#O #   #    #   # O#")
  79. renderLine(11 , "####################")
  80. renderLine(12 , "tttttttttttttttttttt") 
  81. --               01234567890123456789 
  82.  
  83. oxyd_shuffle()
  84.  
  85. --double door  b e h
  86. local flags = {0,0,0}
  87. -- i           1 2 3
  88.  
  89. function s1()
  90. enigma.SendMessage(enigma.GetNamedObject("a"), "openclose", nil)
  91. enigma.SendMessage(enigma.GetNamedObject("b"), "openclose", nil)
  92. enigma.SendMessage(enigma.GetNamedObject("c"), "openclose", nil)
  93. enigma.SendMessage(enigma.GetNamedObject("d"), "openclose", nil)
  94. end
  95.  
  96. function s2()
  97. enigma.SendMessage(enigma.GetNamedObject("f"), "openclose", nil)
  98. enigma.SendMessage(enigma.GetNamedObject("g"), "openclose", nil)
  99. enigma.SendMessage(enigma.GetNamedObject("h"), "openclose", nil)
  100. enigma.SendMessage(enigma.GetNamedObject("i"), "openclose", nil)
  101. end
  102.  
  103. function s3()
  104. enigma.SendMessage(enigma.GetNamedObject("h"), "openclose", nil)
  105. enigma.SendMessage(enigma.GetNamedObject("j"), "openclose", nil)
  106. enigma.SendMessage(enigma.GetNamedObject("k"), "openclose", nil)
  107. end
  108.  
  109. function s4()
  110. enigma.SendMessage(enigma.GetNamedObject("l"), "openclose", nil)
  111. enigma.SendMessage(enigma.GetNamedObject("m"), "openclose", nil)
  112. enigma.SendMessage(enigma.GetNamedObject("n"), "openclose", nil)
  113. end
  114.  
  115. function s5()
  116. enigma.SendMessage(enigma.GetNamedObject("e"), "openclose", nil)
  117. enigma.SendMessage(enigma.GetNamedObject("o"), "openclose", nil)
  118. enigma.SendMessage(enigma.GetNamedObject("p"), "openclose", nil)
  119. enigma.SendMessage(enigma.GetNamedObject("q"), "openclose", nil)
  120. end
  121.  
  122.