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

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

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

revision 1.1 by sfennig, Sun Feb 23 01:21:15 2003 UTC revision 1.2 by sfennig, Sun May 25 10:16:42 2003 UTC
# Line 1  Line 1 
1  --Siegfried Fennig 23.02.2003 Rev.0  --Siegfried Fennig 25.05.2003 Rev.1
2    
3  levelw = 20  levelw = 20
4  levelh = 13  levelh = 13
# Line 13  function renderLine( line, pattern) Line 13  function renderLine( line, pattern)
13      for i=1, strlen(pattern) do      for i=1, strlen(pattern) do
14        local c = strsub( pattern, i, i)        local c = strsub( pattern, i, i)
15        if c =="#" then        if c =="#" then
16           fill_floor("fl-water", i-1,line, 1,1)           fill_floor("fl-swamp", i-1,line, 1,1)
17        elseif c == "o" then        elseif c == "o" then
18           oxyd( i-1, line)           oxyd( i-1, line)
19        elseif c == "r" then        elseif c == "r" then
20           set_stone("st-marble",i-1,line)           set_stone("st-marble",i-1,line)
       elseif c == "h" then  
          set_stone("st-marble_hole",i-1,line)  
21        elseif c == "w" then        elseif c == "w" then
22           set_stone("st-break_acwhite",i-1,line)           set_stone("st-break_acwhite",i-1,line)
23          elseif c == "s" then
24             set_stone("st-switch",i-1,line, {action="onoff", target="laser"})
25          elseif c == "S" then
26             set_stone("st-switch",i-1,line, {action="onoff", target="laser"})
27          elseif c == "l" then
28             set_attrib(laser(i-1,line, FALSE, EAST), "name", "laser")
29        elseif c == "a" then        elseif c == "a" then
30           set_actor("ac-blackball", i-.5,line+.5, {player=0})           set_actor("ac-blackball", i-.5,line+.5, {player=0})
31        elseif c == "d" then        elseif c == "d" then
32           document(i-1,line,"Laserlight on")           document(i-1,line,"Let there be light!")
33          end          end
34      end      end
35  end  end
# Line 34  renderLine(00, "                    ") Line 38  renderLine(00, "                    ")
38  renderLine(01, " o         #### oro ")  renderLine(01, " o         #### oro ")
39  renderLine(02, "           ####  r  ")  renderLine(02, "           ####  r  ")
40  renderLine(03, "           ####  r  ")  renderLine(03, "           ####  r  ")
41  renderLine(04, "           ####  r  ")  renderLine(04, "           #### sr  ")
42  renderLine(05, "           hhhhrrr  ")  renderLine(05, "           rrrrrrr  ")
43  renderLine(06, "          dwwwwwww  ")  renderLine(06, "l         dwwwwwww  ")
44  renderLine(07, "           rrrrrrr  ")  renderLine(07, "           rrrrrrr  ")
45  renderLine(08, "           ####  r  ")  renderLine(08, "           #### Sr  ")
46  renderLine(09, "           ####  r  ")  renderLine(09, "           ####  r  ")
47  renderLine(10, "    a      ####  r  ")  renderLine(10, "    a      ####  r  ")
48  renderLine(11, " o         #### oro ")  renderLine(11, " o         #### oro ")
# Line 46  renderLine(12, "                    ") Line 50  renderLine(12, "                    ")
50  --              01234567890123456789  --              01234567890123456789
51    
52  oxyd_shuffle()  oxyd_shuffle()
   
 set_item("it-spring1",14, 5)  
 set_item("it-spring2",11, 5)  
   
 set_attrib(laser( 0, 6, FALSE, EAST), "name", "laser")  
 set_stone("st-switch",16, 4, {action="onoff", target="laser"})  
 set_stone("st-switch",16, 8, {action="onoff", target="laser"})  

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