Can someone please upgrade this to fit TD4 and hubsofts after that??
-- This Anti scipt makes it possible to allow some test to be typed
-- Just type the words you whant to kick users for in the triger array.
-- And the words to allowe in the valid array.
botname = "Ban-Guy"
trigs = {["dns2go"]=1,["myftpsite"]=2,["servebeer"]=3,["mine.nu"]=4,["ip.com"]=5,["dynip"]=6,
["staticip"]=7,["serveftp"]=8,["ipactive"]=9,["ip.org"]=10,["no-ip"]=11,["servegame"]=12,
["ath.cx"]=13,["dyndns"]=14,["68.67.18.75"]=15,["clanpimp"]=16,["idlegames"]=17,["sytes"]=18,
["24.184.64.48"]=19,["uni.cc"]=20,["151.198.149.60"]=21,["homeunix"]=22,["24.209.232.97"]=23,"deftonzs.com"]=24,
["24.187.50.121"]=25,["flamenap"]=26,["xs4all"]=27,["no-ip"]=28,["serveftp"]=29,["myftp"]=30,["d2g"]=31,["151.198.149.60"]=32,
["24.184.64.48"]=33,["orgdns"]=34,["myip.org"]=35,["dnsalias.org"]=36,["lir.dk"]=37}
valid = {"[hubname here]"}
function Main()
end
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), strlower(key),1,1) ) then
-- Kick user
kick = 0
break
end
end
for key,a in valid do
if( strfind( strlower(data), strlower(key),1,1) ) then
-- Let the user stay
kick = 1
break
end
end
end
end
if (kick==0) then
SendToOps( botname, user.sName.." has been Kicked for Advertiseing! By the Way the lamers ip is: "..user.sIP.." "..data )
user:SendData(botname, "You are been kicked because of advertising.Do it one more time and get banned")
user:Kick()
user:Disconnect()
kick = 1 --Reset trigger
end
end
I want it to be able to let VIPs to send adresses to ppl without beeing warned by the script...
Just ordinary users should be warned and disconnected....
Anyone up for this??I think its a great script....And like to keep it...
Just doing an upgrade would be fine =))
-- This Anti scipt makes it possible to allow some test to be typed
-- Just type the words you whant to kick users for in the triger array.
-- And the words to allowe in the valid array.
botname = "Ban-Guy"
trigs = {["dns2go"]=1,["myftpsite"]=2,["servebeer"]=3,["mine.nu"]=4,["ip.com"]=5,["dynip"]=6,
["staticip"]=7,["serveftp"]=8,["ipactive"]=9,["ip.org"]=10,["no-ip"]=11,["servegame"]=12,
["ath.cx"]=13,["dyndns"]=14,["68.67.18.75"]=15,["clanpimp"]=16,["idlegames"]=17,["sytes"]=18,
["24.184.64.48"]=19,["uni.cc"]=20,["151.198.149.60"]=21,["homeunix"]=22,["24.209.232.97"]=23,"deftonzs.com"]=24,
["24.187.50.121"]=25,["flamenap"]=26,["xs4all"]=27,["no-ip"]=28,["serveftp"]=29,["myftp"]=30,["d2g"]=31,["151.198.149.60"]=32,
["24.184.64.48"]=33,["orgdns"]=34,["myip.org"]=35,["dnsalias.org"]=36,["lir.dk"]=37}
valid = {"[hubname here]"}
function Main()
--frmHub:EnableFullData(1) -- I don't know which line it should be, Therefor i put a comment
--frmHub:EnableSearchData(1)
end
function DataArrival(user, data)
if (not user.bOperator) and not user.iProfile == 2 then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), strlower(key),1,1) ) then
-- Kick user
kick = 0
break
end
end
for key,a in valid do
if( strfind( strlower(data), strlower(key),1,1) ) then
-- Let the user stay
kick = 1
break
end
end
end
end
if (kick==0) then
SendToOps( botname, user.sName.." has been Kicked for Advertiseing! By the Way the lamers ip is: "..user.sIP.." "..data )
user:SendData(botname, "You are been kicked because of advertising.Do it one more time and get banned")
user:Kick()
user:Disconnect()
kick = 1 --Reset trigger
end
end
Maybe?
Duuh...I totally forgot about this thread =]
But thx Kepp....But I come up with a sulution on this a couple of weeks ago...
Also added a timeban for 1 min if u tryied to advertise for another hub =))
-- This Anti scipt makes it possible to allow some test to be typed
-- Just type the words you whant to kick users for in the triger array.
-- And the words to allowe in the valid array.
botname = "Ban-Guy"
trigs = {["dns2go"]=1,["myftpsite"]=2,["servebeer"]=3,["mine.nu"]=4,["ip.com"]=5,["dynip"]=6,["staticip"]=7,["serveftp"]=8,["ipactive"]=9,["ip.org"]=10,["no-ip"]=11,["servegame"]=12,
["ath.cx"]=13,["dyndns"]=14,["68.67.18.75"]=15,["clanpimp"]=16,["idlegames"]=17,["sytes"]=18,["24.184.64.48"]=19,["uni.cc"]=20,["151.198.149.60"]=21,["homeunix"]=22,["24.209.232.97"]=23,"deftonzs.com"]=24,["24.187.50.121"]=25,["flamenap"]=26,["xs4all"]=27,["no-ip"]=28,["serveftp"]=29,["myftp"]=30,["d2g"]=31,["151.198.149.60"]=32,["24.184.64.48"]=33,["orgdns"]=34,["myip.org"]=35,["dnsalias.org"]=36,["lir.dk"]=37}
valid = {"[hubname here]"}
function Main()
end
function DataArrival(user, data)
if user.iProfile==-1 then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), strlower(key),1,1) ) then
-- Kick user
kick = 0
break
end
end
for key,a in valid do
if( strfind( strlower(data), strlower(key),1,1) ) then
-- Let the user stay
kick = 1
break
end
end
end
end
if (kick==0) then
SendToOps( botname, user.sName.." has been Kicked for Advertiseing! By the Way the lamers ip is: "..user.sIP.." "..data )
user:SendData(botname, "You are been kicked because of advertising.Do it one more time and get banned")
user:TimeBan(1)
user:Disconnect()
kick = 1 --Reset trigger
end
end
I hope there is someone else but me who enjoys this antiadvertise script =))