[Enigma-cvs] enigma/data/levels ss_esp37.lua,1.2,1.3

[Martin Hawlisch <address@hidden>]

Update of /cvsroot/enigma/enigma/data/levels
In directory subversions:/tmp/cvs-serv32719

Modified Files:
        ss_esp37.lua 
Log Message:
Update from Sven


Index: ss_esp37.lua
===================================================================
RCS file: /cvsroot/enigma/enigma/data/levels/ss_esp37.lua,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ss_esp37.lua        18 Oct 2003 13:49:01 -0000      1.2
--- ss_esp37.lua        4 Nov 2003 15:58:22 -0000       1.3
***************
*** 2,6 ****
  -- ESPRIT #037
  -- change rotor with spermbird, if implemented
- -- trigger is destroyed by cluster explosion
  
  levelw = 20
--- 2,5 ----
***************
*** 11,15 ****
  set_actor("ac-rotor", 1.5,9.5, {range=30, force=40}) 
  
! fill_floor("fl-sand",0,0,levelw,levelh)
  
  function renderLine( line, pattern)
--- 10,14 ----
  set_actor("ac-rotor", 1.5,9.5, {range=30, force=40}) 
  
! fill_floor("fl-sand")
  
  function renderLine( line, pattern)
***************
*** 25,39 ****
         set_item("it-wormhole", i-1,line, {targetx="4.5", 
targety="13.5",strength=0})   
        elseif c=="5" then
!          puzzle(i-1,line, 7)  
!          set_item("it-trigger", i-1,line, {action="callback", target="s1"})
        elseif c=="6" then
!          puzzle(i-1,line, 4)          
        elseif c=="7" then
!          puzzle(i-1,line, 13)        
        elseif c=="8" then
!          puzzle(i-1,line, 10)  
           set_item("it-magicwand",i-1,line)
        elseif c=="." then
           set_stone("st-door_b", i-1,line, {type="v"})   
        elseif c=="O" then
         oxyd(i-1,line)
--- 24,39 ----
         set_item("it-wormhole", i-1,line, {targetx="4.5", 
targety="13.5",strength=0})   
        elseif c=="5" then
!          set_stone( "st-puzzle", i-1,line, {connections=7, name="1"} )  
        elseif c=="6" then
!          set_stone( "st-puzzle", i-1,line, {connections=4, name="2"} )
        elseif c=="7" then
!          set_stone( "st-puzzle", i-1,line, {connections=13, name="3"} )
        elseif c=="8" then
!          set_stone( "st-puzzle", i-1,line, {connections=10, name="4"} )
           set_item("it-magicwand",i-1,line)
        elseif c=="." then
           set_stone("st-door_b", i-1,line, {type="v"})   
+       elseif c=="T" then
+          set_stone("st-timer", i-1,line, {action="callback", target="s1", 
interval=0.5, invisible=1})  
        elseif c=="O" then
         oxyd(i-1,line)
***************
*** 43,47 ****
  --               01234567890123456789
  renderLine(00 , "####################")
! renderLine(01 , "#1#             # O#")
  renderLine(02 , "# # ##### # ### #  #")
  renderLine(03 , "# # #   # #   # #..#")
--- 43,47 ----
  --               01234567890123456789
  renderLine(00 , "####################")
! renderLine(01 , "#1#             #TO#")
  renderLine(02 , "# # ##### # ### #  #")
  renderLine(03 , "# # #   # #   # #..#")
***************
*** 55,59 ****
  renderLine(11 , "#     #   . .  # # #")
  renderLine(12 , "# ######### #### # #")
- 
  renderLine(13 , "# #2             # #")
  renderLine(14 , "# ####### # #### # #")
--- 55,58 ----
***************
*** 70,77 ****
  --               01234567890123456789
  
! x=2
  function s1()
! x=x-1
! if x == 0 then           -- stones vanish if the initial activated trigger is 
released by cluster exploding
    enigma.KillStone(17,3)
    enigma.KillStone(18,3)
--- 69,84 ----
  --               01234567890123456789
  
! ok=0
! 
  function s1()
! local x1,y1 = enigma.GetPos(enigma.GetNamedObject("1"))
! local x2,y2 = enigma.GetPos(enigma.GetNamedObject("2"))
! local x3,y3 = enigma.GetPos(enigma.GetNamedObject("3"))
! local x4,y4 = enigma.GetPos(enigma.GetNamedObject("4"))
! if (x1==10) and (y1==7) then ok=1  else ok=0 end
! if (x2==11) and (y2==7) then ok=ok else ok=0 end
! if (x3==10) and (y3==8) then ok=ok else ok=0 end
! if (x4==11) and (y4==8) then ok=ok else ok=0 end
! if ok==1 then             -- stones vanish if the puzzle is solved
    enigma.KillStone(17,3)
    enigma.KillStone(18,3)