Detecting certain files BOT

[PRED_UK]

Can anyone help me ?

I`m trying to find a script that will automatically search connecting users files for PORN and kick them without me having to manually check all the shares myself.

Is it possible to also auto kick users for slot locking as in (No Slots Available) when you try for a filelist.

I`m really pulling my hair out with this one, Thanks for all your help and keep up the good work.

Thanks to all @ THE LUA LANGUAGE BOARD  ; o )

PRED ( Man on a mission )

[BlazeXxX]

Hi there,
To get rid of "No Slots messages" while getting file list, use latest version of DCK++ , which will kick if someone gives that msg... It cn also check for bad files, fake share etc...

For auto check on login, add ur keywords in the list.. or the extensions.. e.g: .mpg or .avi kinds.. some are done already for u :)

Hope that helps!

Byezzz,
BlazeX


-- Start Copying from here
-- Simple Illegalist v0.1
-- Created by Ptaczek, Jan-3, 2003
-- Searches for specified patterns. Useful for illegal share checking

BotName = "Illegalist"

Files = {
   ["rape"]="Do not share sick porn!",
   ["preteen"]="No pre-teen here!",
   ["nazi"]="No nazi related material here!",
   [".avi"]="No AVI files here!"
}

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)
         SendToOps(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
-- End of Copying

[Jabo]

Is there any way I could add this to my Robocop script by copying a paste or would that not work?

[kepp]

I thought robocop had that? :D

[Jabo]

Does it really....I've never noticed it!

[kepp]

Maybe not avi. and dll.

But, if you use robocop 4 which is compiled you are not able to

[oblivion]

just paste it in ptokax window save as Illegalist..restart scripts...bobs ya uncle ,,,done!!