startup

c = peripheral.wrap("bottom")
f = "Friday"
x = 0.1
t = {}
e = "Ekxx"

while true do

 event, name, msg = os.pullEvent("chat")
 print(msg)
 t[#t+1]= msg

 for key, value in ipairs(t) do
  print(key..' '..value)

   if name == e and t[#t] == "cobble" then
    sleep(x)
    c.say("How much cobble would you like?",-1,true,f)
    sleep(x)
    t[#t+1] = 1

   elseif name == e and t[#t-2] == "cobble" and t[#t] == "8" then
    sleep(x)
    c.say("Sending 8 cobble",-1,true,f)
    sleep(x)
    redstone.setOutput("back",true)
    sleep(0.4)
    redstone.setOutput("back",false)
    sleep(x)
    t = {}

   elseif name == e and t[#t-2] == "cobble" and t[#t] == "16" then
    sleep(x)
    c.say("Sending 16 cobble",-1,true,f)
    redstone.setOutput("back",true)
    sleep(0.8)
    redstone.setOutput("back",false)
    t = {}

   elseif name == e and t[#t-2] == "cobble" and t[#t] == "32" then
    sleep(x)
    c.say("Sending 32 cobble",-1,true,f)
    redstone.setOutput("back",true)
    sleep(1.6)
    redstone.setOutput("back",false)
    t = {}

   elseif name == e and t[#t-2] == "cobble" and t[#t] == "64" then
    sleep(x)
    c.say("Sending 64 cobble",-1,true,f)
    redstone.setOutput("back",true)
    sleep(3.2)
    redstone.setOutput("back",false)
    t = {}


   elseif
    t[#t-2] == "cobble" and name == e then
    sleep(x)
    c.say("That is not a valid number. You can select 8, 16, 32 or 64. Please try again.",-1,true,f)

    t = {}

    else
     sleep(x)
  end
 end
end