home *** CD-ROM | disk | FTP | other *** search
- -- created by Martin Hawlisch
-
- levelw = 20
- levelh = 13
-
- create_world(levelw, levelh)
-
- oxyd_default_flavor = "d"
-
- function renderLine( line, pattern)
- for i=1, strlen(pattern) do
- local c = strsub( pattern, i, i)
- if c =="#" then
- set_floor("fl-samba",i-1,line)
- set_stone("st-door_a",i-1,line,{type="v"})
- elseif c == "O" then
- set_floor("fl-samba",i-1,line)
- oxyd( i-1, line)
- elseif c == "." then
- set_floor("fl-water",i-1,line)
- elseif c == "+" then
- set_floor("fl-samba",i-1,line)
- set_stone("st-shogun",i-1,line, {holes=1})
- elseif c == "x" then
- set_floor("fl-samba",i-1,line)
- set_stone("st-grate1",i-1,line)
- elseif c == "-" then
- set_floor("fl-samba",i-1,line)
- elseif c == " " then
- set_floor("fl-water",i-1,line)
- end
- end
- end
-
- set_stone("st-door_a", 8,6, {type="v", name="door1"})
- set_stone("st-door_a", 9,6, {type="v", name="door2"})
- set_stone("st-door_a",10,6, {type="v", name="door3"})
- set_stone("st-door_a",11,6, {type="v", name="door4"})
-
- set_floor("fl-bridge", 8,6, {type="x", name="bridge1"})
- set_floor("fl-bridge", 9,6, {type="x", name="bridge2"})
- set_floor("fl-bridge",10,6, {name="bridge3", type="x"})
- set_floor("fl-bridge",11,6, {name="bridge4", type="x"})
-
- shogundot1( 4,4, {target="bridge1", action="openclose"})
- shogundot1( 3,5, {target="bridge2", action="openclose"})
- shogundot1( 5,5, {target="door2", action="openclose"})
- shogundot1( 3,6, {target="door1", action="openclose"})
- shogundot1( 5,6, {target="door4", action="openclose"})
- shogundot1( 3,7, {target="door3", action="openclose"})
- shogundot1( 5,7, {target="bridge3", action="openclose"})
- shogundot1( 4,8, {target="bridge4", action="openclose"})
-
- renderLine( 0, " ")
- renderLine( 1, " ")
- renderLine( 2, " ##### ##### ")
- renderLine( 3, " ##---## ##---## ")
- renderLine( 4, "##--+--## ##--O--##")
- renderLine( 5, "#--+++--# #--O-O--#")
- renderLine( 6, "#-#---#-%%%%-xO-Ox-#")
- renderLine( 7, "#--+++--# #--O-O--#")
- renderLine( 8, "##--+--## ##--O--##")
- renderLine( 9, " ##---## ##---## ")
- renderLine(10, " ##### ##### ")
- renderLine(11, " ")
- renderLine(12, " ")
-
- oxyd_shuffle()
-
-
- set_actor("ac-blackball", 7.5, 6.5, {player=0})
-
-