Hia :))
This is a popular bot to mod. I would like it to send the reason even if they have the settings : "Ignore messages from users that are not online (effective against bots)" ON in the client.
And it would be nice if it could tell the path to the file/files too.
tnx :))
-- Simple Illegalist v0.1
-- Created by Ptaczek, Jan-3, 2003
-- Searches for specified patterns. Useful for illegal share checking
-- Modificed by Leo
-- Modifications by Phatty
addy = "Wurlitzer.no-ip.com:4411"
BotName = "Illegalist"
Files = {
- ["preteen"]="No pre-teen here!",
- ["fuck"]="For sharing the word fuck in filenames or folders ! Remove or rename all those words and you're welcome back...",
- ["nigger"]="For sharing word like nigger in filenames or folders ! Remove or rename all those words and you're welcome back...",
- ["motherfucker"]="For sharing motherfuck word in filenames or folders ! Remove or rename all those words and you're welcome back...",
- [".shn"]="For sharing shn files ! Unshare all your .shn files and you're welcome.Inly .mp3 files allowed.",
- [".dll"]="For sharing dll files ! Unshare all your .dll files and you're welcome. Only .mp3 files allowed.",
- [".exe"]="For sharing exe files ! Unshare all your .exe files and you're welcome. Only .mp3 files allowed.",
}
Kicked = {}
function Main()
-- frmHub:RegBot(BotName)
-- frmHub:UnregBot"{InfoBot}"
end
function NewUserConnected(user)
frmHub:EnableSearchData(1)
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)
SendPmToOps(BotName, "*** User "..user.sName.." redirected. Reason: "..Reason)
user:SendData("$ForceMove "..addy)
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, Only .mp3 files allowed, unshare all others and you're welcome."
end
Z ya (i hope, hehe)
pleeease ;)
Heyy, do i smell so bad ?? hehe or is it just booring doing this ?
must be something as i dont think it is to advanced for u here........