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

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

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

revision 1.1 by sfennig, Mon Apr 7 18:38:26 2003 UTC revision 1.2 by sfennig, Sat Apr 26 18:51:45 2003 UTC
# Line 1  Line 1 
1  --Siegfried Fennig 07.04.2003 Rev.0  --Siegfried Fennig 27.04.2003 Rev.1
2    
3  levelw = 20  levelw = 20
4  levelh = 13  levelh = 13
# Line 35  function renderLine( line, pattern) Line 35  function renderLine( line, pattern)
35        elseif c == "W" then        elseif c == "W" then
36           set_stone("st-oneway",i-1,line, {orientation=enigma.WEST})           set_stone("st-oneway",i-1,line, {orientation=enigma.WEST})
37        elseif c == "q" then        elseif c == "q" then
38           set_item("it-trigger",i-1,line, {action="openclose", target="door1"})           set_item("it-trigger",i-1,line, {action="callback", target="callback1"})
       elseif c == "Q" then  
          set_stone("st-door_b",i-1,line, {name="door1", type="v"})  
39        elseif c == "p" then        elseif c == "p" then
40           set_item("it-trigger",i-1,line, {action="onoff", target="laser"})           set_item("it-trigger",i-1,line, {action="callback", target="callback2"})
41        elseif c == "l" then        elseif c == "l" then
42           set_attrib(laser(i-1,line, 0, NORTH), "name", "laser")           set_attrib(laser(i-1,line, 0, NORTH), "name", "laser")
43        elseif c == "m" then        elseif c == "m" then
# Line 88  renderLine(00, "                    ") Line 86  renderLine(00, "                    ")
86  renderLine(01, " rrrrrroMmfMorrrrrr ")  renderLine(01, " rrrrrroMmfMorrrrrr ")
87  renderLine(02, " rrrrr########rrrrr ")  renderLine(02, " rrrrr########rrrrr ")
88  renderLine(03, " rrrrrrr jk rrrrrrr ")  renderLine(03, " rrrrrrr jk rrrrrrr ")
89  renderLine(04, " rrrrrrr rQ rrrrrrr ")  renderLine(04, " rrrrrrr rl rrrrrrr ")
90  renderLine(05, " rrrrrrr rl rrrrrrr ")  renderLine(05, " rrrrrrr rr rrrrrrr ")
91  renderLine(06, " rrrrr E  X Ejrrrrr ")  renderLine(06, " rrrrr E  X Ejrrrrr ")
92  renderLine(07, " rr Zr rwtterSrrrrr ")  renderLine(07, " rr Zr rwtterSrrrrr ")
93  renderLine(08, " rriYr W s HYjrrrrr ")  renderLine(08, " rriYr W s HYjrrrrr ")
# Line 98  renderLine(10, " rr  hK  rr rrrrwte ") Line 96  renderLine(10, " rr  hK  rr rrrrwte ")
96  renderLine(11, " rrr    irrda b qsp ")  renderLine(11, " rrr    irrda b qsp ")
97  renderLine(12, "                    ")  renderLine(12, "                    ")
98  --              01234567890123456789  --              01234567890123456789
99    
100    trigger1 = 0
101    trigger2 = 0
102    
103    function triggeraction()
104        lasera=enigma.GetNamedObject("laser")
105        if trigger1 == 1 and trigger2 == 1 then
106            enigma.SendMessage(lasera, "on", nil)
107        end
108        if trigger1 == 0 and trigger2 == 1 then
109            enigma.SendMessage(lasera, "off", nil)
110        end
111        if trigger1 == 1 and trigger2 == 0 then
112            enigma.SendMessage(lasera, "off", nil)
113        end
114        if trigger1 == 0 and trigger2 == 0 then
115            enigma.SendMessage(lasera, "off", nil)
116        end
117    end
118    
119    function callback1 (ispressed)
120         trigger1=ispressed
121         triggeraction()
122    end
123    
124    function callback2 (ispressed)
125         trigger2=ispressed
126         triggeraction()
127    end
128    

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