-- Siegfried Fennig 31.12.2002 Rev. 0 levelw = 20 levelh = 13 create_world(levelw, levelh) oxyd_default_flavor = "a" draw_border("st-rock5") fill_floor("fl-samba", 0,0, level_width,level_height) oxyd ( 1, 0) oxyd ( 2, 0) oxyd (17, 0) oxyd (18, 0) oxyd ( 1,12) oxyd ( 2,12) oxyd (17,12) oxyd (18,12) oxyd_shuffle() draw_stones("st-glass", { 4, 1}, {1,0},10) draw_stones("st-glass", { 6,11}, {1,0},10) draw_stones("st-glass", { 4, 6}, {1,0},12) draw_stones("st-glass", { 1, 2}, {0,1}, 4) draw_stones("st-glass", { 1, 7}, {0,1}, 3) draw_stones("st-glass", {18, 3}, {0,1}, 3) draw_stones("st-glass", {18, 7}, {0,1}, 4) draw_stones("st-3mirror", { 4, 0}, {1,0},10, {transparent=1,orientation=1}) draw_stones("st-3mirror", { 6,12}, {1,0},10, {transparent=1,orientation=3}) draw_stones("st-3mirror", { 0, 2}, {0,1}, 4, {transparent=1,orientation=4}) draw_stones("st-3mirror", { 0, 7}, {0,1}, 3, {transparent=1,orientation=4}) draw_stones("st-3mirror", {19, 3}, {0,1}, 3, {transparent=1,orientation=2}) draw_stones("st-3mirror", {19, 7}, {0,1}, 4, {transparent=1,orientation=2}) set_item("it-coin", 1, 6,{value=12}) set_item("it-coin", 1,10,{value=12}) set_item("it-coin",18, 2,{value=12}) set_item("it-coin",18, 6,{value=12}) set_stone("st-coinslot",16, 6, {action="onoff", target="laser01"}) set_stone("st-coinslot", 3, 6, {action="onoff", target="laser02"}) set_attrib (mirrorp ( 6, 3, 1, 0,1), "name", "mirror01") set_attrib (mirrorp ( 7, 3, 1, 0,1), "name", "mirror02") set_attrib (mirrorp ( 8, 3, 1, 0,1), "name", "mirror03") set_attrib (mirrorp ( 6, 4, 1, 0,1), "name", "mirror04") set_attrib (mirrorp ( 8, 4, 1, 0,1), "name", "mirror05") set_attrib (mirrorp ( 6, 5, 1, 0,1), "name", "mirror06") set_attrib (mirrorp ( 7, 5, 1, 0,1), "name", "mirror07") set_attrib (mirrorp ( 8, 5, 1, 0,1), "name", "mirror08") set_attrib (mirrorp (11, 7, 1, 0,2), "name", "mirror09") set_attrib (mirrorp (12, 7, 1, 0,2), "name", "mirror10") set_attrib (mirrorp (13, 7, 1, 0,2), "name", "mirror11") set_attrib (mirrorp (11, 8, 1, 0,2), "name", "mirror12") set_attrib (mirrorp (13, 8, 1, 0,2), "name", "mirror13") set_attrib (mirrorp (11, 9, 1, 0,2), "name", "mirror14") set_attrib (mirrorp (12, 9, 1, 0,2), "name", "mirror15") set_attrib (mirrorp (13, 9, 1, 0,2), "name", "mirror16") set_stone( "st-timer", 7, 4, {action="callback", target="t_h1"}) set_stone( "st-timer",12, 8, {action="callback", target="t_h2"}) set_attrib(laser( 16, 2, TRUE, WEST), "name", "laser01") set_attrib(laser( 3,10, TRUE, EAST), "name", "laser02") timer = 0 function t_h1() mir1=enigma.GetNamedObject("mirror01") mir2=enigma.GetNamedObject("mirror02") mir3=enigma.GetNamedObject("mirror03") mir4=enigma.GetNamedObject("mirror04") mir5=enigma.GetNamedObject("mirror05") mir6=enigma.GetNamedObject("mirror06") mir7=enigma.GetNamedObject("mirror07") mir8=enigma.GetNamedObject("mirror08") if timer == 1 then enigma.SendMessage(mir1, "turn", nil) enigma.SendMessage(mir2, "turn", nil) enigma.SendMessage(mir3, "turn", nil) enigma.SendMessage(mir4, "turn", nil) enigma.SendMessage(mir5, "turn", nil) enigma.SendMessage(mir6, "turn", nil) enigma.SendMessage(mir7, "turn", nil) enigma.SendMessage(mir8, "turn", nil) end end function t_h2() mir1=enigma.GetNamedObject("mirror09") mir2=enigma.GetNamedObject("mirror10") mir3=enigma.GetNamedObject("mirror11") mir4=enigma.GetNamedObject("mirror12") mir5=enigma.GetNamedObject("mirror13") mir6=enigma.GetNamedObject("mirror14") mir7=enigma.GetNamedObject("mirror15") mir8=enigma.GetNamedObject("mirror16") if timer == 1 then enigma.SendMessage(mir1, "turn", nil) enigma.SendMessage(mir2, "turn", nil) enigma.SendMessage(mir3, "turn", nil) enigma.SendMessage(mir4, "turn", nil) enigma.SendMessage(mir5, "turn", nil) enigma.SendMessage(mir6, "turn", nil) enigma.SendMessage(mir7, "turn", nil) enigma.SendMessage(mir8, "turn", nil) end timer = timer + 1 if timer == 2 then timer = 0 end end document(3,11, "Danger...laser beams") set_actor("ac-blackball", 1.5,11.5, {player=0})