Here are a Script for illegal search on the Hub, there forbidden Words in the Search
-----------------------------------------------------
-- Sendet eine PM an die Operator - Send a Pm to OperatorChat
-- meldet wenn ein User verbotenes sucht - if a user forbidden announces searches
-- warn oder bannt einen User - bot is banned or warned
-- by TheRevenge
-- Datum: 5.10.2004
--
--
----------------- BotNamen -------------------------------------------------------
-- Hier nur den Botnamen ?ndern - here botname
-- Opchat nimmt er von selber - Opchat from PtokaX
--
--
BotName = "Donnerg?ttin???" --BotNamen
OpChatName = frmHub:GetOpChatName() --Use this line for inbuilt Px opchat
--OpChatName = "OPChat" --Use this line for a scripted opchat
---------------- BadFilesSearch --------------------------------------------------
-- Hier die verbotenen W?rter eintragen mit Aktion - write here forbidden Words in the search
--
BadFiles = {
["childsex"]="ban",
["childporn"]="warn",
["underage"]="warn",
["animalsex"]="warn",
["preteen"]="warn",
["r@ygold"]="warn",
["rape"]="warn",
["incest"]="warn",
["beastiality"]="warn",
["nazi"]="warn",
["schoolgirl"]="warn",
}
----------------------------------------------------------------------------------
-- Hier bitte nur Zeit vom ZeitBan eintragen - Time for Ban
--
function Main()
frmHub:EnableFullData(1)
time = "60"
end
------------- Messages zum User und Operator -------------------------------------
function DataArrival(curUser, sData)
if curUser.bOperator == nil then
if strsub(sData, 1, 12) == "$Search Hub:" then
local _,_, sSearch = strfind(sData, "$Search Hub:%S+%s+%a%?%a%?%d+%?%d+%?(.*)|")
for key,a in BadFiles do
if( strfind( strlower(sSearch), key) ) then
if BadFiles[key] == "ban" then
SendPmToOps(OpChatName, "\r\n\r\nDieser User wurde gebannt f?r "..time.." Min, denn er suchte nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" )
SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu wurdest gebannt f?r "..time.." Min, wegen der Suche nach Dateien mit folgendem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\nDiese Daten wurden im Logbuch festgehalten\r\n" )
curUser:TimeBan(time)
curUser:Disconnect()
elseif BadFiles[key] == "warn" then
SendPmToOps(OpChatName, "\r\n\r\nDieser User sucht nach Dateien mit verbotenem Inhalt - Bitte ?berpr?fe seinen Share:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" )
SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu suchst nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nDiese Daten wurden im Logbuch festgehalten \r\n\r\n! ! ! D A S I S T E I N E W A R N U N G ! ! !\r\n" )
end
end
end
elseif strsub(sData, 1, 7) == "$Search" then
local _,_, sSearch = strfind(sData, "%$Search %d+%.%d+%.%d+%.%d+:%d+%s+%a%?%a%?%d+%?%d+%?(.*)|")
for key,a in BadFiles do
if( strfind( strlower(sSearch), key) ) then
if BadFiles[key] == "ban" then
SendPmToOps(OpChatName,"\r\n\r\nDieser User wurde gebannt f?r "..time.." Min, denn er suchte nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" )
SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu wurdest gebannt f?r "..time.." Min, wegen der Suche nach Dateien mit folgendem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\nDiese Daten wurden im Logbuch festgehalten\r\n" )
curUser:TimeBan(time)
curUser:Disconnect()
elseif BadFiles[key] == "warn" then
SendPmToOps(OpChatName, "\r\n\r\nDieser User sucht nach Dateien mit verbotenem Inhalt - Bitte ?berpr?fe seinen Share:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" )
SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu suchst nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nDiese Daten wurden im Logbuch festgehalten \r\n\r\n! ! ! D A S I S T E I N E W A R N U N G ! ! !\r\n" )
end
end
end
end
end
end
Use this script...
function Main()
SendToAll("bastya_elvtars","Use DCDM++ for searching bad files, LUA scripts are _not_ for that purpose."
end
:) , good one bast , gonna use it straight away :p
Typhoon?