home *** CD-ROM | disk | FTP | other *** search
- -- Sven Siggelkow 2003
- -- ESPRIT #035
- -- change rotors with spermbirds if implemented!
-
- levelw = 39
- levelh = 25
- create_world(levelw, levelh)
- oxyd_default_flavor = "b"
- set_actor("ac-blackball", 18.5,11.5, {player=0})
- fill_floor("fl-marble",0,0,levelw,levelh)
-
- function renderLine( line, pattern)
- for i=1, strlen(pattern) do
- local c = strsub( pattern, i, i)
- if c == "#" then
- set_stone("st-marble", i-1,line)
- elseif c=="r" then
- set_actor("ac-rotor", i-.5,line+.5, {range=7, force=40}) -- range means stones between
- elseif c=="c" then
- set_item("it-coffee",i-1,line)
- elseif c=="d" then
- set_item("it-dynamite",i-1,line)
- elseif c=="O" then
- oxyd(i-1,line)
- end
- end
- end
- -- 012345678901234567890123456789012345678
- renderLine(00 , "#######################################")
- renderLine(01 , "#. .#")
- renderLine(02 , "# #")
- renderLine(03 , "# c c #")
- renderLine(04 , "# #")
- renderLine(05 , "# c #")
- renderLine(06 , "# d Or rO #")
- renderLine(07 , "# #")
- renderLine(08 , "# #")
- renderLine(09 , "#d d #")
- renderLine(10 , "# #")
- renderLine(11 , "# #")
- renderLine(12 , "# OO #")
- renderLine(13 , "# OO #")
- renderLine(14 , "# #")
- renderLine(15 , "# c #")
- renderLine(16 , "# c #")
- renderLine(17 , "# d #")
- renderLine(18 , "# Ord d rO #")
- renderLine(19 , "# c d #")
- renderLine(20 , "# d #")
- renderLine(21 , "# d #")
- renderLine(22 , "# d d #")
- renderLine(23 , "#. .#")
- renderLine(24 , "#######################################")
- -- 012345678901234567890123456789012345678
-
-
- oxyd_shuffle()
-