Upgrade??

[Snoris]

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

[kepp]

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

[Snoris]

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