turtle mobcontrol

-- Computer ID = Turtle
--the ID of the control computer
local spawner = peripheral.wrap("top")
local controller = 2
local currMob = ""
local replyChannel = 1
local listenChannel = 3
local wlmSide= "right"
local wirelessModem = peripheral.wrap(wlmSide)

local function respond(myMes)
  mySerMes=textutils.serialize(myMes)
  wirelessModem.transmit(replyChannel, listenChannel, mySerMes)
end

local function getExactStatus()
  if spawner.getSpawnExact() then
    currExact = "Yes"
  else
    currExact = "No"
  end
  respond(currExact)
end

local function setCurrMob()
   if spawner.getStackInSlot(1) ~= nil then
     data = spawner.getStackInSlot(1)
     currMob = data.captured
   end
  myMes={message="curMob", argument=currMob}
  mySerMes=textutils.serialize(myMes)
  wirelessModem.transmit(3, 1, mySerMes)
end

local function removeMob()
  turtle.select(emSlot)
  turtle.suckUp()
end

local function setMob2Spawn(mobSlotID)
  if spawner.getStackInSlot(1) ~= nil then
    removeMob()
  end
  slot = mobSlotID
  emSlot = slot
  turtle.select(slot)
  turtle.dropUp()
  respond("ok")
  setCurrMob()
end


local function cleanSpawner()
  local slot2Fill=1
  if spawner.getStackInSlot(1) ~= nil then
    for i = 1,16 do
      local itemCount = turtle.getItemCount(i)
      if itemCount == 0 then
        slot2Fill = i
        break
      end
    end
    turtle.select(slot2Fill)
    turtle.suckUp()
  end
end

print ("Cleaning Spawner")
cleanSpawner()
print ("Turtle Ready!")
print ("Starting listening loop")
while true do
  getExactStatus()
  print ("Spawner is set to "..currExact)
  wirelessModem.open(listenChannel)--Open channel 3 so that we can listen on it
  event, modemSide, senderChannel, replyChannel, mySerMes, senderDistance = os.pullEvent("modem_message")
  myCopy=textutils.unserialize(mySerMes)
  if myCopy.message == "setMob2Spawn" then
    print("setMob2Spawn")
    setMob2Spawn(myCopy.argument)
  end
  if myCopy.message == "removeMob" then
    print("removeMob")
    removeMob()
  end
  print("-")
end