team battle controller

rednet.open("back")
robitids = {}
robitid = 329
robitalue = 1
if fs.exists("id") then
 file = fs.open("id", "r")
 for i=1, 4 do
  robitids[i] = file.readLine()
 end
 file.close()
else
 robitids = {329, 330, 331, 1}
end




while true do

term.clear()
    term.setCursorPos(1,1)
    term.write("your turn, id:"..robitalue)
    term.setCursorPos(1,2)
    term.write("1-4 to change robit")

choose = true
while choose do

term.clear()
    term.setCursorPos(1,1)
    term.write("your turn, id:"..robitalue)
    term.setCursorPos(1,2)
    term.write("1-4 to change robit")
 local event, character = os.pullEvent("char")

 if character == "1" then
  robitid = robitids[1]
  robitalue = 1
 end
 if character == "2" then
  robitid = robitids[2]
  robitalue = 2
 end
 if character == "3" then
  robitid = robitids[3]
  robitalue = 3
 end
 if character == "4" then
  robitid = robitids[4]
  robitalue = 4
 end
 if character == "w" then
 rednet.broadcast("dig",robitid)
os.sleep(0.1)
 rednet.broadcast("forward",robitid)
 senderIdf, messagef, protocolf = rednet.receive(2)
 if messagef == "true" then
   choose = false
 end
 end
 if character == "a" then
 rednet.broadcast("left",robitid)
 end
 if character == "d" then
 rednet.broadcast("right",robitid)
 end
 if character == "p" then
 rednet.broadcast("place",robitid)
 end
 if character == "i" then
    term.clear()
    term.setCursorPos(1,1)
    file = fs.open("id", "w")
    for i=1,4 do
     term.write("robit id "..i..":")
     robitids[i] = read()
    file.writeLine(robitid)
    end
    file.close()
  end
end
rednet.broadcast("turn", "turn")

term.clear()
    term.setCursorPos(1,1)
    term.write("opponent's turn")

senderId, message, protocol = rednet.receive("turn")
end