home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar Special 2004 August
/
GSSH0804.iso
/
Geschicklichkeit
/
Enigma
/
Enigma-081.exe
/
data
/
levels
/
level6d.lua
< prev
next >
Wrap
Text File
|
2003-01-05
|
2KB
|
75 lines
-- Siegfried Fennig
levelw = 39
levelh = 13
create_world(levelw, levelh)
draw_border("st-rock4")
fill_floor("fl-sand", 0,0, level_width,level_height)
oxyd (26,4)
oxyd (37,11)
set_item("it-brush",3,7)
draw_stones("st-glass", {37,8}, {1,0},1)
draw_stones("st-stonebrush", {2,4}, {1,0},3)
draw_stones("st-stonebrush", {9,4}, {1,0},5)
draw_stones("st-stonebrush", {4,3}, {1,0},3)
draw_stones("st-stonebrush", {7,5}, {1,0},3)
draw_stones("st-stonebrush", {6,7}, {1,0},3)
draw_stones("st-stonebrush", {3,9}, {1,0},4)
draw_stones("st-stonebrush", {16,8}, {1,0},3)
draw_stones("st-stonebrush", {19,3}, {1,0},3)
draw_stones("st-stonebrush", {25,3}, {1,0},4)
draw_stones("st-stonebrush", {26,6}, {1,0},2)
draw_stones("st-stonebrush", {9,4}, {1,0},5)
draw_stones("st-stonebrush", {31,5}, {1,0},6)
draw_stones("st-stonebrush", {28,9}, {1,0},7)
draw_stones("st-stonebrush", {33,7}, {1,0},3)
draw_stones("st-stonebrush", {2,6}, {0,1},4)
draw_stones("st-stonebrush", {4,6}, {0,1},2)
draw_stones("st-stonebrush", {8,8}, {0,1},4)
draw_stones("st-stonebrush", {13,5}, {0,1},5)
draw_stones("st-stonebrush", {17,2}, {0,1},5)
draw_stones("st-stonebrush", {19,5}, {0,1},4)
draw_stones("st-stonebrush", {22,3}, {0,1},6)
draw_stones("st-stonebrush", {25,4}, {0,1},4)
draw_stones("st-stonebrush", {24,8}, {0,1},2)
draw_stones("st-stonebrush", {29,3}, {0,1},6)
draw_stones("st-stonebrush", {31,1}, {0,1},3)
draw_stones("st-stonebrush", {31,6}, {0,1},2)
draw_stones("st-stonebrush", {36,6}, {0,1},6)
draw_stones("st-stonebrush", {22,10}, {0,1},2)
draw_stones("st-stonebrush", {9,2}, {0,1},2)
mirrorp(3,7,TRUE,FALSE, 1)
mirrorp(5,7,TRUE,FALSE, 1)
mirrorp(17,7,TRUE,FALSE, 3)
mirrorp(36,2,TRUE,FALSE, 2)
set_stone( "st-timer", 2, 11, {action="callback", target="th"})
timer = 0
function th()
laser1=enigma.GetNamedObject("laser1")
if timer == 2 then
enigma.SendMessage(laser1, "on", nil)
end
if timer == 4 then
enigma.SendMessage(laser1, "off", nil)
end
timer = timer + 1
if timer == 6 then
timer = 0
end
end
set_attrib( laser( 1, 11, TRUE, NORTH), "name", "laser1")
laser1 = enigma.GetNamedObject("laser1")
set_actor("ac-blackball", 35.5,6.5 ,{player=0})