PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: MrZ on 14 March, 2004, 16:23:11

Title: Help modifying Illegallist (again :)
Post by: MrZ on 14 March, 2004, 16:23:11
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)
Title:
Post by: MrZ on 15 March, 2004, 18:25:39
pleeease ;)
Title:
Post by: MrZ on 23 March, 2004, 18:54:42
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........