Версия: 1.1, LUA 5.1.3 PX 0.4.1.1
Автор:
Описание: Скрипт блокировки главного чата и лички до ввода разблокирующего кода (3-значное рандомное число)
Скачать: Модификации:
Sunlight писал(а):немного не понял что оно пишет в chatguard.tbl
Код: Выделить всё
WriteFile(tBanIP, "tBanIP", chatguardf)
Код: Выделить всё
if tProfiles[sUser.iProfile] and tProfiles[sUser.iProfile] == 1 then
data = string.sub(sData,1,string.len(sData)-1)
cmd = string.match(data,"%b<>%s+(%S+)")
if cmd then
if string.lower(cmd) == "!cgbanipr" then
local temp1,temp2,temp3=string.match(data,"%b<>%s+(%S+)%s+(%S+)%s+(.*)$")
curUser:SendData(bot,"[command] "..temp1.." "..temp2.." "..temp3)
if tBanIP[temp2]==nil then
tBanIP[temp2]={}
tBanIP[temp2]["ip"]=temp2
tBanIP[temp2]["fromuser"]=sUser.sName
tBanIP[temp2]["time"]=os.date("%c")
tBanIP[temp2]["itime"]=os.date()
tBanIP[temp2]["r"]=temp3
tBanIP["banlistc"]=tBanIP["banlistc"]+1
tBanIP[tBanIP["banlistc"]]=temp2
WriteFile(tBanIP, "tBanIP", chatguardf)
WriteFile(tBanIP, "tBanIP", chatguardf)
sUser:SendData(bot,"Для IP:"..tBanIP[temp2]["ip"].." отключён чат и приваты по причине: "..tBanIP[ntext]["r"])
end
return 1
end
end
cmd=""
end
end
Вызывается функция WriteFile() (вызывается дважды, наверное, чтобы уж точно записалось).Но мне непонятно как.
Код: Выделить всё
WriteFile(tBanIP, "tBanIP", chatguardf)
Код: Выделить всё
function WriteFile(table, tablename, file)
local handle = io.open(file, "w")
Serialize(table, tablename, handle)
handle:close()
end
Код: Выделить всё
!cgbanipr 127.0.0.1 Причина бана
А вы, уважаемый, яркий пример трутня. Только языком работаете, в то время как скрипт немало помогает в работе хаба.sphinx писал(а):Яркий пример бесполезной работы над бесполезным скриптом. Спамеру не составит труда написать трехзначное число