-- pm to ops chat of any one
-- searching for bad files
-- ban or warn user
-- by ¨˜”°º•Hawk•º°”˜¨  
-- 28-06-2004
Bot = "Bad Search"
BadFiles = { 
["childsex"]="ban", 
["childporn"]="ban", 
["underage"]="ban", 
["animalsex"]="ban", 
["preteen"]="ban",
["r@ygold"]="ban", 
["lolita"]="warn", 
["rape"]="warn",
["incest"]="warn", 
["beastiality"]="warn", 
["rape"]="warn",
}

function Main()
	frmHub:EnableFullData(1)
end

function DataArrival(tUser, sData)
	if tUser.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(frmHub:GetOpChatName(), "\r\n\r\nThis user has been banned for searching for Bad files:-\r\n\r\nUsername:-\t"..tUser.sName.."\r\n\IP:-\t\t" .. tUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\n" ) 
							tUser:SendPM(Bot, "\r\n\r\nYou have been banned for searching for Bad files:-\r\n\r\nUsername:-\t"..tUser.sName.."\r\n\IP:-\t\t" .. tUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nThese Details have been Logged" ) 
							tUser:Ban()
							tUser:Disconnect()
						elseif BadFiles[key] == "warn" then
							SendPmToOps(frmHub:GetOpChatName(), "\r\n\r\nwThis 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"..key.."\r\n\r\n" ) 
							tUser:SendPM(Bot, "\r\n\r\nYou are searching for Bad files:-\r\n\r\nUsername:-\t"..tUser.sName.."\r\n\IP:-\t\t" .. tUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nThese Details have been Logged \r\n\r\n! ! ! THIS IS A WARNING ! ! !" ) 
						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(frmHub:GetOpChatName(), "\r\n\r\nThis user has been banned for searching for Bad files:-\r\n\r\nUsername:-\t"..tUser.sName.."\r\n\IP:-\t\t" .. tUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\n" ) 
							tUser:SendPM(Bot, "\r\n\r\nYou have been banned for searching for Bad files:-\r\n\r\nUsername:-\t"..tUser.sName.."\r\n\IP:-\t\t" .. tUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nThese Details have been Logged" ) 
							tUser:Ban()
							tUser:Disconnect()
						elseif BadFiles[key] == "warn" then
							SendPmToOps(frmHub:GetOpChatName(), "\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"..key.."\r\n\r\n" ) 
							tUser:SendPM(Bot, "\r\n\r\nYou are searching for Bad files:-\r\n\r\nUsername:-\t"..tUser.sName.."\r\n\IP:-\t\t" .. tUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nThese Details have been Logged \r\n\r\n! ! ! THIS IS A WARNING ! ! !" ) 
						end
					end 
				end
		end
	end
end