Запрет На Пассивный Режим

function UserConnected(tUser)
  Core.GetUserAllData(tUser)
  tUser = GetNormalValue(tUser)
  if tUser.sMode=="P" then
    Core.SendToUser(tUser, "У вас пассивное соединение, согласно политики провайдера, на хаб можно заходить только при активном соединении")
    Core.SendToUser(tUser, "зайдите в файл -> настройки -> настройки соединения и поставьте активный режим")
    Disconnect(tUser)
  end
end
RegConnected=UserConnected
OpConnected=UserConnected

sBot = frmHub:GetHubBotName()
function NewUserConnected(user)
    user=GetNormalValue(user)
    if user.sMode=="P" then
    user:SendData(sBot, "у вас пассивное соединение, согласно политики провайдера, на хаб можно заходить только при активном соединении")
    user:SendData(sBot, "зайдите в файл -> настройки -> настройки соединения и поставьте активный режим")
    user:Disconnect()
    end
end
UserConnected=NewUserConnected
OpConnected=NewUserConnected

function GetNormalValue(tUser)
  if not tUser.sTag then
    local sDescription,sTag,sClient,sClientVersion,sMode,iNormalHubs,iRegHubs,iOpHubs,iSlots,iLlimit = tUser.sDescription:match"(.*)(<(.+)%sV?:?(.-),M:(.-),H:(%d+)/(%d+)/(%d+),S:(%d+)>)$"
    if not sDescription then
      sDescription,sTag,sClient,sClientVersion,sMode,iNormalHubs,iRegHubs,iOpHubs,iSlots,iLlimit = tUser.sDescription:match"(.*)(<(.+)%sV?:?(.-),M:(.-),H:(%d+)/(%d+)/(%d+),S:(%d+),L:(%d+)>)$"
    end
    if not sDescription then
      sDescription,sTag,sClient,sClientVersion,sMode,iNormalHubs,iRegHubs,iOpHubs,iSlots,iLlimit = tUser.sDescription:match"(.*)(<(.+)%sV?:?(.-),M:(.-),H:(%d+)/(%d+)/(%d+),S:(%d+),B:(%d+)>)$"
    end
    tUser.sDescription=sDescription
    tUser.sTag=sTag
    tUser.sClient=sClient
    tUser.sClientVersion=sClientVersion
    tUser.sMode=sMode
    tUser.iNormalHubs=iNormalHubs
    tUser.iRegHubs=iRegHubs
    tUser.iOpHubs=iOpHubs
    tUser.iHubs=iNormalHubs and iRegHubs and iOpHubs and (iNormalHubs + iRegHubs + iOpHubs)
    tUser.iSlots=iSlots
    tUser.iLlimit=iLlimit
  end
  return tUser
end

function MyINFOArrival(user)
  ........
end
NewUserConnected=MyINFOArrival
OpConnected=MyINFOArrival
....