PIM

m = peripheral.wrap("top")
--data = m.getAllStacks()
--for i,j in pairs(data) do
--   for a,b in pairs(j) do
--      print(a)
--      print(b)
--   end
--   print(i..j["name"])
--end

function emptyPlayer()
   a=1
   for i = 1,9 do
      m.pushItemIntoSlot("east", i, 64,a)
      a=a+1
   end
   for i = 37, 40 do
      m.pushItemIntoSlot("east", i, 64,a)
      a=a+1
   end
end

function fillPlayer()
   a=1
   for i = 1,9 do
      m.pullItemIntoSlot("east", a, 64, i)
      a=a+1
   end
   for i = 37,40 do
      m.pullItemIntoSlot("east", a, 64, i)
      a=a+1
   end
end

while true do
event = os.pullEvent()
print(event)
if event == "player_on" then
if m.getStackInSlot(1) then
   emptyPlayer()
   print("empty")
else
   fillPlayer()
   print("full")
end
end
end