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 |
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() |