GeneratePureQuartz

os.loadAPI("Chest")
os.loadAPI("Message")
time=0.8

wire_side       = "right"
contact_id      = 5
chest_side      = "back"
redstone_dir    = "left"

ness=0
nbIn=0
nbDiff=0
chest = Chest.Chest:new(nil,chest_side)
message = Message.Message:new(nil,wire_side,contact_id)

while message:receive() ~= "start" do end
sleep(5)

while (true)
do
    ness = chest:getDiff()
    nbDiff= ness - nbIn
    if nbDiff ~= 0
    then
        message:send(nbDiff)
        print("Message envoyer : " .. nbDiff)
        nbIn = ness
    end
    if nbIn ~= 0
    then
        mess = message:receive()
        if mess ~= nil
        then
            nbIn = nbIn - mess
            print("Message recu : "..mess)
        end
    end
    sleep(2)

end