Разрешения для профилей, помогите прикрутить

if frmHub then
  function ValidateNickArrival(tUser)
    for _,v in pairs(frmHub:GetOnlineUsers()) do
      if v.sIP==tUser.sIP then
        tUser:SendData"*** На хабе введено ограничение: один ip - один ник"
        tUser:Disconnect()
      end
    end
  end
  NewUserConnected=ValidateNickArrival
  OpConnected=ValidateNickArrival
else
function ValidateNickArrival(tUser)
    for _,v in pairs(Core.GetOnlineUsers()) do
      if v.sIP==tUser.sIP then
        Core.SendToUser(tUser,"*** На хабе введено ограничение: один ip - один ник")
        Core.Disconnect(tUser)
      end
    end
  end
  UserConnected=ValidateNickArrival
  RegConnected=ValidateNickArrival
  OpConnected=ValidateNickArrival
end

local tProfiles = {  -- 1 - вход без ограничений
    [0] = 1, -- Мастер
    [1] = 1, -- ОПератор
    [2] = 0, -- VIP
    [3] = 0, -- Зарегистрированный пользователь
    [-1] = 0, -- Незарегистрированный юзер
}

if frmHub then
  function ValidateNickArrival(tUser)
        if tProfiles[tUser.iProfile] ~= 1 then
    for _,v in pairs(frmHub:GetOnlineUsers()) do
      if v.sIP==tUser.sIP then
        tUser:SendData"*** На хабе введено ограничение: один ip - один ник"
        tUser:Disconnect()
              end
      end
    end
  end
  NewUserConnected=ValidateNickArrival
  OpConnected=ValidateNickArrival
else
function ValidateNickArrival(tUser)
       if tProfiles[tUser.iProfile] ~= 1 then
    for _,v in pairs(Core.GetOnlineUsers()) do
      if v.sIP==tUser.sIP then
        Core.SendToUser(tUser,"*** На хабе введено ограничение: один ip - один ник")
        Core.Disconnect(tUser)
                end
      end
    end
  end
  UserConnected=ValidateNickArrival
  RegConnected=ValidateNickArrival
  OpConnected=ValidateNickArrival
end