Print Page - a little modification please

Title: a little modification please
Post by: [NL]trucker on 12 February, 2004, 09:46:49

hello all

i use ilegalist to check on my users but i have a request
could it be modified

a:so that i can set wheter to check a profile or not
b: and that i have the choice between kick and warn
pro profile
c: that 3x kick means ban
d: that 3x warn means kick
e: that it logs it,s kicks and warns

this is my profile list:

0|Owner|
1|Master|
2|Admin|
3|Moderator|
4|Operator|
5|VIP|
6|Reg|
7|Magmar|

this is my script now:

- 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 = {
["childsex"]="NO sick Porn inhere!",
["childporn"]="NO sick kid Porn inhere!",
["underage"]="NO sick kid Porn inhere!",
["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",
["share faker"]="NO tools for fake sharing allowed",
["share hacker"]="No tools for fake sharing allowed"}

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]trucker", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason)
user:SendPM((BotName),( "You were kicked. "..Reason),("You can come back when you have corrected the problem"))
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

Title:
Post by: nErBoS on 12 February, 2004, 11:31:56

Hi,

This script doesn't check on ops, which leaves us with this levels..

5|VIP|
6|Reg|
7|Magmar| --Not sure about this one

Now tell me which level you want to script to not check and which level to kick or warn.

Best regrads, nErBoS

Title:
Post by: [NL]trucker on 12 February, 2004, 16:25:15

nerbos

vip= warn 3x warn = kick after 3x kick = tempban\ban
reg= check and kick 3x kick = ban
magmar= nocheck = own profile for hubowmers in network
user =check and kick 3x kixk =ban

and please dont forget this one

That it logs it,s kicks and warns this is important to me
something like userx is warned because ....
userx is 2 x warned
userx is 3 times warned and got kicked
userx is 3 xkicked and got banned for not listening bye bye

and if posibble same mesaage in main.

go for it m8 i know you can do this :-)

Title:
Post by: nErBoS on 14 February, 2004, 01:38:41

Hi,

Sorry for the delay i have been having a lot of work...

Hope it helps...

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: [NL]trucker on 12 February, 2004, 09:46:49