Версия для печати темы

Core.GetNickListArrival

--------------------------------------------------------------------------------------------------------
-- UserToBotDescription by Nickolya aka AУA™
--------------------------------------------------------------------------------------------------------
-- Конфиг бота:

tUserToBot = {
["Бот"] = {
["sDescription"] = "BOT",
["sNeedClient"] = "StrongDC++",
["sNeedVersion"] = "2.23",
["sNeedConnection"] = "100",
["sNeedHubs"] = "0/0/1",
["sIP"] = "127.0.0.1",
["sMode"] = "A",
["sEmail"] = "email",
["iShare"] = 10932976006,
},
}

--------------------------------------------------------------------------------------------------------
function Main()
tNeedToSendAll = {}
DoNeedDescription()
SendFakeDescription()
SetTimer(1000)
StartTimer()
end

function GetNickListArrival(curUser,sData)
tNeedToSendAll[curUser.sName] = 1
end

function OnTimer()
for sName in pairs(tNeedToSendAll) do
local tNeedUser = GetItemByName(sName)
if tNeedUser and tNeedUser.bConnected then
SendFakeDescription(tNeedUser)
tNeedToSendAll[sName] = nil
end
end
collectgarbage("collect")
end

function SendFakeDescription(curUser)
for i, v in pairs(tUserToBot) do
local sNewMyINFO = v.sMyINFO
local sIPInfo = "$UserIP "..i.." "..v["sIP"]
if not curUser then
SendToAll(sNewMyINFO)
SendToAll(sIPInfo)
else
curUser:SendData(sNewMyINFO)
curUser:SendData(sIPInfo)
end
end
end

function DoNeedDescription()
for i, v in pairs(tUserToBot) do
tUserToBot[i].sMyINFO = "$MyINFO $ALL "..i..
" "..v.sDescription.."<"..(v["sNeedClient"] or "Bot'sDC++")..
" V:"..(v["sNeedVersion"] or "1.00")..
",M:"..(v.sMode or "A")..",H:"..(v["sNeedHubs"] or "0/0/1")..
",S:"..(v.iSlots or 0)..">$ $"..(v["sNeedConnection"] or "BOT")..
"$"..(v.sEmail or "").."$"..(v["iShare"] or 0).."$"
end
end
--------------------------------------------------------------------------------------------------------