Retriever program

rednet.open("right")

itemList =
{
   [1]=
      {
      [1]="Stone",
      [2]="Cobblestone",
      [3]="Dirt",
      [4]="",
      [5]="",
      [6]="",
      [7]="",
      [8]="",
      [9]="",
      [10]="",
      [11]="",
      [12]="",
      [13]="",
      [14]="",
      [15]="",
      [16]="",
      },

{
   [2]=
      {
         [1]="",
      [2]="",
      [3]="",
      [4]="",
      [5]="",
      [6]="",
      [7]="",
      [8]="",
      [9]="",
      [10]="",
      [11]="",
      [12]="",
      [13]="",
      [14]="",
      [15]="",
      [16]="",
      }
}
}

colorList =
   {
   [1]=colors.white,
   [2]=colors.orange,
   [3]=colors.magenta,
   [4]=colors.lightBlue,
   [5]=colors.yellow,
   [6]=colors.lime,
   [7]=colors.pink,
   [8]=colors.gray,
   [9]=colors.lightGray,
   [10]=colors.cyan,
   [11]=colors.purple,
   [12]=colors.blue,
   [13]=colors.brown,
   [14]=colors.green,
   [15]=colors.red,
   [16]=colors.black,
   }

sideList =
   {
   [1]="bottom",
   [2]="top"
   }




while true do

   senderId, Object, distance = rednet.receive()
   senderId, Amount, distance = rednet.receive()

   print("\nObject Requested: "..Object.."\nAmount: "..Amount)
   sleep(0.1)

   for i = 1,2 do
      for j = 1,16 do
         if Object == itemList[i][j] then
            for k = 1,Amount do
               rs.setBundledOutput(sideList[i], colorList[j])
               sleep(0.1)
               rs.setBundledOutput(sideList[i], 0)
               sleep(0.1)
            end
         end
      end
   end
end