Требуется Помощь Знатоков, API1

function KickArrival(tUser, sData)
    local sData = string.sub(sData,1,-2)
    local _,_,sNick = string.find(sData, "%p%S+%s(%S+)")
    if sNick and sNick ~= tUser.sNick then
        if tKicked[sNick] then
            tKicked[sNick] = tKicked[sNick] + 1
            SaveToFile(sKickedFile, tKicked,"tKicked")
        else
            tKicked[sNick] = 1
            SaveToFile(sKickedFile, tKicked,"tKicked")
        end
    end        
end

sPath = "KickedCount\\" -- папка для хранения файлов бота
sKickedFile = sPath.."tKicked.tbl" -- имя файла
g=5
tUser,sOp,sNick,iTime={},"",""

function Main()
sBot = frmHub:GetHubBotName()
tKicked = {}
if loadfile(sKickedFile) then
dofile(sKickedFile)
else
os.execute("mkdir ".."\""..string.gsub(sPath, "/", "\\").."\"")
end
end

function OnTimer()
iTime=iTime-1
if iTime==0 then
SendToNick(sOp,"Решение принято :sablay:")
tUser:Disconnect()
iTime=nil
StopTimer()
else
SendToNick(sOp,"*** Осталось "..iTime.." сек")
end
end

function ChatArrival(curUser, sData)
local sData = string.sub(sData, 1, -2)
local _,_, sCmd = string.find(sData, "%b<>%s+%p(%S+)")
if sCmd == "tempban" or sCmd == "drop" or sCmd == "fulltempban" then
if not curUser.bOperator then
curUser:SendData(sBot, "*** Извините, у вас нет прав для пользования этой командой.")
return 1
else
local _,_, sNick = string.find(sData, "%b<>%s+%S+%s+(%S+)")
if sNick==nil then
curUser:SendData(sBot, "*** Вы забыли ввести ник юзера и/или дополнительные параметры: <время>, <причина>!")
return 1
else
local tKickAssUser = GetItemByName(sNick) --если юзер онлайн
if tKickAssUser then
local sKicked = sNick
if tKicked[sKicked] then
local count = tKicked[sKicked]
iTime,tUser,sOp=g,tKickAssUser,curUser.sName
curUser:SendData(sBot, "*** Юзер "..sNick.." уже был кикнут "..count.." раз(а). Может, его уже, нафик забанить? ")
curUser:SendData(sBot, "В течение "..g.." секунд отправьте в чат Y чтобы забанить пользователя")
SetTimer(1000)
StartTimer()
tKicked[sKicked] = tKicked[sKicked] + 1
SaveToFile(sKickedFile, tKicked,"tKicked")
return 1
else
tKicked[sKicked]=1
SaveToFile(sKickedFile, tKicked,"tKicked")
curUser:SendData(sBot, "*** Кик/Временный бан в отношении юзера "..sKicked.." учтен в амбарной книге.")
return 0
end
end
end
end
end
local _,_,sCmd = string.find(sData, "%b<>%s+(%S+)")
if iTime and sCmd=="Y" then
iTime=nil
StopTimer()
tUser:TempBan(0, "", curUser.sName, 1)
end
end

function KickArrival(tUser, sData)
local sData = string.sub(sData,1,-2)
local _,_,sNick = string.find(sData, "%p%S+%s(%S+)")
if sNick and sNick ~= tUser.sNick then
if tKicked[sNick] then
tKicked[sNick] = tKicked[sNick] + 1
SaveToFile(sKickedFile, tKicked,"tKicked")
else
tKicked[sNick] = 1
SaveToFile(sKickedFile, tKicked,"tKicked")
end
end
end

function SaveToFile(sFileWay, tTable, sTableName)
local sHandle = io.open(sFileWay,"w+")
Serialize(tTable, sTableName, sHandle)
sHandle:flush()
sHandle:close()
end

function Serialize(tTable, sTableName, sHandle, sTab)
local sTab = sTab or ""
sHandle:write(sTab..sTableName.." = {\n")
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key)
if type(value) == "table" then
Serialize(value, sKey, sHandle, sTab.."\t")
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
sHandle:write(sTab.."\t"..sKey.." = "..sValue)
end
sHandle:write(",\n")
end
sHandle:write(sTab.."}")
end

tUser,sOp,sNick,iTime={},"",""

local _,_,sCmd = string.find(sData, "%b<>%s+(%S+)")
       if iTime and sCmd=="Y" then
            iTime=nil
            StopTimer()
            tUser:TempBan(0, "", curUser.sName, 1)

sPath = "KickedCount\\"
sKickedFile = sPath.."tKicked.tbl"
g=5 -- число секунд
tKick={tUser,sOp,sNick,sReason,iTime={},"","",""}

function Main()
sBot = frmHub:GetHubBotName()
tKicked = {}
if loadfile(sKickedFile) then
dofile(sKickedFile)
else
os.execute("mkdir ".."\""..string.gsub(sPath, "/", "\\").."\"")
end
end

function OnTimer()
tKick.iTime=tKick.iTime-1
if tKick.iTime==0 then
SendToNick(tKick.sOp,"Решение принято :sablay:")
tKick.tUser:Kick(tKick.sOp,tKick.sReason)
tKick.tUser:Disconnect()
tKick.iTime=nil
StopTimer()
else
SendToNick(tKick.sOp,"*** Осталось "..tKick.iTime.." сек")
end
end

function ChatArrival(curUser,sData)
local sData=string.sub(sData,1,-2)
local _,_,sCmd=string.find(sData,"%b<>%s+%p(%S+)")
if sCmd=="tempban" or sCmd=="drop" or sCmd=="fulltempban" then
local _,_,sNick=string.find(sData,"%b<>%s+%S+%s+(%S+)")
if sNick==nil then
curUser:SendData(sBot,"*** Вы забыли ввести ник юзера и/или дополнительные параметры: <время>, <причина>!")
return 1
else
curUser:SendData(sBot,"*** Кик/Временный бан в отношении юзера "..sKicked.." учтен в амбарной книге.")
return 0
end
end
local _,_,sCmd = string.find(sData,"%b<>%s+(%S+)")
if tKick.iTime and string.lower(sCmd)=="y" and curUser.sName==tKick.sOp then
tKick.iTime=nil
StopTimer()
tKick.tUser:TempBan(0,tKick.sReason,tKick.sOp,1)
return 1
end
local _,_,sNick,sArg = string.find(sData,"%b<>%sis%skicking%s(%S+)%sbecause:%s(.*)")
if sNick then
tKick.sReason=(sArg or "")
return 1
end
if string.find(sData,"%b<>%sYou%sare%sbeing%skicked%sbecause:") then
return 1
end
end
ToArrival=ChatArrival

function KickArrival(curUser,sData)
local sData = string.sub(sData,1,-2)
local _,_,sNick = string.find(sData, "%$Kick%s(%S+)")
if sNick and sNick~=curUser.sName then
local tKickAssUser=GetItemByName(sNick)
if tKickAssUser then
local sKicked=sNick
if tKicked[sKicked] then
local count=tKicked[sKicked]
tKick.iTime,tKick.tUser,tKick.sOp=g,tKickAssUser,curUser.sName
curUser:SendData(sBot,"*** Юзер "..sNick.." уже был кикнут "..count.." раз(а). Может, его уже, нафик забанить? shocked.gif")
curUser:SendData(sBot,"В течение "..g.." секунд отправьте в чат Y чтобы забанить пользователя")
SetTimer(1000)
StartTimer()
tKicked[sKicked]=tKicked[sKicked]+1
SaveToFile(sKickedFile,tKicked,"tKicked")
return 1
else
tKicked[sKicked]=1
SaveToFile(sKickedFile,tKicked,"tKicked")
return 0
end
end
end
end

function SaveToFile(sFileWay, tTable, sTableName)
local sHandle = io.open(sFileWay,"w+")
Serialize(tTable, sTableName, sHandle)
sHandle:flush()
sHandle:close()
end

function Serialize(tTable, sTableName, sHandle, sTab)
local sTab = sTab or ""
sHandle:write(sTab..sTableName.." = {\n")
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key)
if type(value) == "table" then
Serialize(value, sKey, sHandle, sTab.."\t")
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
sHandle:write(sTab.."\t"..sKey.." = "..sValue)
end
sHandle:write(",\n")
end
sHandle:write(sTab.."}")
end