-- Simple Illegalist v0.1 
-- Created by Ptaczek, Jan-3, 2003 
-- Searches for specified patterns. Useful for illegal share checking 
-- some changes by Skippy and RabidWombat and OpiumVolage and trucker

BotName = "Illegalist" 

function Main() 
frmHub:EnableSearchData(1) 
end 

Files = { 
["rape"]="Do not share sick porn!", 
["incest"]="NO incest movies-pictures here!", 
["childsex"]="NO sick Porn inhere!",
["childporn"]="NO sick orn inhere!",
["underage"]="NO sick Porn inhere!",
["nazi"]="NO nazi related material here!", 
["animalsex"]="NO Animalsex files here!", 
["svastika"]="NO Nazi/white power music HERE!!!",
[".temp.mp3"]="NO sharing of incomplete downloads",
["_INCOMPLETE_"]="NO sharing of incomplete downloads",
["download123456789.dat"]="NO sharing of incomplete downloads",
["part.met"]="NO sharing of incomplete downloads",
[".getright"]="NO sharing of incomplete downloads"
[".vob"]="NO sharing of incomplete downloads"
} 

Kicked = {} 

function NewUserConnected(user) 
if( Kicked[user.sName] == 1 ) then 
Kicked[user.sName] = nil 
end 
for i,v in Files do 
user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i) 
end 
end 

function DataArrival(user, data) 
if( strsub(data, 1, 3) == "$SR" ) then 
_,_,nick = strfind( data, "\05(%S*)|$" ) 
if( nick == BotName and Kicked[user.sName] == nil ) then 
Kicked[user.sName] = 1 
Reason = FindWhat(data) 
SendPmToNick("[NL[DSNHO]trucker", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason) 
user:SendPM(BotName, "You were kicked. "..Reason) 
user:Disconnect() 
end 
end 
end 

function FindWhat(data) 
for i,v in Files do 
if( strfind(strlower(data), i) ) then 
return v 
end 
end 
return "Other files" 
end