PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: DoD_Owner on 21 April, 2004, 09:07:43

Title: PM Word check..
Post by: DoD_Owner on 21 April, 2004, 09:07:43
Hey guys.... well I have this script, and I would like 1 feature more written into it... I want it to type the sentence/word that the users got kicked for... would be nice to know ;-) I hope it's possible.

------------------------

botname = "Daemonicus"
trigs = { ["dreamer"]=1,["d r e a m e r"]=2,["fuck shadow"]=3,
["kingsofchaos"]=4,["fuck dod"]=5,["seven-private"]=6,["s e v e n - p r i v a t e"]=7,["cornerhouse"]=8,["c o r n e r h o u s e"]=9,["lir.dk"]=10, ["corner house"]=11,["joine ch"]=12,
["Drop Inn"]=13,["dropinn"]=14,["d r o p i n n"]=15,["217.215.12.141"]=16,["dreams.gotdns.org:412"]=17,["bigshare"]=18,["ronna.no-ip.com:412"]=19,["dragonslayer-gbg.no-ip.org"]=20,["ChatBaren.dyndns.dk:22221"]=21 }


function DataArrival(user, data)
if (not user.bOperator) then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), key) ) then
SendPmToOps( botname, user.sName.." has been kicked because of Offensive Language / Advertising." )
user:Disconnect()
end
end
end
end
end


----------------

Thx in advance.

//DoD_Owner...
Title:
Post by: nErBoS on 21 April, 2004, 12:55:39
Hi,

Try this one...

botname = "Daemonicus"

trigs = {
["dreamer"]= "Reason.",
["d r e a m e r"]= "Reason.",
["fuck shadow"]= "Reason.",
["kingsofchaos"]= "Reason.",
["fuck dod"]= "Reason.",
["seven-private"]= "Reason.",
["s e v e n - p r i v a t e"]= "Reason.",
["cornerhouse"]= "Reason.",
["c o r n e r h o u s e"]= "Reason.",
["lir.dk"]= "Reason.",
["corner house"]= "Reason.",
["joine ch"]= "Reason.",
["Drop Inn"]= "Reason.",
["dropinn"]= "Reason.",
["d r o p i n n"]= "Reason.",
["217.215.12.141"]= "Reason.",
["dreams.gotdns.org:412"]= "Reason.",
["bigshare"]= "Reason.",
["ronna.no-ip.com:412"]= "Reason.",
["dragonslayer-gbg.no-ip.org"]= "Reason.",
["ChatBaren.dyndns.dk:22221"]= "Reason."
}


function DataArrival(user, data)
if (not user.bOperator) then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), key) ) then
SendToOps(botname, user.sName.." has been been discconect because "..a)
SendToOps(botname, "He have written the word "..key)
user:Disconnect()
end
end
end
end
end

Best regards, nErBoS
Title:
Post by: DoD_Owner on 22 April, 2004, 14:46:48
Thx m8... it's working perfectly.... but can you make it type the reason in my Daemonicus bot, as my old one did... ??
Title:
Post by: nErBoS on 22 April, 2004, 14:54:57
Hi,

Done...

botname = "Daemonicus"

trigs = {
["dreamer"]= "Reason.",
["d r e a m e r"]= "Reason.",
["fuck shadow"]= "Reason.",
["kingsofchaos"]= "Reason.",
["fuck dod"]= "Reason.",
["seven-private"]= "Reason.",
["s e v e n - p r i v a t e"]= "Reason.",
["cornerhouse"]= "Reason.",
["c o r n e r h o u s e"]= "Reason.",
["lir.dk"]= "Reason.",
["corner house"]= "Reason.",
["joine ch"]= "Reason.",
["Drop Inn"]= "Reason.",
["dropinn"]= "Reason.",
["d r o p i n n"]= "Reason.",
["217.215.12.141"]= "Reason.",
["dreams.gotdns.org:412"]= "Reason.",
["bigshare"]= "Reason.",
["ronna.no-ip.com:412"]= "Reason.",
["dragonslayer-gbg.no-ip.org"]= "Reason.",
["ChatBaren.dyndns.dk:22221"]= "Reason."
}


function DataArrival(user, data)
if (not user.bOperator) then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), key) ) then
SendPmToOps( botname, user.sName.." has been kicked because of Offensive Language / Advertising." )
SendPmToOps(botname, "Reason: "..a)
SendPmToOps(botname, "He have written the word "..key)
user:Disconnect()
end
end
end
end
end

Best regards, nErBoS
Title:
Post by: MrZ on 22 April, 2004, 16:44:50
:))) hia ErBoS

ya been doing some of these mods by now... why not making an own real good one.

one that fits all request u had and that we newbee's can easy modify ourself.... or would that take away all the fun parts...hihi

Z ya
Title:
Post by: DoD_Owner on 23 April, 2004, 13:20:22
This is very nice ! Getting better and better.... but I have 1 more request for this script. Can you make it so, that the user gets the same thing in pm as I do, so that he know's what he did wrong ??   Would be extremely nice.

Thx in advance

//DoD_Owner
Title:
Post by: nErBoS on 24 April, 2004, 00:10:21
Hi,

QuoteOriginally posted by MrZ
:))) hia ErBoS

ya been doing some of these mods by now... why not making an own real good one.

one that fits all request u had and that we newbee's can easy modify ourself.... or would that take away all the fun parts...hihi

Z ya

Sorry didn't understand what you want.

About the pm user...

botname = "Daemonicus"

trigs = {
["dreamer"]= "Reason.",
["d r e a m e r"]= "Reason.",
["fuck shadow"]= "Reason.",
["kingsofchaos"]= "Reason.",
["fuck dod"]= "Reason.",
["seven-private"]= "Reason.",
["s e v e n - p r i v a t e"]= "Reason.",
["cornerhouse"]= "Reason.",
["c o r n e r h o u s e"]= "Reason.",
["lir.dk"]= "Reason.",
["corner house"]= "Reason.",
["joine ch"]= "Reason.",
["Drop Inn"]= "Reason.",
["dropinn"]= "Reason.",
["d r o p i n n"]= "Reason.",
["217.215.12.141"]= "Reason.",
["dreams.gotdns.org:412"]= "Reason.",
["bigshare"]= "Reason.",
["ronna.no-ip.com:412"]= "Reason.",
["dragonslayer-gbg.no-ip.org"]= "Reason.",
["ChatBaren.dyndns.dk:22221"]= "Reason."
}


function DataArrival(user, data)
if (not user.bOperator) then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), key) ) then
SendPmToOps( botname, user.sName.." has been kicked because of Offensive Language / Advertising." )
SendPmToOps(botname, "Reason: "..a)
SendPmToOps(botname, "He have written the word "..key)
user:SendPM(botname, "You are been disconnect for have written the word "..key)
user:Disconnect()
end
end
end
end
end

Best regards, nErBoS
Title:
Post by: DoD_Owner on 24 April, 2004, 03:49:05
Thx m8... This works PERFECTLY..... I'm VERY glad for this.... thx..
Title:
Post by: MrZ on 24 April, 2004, 17:38:45
nErBoS.. i mean that u have been helping ppl a lot with all these word checking bot's..why not make one ur own and make it so its easy so even all us newbies can modify the words and other options..

just a thought to easy up ur job with all our questions :))

btw ur doing a damn good job here
TNX a lot dude

Z ya
Title:
Post by: nErBoS on 24 April, 2004, 17:57:10
Hi,

Thanks for the kind words, about making that script i could start doing, but i am having a lot of work, soon as i can i will do that.

Best regards, nErBoS