!Flood

[DarkElf]

Hi, i need a simple flood script :P

[BlazeXxX]

RoboCop,ChannelBot and few other Script packages has this built in to it.. Try those script packages ..

[[ES]latinmusic]

Originally posted by BlazeXxX
RoboCop,ChannelBot and few other Script packages has this built in to it.. Try those script packages ..

Why?, he is asking for an standalone bot i think, and not for an entire script package!.

[NightLitch]

Here you have a flood bot from the old Forum I picked up,
don't remember who made it...

Bot = "Flood,1,2,2"
tUsers = {}

function Main()
	frmHub:RegBot(Bot)
end

function NewUserConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function OpConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function UserDisconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function OpDiconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function DataArrival(user,sdata)
	if(tUsers[user.sName] == nil) then
		tUsers[user.sName] = 1;
	end
	if strsub(sdata,1,1) == "<" then 
		local _,_, command, args = strfind(sdata,"%b<>%s+(%S+)%s*([^%|]*)%|$");

		if command == "!flood"  and user.bOperator then 
			local _,_, client,times,message = strfind(args,"^(%S+)%s+(%d+)%s+(.*)$");
			local sUser = nil

			if client and GetItemByName(client) then
				local sUser = nil
				for sUser,value in tUsers do
					for i = 1, tonumber(times), 1 do
						SendPmToNick(client,sUser,message);
					end
				end
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1;
		else
			print(sdata)
		end
	end
end

Have a Good One / NightLitch

[DarkElf]

BlazeXxX: i know all package script but i need a script only !flood..

Nightlich: thanks but i need the respond to main chat..like:

!flood xxx 10000 bye
DarkElf has floodded xxx 10000 times because: Bye.

...

[DarkElf]

Anyone???? :( please it's important

[BlazeXxX]

Hmm.. I know its a simple code that goes below this line:

SendPmToNick(client,sUser,message);

After that line something like this should be inserted.. I can only do Msg sending to main saying ..username is flooding ..

Here is my little try:

SendToAll(Bot,"is Flooding a User For Annoying");

I dunno how to input the values u asked..

[plop]

change this.
SendPmToNick(client,sUser,message);
for this
SendToNick(client,message);

but why flood when you can kick/ban/drop.???
flooding is only useless waste of bandwidth.

plop

[DarkElf]

Maybe i'm stupid... :D

No, no, that's funny :P

I have a small hub and i try new script, but i not want a package, but many little script and an help and other things in txt (txtread script)

[plop]

try this 1.
should send in main or give an error, haven't tested it.

-- original made by ....... (no idea, so if it's yours fill in your name here)
-- changed 2 send the flood in mainchat (plop)

Bot = "Flood,1,2,3"
tUsers = {}

function Main()
	frmHub:RegBot(Bot)
end

function NewUserConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function OpConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function UserDisconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function OpDiconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function DataArrival(user,sdata)
	if(tUsers[user.sName] == nil) then
		tUsers[user.sName] = 1;
	end
	if strsub(sdata,1,1) == "<" then 
		local _,_, command, args = strfind(sdata,"%b<>%s+(%S+)%s*([^%|]*)%|$");

		if command == "!flood"  and user.bOperator then 
			local _,_, client,times,message = strfind(args,"^(%S+)%s+(%d+)%s+(.*)$");
			local sUser = nil

			if client and GetItemByName(client) then
				local sUser = nil

				for sUser,value in tUsers do
					for i = 1, tonumber(times), 1 do
						SendToNick(client,message);
					end
				end
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1;
		else
			print(sdata)
		end
	end
end

plop

[OpiumVolage]

As i've seen before, one of the best method for flooding is sending to the flooded people a "$HELLO RandomFlooder|$To: "..user.." From: RandomFloodder......" (RandomFlooder is faked).

And the really best method is: DON'T FLOOD, OR KNOW EXACTLY IF YOUR PC IS ABLE TO HANDLE A SYN FLOOD, or any other counter mesure from a hungry user.

Talking can be a better method than flooding.

[DarkElf]

plop: i not need a main chat flood....i need a simple flood command..with comunication in main like a drop,ban,kick..

eg.
[08:00:00] !flood test2 9999 no dc hacks
[08:00:25] DarkElf has floodded test2 because: no dc hacks

Opium: i know, but this commands aren't for use it :P

(sorry for my bad english :) )

[dvxjunkie]

I find your little display of my operating system. IP address, isp, and my opera browser rather unnerving. I dont think that kind of thing belongs here in the forum.

[plop]

sorry kinda forgot this 1.
here it is and as usual not tested.

-- original made by ....... (no idea, so if it's yours fill in your name here)
-- added notidication in mainchat by plop

Bot = "Flood,1,2,4"
tUsers = {}

function Main()
	frmHub:RegBot(Bot)
end

function NewUserConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function OpConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function UserDisconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function OpDiconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function DataArrival(user,sdata)
	if(tUsers[user.sName] == nil) then
		tUsers[user.sName] = 1;
	end
	if strsub(sdata,1,1) == "<" then 
		local _,_, command, args = strfind(sdata,"%b<>%s+(%S+)%s*([^%|]*)%|$");

		if command == "!flood"  and user.bOperator then 
			local _,_, client,times,message = strfind(args,"^(%S+)%s+(%d+)%s+(.*)$");
			local sUser = nil

			if client and GetItemByName(client) then
				local sUser = nil
				for sUser,value in tUsers do
               SendToAll(Bot, client.." has been flooded because: ".. message.."|")
					for i = 1, tonumber(times), 1 do
						SendPmToNick(client,sUser,message);
					end
				end
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1;
		else
			print(sdata)
		end
	end
end

Originally posted by dvxjunkie
I find your little display of my operating system. IP address, isp, and my opera browser rather unnerving. I dont think that kind of thing belongs here in the forum.

totaly offtopic, you could have asked in a pm for him 2 remove it.
but now i would like 2 know were you see the operating system. isp, and my opera browser.
IP address i see, or do i surf 2 weird.   lol

plop

[pHaTTy]

hmm i dont get it :/ looool it doesnt know my ip nor operating system oops sorry my fault :P loooool

im behind a proxy and have no ip loool

[yepyepyep4711]

Ok I thought I'd bring the answers here, because I'm the own who had the Idea for this script. So the credits go to Skrollster and RabidWombat, two e x c e l l e n t scripters.
For all who don't know, this is the ultimate Flood: it sends messages from all active users, so it is also effective if one deactivates bot messages ;)

I've corrected the MainChat announcement of plop, it was flooding the main ;)

But thanks a lot for this version of it, I only had the previous one, and it was not working :)
A shame it doesn't send messages for the bots too, though.

NOTE: Be VERY careful while using this, it can kill your hub. Maybe a check for would be cool, so that the owner can choose a maximum number of times. I advise something like 500/10 users.

Originally posted by plop

-- original made by Skrollster and RabidWombat
-- added notidication in mainchat by plop, corrected by yepyepyep4711 ;op

Bot = "Flood,1,2,5"
tUsers = {}

function Main()
	frmHub:RegBot(Bot)
end

function NewUserConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function OpConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function UserDisconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function OpDiconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function DataArrival(user,sdata)
	if(tUsers[user.sName] == nil) then
		tUsers[user.sName] = 1;
	end
	if strsub(sdata,1,1) == "<" then 
		local _,_, command, args = strfind(sdata,"%b<>%s+(%S+)%s*([^%|]*)%|$");

		if command == "!flood"  and user.bOperator then 
			local _,_, client,times,message = strfind(args,"^(%S+)%s+(%d+)%s+(.*)$");
			local sUser = nil

			if client and GetItemByName(client) then
				local sUser = nil
				for sUser,value in tUsers do
					for i = 1, tonumber(times), 1 do
						SendPmToNick(client,sUser,message);
					end
				end
	                SendToAll(Bot, client.." has been flooded because: ".. message.."|")
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1;
		else
			print(sdata)
		end
	end
end

Originally posted by dvxjunkie
I find your little display of my operating system. IP address, isp, and my opera browser rather unnerving. I dont think that kind of thing belongs here in the forum.

totaly offtopic, you could have asked in a pm for him 2 remove it.
but now i would like 2 know were you see the operating system. isp, and my opera browser.
IP address i see, or do i surf 2 weird.   lol

plop

Ok, and now I'll directly address this point. Look at my signature. Every each one of you will see HIS IP, OS, etc. It is dynamic. What it means is this: noone else but you and the Webserver is seeing this information, BUT it is also meant to show you and make you reflect on how much webservers (or any server, really) know about you.

In short: it is not dangerous, it is informative :D

Cheers everyone,

yepyepyep4711

[BlazeXxX]

yepyepyep4711,
Welcome back to the forum :) You've been missing the action for sometime :)

[plop]

thx yepyepyep for fixing it and most of all remembering who made the original.

plop

[psf8500]

channelbot has a pretty poor flood so i decided to improve it a bit.

i changed this (from the doflood function):

for z=1,count do
	SendPmToNick(usr.sName, z, arg3) 
end

to this:

for z=1,count do
	usr:SendData("$MyINFO $ALL "..z.." YOU SUCK!!!!$ $DSL"..strchar( 1 ).."$$0$")
	SendPmToNick(usr.sName, z, arg3) 
end

also effective against people who ignore bot messages. and should work better in small hubs than the one posted by plop/yepyepyep.
shouldnt be too hard to modify the one posted by plop/yepyepyep to flood using this method.

[JackTheRipper2002]

Hi again...

I also searched an stand alone flood script..
But I have an questeion..
How can I manag, that only an user set as master is allowed to flood the other.. and that the flood test is not showen in one PM window.. Every Line in a new window.. iss this possible.. ???


Here the script again.. And what does mean the line
print(sdata) ???

-- original made by Skrollster and RabidWombat
-- added notidication in mainchat by plop, corrected by yepyepyep4711 ;op

Bot = "[FP]-GSG9"
tUsers = {}

function Main()
	frmHub:RegBot(Bot)
end

function NewUserConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function OpConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function UserDisconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function OpDiconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function DataArrival(user,sdata)
	if(tUsers[user.sName] == nil) then
		tUsers[user.sName] = 1;
	end
	if strsub(sdata,1,1) == "<" then 
		local _,_, command, args = strfind(sdata,"%b<>%s+(%S+)%s*([^%|]*)%|$");

		if command == "!flood"  and "curUser.siProfile == 0" then 
			local _,_, client,times,message = strfind(args,"^(%S+)%s+(%d+)%s+(.*)$");
			local sUser = nil

			if client and GetItemByName(client) then
				local sUser = nil
				for sUser,value in tUsers do
					for i = 1, tonumber(times), 1 do
						SendPmToNick(client,sUser,message);
					end
				end
	                SendToAll(Bot, client.." has been flooded because: ".. message.."|")
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1;		
		end
	end
end

bye jack

[NotRabidWombat]

RabidWombat is a close personal friend of mine and I know that script isn't his baby.

http://board.univ-angers.fr/thread.php?threadid=738&boardid=12&styleid=1

-NotRabidWombat

[[NL]Pur]

so you are a friend of yourself ?

[JackTheRipper2002]

I'll try.. but what's the sence that may IP; OS and so on is shown in your post???

[JackTheRipper2002]

hmm.. I tried it.. very funny.. Now the flood open ech line in a new window.. but OP's are possible to flood.. That schouldn't be.. Only Master should be allowed..

And next problem in this script.. how can I set the nummbers floods.. you know what I mean???

sBotName = "-=UltraFlood=-";

sFloodUser = nil;
iFloodCount = 0;

sToFloodUser = nil;

function Main()
	frmHub:RegBot(sBotName);
	SetTimer(10);
end

function OnTimer()
	for i = 1, 20, 1 do
		iFloodCount = iFloodCount + 1;
		SendToNick(sFloodUser, "$Hello Flooder"..iFloodCount..sToFloodUser..iFloodCount.." $ ")
	end

	if(GetItemByName(sFloodUser) == nil) then
		StopTimer();
		SendToAll(sBotName, sFloodUser.." was flooded with "..iFloodCount.." and went down in a firier ball of death.");
		iFloodCount = 0;
		sFloodUser,sToFloodUser = nil,nil;
	end
end

function DataArrival(curUser, sData)
	local s, e, cmd, user = strfind(sData, "%b<> (%S+) (%S+)%|$");

	if(cmd == nil or curUser.bOperator == nil) then return 0; end

	cmd = strlower(cmd);

	if(cmd == "!flood" and GetItemByName(user)) then
		sFloodUser = user;
		sToFloodUser = "|$To: "..sFloodUser.." From: Flooder";
		SendToAll(sBotName, "Flooding "..user.." like a sack of potatos!!!");
		StartTimer();
	end
end

Jack

[imby]

-- original made by Skrollster and RabidWombat
-- added notidication in mainchat by plop, corrected by yepyepyep4711 ;op

Bot = "Flood,1,2,5"
tUsers = {}

function Main()
	frmHub:RegBot(Bot)
end

function NewUserConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function OpConnected(curUser)
	tUsers[curUser.sName] = 1;
end

function UserDisconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function OpDiconnected(curUser)
	tUsers[curUser.sName] = nil;
end

function DataArrival(user,sdata)
	if(tUsers[user.sName] == nil) then
		tUsers[user.sName] = 1;
	end
	if strsub(sdata,1,1) == "<" then 
		local _,_, command, args = strfind(sdata,"%b<>%s+(%S+)%s*([^%|]*)%|$");

		if command == "!flood"  and user.bOperator then 
			local _,_, client,times,message = strfind(args,"^(%S+)%s+(%d+)%s+(.*)$");
			local sUser = nil

			if client and GetItemByName(client) then
				local sUser = nil
				for sUser,value in tUsers do
					for i = 1, tonumber(times), 1 do
						SendPmToNick(client,sUser,message);
					end
				end
	                SendToAll(Bot, client.." has been flooded because: ".. message.."|")
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1;
		else
			print(sdata)
		end
	end
end

anyone knows why this script increases in memory? after a day of leaving it unused but as a running script it takes as much as robocop.