Can sum1 convert this script pls?
-- pm to ops chat of any one
-- searching for bad files
-- by ??????Hawk??????
-- 28-06-2004
-- fixed by ? Empie ?
-- 11-08-2004
-- Exclude user list added by ? Empie ?
-- 13-08-2004
BadFiles = {
["childsex"]=1,
["childporn"]=2,
["underage"]=3,
["animalsex"]=4,
["preteen"]=5,
["r@ygold"]=6,
["lolita"]=7,
["rape"]=8,
["incest"]=9,
["beastiality"]=10,
["nazi"]=11,
["forced"]=12,
["pissing"]=13,
["snuff"]=14,
["teen$raped"]=15,
["zoo-sex"]=16,
["raped$real"]=17,
["raped"]=18,
["rape$real"]=19,
["real$rape"]=20,
["forced$to$have$sex"]=21,
["forced$to$fuck"]=22,
["forced$to$suck"]=23,
["lolita$sex"]=24,
["preteen$sex"]=25,
}
-- Good Users are case sensitive! Need to add more users just keep counting e.g. ["nick-here"]=3, etc
GoodUsers = {
["nick-here"]=1,
["nick-here"]=2,
}
opchat = "?Q??KPR?T?KT?"
botname = "?PHH?"
relax = 0
function Main()
frmHub:EnableFullData(1)
end
function DataArrival(tUser, sData)
if (tUser.bOperator == nil) then
for key2,a in GoodUsers do
if (tUser.sName == key2) then
relax = 1
end
end
if (relax==0) 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
theString = sSearch
niceString = gsub(theString, "[$]", " ")
SendPmToOps(opchat, "\r\n\r\nThis user is POTENTIALLY searching for sicko files. Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" )
SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
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
theString = sSearch
niceString = gsub(theString, "[$]", " ")
SendPmToOps(opchat, "\r\n\r\nThis user is searching for Bad files Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" )
SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
end
end
end
end
relax = 0
end
end
Apologies 4 floodin the board but I've been kinda slow at changin over 2 ne PX n really think it's time I did!
Thanx in advance.
might work...
-- pm to ops chat of any one
-- searching for bad files
-- by ?~”?o•Hawk•o?”~?
-- 28-06-2004
-- fixed by • Empie •
-- 11-08-2004
-- Exclude user list added by • Empie •
-- 13-08-2004
-- to LUA 5 converted on Earth
BadFiles = {
["childsex"]=1,
["childporn"]=2,
["underage"]=3,
["animalsex"]=4,
["preteen"]=5,
["r@ygold"]=6,
["lolita"]=7,
["rape"]=8,
["incest"]=9,
["beastiality"]=10,
["nazi"]=11,
["forced"]=12,
["pissing"]=13,
["snuff"]=14,
["teen$raped"]=15,
["zoo-sex"]=16,
["raped$real"]=17,
["raped"]=18,
["rape$real"]=19,
["real$rape"]=20,
["forced$to$have$sex"]=21,
["forced$to$fuck"]=22,
["forced$to$suck"]=23,
["lolita$sex"]=24,
["preteen$sex"]=25,
}
-- Good Users are case sensitive! Need to add more users just keep counting e.g. ["nick-here"]=3, etc
GoodUsers = {
["nick-here"]=1,
["nick-here"]=2,
}
opchat = "•Q??KPROT€KT•"
botname = "•PHH•"
relax = 0
function SearchArrival(tUser, sData)
if (tUser.bOperator == nil) then
for key2,a in GoodUsers do
if (tUser.sName == key2) then
relax = 1
end
end
if (relax==0) then
if string.sub(sData, 1, 12) == "$Search Hub:" then
local _,_, sSearch = string.find(sData, "$Search Hub:%S+%s+%a%?%a%?%d+%?%d+%?(.*)|")
for key,a in BadFiles do
if( string.find( string.lower(sSearch), key) ) then
theString = sSearch
niceString = string.gsub(theString, "[$]", " ")
SendPmToOps(opchat, "\r\n\r\nThis user is POTENTIALLY searching for sicko files. Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" )
SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
end
end
elseif string.sub(sData, 1, 7) == "$Search" then
local _,_, sSearch = string.find(sData, "%$Search %d+%.%d+%.%d+%.%d+:%d+%s+%a%?%a%?%d+%?%d+%?(.*)|")
for key,a in BadFiles do
if( string.find( string.lower(sSearch), key) ) then
theString = sSearch
niceString = string.gsub(theString, "[$]", " ")
SendPmToOps(opchat, "\r\n\r\nThis user is searching for Bad files Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" )
SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
end
end
end
end
relax = 0
end
end
Thanx a lot man, works perfect :D
hi
sorry new to this hope you can help
cannot get this to work getting the error
(to close `function' at line 50) near `'
i copied and paste to ptokax and saved as anti
QuoteOriginally posted by kh2000man
hi
sorry new to this hope you can help
cannot get this to work getting the error
(to close `function' at line 50) near `'
i copied and paste to ptokax and saved as anti
hi m8
try copy and pasting again making sure you get it all ..
it looks like you missed the last ' end '
??????Hawk??????