<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
<el:level xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://enigma-game.org/schema/level/1 level.xsd" xmlns:el="http://enigma-game.org/schema/level/1">
  <el:protected>
    <el:info el:type="level">
      <el:identity el:title="Two Billiard Tables" el:subtitle="" el:id="duffy32"/>
      <el:version el:score="2" el:release="2" el:revision="1" el:status="released"/>
      <el:author  el:name="Jacob Scott" el:email="" el:homepage=""/>
      <el:copyright>Copyright © 2003 Jacob Scott</el:copyright>
      <el:license el:type="GPL v2.0 or above" el:open="true"/>
      <el:compatibility el:enigma="0.92">
      </el:compatibility>
      <el:modes el:easy="false" el:single="true" el:network="false"/>
      <el:comments>
        <el:code>Lua 5.1 and XML converted by Leveladministrators</el:code>
      </el:comments>
      <el:score el:easy="-" el:difficult="-"/>
    </el:info>
    <el:luamain><![CDATA[
rooms_wide=1
rooms_high=1

levelw=1+(19*rooms_wide)
levelh=1+(12*rooms_high)

create_world( levelw, levelh)

fill_floor("fl-leaves", 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-greenbrown", i-1, line)
        elseif c == "o" then
            oxyd( i-1, line)
        elseif c == "!" then
            abyss(i-1,line)
        elseif c=="z" then
            set_actor("ac-blackball", i-.5,line+.5)
            set_item("it-spring1",i-1,line)
        elseif c=="w" then
            set_actor("ac-whiteball-small", i-.5,line+.5, {player=0})
        elseif c=="+" then
            set_stone( "st-wood",i-1,line)
        elseif c == "s" then
            set_stone("st-stoneimpulse",i-1,line)
        elseif c == "S" then
            set_stone("st-stoneimpulse-hollow",i-1,line)
        elseif c=="=" then
            fill_floor("fl-space", i-1,line, 1,1)
        elseif c=="M" then
            set_item( "it-magnet-on",i-1 ,line , {name="magnet1"})
        elseif c=="N" then
            set_item( "it-magnet-on",i-1 ,line , {name="magnet2"})
        elseif c=="$" then
            set_item( "it-hollow", i-1,line, {name="h1"})
        elseif c=="%" then
            set_item( "it-hollow", i-1,line, {name="h2"})
        elseif c=="^" then
            set_item( "it-hollow", i-1,line, {name="h3"})
        elseif c=="&" then
            set_item( "it-hollow", i-1,line, {name="h4"})
        elseif c=="*" then
            set_item( "it-hollow", i-1,line, {name="h5"})
        elseif c=="Q" then
            set_item( "it-hollow", i-1,line, {name="h6"})
        elseif c=="E" then
            set_item( "it-hollow", i-1,line, {name="h7"})
        elseif c=="R" then
            set_item( "it-hollow", i-1,line, {name="h8"})
        elseif c=="4" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh1"})
        elseif c=="5" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh2"})
        elseif c=="6" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh3"})
        elseif c=="7" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh4"})
        elseif c=="8" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh5"})
        elseif c=="q" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh6"})
        elseif c=="e" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh7"})
        elseif c=="r" then
            set_stone("st-switch", i-1,line, {action="callback",target="hh8"})
        end
    end
end
-- Floor:  " "
-- Border: "#"
-- Oxyd:   "o"

renderLine(00,"!!!!!!!!!!!!!!!!!!!!")
renderLine(01,"####4####!!####e####")
renderLine(02,"#R     *#!!#&     $#")
renderLine(03,"#       #!!#       #")
renderLine(04,"#       #!!#       #")
renderLine(05,"#   w   #!!#   w   #")
renderLine(06,"7  wMw  5!!q  wNw  r")
renderLine(07,"#   w   #!!#   w   #")
renderLine(08,"#       #!!#       #")
renderLine(09,"#       #!!#       #")
renderLine(10,"#E     Q#!!#^     %#")
renderLine(11,"####6####!!####8####")
renderLine(12,"!!!!!!!!!!!!!!!!!!!!")

oxyd_shuffle()

SendMessage("h1", "trigger")
SendMessage("h2", "trigger")
SendMessage("h3", "trigger")
SendMessage("h4", "trigger")
SendMessage("h5", "trigger")
SendMessage("h6", "trigger")
SendMessage("h7", "trigger")
SendMessage("h8", "trigger")

function hh1()
    SendMessage("h1", "trigger")
end

function hh2()
    SendMessage("h2", "trigger")
end

function hh3()
    SendMessage("h3", "trigger")
end

function hh4()
    SendMessage("h4", "trigger")
end

function hh5()
    SendMessage("h5", "trigger")
end

function hh6()
    SendMessage("h6", "trigger")
end

function hh7()
    SendMessage("h7", "trigger")
end

function hh8()
    SendMessage("h8", "trigger")
end
    ]]></el:luamain>
    <el:i18n>
      <el:string el:key="title">
        <el:english el:translate="false"/>
      </el:string>
    </el:i18n>
  </el:protected>
</el:level>
