Computercraft (P++ mod extension) Door Protected

os.pullEvent = os.pullEventRaw
term.clear()
term.setCursorPos(1,1)
print("Door is protected")
if not fs.exists("DoorOwner") then
print("Pls enter your Player name")
owner = read()
h = fs.open("DoorOwner","w")
h.write(owner)
h.close()
end





if not fs.exists("DoorNum") then
print("Pls enter your door number!")
numb = read()
h = fs.open("DoorNum","w")
h.write(numb)
h.close()
end
h = fs.open("DoorNum","r")
numb = h.readAll()
h.close()
h = fs.open("DoorOwner","r")
owner = h.readAll()
h.close()
chatb = peripheral.wrap("right")
permission = owner
id = os.getComputerID()
while true do

local allowedplayers = {}
players = ""
if fs.exists("AllowedPlay") then
h = fs.open("AllowedPlay", "r")
players = h.readAll()
h.close()
else
h = fs.open("AllowedPlay","w")
h.write(" ")
h.close()
end
for allowplayer in players:gmatch( "%S+" ) do
  allowedplayers[ #allowedplayers + 1 ] = allowplayer
end


print("Owner : "..permission)
print("Other players: ")
cursoPosX = 16
cursoPosY = 3
for i = 1,#allowedplayers do
term.setCursorPos(cursoPosX,cursoPosY)
plana = allowedplayers[i]
length = plana:len()
print(allowedplayers[i])
cursoPosX = cursoPosX + length+ 1
if cursoPosX > 40 then
cursoPosX = 1
cursoPosY = cursoPosY + 1
end
end






event, player, message = os.pullEvent("chat")
local s = message
local words = {}
for word in s:gmatch( "%S+" ) do
  words[ #words + 1 ] = word
end
if player == permission then
if words[1] == "door" then
if words[2] == numb then
if words[3] == "remove" then
playere = words[4]
h = fs.open("AllowedPlay","r")
players2s = h.readAll()
h.close()
local allowedplayers2 = {}
for allowplayer2 in players2s:gmatch( "%S+" ) do
  allowedplayers2[ #allowedplayers2 + 1 ] = allowplayer2
end
door = "["..numb.."]"
chatb.tell(player,door.." Removed Player: "..words[4])
senpl = ""..words[4]

newlist = " "
for i=1,#allowedplayers2 do
playnam = allowedplayers2[i]
if playnam == playere then
else
newlist = newlist.." "..playnam
end
end
fs.delete("AllowedPlay")
h = fs.open("AllowedPlay","w")
h.write(newlist)
h.close()
end
if words[3] == "add" then
playername = words[4]
door = "["..numb.."]"
chatb.tell(player,door.." Added:  "..playername)
h = fs.open("AllowedPlay","r")
playerss = h.readAll()
h.close()
fs.delete("AllowedPlay")
h = fs.open("AllowedPlay","w")
newplay = playerss.." "..playername
h.write(newplay)
h.close()
players = newplay
for allowplayer in players:gmatch( "%S+" ) do
  allowedplayers[ #allowedplayers + 1 ] = allowplayer
end

end
if words[3] == "open" then
redstone.setOutput("bottom", true)
end
if words[3] == "close" then
redstone.setOutput("bottom", true)
end
if words[3] == "stop" then
break
end
if words[3] == nil then
redstone.setOutput("bottom", true)
sleep(3)
redstone.setOutput("bottom", false)
end
end
end
else
for i = 1,#allowedplayers do
if player == allowedplayers[i] then
if words[1] == "door" then
if words[2] == numb then
redstone.setOutput("bottom", true)
sleep(3)
redstone.setOutput("bottom", false)

end
end
end
end
end
end