home *** CD-ROM | disk | FTP | other *** search
- -- created by Martin Hawlisch
-
- levelw = 20
- levelh = 13
-
- create_world( levelw, levelh)
- fill_floor( "fl-brick", 0, 0, levelw, levelh)
-
- function renderLine( line, pattern)
- for i=1, strlen(pattern) do
- local c = strsub( pattern, i, i)
- if c == "o" then
- oxyd( i-1, line)
- elseif c == "#" then
- set_stone( "st-brick", i-1, line)
- elseif c == "*" then
- set_stone( "st-glass", i-1, line)
- elseif c == "!" then
- set_stone( "st-brick_magic", i-1, line)
- end
- end
- end
-
- renderLine( 0, "#o#######o########o#")
- renderLine( 1, "#! !*! !#")
- renderLine( 2, "#*!!!! !**!!!!!! !#")
- renderLine( 3, "# ! ! !* ! ! #")
- renderLine( 4, "# ! !!!!!! ! !*#")
- renderLine( 5, "#! ! ! ! !!!#")
- renderLine( 6, "#*!! !!!! ! #")
- renderLine( 7, "#! ! ! ! !!!#")
- renderLine( 8, "# ! !!!!!! ! !*#")
- renderLine( 9, "# ! ! !* ! ! #")
- renderLine( 10, "#*!!!! !**!!!!!! !#")
- renderLine( 11, "#! !*! !#")
- renderLine( 12, "#o#######o########o#")
-
- oxyd_shuffle()
-
- set_item( "it-magicwand", 6,7)
- set_stone( "st-switch", 19,6,{on=TRUE,action="onoff", target="laser"})
- set_attrib( laser(0,6,TRUE, EAST), "name", "laser")
- mirrorp( 1,3,FALSE,FALSE,4)
- mirrorp( 1,9,FALSE,FALSE,4)
- mirrorp( 9,3,FALSE,FALSE,4)
- mirrorp( 9,9,FALSE,FALSE,4)
- mirror3( 9,6,FALSE,TRUE,2)
- mirror3(18,3,FALSE,FALSE,2)
- mirror3(18,9,FALSE,FALSE,2)
-
- document( 15,8, "Do not use too much of the magic!")
- set_actor("ac-blackball", 15.5, 9.5, {player=0})
-
-