a little modification please

[[NL]trucker]

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

[nErBoS]

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

[[NL]trucker]

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 :-)

[nErBoS]

Hi,

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

Hope it helps...

-- 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 
-- add tables warn and kick by nErBoS

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"} 

warn = {}
kick = {}


function NewUserConnected(user)
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) then
	if (user.bOperator) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == nill or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason) 
			user:SendPM((BotName),( "You have been warned "..warn[user.sName].." time(s) at 4 you will be kicked. "..Reason),("You can come back when you have corrected the problem"))
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			user:Ban() 
		end
	end
	else
	if (kick[user.sName] == nill or kick[user.sName] == 1 or kick[user.sName] == 2) then
		kick[user.sName] = kick[user.sName] + 1
		Reason = FindWhat(data) 
		SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
		user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
		user:TempBan() 
	elseif (kick[user.sName] == 3) then
		Reason = FindWhat(data) 
		SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
		user:SendPM(BotName,"You have been banned. "..Reason)
		user:Ban() 
	end
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  

NOTE: When Hub or script is restarted the warns and kicks turns to nill in the next version of ptokax this will be resolved :) with the function OnExit()

Also first time i use tables anything wrong just report :)

Best regards, nErBoS

[[NL]trucker]

Nerbos

is it logging the kicks ?
and so yes do i need to make a dir and txt file for it ?

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.

[[NL]trucker]

Nerbos

oke first message i got right after restart of scripts

Syntax error: attempt to perform arithmetic on a nil value
stack traceback:
   1:  function `DataArrival' at line 68 [file `D:\==PTOTAX==\gekkobeta5\scripts\kick-bot.lua']

and forget to ask can you make a immune list?

i mean where i can add users that dont get checked?

[nErBoS]

Hi,

Try this one...

-- 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 
-- add tables warn and kick by nErBoS

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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker"} -- Usres you want to not be checked


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == nill or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason) 
			user:SendPM((BotName),( "You have been warned "..warn[user.sName].." time(s) at 4 you will be kicked. "..Reason),("You can come back when you have corrected the problem"))
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			user:Ban() 
		end
	end
	end
	else
	if (kick[user.sName] == nill or kick[user.sName] == 1 or kick[user.sName] == 2) then
		kick[user.sName] = kick[user.sName] + 1
		Reason = FindWhat(data) 
		SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
		user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
		user:TempBan() 
	elseif (kick[user.sName] == 3) then
		Reason = FindWhat(data) 
		SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
		user:SendPM(BotName,"You have been banned. "..Reason)
		user:Ban() 
	end
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  

What do you want to log on the kicks.txt ?? (reason, user name, times kicked.. ??)

Best regards, nErBoS

[[NL]trucker]

nerbos

 i will try this one out :-)

What do you want to log on the kicks.txt ?? (reason, user name, times kicked.. ??)

yep and if possible time and date.

[[NL]trucker]

Nerbos

next one :-)

Syntax error: attempt to perform arithmetic on a nil value
stack traceback:
   1:  function `DataArrival' at line 79 [file `D:\==PTOTAX==\gekkobeta5\scripts\kick-bot.lua']

Script stopped.


have fun peoplle say sometimes :p

[nErBoS]

Hi,

Hope it helps..

-- 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 
-- add tables warn and kick by nErBoS

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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker"} -- Usres you want to not be checked
kicklog = "kicks.txt" -- In script folder


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == nill or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason) 
			user:SendPM((BotName),( "You have been warned "..warn[user.sName].." time(s) at 4 you will be kicked. "..Reason),("You can come back when you have corrected the problem"))
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kick) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			user:Ban() 
		end
	end
	end
	else
	if (kick[user.sName] == nill or kick[user.sName] == 1 or kick[user.sName] == 2) then
		kick[user.sName] = kick[user.sName] + 1
		Reason = FindWhat(data) 
		SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
		user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
		appendto(kick) 
		write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
		writeto()
		user:TempBan() 
		user:TempBan() 
	elseif (kick[user.sName] == 3) then
		Reason = FindWhat(data) 
		SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
		user:SendPM(BotName,"You have been banned. "..Reason)
		user:Ban() 
	end
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  

function GetTime()
	s = date("%S")
	h = date("%H")
	m = date("%M")
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
	return Date

end

Best regards, nErBoS

[[NL]trucker]

nerbos

as soon i started the script i got this :

Syntax error: attempt to perform arithmetic on a nil value
stack traceback:
   1:  function `DataArrival' at line 83 [file `D:\==PTOTAX==\gekkobeta5\scripts\kick-bot.lua']

i saw you added a log to it :-)

do i need to make the txt files and the dir myself?

and i saw the time bit in the script is this included in the txt file?

hope you know what i mean :-)

something like 12.30 user x is kicked for ......
                        12.40  user x is kicked for second time for ....

[nErBoS]

Hi,

I have tested the script and i'm not having that error

little modification..

-- 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 
-- add tables warn and kick by nErBoS

BotName = "Illegalist" 

function Main()
frmHub:RegBot(BotName) 
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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker"} -- Usres you want to not be checked
kicklog = "kicks.txt" -- In script folder


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == 0 or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason) 
			user:SendPM(BotName, "You have been warned "..warn[user.sName].." time(s) at 3 you will be kicked. "..Reason)
			user:SendPM(BotName, "You can come back when you have corrected the problem")
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			user:Ban() 
		end
	elseif ( not user.bOperator ) then
		if (kick[user.sName] == 0 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			user:Ban() 
		end
	end
	end
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  

function GetTime()
	s = date("%S")
	h = date("%H")
	m = date("%M")
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
	return Date

end

The kick.txt will auto be created in the script folder and will save this information...

teste|NO sick Porn inhere!|1|Day: 15/02/2004 Hour: 13:36:15

Best regards, nErBoS

[[NL]trucker]

Nerbos

thnx m8 i,m testing it now ;-)

will let you know how it goes .

[[NL]trucker]

nerbos

script is working fine :-)

just the kick-count

(NL)renoreno|NO sharing of incomplete downloads|1|Day: 15/02/2004 Hour: 22:03:30

(NL)renoreno|NO sharing of incomplete downloads|2|Day: 15/02/2004 Hour: 22:03:30

mari|NO sharing of incomplete downloads|1|Day: 15/02/2004 Hour: 22:05:47

mari|NO sharing of incomplete downloads|2|Day: 15/02/2004 Hour: 22:05:47

it is counting doublle (:-

[nErBoS]

Yes the log will put all kicks.

You want to each user have their one line ??? its more dificult

Best regards, nErBoS

[NightLitch]

A hint. Make it a table saving. then everytime a new line come it will overwrite the old one.

some advanced saving. but the best I think. thx to Wombat.

do it like this when saving:

table[nick] = {
                      ["IP"] = nick.sIP
                      ["REASON"] = reason,
                      ["TIME"] = GetTime,
                      ["byOP"] = curUser.sName
                     }

and call it with this:

function Serialize(tTable, sTableName, hFile, sTab)
	assert(tTable, "tTable equals nil");
	assert(sTableName, "sTableName equals nil");
	assert(hFile, "hFile equals nil");

	assert(type(tTable) == "table", "tTable must be a table!");
	assert(type(sTableName) == "string", "sTableName must be a string!");

	sTab = sTab or "";

	write(hFile, sTab..sTableName.." = {\n" );

	for key, value in tTable do
		local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);

		if(type(value) == "table") then
			Serialize(value, sKey, hFile, sTab.."\t");
		else
			local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
			write(hFile, sTab.."\t"..sKey.." = "..sValue);
		end

		write(hFile, ",\n");
	end

	write(hFile, sTab.."}");
end

function SaveToFile(file , table , tablename)
	local hFile = openfile(file, "w");
	Serialize(table, tablename, hFile);
	closefile(hFile);
end

function LoadFromFile (file)
	assert(readfrom(file),file.." is not found.Generating new "..file..". All is fine. Don't panic.")
	dostring(read("*all"))
	readfrom()
end

ex. on SaveToFile & Loading:

SaveToFile(KickFile,KickTable,"KickTable")

LoadFromFile(KickFile)

and when opening the in script for viewing:
( put in a function and see what it does )

local tmp = table[curUser.sName]
if tmp then
local IP = tmp["IP"]
local REASON = tmp["REASON"]
local TIME = tmp["TIME"]
local BYOP = tmp["byOP"]
end

Msg = "Nick: "..tmp..", IP: "..IP..", Reason: "..REASON..", Time: "..TIME..", By OP: "..BYOP.."."
SendToAll(Msg)

hope this help some.

otherwise I can fix it later.

[[NL]trucker]

Nerbos

script is still working fine :-)

(NL)renoreno|NO sharing of incomplete downloads|1|Day: 15/02/2004 Hour: 22:03:30

(NL)renoreno|NO sharing of incomplete downloads|2|Day: 15/02/2004 Hour: 22:03:30

look at the times of the kick it counts 1 kick as 2

that whas what i ment.

Now for a bit more difficult request

could the kicks and bans also be shown in main?
with the possibility to switch on/of the message in main?

this script is getting better and better by the day great work m8 and thanks for doing it .

Nightlitch

this is just an autokick script ; but i like the idear that it logs also the kicks by the OP,s


table[nick] = {
                      ["IP"] = nick.sIP
                      ["REASON"] = reason,
                      ["TIME"] = GetTime,
                      ["byOP"] = curUser.sName
                     }

or is my thought wrong with this?

[nErBoS]

Hi,

Try this one....

-- 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 
-- add tables warn and kick by nErBoS

BotName = "Illegalist" 

function Main()
frmHub:RegBot(BotName) 
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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker"} -- Usres you want to not be checked
kicklog = "kicks.txt" -- In script folder
main = "Active" --- write Deactive and will not send the kicks and bans to the main


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == 0 or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason) 
			user:SendPM(BotName, "You have been warned "..warn[user.sName].." time(s) at 3 you will be kicked. "..Reason)
			user:SendPM(BotName, "You can come back when you have corrected the problem")
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		end
	elseif ( not user.bOperator and not GetProfileName(user.iProfile) == "VIP" and not user.sName == usersimune[i]) then --this will solve the double log i think
		if (kick[user.sName] == 0 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		end
	end
	end
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  

function GetTime()
	s = date("%S")
	h = date("%H")
	m = date("%M")
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
	return Date

end

Thanks NigthLitch for the information how to work with tables, have to get a litlle time free to start working on that, is very useful.

Best regards, nErBoS

[WickeD]

Originally posted by nErBoS
Hi,

Try this one....

-- 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 
-- add tables warn and kick by nErBoS

BotName = "Illegalist" 

function Main()
frmHub:RegBot(BotName) 
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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker"} -- Usres you want to not be checked
kicklog = "kicks.txt" -- In script folder
main = "Active" --- write Deactive and will not send the kicks and bans to the main


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == 0 or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason) 
			user:SendPM(BotName, "You have been warned "..warn[user.sName].." time(s) at 3 you will be kicked. "..Reason)
			user:SendPM(BotName, "You can come back when you have corrected the problem")
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		end
	elseif ( not user.bOperator and not GetProfileName(user.iProfile) == "VIP" and not user.sName == usersimune[i]) then --this will solve the double log i think
		if (kick[user.sName] == 0 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		end
	end
	end
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  

function GetTime()
	s = date("%S")
	h = date("%H")
	m = date("%M")
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
	return Date

end

Thanks NigthLitch for the information how to work with tables, have to get a litlle time free to start working on that, is very useful.

Best regards, nErBoS

Can you fix this fine script so when a user get a warn/kick/ban it shows this info to!: Movies/Mixed-Movies/Animalsex.avi

So the script shows where the bad-files are in the users share!

//WickeD

[nErBoS]

Hi,

Done..

-- 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 
-- add tables warn and kick by nErBoS

BotName = "Illegalist" 

function Main()
frmHub:RegBot(BotName) 
frmHub:EnableSearchData(1) 
end 

Files = { 
[".dll"]="NO sick Porn inhere!",
["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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker"} -- Usres you want to not be checked
kicklog = "kicks.txt" -- In script folder
main = "Active" --- write Deactive and will not send the kicks and bans to the main


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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*)|$" ) 
local s = 5 + strlen(user.sName)
local e = strfind(data, "%d+%s%d+/%d+") - 2
local path = strsub(data, s, e)
if( nick == BotName) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	elseif (GetProfileName(user.iProfile) == "VIP") then 
		if (warn[user.sName] == 0 or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName, "You have been warned "..warn[user.sName].." time(s) at 3 you will be kicked. "..Reason.." FILE: "..path)
			user:SendPM(BotName, "You can come back when you have corrected the problem")
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		end
	elseif not(user.bOperator and GetProfileName(user.iProfile) == "VIP" and user.sName == usersimune[i]) then --this will solve the double log i think
		if (kick[user.sName] == 0 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		end
	end
	end
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  

function GetTime()
	s = date("%S")
	h = date("%H")
	m = date("%M")
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
	return Date

end

Best regards, nErBoS

[[NL]trucker]

nerbos

something is defenitly wrong in this script

it kicks a user many times in a row in the same minut;
it puts the user in tempban
it puts the user in permban  over 15 times
and all these with message in main

this is from main:


[09:34:54] <=[G?KK?]=> *** User [NL]--Liekerdjuh should be checked. Reason: Suspected Files containing exceeded large dvd rips
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been kicked for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been kicked for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been kicked for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads
[09:42:06] <=[Konsole#]=> The user [NL]--Liekerdjuh is been banned for NO sharing of incomplete downloads

Can you fix this fine script so when a user get a warn/kick/ban it shows this info to!: Movies/Mixed-Movies/Animalsex.avi

So the script shows where the bad-files are in the users share!

it also isnt showing WHERE the wrong files are in wich DIR



this is the kick.txt from the user


[NL]--Liekerdjuh|NO sharing of incomplete downloads|1|Day: 17/02/2004 Hour: 09:42:06

[NL]--Liekerdjuh|NO sharing of incomplete downloads|2|Day: 17/02/2004 Hour: 09:42:06

[NL]--Liekerdjuh|NO sharing of incomplete downloads|3|Day: 17/02/2004 Hour: 09:42:06

look at the time the user has no change to get back in.


so i gues there is someting wrong.
i will put the script i use in next message

[[NL]trucker]

oke here is the script:

====================================

-- 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
-- add tables warn and kick by nErBoS

BotName = "=[Konsole#]="

function Main()
frmHub:RegBot(BotName)
frmHub:EnableSearchData(1)
end

Files = {
[".dll"]="NO sick Porn inhere!",
["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",
["Netlimiter"] = "no tools for limiting speed allowed",
["czdc"] = "no sharing of fake clients"}
 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker","(uk-kingdom)John","(UKD)John","[NL]{VIP}Geroni",
"[NL]Coco","[NL]Dark_bad_girl","[NL]DiGARiX","[NL]GePe","[NL]M@non","[NL]movieman","[NL]SuusTweety",
"[NL]voodoo","[NL]ZeroX","Chupi?","DoJiN","hhps","[UKD]jiorgee","Quaraf","Sweet_Bitch",
"TheWickedRabbit","Serima","[NL]partyfever","[NL]AiR"} -- Usres you want to not be checked
kicklog = "kicks.txt" -- In script folder
main = "Active" --- write Deactive and will not send the kicks and bans to the main


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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*)|$" )
local s = 5 + strlen(user.sName)
local e = strfind(data, "%d+%s%d+/%d+") - 2
local path = strsub(data, s, e)
if( nick == BotName) then
   for i=1,getn(usersimune) do
   if (user.bOperator or user.sName == usersimune) then
   return 1
   elseif (GetProfileName(user.iProfile) == "VIP") then
      if (warn[user.sName] == 0 or warn[user.sName] == 1 or warn[user.sName] == 2) then
         warn[user.sName] = warn[user.sName] + 1
         Reason = FindWhat(data)
         SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason.." FILE: "..path)
         user:SendPM(BotName, "You have been warned "..warn[user.sName].." time(s) at 3 you will be kicked. "..Reason.." FILE: "..path)
         user:SendPM(BotName, "You can come back when you have corrected the problem")
         user:SendPM(BotName, "Disconnected...")
         user:Disconnect()
      elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
         warn[user.sName] = warn[user.sName] + 1
         kick[user.sName] = kick[user.sName] + 1
         Reason = FindWhat(data)
         SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason.." FILE: "..path)
         user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
         appendto(kicklog)
         write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime())
         writeto()
         if (main == "Active" ) then
            SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
         end
         if (main == "Deactive") then
            return 1
         end
         user:TempBan()
      elseif (kick[user.sName] == 3) then
         Reason = FindWhat(data)
         SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path)
         user:SendPM(BotName,"You have been banned. "..Reason)
         if (main == "Active" ) then
            SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
         end
         if (main == "Deactive") then
            return 1
         end
         user:Ban()
      end
   elseif not(user.bOperator and GetProfileName(user.iProfile) == "VIP" and user.sName == usersimune) then --this will solve the double log i think
      if (kick[user.sName] == 0 or kick[user.sName] == 1 or kick[user.sName] == 2) then
         kick[user.sName] = kick[user.sName] + 1
         Reason = FindWhat(data)
         SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason.." FILE: "..path)
         user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
         appendto(kicklog)
         write("\r\n"..user.sName.."|"..Reason.."|"..kick[user.sName].."|"..GetTime())
         writeto()
         if (main == "Active" ) then
            SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
         end
         if (main == "Deactive") then
            return 1
         end
         user:TempBan()
      elseif (kick[user.sName] == 3) then
         Reason = FindWhat(data)
         SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path)
         user:SendPM(BotName,"You have been banned. "..Reason)
         if (main == "Active" ) then
            SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
         end
         if (main == "Deactive") then
            return 1
         end
         user:Ban()
      end
   end
   end
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  

function GetTime()
   s = date("%S")
   h = date("%H")
   m = date("%M")
   d = date("%d")
   mm = date("%m")
   y = date("%y")
   Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
   return Date

end
======================================

[nErBoS]

Hi,

Forgot to close the FOR, sorry...

Problem solved..

-- 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 
-- add tables warn and kick by nErBoS

BotName = "Illegalist" 

function Main()
frmHub:RegBot(BotName) 
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"} 

warn = {}
kick = {}
usersimune = {"nErBoS", "[NL]trucker","(uk-kingdom)John","(UKD)John","[NL]{VIP}Geroni", 
"[NL]Coco","[NL]Dark_bad_girl","[NL]DiGARiX","[NL]GePe","[NL]M@non","[NL]movieman","[NL]SuusTweety", 
"[NL]voodoo","[NL]ZeroX","Chupi?","DoJiN","hhps","[UKD]jiorgee","Quaraf","Sweet_Bitch", 
"TheWickedRabbit","Serima","[NL]partyfever","[NL]AiR"} -- Usres you want to not be checked 

kicklog = "kicks.txt" -- In script folder
main = "Active" --- write Deactive and will not send the kicks and bans to the main


function NewUserConnected(user)
if (warn[user.sName] == nill) then -- this will solve the nill problem i think
warn[user.sName] = 0
end
if (kick[user.sName] == nill) then
kick[user.sName] = 0
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*)|$" ) 
local s = 5 + strlen(user.sName)
local e = strfind(data, "%d+%s%d+/%d+") - 2
local path = strsub(data, s, e)
if( nick == BotName) then
	for i=1,getn(usersimune) do 
	if (user.bOperator or user.sName == usersimune[i]) then
	return 1
	end
	end
	if (GetProfileName(user.iProfile) == "VIP") then
		if (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		elseif (warn[user.sName] == 3 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..path.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		elseif (warn[user.sName] == 0 or warn[user.sName] == 1 or warn[user.sName] == 2) then
			warn[user.sName] = warn[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..warn[user.sName].." warns. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName, "You have been warned "..warn[user.sName].." time(s) at 3 you will be kicked. "..Reason.." FILE: "..path)
			user:SendPM(BotName, "You can come back when you have corrected the problem")
			user:SendPM(BotName, "Disconnected...") 
			user:Disconnect() 
		end
	elseif not(user.bOperator and GetProfileName(user.iProfile) == "VIP" and user.sName == usersimune[i]) then --this will solve the double log i think
		if (kick[user.sName] == 3) then
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got ban. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been banned. "..Reason)
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been banned for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:Ban() 
		elseif (kick[user.sName] == 0 or kick[user.sName] == 1 or kick[user.sName] == 2) then
			kick[user.sName] = kick[user.sName] + 1
			Reason = FindWhat(data) 
			SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." got "..kick[user.sName].." kicks. Reason: "..Reason.." FILE: "..path) 
			user:SendPM(BotName,"You have been kicked "..kick[user.sName].." time(s) at 3 you will be ban. "..Reason.." FILE: "..path)
			appendto(kicklog) 
			write("\r\n"..user.sName.."|"..Reason.."|"..path.."|"..kick[user.sName].."|"..GetTime()) 
			writeto()
			if (main == "Active" ) then
				SendToAll(BotName, "The user "..user.sName.." is been kicked for "..Reason)
			end
			if (main == "Deactive") then
				return 1
			end
			user:TempBan() 
		end
	end
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  

function GetTime()
	s = date("%S")
	h = date("%H")
	m = date("%M")
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = "Day: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
	return Date

end

Best regards, nErBoS

[[NL]trucker]

nerbos

hello there m8 are the requested feature,s also incorperated in this version?


like :

So the script shows where the bad-files are in the users share!

(NL)renoreno|NO sharing of incomplete downloads|1|Day: 15/02/2004 Hour: 22:03:30

(NL)renoreno|NO sharing of incomplete downloads|2|Day: 15/02/2004 Hour: 22:03:30

COLOR=red]look at the times of the kick it counts 1 kick as 2[/COLOR]

and if you still are on the right way perhaps a kicklog from the OP,s also

so i mean this

user x is kicked at [date]at [time]by [botname] because....[dir][filename]  reason [.....

user y is kicked at [date] at [time]by [OP [name] because ......


that would make this script even better than it allready is by yur help m8

[nErBoS]

Hi,

Have you tried the last one i send ???
The path is show to the user and is saved on the kicklog !!

Tell me whats is missing or not working !!

Best regards, nErBoS