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

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

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

revision 1.1 by mhawlisch, Tue Aug 5 08:11:07 2003 UTC revision 1.2 by mhawlisch, Mon Aug 25 08:49:57 2003 UTC
# Line 1  Line 1 
1  -- Smutty Smurf 2003  -- Sven Siggelkow 2003
2  -- ESPRIT #028  -- ESPRIT #028
3  -- problem: how can I turn a fourswitch by a timer?  -- question: how can I turn a fourswitch by a timer?
 -- problem: rotors killer instinct is missing  
4    
5    enigma.ConserveLevel = FALSE
6  levelw = 20  levelw = 20
7  levelh = 13  levelh = 13
8  create_world(levelw, levelh)  create_world(levelw, levelh)
9  oxyd_default_flavor = "b"  oxyd_default_flavor = "b"
10  set_actor("ac-blackball", 8,6.5, {player=0})  set_actor("ac-blackball", 8,6.5, {player=0})
11  set_actor("ac-rotor", 5.5,6.5, {player=1,mouseforce=2})  set_actor("ac-top", 13.5,10.5, {player=0, mouseforce=0, range=15, force=10})
12  fill_floor("fl-water",0,0,levelw,levelh)  fill_floor("fl-water",0,0,levelw,levelh)
13  fill_floor("fl-hay",4,1,levelw-9,levelh-2)  fill_floor("fl-bluegreenx",4,1,levelw-9,levelh-2)
14    
15  function renderLine( line, pattern)  function renderLine( line, pattern)
16      for i=1, strlen(pattern) do      for i=1, strlen(pattern) do
17        local c = strsub( pattern, i, i)        local c = strsub( pattern, i, i)
18        if c ==   "#" then        if c ==   "#" then
19           set_stone("st-blocker", i-1,line)           set_stone("st-fakeoxyd", i-1,line)
20        elseif c=="B" then        elseif c=="B" then
21           set_stone("st-actorimpulse", i-1,line)           set_stone("st-actorimpulse", i-1,line)
22        elseif c=="S" then                                                                        elseif c=="S" then                                                                
23           --set_stone("st-fourswitch", i-1,line, {name="switch",action="callback", target="s1"})           set_stone("st-fourswitch", i-1,line, {name="switch",action="callback", target="s1"})
          set_stone("st-blocker", i-1,line)  
24        elseif c=="T" then        elseif c=="T" then
25           set_stone( "st-timer", i-1,line, {action="callback", target="s1"})                 set_stone( "st-timer", i-1,line, {action="callback", target="s1"})      
26        elseif c=="1" then                                                                        elseif c=="1" then                                                                
# Line 59  enigma.SendMessage(enigma.GetNamedObject Line 59  enigma.SendMessage(enigma.GetNamedObject
59  x=x+1  x=x+1
60  if x==5 then x=1 end  if x==5 then x=1 end
61  enigma.SendMessage(enigma.GetNamedObject("magnet"..x), "on", nil)  enigma.SendMessage(enigma.GetNamedObject("magnet"..x), "on", nil)
62  --enigma.Sendmessage(switch "turn", nil)  enigma.Sendmessage(enigma.GetNamedObject("switch"), "turn", WEST)
63  end  end
64    
65  oxyd_shuffle()  oxyd_shuffle()

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