<?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="Sherlock Ball" el:subtitle="Elementary, my dear Whiteball!" el:id="alain31"/>
      <el:version el:score="1" el:release="1" el:revision="0" el:status="experimental"/>
      <el:author  el:name="Alain Busser" el:email="" el:homepage=""/>
      <el:copyright>Copyright Â© 2010 Alain Busser</el:copyright>
      <el:license el:type="GPL v3.0 or above" el:open="true"/>
      <el:compatibility el:enigma="1.10"/>
      <el:modes el:easy="false" el:single="true" el:network="false"/>
      <el:comments><el:code>After a level by Ray Wick</el:code></el:comments>
      <el:score el:easy="-" el:difficult="1:15"/>
    </el:info>
    <el:luamain><![CDATA[
ti[" "] = {"fl_platinum"}
ti["O"] = {"fl_platinum_framed"}
ti["#"] = {"st_beads"}
ti["@"] = {"#ac_marble"}
ti["o"] = {"st_oxyd"}
ti["f"] = {"st_flat_breakable"}
ti["s"] = {"it_pencil"}
ti["S"] = {"st_switch",action="callback",target="My_kingdom_for_a_pencil"}
ti["b"] = {"it_brush"}
ti["1"] = ti["O"]..{"it_coin_s","smallmark#"}
ti["2"] = ti["O"]..{"it_coin_m","mediummark#"}
ti["3"] = ti["O"]..{"it_coin_l","largemark#"}

wo(ti, " ", {
    "######o#######S#####",
    "#3OOOOf2OOOO  s b @#",
    "#O3OOOfO2OOO       #",
    "#OO3OOfOO2OO       #",
    "#OOO3O OOO2O       #",
    "#OOOO3 OOOO2       #",
    "offf               #",
    "#1OOOO             #",
    "#O1OOO             #",
    "#OO1OO             #",
    "#OOO1O             #",
    "#OOOO1             #",
    "####################"})

function My_kingdom_for_a_pencil() -- delivery of the pencils at demand
	nlarge=0
	largecoins=no["largemark#*"]:sort("linear",po(0,1))--the 10 cents coins from head to toe
	if largecoins[1].x==2 then nlarge=nlarge+1 end
	if largecoins[2].x==1 then nlarge=nlarge+1 end
	if largecoins[3].x==4 then nlarge=nlarge+1 end
	if largecoins[4].x==5 then nlarge=nlarge+1 end
	if largecoins[5].x==3 then nlarge=nlarge+1 end
	nmedium=0
	mediumcoins=no["mediummark#*"]:sort("linear",po(0,1))--the 5 cents coins from head to toe
	if mediumcoins[1].x==7 then nmedium=nmedium+1 end
	if mediumcoins[2].x==10 then nmedium=nmedium+1 end
	if mediumcoins[3].x==8 then nmedium=nmedium+1 end
	if mediumcoins[4].x==9 then nmedium=nmedium+1 end
	if mediumcoins[5].x==11 then nmedium=nmedium+1 end
	nsmall=0
	smallcoins=no["smallmark#*"]:sort("linear",po(0,1))--the 2 cents coins from head to toe
	if smallcoins[1].x==2 then nsmall=nsmall+1 end
	if smallcoins[2].x==4 then nsmall=nsmall+1 end
	if smallcoins[3].x==5 then nsmall=nsmall+1 end
	if smallcoins[4].x==1 then nsmall=nsmall+1 end
	if smallcoins[5].x==3 then nsmall=nsmall+1 end
	if (nlarge==5 and nmedium==5 and nsmall==5) then
		wo[po(14,1)] = {"it_hammer"}
	else
		wo[po(14,1)] = {"it_pencil"}
	end
end

wo[po(1,0)]={"#ac_marble_black",controllers=CTRL_YANG} -- Miss Blackball
wo[po(2,0)]={"#ac_marble_white",controllers=CTRL_YANG} -- Miss Whiteball
wo[po(3,0)]={"#ac_pearl",controllers=CTRL_YANG} -- Miss Pearl
wo[po(4,0)]={"#ac_top",range=0,strength=0} -- Miss Top is a model...
wo[po(5,0)]={"#ac_rotor",range=0,strength=0} -- Miss Rotor

wo[po(0,1)]={"it_document", text=""} -- the poet
wo[po(0,2)]={"it_floppy"} -- the hacker
wo[po(0,3)]={"it_key"} -- the locksmith
wo[po(0,4)]={"it_magicwand"} -- the magician
wo[po(0,5)]={"it_extinguisher"} -- the firewoman

wo[po(0,7)]={"it_glasses"}
wo[po(0,8)]={"it_ring"}
wo[po(0,9)]={"it_umbrella"}
wo[po(0,10)]={"it_weight"}
wo[po(0,11)]={"it_bag"}

wo[po(7,0)]={"it_glasses"}
wo[po(8,0)]={"it_ring"}
wo[po(9,0)]={"it_umbrella"}
wo[po(10,0)]={"it_weight"}
wo[po(11,0)]={"it_bag"}

for i=1,3 do
	for j=1,3 do
		wo[po(i+11,j+7)] = {"it_document",text="clue"..i..j}
	end
end


 ]]></el:luamain>
    <el:i18n>
      <el:string el:key="title">
        <el:english el:translate="false"/>
      </el:string>
	<el:string el:key="subtitle">
		<el:english el:translate="false"/>
	</el:string>
	<el:string el:key="clue11">
		<el:english el:translate="true">Miss Black's best friends are the poet and the locksmith.</el:english>
	</el:string>
	<el:string el:key="clue12">
		<el:english el:translate="true">Miss Black, Miss White and Miss Pearl find the magician talented.</el:english>
	</el:string>
	<el:string el:key="clue13">
		<el:english el:translate="true">Miss Pearl tells jokes to the poet, the hacker and the locksmith.</el:english>
	</el:string>
	<el:string el:key="clue21">
		<el:english el:translate="true">The hacker, the locksmith and the firewoman like their reflection in the glasses.</el:english>
	</el:string>
	<el:string el:key="clue22">
		<el:english el:translate="true">The magician wears the umbrella.</el:english>
	</el:string>
	<el:string el:key="clue23">
		<el:english el:translate="true">Neither the magician nor the firewoman are allowed to wear a ring.</el:english>
	</el:string>
	<el:string el:key="clue31">
		<el:english el:translate="true">Miss Black, Miss White and Miss Rotor like to tickle the girl with the ring.</el:english>
	</el:string>
	<el:string el:key="clue32">
		<el:english el:translate="true">Miss Top feels lighthearted: She don't wear no umbrella, no bag and certainly no weight.</el:english>
	</el:string>
	<el:string el:key="clue33">
		<el:english el:translate="true">Sometimes, Miss White and Miss Pearl help their friend to wear her weight.</el:english>
	</el:string>
    </el:i18n>
  </el:protected>
</el:level>