Help modifying Illegallist (again :)

[MrZ]

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)

[MrZ]

pleeease ;)

[MrZ]

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........