-- 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()
