/[enigma]/enigma/data/levels/ss7.lua
ViewVC logotype

Diff of /enigma/data/levels/ss7.lua

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mhawlisch, Thu Aug 7 13:23:25 2003 UTC revision 1.2 by mhawlisch, Thu Aug 14 14:31:44 2003 UTC
# Line 1  Line 1 
1  -- Smutty Smurf 2003  -- Sven Siggelkow 2003
2    
3  levelw = 20  levelw = 20
4  levelh = 13  levelh = 13
# Line 10  enigma.ConserveLevel=FALSE Line 10  enigma.ConserveLevel=FALSE
10    
11  fill_floor("fl-black", 0,0, levelw,levelh)  fill_floor("fl-black", 0,0, levelw,levelh)
12  fill_items( "it-burnable", 0, 0, 20, 13)  fill_items( "it-burnable", 0, 0, 20, 13)
13    enigma.KillItem(11,1) -- no burning water
14    
15  function renderLine( line, pattern)  function renderLine( line, pattern)
16      for i=1, strlen(pattern) do      for i=1, strlen(pattern) do
# Line 23  function renderLine( line, pattern) Line 24  function renderLine( line, pattern)
24        elseif c =="P" then        elseif c =="P" then
25           set_stone("st-pull", i-1,line)           set_stone("st-pull", i-1,line)
26           set_item("it-extinguisher", i-1,line)                   set_item("it-extinguisher", i-1,line)        
       elseif c=="T" then                                                            
          set_stone( "st-timer", i-1,line, {action="callback", target="s1"})  
27        elseif c =="c" then        elseif c =="c" then
28           set_item("it-crack3", i-1,line)           set_item("it-crack3", i-1,line)
29          elseif c =="b" then
30             set_item("it-brush", i-1,line)      
31        elseif c =="f" then        elseif c =="f" then
32           set_floor("fl-water", i-1,line)           set_floor("fl-water", i-1,line)
33        elseif c=="O" then                                                                      elseif c=="O" then                                                              
34           oxyd(i-1,line)             oxyd(i-1,line)
35             set_item("it-burnable-ignited", i-1,line)
36          end          end
37      end        end  
38  end  end
# Line 46  renderLine(07 , "#        WWW       #") Line 48  renderLine(07 , "#        WWW       #")
48  renderLine(08 , "#                  #")  renderLine(08 , "#                  #")
49  renderLine(09 , "#                  #")  renderLine(09 , "#                  #")
50  renderLine(10 , "#                  #")  renderLine(10 , "#                  #")
51  renderLine(11 , "#O                O#")  renderLine(11 , "#O        b       O#")
52  renderLine(12 , "###################T")  renderLine(12 , "####################")
53  --               01234567890123456789  --               01234567890123456789
54    
 set_item("it-burnable", 1,1,  {name="burnable1"})  
 set_item("it-burnable", 1,11, {name="burnable2"})  
 set_item("it-burnable", 18,1, {name="burnable3"})  
 set_item("it-burnable", 18,11,{name="burnable4"})  
   
   
   
 function s1()  
 enigma.SendMessage(enigma.GetNamedObject("burnable1"), "ignite", nil)  
 enigma.SendMessage(enigma.GetNamedObject("burnable2"), "ignite", nil)  
 enigma.SendMessage(enigma.GetNamedObject("burnable3"), "ignite", nil)  
 enigma.SendMessage(enigma.GetNamedObject("burnable4"), "ignite", nil)  
 end  
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26