Hi guy?s !
I have been trying do add this script in to the hub but it will not work ????
I am running PtokaX 0.3.2.6 TestDrive 4 for the hub
BotName = "?ISP?"
ISP =
[bbb];
[telia];
[bostream];
[sunet];
[10Mbit];
[2Mbit];
[0,5Mbit];
[5Mbit];
[Bitnet];
[ComHem];
[Spray];
[Tele2];
[Xstream];
[1Mbit];
-- Main Sub
function Main()
frmHub:RegBot(BotName)
end
function NewUserConnected(curUser)
for key, value in ISP do --Loop ISP Array
if (strfind(strlower(curUser.sName), strlower(value),1,1)) then
curUser:SendPM(BotName, "Welcome to [Broadband?] Network")
x=1
break
else
x=0
end
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "")
curUser:SendPM(BotName, "your nick should be[BBB] or [Sunet].")
curUser:SendPM(BotName, "change your name to [BBB] then you welcome back")
curUser:SendPM(BotName, "")
curUser:Disconnect()
end
end
when I add this one
bbb];
[telia];
[bostream];
[sunet];
[10Mbit];
[2Mbit];
[0,5Mbit];
[5Mbit];
[Bitnet];
[ComHem];
[Spray];
[Tele2];
[Xstream];
[1Mbit];
it will not work for me ???
I do hope some one can help me with this problem ...
sorry for posting in the wrong topic
change:
ISP =
[bbb];
[telia];
[bostream];
[sunet];
[10Mbit];
[2Mbit];
[0,5Mbit];
[5Mbit];
[Bitnet];
[ComHem];
[Spray];
[Tele2];
[Xstream];
[1Mbit];
to
ISP = {
[bbb],
[telia],
[bostream],
[sunet],
[10Mbit],
[2Mbit],
[0,5Mbit],
[5Mbit],
[Bitnet],
[ComHem],
[Spray],
[Tele2],
[Xstream],
[1Mbit],
}
/NL
thank?s then I add they way you wrote .....
I get Syntax Error: `=' expected;
last token read: `,' at line 6 in file ???
BotName = "?ISP?"
ISP = {
[BBB],
[telia],
[bostream],
[sunet],
[10Mbit],
[2Mbit],
[0,5Mbit],
[5Mbit],
[Bitnet],
[ComHem],
[Spray],
[Tele2],
[Xstream],
[1Mbit],
[8Mbit],
[Adsl],
[Vdsl],
}
-- Main Sub
function Main()
frmHub:RegBot(BotName)
end
function NewUserConnected(curUser)
for key, value in ISP do --Loop ISP Array
if (strfind(strlower(curUser.sName), strlower(value),1,1)) then
curUser:SendPM(BotName, "Welcome to [Broadband?] Network")
x=1
break
else
x=0
end
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "")
curUser:SendPM(BotName, "Ditt nick skall b?rja med [BBB] eller [Sunet].")
curUser:SendPM(BotName, "?ndra s? att ditt namn blir t.ex [BBB]Broadband, Sedan ?r du v?lkommen tillbaka!")
curUser:SendPM(BotName, "")
curUser:Disconnect()
end
end
Do this script only check if a user have a ISP in that list? Or do it check the spelling of the ISP?
//WickeD
it will check the isp list about speeling becuse if I add like this
ISP = {"[BBB]","[telia]}
it works but not like this strange ????
ISP = {
[BBB],
[telia],
[bostream],
[sunet],
[10Mbit],
[2Mbit],
[0,5Mbit],
[5Mbit],
[Bitnet],
[ComHem],
[Spray],
[Tele2],
[Xstream],
[1Mbit],
[8Mbit],
[Adsl],
[Vdsl],
}
tablename = { "string", global }
if it's between "" it's a string, without it the script thinks it's a global vallue.
global = "string"
and it works again.
hope this explains it, bit sleepy here.
plop
Yeah I got it right now thank?s alot of all the help I got
:D
It do not work for mee!!
And do this script show the ISP-Tag list if users have wrong IPS-Tag??
If this do not show that! Can eny one write it so it shows the ISP-tag list to users that not have right ISP-Tag??
BotName = "[Bot]??Gate-Check??"
tablename = {
"[Bostaden]",
"[Scream]",
"[Telecom3]",
"[Orexis]",
"[InnIT]",
"[Worldnet]",
"[Umenet]",
"[SkyCom]",
"[Skekraft]",
"[NorrNod]",
"[Nashnet]",
"[Kommunicera]",
"[Brinet]",
"[BostreamADSL]",
"[AC-Net]",
"[Telia]",
"[Bostream]",
"[Sunet]",
"[Bitnet]",
"[ComHem]",
"[Spray]",
"[Tele2]",
"[Xstream]",
"[Istream]",
"[Scream-Lite]",
"[100Mbit]",
"[26Mbit]",
"[10Mbit]",
"[5Mbit]",
"[2,5Mbit]",
"[2Mbit]",
"[1,1Mbit]",
"[1Mbit]",
"[0,5Mbit]",
global }
-- Main Sub
function Main()
frmHub:RegBot(BotName)
end
function NewUserConnected(curUser)
for key, value in ISP do --Loop ISP Array
if (strfind(strlower(curUser.sName), strlower(value),1,1)) then
x=1
break
else
x=0
end
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:Disconnect()
end
end
//WickeD
You can use my script for this function if you like to.
But I what a script only for ISP-Check my m8!!
But Thx a lot!!
Can eny one Plzzz!! Help mee whit that??
//WickeD
QuoteOriginally posted by WickeD
But I what a script only for ISP-Check my m8!!
But Thx a lot!!
Can eny one Plzzz!! Help mee whit that??
//WickeD
Hellou WickeD
Think maybe "Sir" NightLitch adds this function
in next upgrade of NXS-3..
Haven't tested it as usual...
BotName = "[Bot]??Gate-Check??"
tISPs = {
["0,5mbit"] = 1,
["0.5mbit"] = 1,
["1,1mbit"] = 1,
["100mbit"] = 1,
["10mbit"] = 1,
["1mbit"] = 1,
["2,5mbit"] = 1,
["26mbit"] = 1,
["2mbit"] = 1,
["3mbit"] = 1,
["4mbit"] = 1,
["5mbit"] = 1,
["6mbit"] = 1,
["7mbit"] = 1,
["8mbit"] = 1,
["9mbit"] = 1,
["absnet"] = 1,
["ac-net"] = 1,
["adsl"] = 1,
["alcom"] = 1,
["arrowhead"] = 1,
["aster"] = 1,
["bahnhof"] = 1,
["bbb"] = 1,
["bitnet"] = 1,
["bolina"] = 1,
["bostaden"] = 1,
["bostream"] = 1,
["bostreamadsl"] = 1,
["brinet"] = 1,
["bs"] = 1,
["cenara"] = 1,
["chello"] = 1,
["comhem"] = 1,
["cybercity"] = 1,
["dcs"] = 1,
["euronet"] = 1,
["fastbit"] = 1,
["fastcom"] = 1,
["fm"] = 1,
["funet"] = 1,
["gavlenet"] = 1,
["geab"] = 1,
["glocalnet"] = 1,
["iinet"] = 1,
["innit"] = 1,
["ip-only"] = 1,
["istream"] = 1,
["jony"] = 1,
["kommunicera"] = 1,
["kramnet"] = 1,
["lidnet"] = 1,
["lyse"] = 1,
["mimer"] = 1,
["nashnet"] = 1,
["netvision"] = 1,
["nextgentel"] = 1,
["ngt.no"] = 1,
["norrnod"] = 1,
["orexis"] = 1,
["plusnet"] = 1,
["rr"] = 1,
["scream"] = 1,
["scream-lite"] = 1,
["skekraft"] = 1,
["skycom"] = 1,
["sonera"] = 1,
["spray"] = 1,
["ssvl"] = 1,
["sunet"] = 1,
["sydkraft"] = 1,
["tele2"] = 1,
["telecom3"] = 1,
["telenet"] = 1,
["telenordia"] = 1,
["telia"] = 1,
["tiscali"] = 1,
["tpsa"] = 1,
["umenet"] = 1,
["uninett"] = 1,
["worldnet"] = 1,
["xpress"] = 1,
["xstream"] = 1,
}
-- Main Sub
function Main()
frmHub:RegBot(BotName)
sISPs = ""
for k,v in tISPs do
if k ~= "n" then
sISPs = sISPs..k.." ; "
end
end
end
function NewUserConnected(curUser)
local _,_,Prefix = strfind(strlower(curUser.sName), "(%b[])")
local x = 0
if tISPs[Prefix] then
x=1
else
x=0
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:SendPM(BotName, sISPs)
curUser:Disconnect()
end
end-- Skrollster
Thx a lot my m8!!
//WickeD
did it work as it was suppose to?
I am running an adder ISP check right now!
I have not tryed your script!
I have saved it so I can try it latter! I will see at this weekend if I get the time to try it!
I will let you know if it works my m8!
Thx!!!!
//WickeD
BotName = "?ISP?"
ISP = {"[BBB]","[telia]","[SWE]","[bostream]","[sunet]","[10Mbit]","[2Mbit]","[0.5Mbit]","[5Mbit]","[Bitnet]","[ComHem]","[Spray]","[Tele2]","[Xstream]","[1Mbit]","[8Mbit]","[Adsl]","[Vdsl]","[1,1mbit]","[100mbit]","[absnet]","[ac-net]","[alcom]","[arrowhead]","[aster]","[bahnhof]","[bitnet]","[bolina]","[bostaden]","[bostreamads]","[brinet]","[bs]","[cenara]","}[chello]","[cybercity]","[dcs]","[euronet]","[fastbit]","[fastcom]","[fm]","[funet]","[gavlenet]","[geab]","[glocalnet]","[iinet]","[innit]","[ip-only]","[istream]","[jony]","[kommunicera]","[kramnet]","[lidnet]","[lyse]","[mimer]","[nashnet]","[netvision]","[nextgentel]","[ngt.no]","[norrnod]","[orexis]","[plusnet]","[rr]","[scream]","[scream-lite]","[skekraft]","[skycom]","[sonera]","[ssvl]","[sydkraft]","[telecom3]","[telenet]","[telenordia]","[tiscali]","[tpsa]","[umenet]","[uninett]","[worldnet]","[xpress]"}
-- Main Sub
function Main()
frmHub:RegBot(BotName)
end
function NewUserConnected(curUser)
for key, value in ISP do --Loop ISP Array
if (strfind(strlower(curUser.sName), strlower(value),1,1)) then
curUser:SendPM(BotName, "welcome to my [nissesworld] ")
x=1
break
else
x=0
end
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "")
curUser:SendPM(BotName, "Ditt nick skall b?rja med [BBB] eller [Sunet][telia][bostream][sunet][10Mbit][2Mbit][0.5Mbit][Bitnet][ComHem][Spray][Tele2][Xstream][1Mbit][8Mbit][Adsl][Vdsl] eller vad du har f?r prefix .")
curUser:SendPM(BotName, "?ndra s? att ditt namn blir t.ex [BBB], Sedan ?r du v?lkommen tillbaka!")
curUser:SendPM(BotName, "")
curUser:Disconnect()
end
end
trie this on if the another is not working this one does ....
best luck for you know......
Thx a lot for that script!
A have saved that script to! And will try it later!!
//WickeD
So, tested it, debugged it and now it is working..
have to say, use this script instead of the other one.. this one is much faster if you have a lot of isps in your list...
-- Main Sub
function Main()
BotName = "[Bot]??Gate-Check??"
tISPs = {
["[0,5mbit]"] = 1,
["[0.5mbit]"] = 1,
["[1,1mbit]"] = 1,
["[100mbit]"] = 1,
["[10mbit]"] = 1,
["[1mbit]"] = 1,
["[2,5mbit]"] = 1,
["[26mbit]"] = 1,
["[2mbit]"] = 1,
["[3mbit]"] = 1,
["[4mbit]"] = 1,
["[5mbit]"] = 1,
["[6mbit]"] = 1,
["[7mbit]"] = 1,
["[8mbit]"] = 1,
["[9mbit]"] = 1,
["[absnet]"] = 1,
["[ac-net]"] = 1,
["[adsl]"] = 1,
["[alcom]"] = 1,
["[arrowhead]"] = 1,
["[aster]"] = 1,
["[bahnhof]"] = 1,
["[bbb]"] = 1,
["[bitnet]"] = 1,
["[bolina]"] = 1,
["[bostaden]"] = 1,
["[bostream]"] = 1,
["[bostreamadsl]"] = 1,
["[brinet]"] = 1,
["[bs]"] = 1,
["[cenara]"] = 1,
["[chello]"] = 1,
["[comhem]"] = 1,
["[cybercity]"] = 1,
["[dcs]"] = 1,
["[euronet]"] = 1,
["[fastbit]"] = 1,
["[fastcom]"] = 1,
["[fm]"] = 1,
["[funet]"] = 1,
["[gavlenet]"] = 1,
["[geab]"] = 1,
["[glocalnet]"] = 1,
["[iinet]"] = 1,
["[innit]"] = 1,
["[ip-only]"] = 1,
["[istream]"] = 1,
["[jony]"] = 1,
["[kommunicera]"] = 1,
["[kramnet]"] = 1,
["[lidnet]"] = 1,
["[lyse]"] = 1,
["[mimer]"] = 1,
["[nashnet]"] = 1,
["[netvision]"] = 1,
["[nextgentel]"] = 1,
["[ngt.no]"] = 1,
["[norrnod]"] = 1,
["[orexis]"] = 1,
["[plusnet]"] = 1,
["[rr]"] = 1,
["[scream]"] = 1,
["[scream-lite]"] = 1,
["[skekraft]"] = 1,
["[skycom]"] = 1,
["[sonera]"] = 1,
["[spray]"] = 1,
["[ssvl]"] = 1,
["[sunet]"] = 1,
["[sydkraft]"] = 1,
["[tele2]"] = 1,
["[telecom3]"] = 1,
["[telenet]"] = 1,
["[telenordia]"] = 1,
["[telia]"] = 1,
["[tiscali]"] = 1,
["[tpsa]"] = 1,
["[umenet]"] = 1,
["[uninett]"] = 1,
["[worldnet]"] = 1,
["[xpress]"] = 1,
["[xstream]"] = 1,
}
frmHub:RegBot(BotName)
sISPs = ""
local tempTable = {}
for k,v in tISPs do
if k ~= "n" then
tinsert(tempTable, k)
end
end
sort(tempTable)
local i
for i=1, getn(tempTable)-1 do
sISPs = sISPs..tempTable[i].." ; "
end
i = getn(tempTable)
sISPs = sISPs..tempTable[i]
end
function NewUserConnected(curUser)
local _,_,Prefix = strfind(strlower(curUser.sName), "^(%b[])")
local x = 0
if Prefix and tISPs[Prefix] then
x=1
else
x=0
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:SendPM(BotName, sISPs)
curUser:Disconnect()
end
end-- Skrollster
Sorry but the ISP script does not seems to work as I thought...
Not even the VIPs can get in...
I know I can add the name [VIP] in the script...But then everyone can...and that is a thing I dont want =))
Can you fix this little problem??
Thx // Snoris
The script u made Skrollster is very G :D :D :D D (as usual) but I have to Agree with "Snoris".
I too would like for my [VIP]Users to keep the Tag as is >> [VIP][BBB]SolSken.
Any chance on geting the sciprt to reconize them.
Ha Det..
I know i realy should test them every time i change something but i don't...
tell me if this isnt't working..
-- Main Sub
function Main()
BotName = "[Bot]??Gate-Check??"
tISPs = {
["[0,5mbit]"] = 1,
["[0.5mbit]"] = 1,
["[1,1mbit]"] = 1,
["[100mbit]"] = 1,
["[10mbit]"] = 1,
["[1mbit]"] = 1,
["[2,5mbit]"] = 1,
["[26mbit]"] = 1,
["[2mbit]"] = 1,
["[3mbit]"] = 1,
["[4mbit]"] = 1,
["[5mbit]"] = 1,
["[6mbit]"] = 1,
["[7mbit]"] = 1,
["[8mbit]"] = 1,
["[9mbit]"] = 1,
["[absnet]"] = 1,
["[ac-net]"] = 1,
["[adsl]"] = 1,
["[alcom]"] = 1,
["[arrowhead]"] = 1,
["[aster]"] = 1,
["[bahnhof]"] = 1,
["[bbb]"] = 1,
["[bitnet]"] = 1,
["[bolina]"] = 1,
["[bostaden]"] = 1,
["[bostream]"] = 1,
["[bostreamadsl]"] = 1,
["[brinet]"] = 1,
["[bs]"] = 1,
["[cenara]"] = 1,
["[chello]"] = 1,
["[comhem]"] = 1,
["[cybercity]"] = 1,
["[dcs]"] = 1,
["[euronet]"] = 1,
["[fastbit]"] = 1,
["[fastcom]"] = 1,
["[fm]"] = 1,
["[funet]"] = 1,
["[gavlenet]"] = 1,
["[geab]"] = 1,
["[glocalnet]"] = 1,
["[iinet]"] = 1,
["[innit]"] = 1,
["[ip-only]"] = 1,
["[istream]"] = 1,
["[jony]"] = 1,
["[kommunicera]"] = 1,
["[kramnet]"] = 1,
["[lidnet]"] = 1,
["[lyse]"] = 1,
["[mimer]"] = 1,
["[nashnet]"] = 1,
["[netvision]"] = 1,
["[nextgentel]"] = 1,
["[ngt.no]"] = 1,
["[norrnod]"] = 1,
["[orexis]"] = 1,
["[plusnet]"] = 1,
["[rr]"] = 1,
["[scream]"] = 1,
["[scream-lite]"] = 1,
["[skekraft]"] = 1,
["[skycom]"] = 1,
["[sonera]"] = 1,
["[spray]"] = 1,
["[ssvl]"] = 1,
["[sunet]"] = 1,
["[sydkraft]"] = 1,
["[tele2]"] = 1,
["[telecom3]"] = 1,
["[telenet]"] = 1,
["[telenordia]"] = 1,
["[telia]"] = 1,
["[tiscali]"] = 1,
["[tpsa]"] = 1,
["[umenet]"] = 1,
["[uninett]"] = 1,
["[worldnet]"] = 1,
["[xpress]"] = 1,
["[xstream]"] = 1,
}
frmHub:RegBot(BotName)
sISPs = ""
local tempTable = {}
for k,v in tISPs do
if k ~= "n" then
tinsert(tempTable, k)
end
end
sort(tempTable)
local i
for i=1, getn(tempTable)-1 do
sISPs = sISPs..tempTable[i].." ; "
end
i = getn(tempTable)
sISPs = sISPs..tempTable[i]
end
function NewUserConnected(curUser)
local _,_,firstPrefix,secondPrefix = strfind(strlower(curUser.sName), "^(%b[])(%b[])")
local x = 0
if (firstPrefix and tISPs[firstPrefix]) or (secondPrefix and tISPs[secondPrefix]) then
x=1
else
x=0
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:SendPM(BotName, sISPs)
curUser:Disconnect()
end
end-- Skrollster
Just ran ur script >> "[Bot]??Gate-Check??" <<
Skrollster, Logged in as a VIP user with Nick as follows [G-T-E]Samantha?
and receiced the following script messege so ur script will not reconise the Profile for VIPs:
Hope this reply will help u out..
BTW My ISP Is Actually Bostream...10mb....
Welcome [G-T-E]Samantha?. Minimum share is set to 3 Gb. You are sharing: 4.58 Gb.
The Mean_Machine? IPGuard is protecting this hub using PeerGuardians IP Block list.
Running Client-Shield Version: 1.1 By: NightLitch ( 2004-03-11 )
Welcome [G-T-E]Samantha? you are using DC++ version: 0.306
Private message from [Bot]??Gate-Check??: <[Bot]??Gate-Check??> Your ISP-Tag is wrong!
Private message from [Bot]??Gate-Check??: <[Bot]??Gate-Check??> Your nick should be whit [Your-ISP] Before your nickname!
Private message from [Bot]??Gate-Check??: <[Bot]??Gate-Check??> change your name to [Bostream] or what ISP that you have!
Private message from [Bot]??Gate-Check??: <[Bot]??Gate-Check??> If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]
Private message from [Bot]??Gate-Check??: <[Bot]??Gate-Check??> [0,5mbit] ; [0.5mbit] ; [1,1mbit] ; [100mbit] ; [10mbit] ; [1mbit] ; [2,5mbit] ; [26mbit] ; [2mbit] ; [3mbit] ; [4mbit] ; [5mbit] ; [6mbit] ; [7mbit] ; [8mbit] ; [9mbit] ; [absnet] ; [ac-net] ; [adsl] ; [alcom] ; [arrowhead] ; [aster] ; [bahnhof] ; [bbb] ; [bitnet] ; [bolina] ; [bostaden] ; [bostream] ; [bostreamadsl] ; [brinet] ; [bs] ; [cenara] ; [chello] ; [comhem] ; [cybercity] ; [dcs] ; [euronet] ; [fastbit] ; [fastcom] ; [fm] ; [funet] ; [gavlenet] ; [geab] ; [glocalnet] ; [iinet] ; [innit] ; [ip-only] ; [istream] ; [jony] ; [kommunicera] ; [kramnet] ; [lidnet] ; [lyse] ; [mimer] ; [nashnet] ; [netvision] ; [nextgentel] ; [ngt.no] ; [norrnod] ; [orexis] ; [plusnet] ; [rr] ; [scream-lite] ; [scream] ; [skekraft] ; [skycom] ; [sonera] ; [spray] ; [ssvl] ; [sunet] ; [sydkraft] ; [tele2] ; [telecom3] ; [telenet] ; [telenordia] ; [telia] ; [tiscali] ; [tpsa] ; [umenet] ; [uninett] ; [worldnet] ; [xpress] ; [xstream]
*** Disconnected
Have a nice day !!
[G-T-E]Gate?
then it is working as you wanted to, at least as you wrote...
you said that you wanted the users nick to be
[G-T-E][Bostream]Samantha?
if you try it, it will work...
Skrollster Bra Jobbat !! :D :D
Is there any possibility to have an !ISP0/!ISP1
function for the script where 0= Off and 1= On
The command will be written in main chat and ONLY for the Master Profile.
The reason is because I need to inform all my VIPs that they will have to add their ISP tag after the Hub Tag.
Otherwise and I said above , Great W :D RK!!
PS. The script allows OPs/Admin/Master in without ISP Tag which Is Perfect!! Ds..
+5 degrees and snows melting, its about time...
[G-T-E]Gate?
Might have messed it up now...
and i can't test it right now cause i'm in school...
I'll fix it then i get home if i screwed it up...
-- Main Sub
function Main()
BotName = "[Bot]??Gate-Check??"
tISPs = {
["[0,5mbit]"] = 1,
["[0.5mbit]"] = 1,
["[1,1mbit]"] = 1,
["[100mbit]"] = 1,
["[10mbit]"] = 1,
["[1mbit]"] = 1,
["[2,5mbit]"] = 1,
["[26mbit]"] = 1,
["[2mbit]"] = 1,
["[3mbit]"] = 1,
["[4mbit]"] = 1,
["[5mbit]"] = 1,
["[6mbit]"] = 1,
["[7mbit]"] = 1,
["[8mbit]"] = 1,
["[9mbit]"] = 1,
["[absnet]"] = 1,
["[ac-net]"] = 1,
["[adsl]"] = 1,
["[alcom]"] = 1,
["[arrowhead]"] = 1,
["[aster]"] = 1,
["[bahnhof]"] = 1,
["[bbb]"] = 1,
["[bitnet]"] = 1,
["[bolina]"] = 1,
["[bostaden]"] = 1,
["[bostream]"] = 1,
["[bostreamadsl]"] = 1,
["[brinet]"] = 1,
["[bs]"] = 1,
["[cenara]"] = 1,
["[chello]"] = 1,
["[comhem]"] = 1,
["[cybercity]"] = 1,
["[dcs]"] = 1,
["[euronet]"] = 1,
["[fastbit]"] = 1,
["[fastcom]"] = 1,
["[fm]"] = 1,
["[funet]"] = 1,
["[gavlenet]"] = 1,
["[geab]"] = 1,
["[glocalnet]"] = 1,
["[iinet]"] = 1,
["[innit]"] = 1,
["[ip-only]"] = 1,
["[istream]"] = 1,
["[jony]"] = 1,
["[kommunicera]"] = 1,
["[kramnet]"] = 1,
["[lidnet]"] = 1,
["[lyse]"] = 1,
["[mimer]"] = 1,
["[nashnet]"] = 1,
["[netvision]"] = 1,
["[nextgentel]"] = 1,
["[ngt.no]"] = 1,
["[norrnod]"] = 1,
["[orexis]"] = 1,
["[plusnet]"] = 1,
["[rr]"] = 1,
["[scream]"] = 1,
["[scream-lite]"] = 1,
["[skekraft]"] = 1,
["[skycom]"] = 1,
["[sonera]"] = 1,
["[spray]"] = 1,
["[ssvl]"] = 1,
["[sunet]"] = 1,
["[sydkraft]"] = 1,
["[tele2]"] = 1,
["[telecom3]"] = 1,
["[telenet]"] = 1,
["[telenordia]"] = 1,
["[telia]"] = 1,
["[tiscali]"] = 1,
["[tpsa]"] = 1,
["[umenet]"] = 1,
["[uninett]"] = 1,
["[worldnet]"] = 1,
["[xpress]"] = 1,
["[xstream]"] = 1,
}
frmHub:RegBot(BotName)
sISPs = ""
local tempTable = {}
for k,v in tISPs do
if k ~= "n" then
tinsert(tempTable, k)
end
end
sort(tempTable)
local i
for i=1, getn(tempTable)-1 do
sISPs = sISPs..tempTable[i].." ; "
end
i = getn(tempTable)
sISPs = sISPs..tempTable[i]
ISPCheck = 0 -- change this to 1 to enable the check by default if 0 you have to enable it every time the scripts are restarted
end
function NewUserConnected(curUser)
local _,_,firstPrefix,secondPrefix = strfind(strlower(curUser.sName), "^(%b[])(%b[])")
local x = 0
if not ( ISPCheck == 1 and ( (firstPrefix and tISPs[firstPrefix]) or (secondPrefix and tISPs[secondPrefix]) ) ) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:SendPM(BotName, sISPs)
curUser:Disconnect()
end
end-- Skrollster
function DataArrival(user, data)
if user.iProfile == 0 then
local s,e,cmd = strfind(strlower(data), "%b<>(%S+).*|")
if ( (strsub(data,1,1)=="<") or (strsub(data,1,strlen(Bot)+5)=="$To: "..BotName) ) then
data=strsub(data,1,strlen(data)-1)
if ( cmd==strlower("!ISP0") ) then
ISPCheck = 0
elseif ( cmd==strlower("!ISP1") ) then
ISPCheck = 1
end
end
end
end
Just copied the script and will test it when I get back from work tonight. vid 22tiden
Have a nice day at school.
And conecntrate now, not on the Cute Teachers , hehehe :D
Tried the script out but sorry it still works full time .
Couldnt find the Command !ISP0/!ISP1
Iam not looking to change all from 0 to 1 depending on which I want ...
Just the command to main chat will do >> !ISP0/!ISP1
Tks
now it works as i wanted it to work.. test it and se if it works as you want it to work as well..
-- Main Sub
function Main()
BotName = "[Bot]??Gate-Check??"
tISPs = { ["[0,5mbit]"] = 1, ["[0.5mbit]"] = 1, ["[1,1mbit]"] = 1, ["[100mbit]"] = 1, ["[10mbit]"] = 1, ["[1mbit]"] = 1, ["[2,5mbit]"] = 1,
["[26mbit]"] = 1, ["[2mbit]"] = 1, ["[3mbit]"] = 1, ["[4mbit]"] = 1, ["[5mbit]"] = 1, ["[6mbit]"] = 1, ["[7mbit]"] = 1, ["[8mbit]"] = 1,
["[9mbit]"] = 1, ["[absnet]"] = 1, ["[ac-net]"] = 1, ["[adsl]"] = 1, ["[alcom]"] = 1, ["[arrowhead]"] = 1, ["[aster]"] = 1, ["[bahnhof]"] = 1,
["[bbb]"] = 1, ["[bitnet]"] = 1, ["[bolina]"] = 1, ["[bostaden]"] = 1, ["[bostream]"] = 1, ["[bostreamadsl]"] = 1, ["[brinet]"] = 1, ["[bs]"] = 1,
["[cenara]"] = 1, ["[chello]"] = 1, ["[comhem]"] = 1, ["[cybercity]"] = 1, ["[dcs]"] = 1, ["[euronet]"] = 1, ["[fastbit]"] = 1, ["[fastcom]"] = 1,
["[fm]"] = 1, ["[funet]"] = 1, ["[gavlenet]"] = 1, ["[geab]"] = 1, ["[glocalnet]"] = 1, ["[iinet]"] = 1, ["[innit]"] = 1, ["[ip-only]"] = 1,
["[istream]"] = 1, ["[jony]"] = 1, ["[kommunicera]"] = 1, ["[kramnet]"] = 1, ["[lidnet]"] = 1, ["[lyse]"] = 1, ["[mimer]"] = 1, ["[nashnet]"] = 1,
["[netvision]"] = 1, ["[nextgentel]"] = 1, ["[ngt.no]"] = 1, ["[norrnod]"] = 1, ["[orexis]"] = 1, ["[orexis]"] = 1, ["[plusnet]"] = 1, ["[rr]"] = 1,
["[scream]"] = 1, ["[scream-lite]"] = 1, ["[skekraft]"] = 1, ["[skycom]"] = 1, ["[sonera]"] = 1, ["[spray]"] = 1, ["[ssvl]"] = 1, ["[sunet]"] = 1,
["[sydkraft]"] = 1, ["[tele2]"] = 1, ["[telecom3]"] = 1, ["[telenet]"] = 1, ["[telenordia]"] = 1, ["[telia]"] = 1, ["[tiscali]"] = 1, ["[tpsa]"] = 1,
["[umenet]"] = 1, ["[uninett]"] = 1, ["[worldnet]"] = 1, ["[xpress]"] = 1, ["[xstream]"] = 1, }
frmHub:RegBot(BotName)
sISPs = ""
local tempTable = {}
for k,v in tISPs do
if k ~= "n" then
tinsert(tempTable, k)
end
end
sort(tempTable)
local i
for i=1, getn(tempTable)-1 do
sISPs = sISPs..tempTable[i].." ; "
end
i = getn(tempTable)
sISPs = sISPs..tempTable[i]
ISPCheck = 0 -- change this to 1 to enable the check by default if 0 you have to enable it every time the scripts are restarted
end
function NewUserConnected(curUser)
local _,_,firstPrefix,secondPrefix = strfind(strlower(curUser.sName), "^(%b[])(%b[])")
local x = 0
if ISPCheck == 1 and not ( (firstPrefix and tISPs[firstPrefix]) or (secondPrefix and tISPs[secondPrefix]) ) then
-- Kick user
curUser:SendData(BotName, "Your ISP-Tag is wrong!")
curUser:SendData(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendData(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendData(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:SendData(BotName, sISPs)
curUser:Disconnect()
end
end-- Skrollster
function DataArrival(user, data)
if user.iProfile == 0 then
local s,e,cmd = strfind(strlower(data), "%b<>%s(%S+).*|")
if ( (strsub(data,1,1)=="<") or (strsub(data,1,strlen(BotName)+5)=="$To: "..BotName) ) then
if ( cmd=="!isp0" ) then
ISPCheck = 0
user:SendData(BotName, "ISP check disabled")
elseif ( cmd=="!isp1" ) then
ISPCheck = 1
user:SendData(BotName, "ISP check enabled")
end
end
end
end
opk Back in a few minutes , Tk
W :D RKS Perfectly changed from 1 to 0 in the script and all well, no errors yet ,
but , can u add the command to main chat for activate and deactivate dvs !0 and !1 (!0=ISPCheckOff / !1=ISPCheckOn).
Plus I would appreciate it if u would read a thread I placed which has to do with this script u maybe able to help >>Here PLease (http://board.univ-angers.fr/thread.php?threadid=1624&boardid=11&styleid=1)
Tk
QuoteOriginally posted by [G-T-E]Gate?
W :D RKS Perfectly changed from 1 to 0 in the script and all well, no errors yet ,
but , can u add the command to main chat for activate and deactivate dvs !0 and !1 (!0=ISPCheckOff / !1=ISPCheckOn).
??? didn't get your question quite straight..
As I understand the script the ISP check has to be set to 1 for checking and 0 for not checking.
I have to changed it everytime within the script, here >>
ISPCheck = 0 -- change this to 1 to enable the check by default if 0 you have to enable it every time the scripts are restarted
to
ISPCheck = 1 -- change this to 1 to enable the check by default if 0 you have to enable it every time the scripts are restarted
Questions is , Can u write so All I have to do is write the following command in man chat > !1 for ISPCheck and !0 for No ISPCheck.
I control the hub thru Remote to another comp.
Tk
tried !isp1 and !isp0 ???
That mistake of mine is like a 10 pointer. :O
Seems my eyes are becoming more like _
Sorry , ur right , works like a charm :]
Can eny one fix this script so it checks OP and send this massage to OP:
curUser:SendData(" ")
curUser:SendData("----------- ISP-Check ----------")
curUser:SendData(BotName,""..curUser.sName.." Your [ISP]-Tagg is: "..value.." and are allowed in this fine hub.")
curUser:SendData(" ")
[code]
BotName = "[Bot]??Gate-Check??"
tablename = {
"[Bostaden]",
"[Scream]",
"[Telecom3]",
"[Orexis]",
"[InnIT]",
"[Worldnet]",
"[Umenet]",
"[SkyCom]",
"[Skekraft]",
"[NorrNod]",
"[Nashnet]",
"[Kommunicera]",
"[Brinet]",
"[BostreamADSL]",
"[AC-Net]",
"[Telia]",
"[Bostream]",
"[Sunet]",
"[Bitnet]",
"[ComHem]",
"[Spray]",
"[Tele2]",
"[Xstream]",
"[Istream]",
"[Scream-Lite]",
"[100Mbit]",
"[26Mbit]",
"[10Mbit]",
"[5Mbit]",
"[2,5Mbit]",
"[2Mbit]",
"[1,1Mbit]",
"[1Mbit]",
"[0,5Mbit]",
global }
-- Main Sub
function Main() curUser
frmHub:RegBot(BotName)
end
function NewUserConnected(curUser)
for key, value in ISP do --Loop ISP Array
if (strfind(strlower(curUser.sName), strlower(value),1,1)) then
curUser:SendData("----------- ISP-Check ----------")
curUser:SendData(BotName,""..curUser.sName.." Your [ISP]-Tagg is: "..value.." and are allowed in this fine hub.")
curUser:SendData(" ")
x=1
break
else
x=0
end
end
if (x == 0) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:Disconnect()
end
end
JO WickeD just a small comment on the script ur using in ur hub for ISP Tags, "[Bot]??Gate-Check??"
I entered ur hub with [Bostream] as tag and it was accepted, ok, Then I tested with [100Mbit] as tag and Bingo , it was accepted aswell .
My question is , what use it when it cant do a Ip check on the ISP Tag I choose, I may have only a ?Mbit speed.
So comment is , The script isnt doing any good, SpeedFakers U'll surely get .
And why do u wnat it to check ur Ops?
Just wondering..Good luck anyway..
Hey all..
I have tryed out ISP scrip and it seem to work good,
actuly to good hehe..
I tryed to connect as [BBB],[Bostream] or [10Mbit]
and I cant get in..
[03:37] Your ISP-Tag is wrong!
[03:37] Your nick should be whit [Your-ISP] Before your nickname!
script!;
---------------------------------------------------------------------
-- Main Sub
function Main()
BotName = "?ISP?"
tISPs = {
["[0,5mbit]"] = 1,
["[0.5mbit]"] = 1,
["[1,1mbit]"] = 1,
["[100mbit]"] = 1,
["[10mbit]"] = 1,
["[1mbit]"] = 1,
["[2,5mbit]"] = 1,
["[26mbit]"] = 1,
["[2mbit]"] = 1,
["[3mbit]"] = 1,
["[4mbit]"] = 1,
["[5mbit]"] = 1,
["[6mbit]"] = 1,
["[7mbit]"] = 1,
["[8mbit]"] = 1,
["[9mbit]"] = 1,
["[absnet]"] = 1,
["[ac-net]"] = 1,
["[adsl]"] = 1,
["[alcom]"] = 1,
["[arrowhead]"] = 1,
["[aster]"] = 1,
["[bahnhof]"] = 1,
["[bbb]"] = 1,
["[bitnet]"] = 1,
["[bolina]"] = 1,
["[bostaden]"] = 1,
["[bostream]"] = 1,
["[bostreamadsl]"] = 1,
["[brinet]"] = 1,
["[bs]"] = 1,
["[cenara]"] = 1,
["[chello]"] = 1,
["[comhem]"] = 1,
["[cybercity]"] = 1,
["[dcs]"] = 1,
["[euronet]"] = 1,
["[fastbit]"] = 1,
["[fastcom]"] = 1,
["[fm]"] = 1,
["[funet]"] = 1,
["[gavlenet]"] = 1,
["[geab]"] = 1,
["[glocalnet]"] = 1,
["[iinet]"] = 1,
["[innit]"] = 1,
["[ip-only]"] = 1,
["[istream]"] = 1,
["[jony]"] = 1,
["[kommunicera]"] = 1,
["[kramnet]"] = 1,
["[lidnet]"] = 1,
["[lyse]"] = 1,
["[mimer]"] = 1,
["[nashnet]"] = 1,
["[netvision]"] = 1,
["[nextgentel]"] = 1,
["[ngt.no]"] = 1,
["[norrnod]"] = 1,
["[orexis]"] = 1,
["[plusnet]"] = 1,
["[rr]"] = 1,
["[scream]"] = 1,
["[scream-lite]"] = 1,
["[skekraft]"] = 1,
["[skycom]"] = 1,
["[sonera]"] = 1,
["[spray]"] = 1,
["[ssvl]"] = 1,
["[sunet]"] = 1,
["[sydkraft]"] = 1,
["[tele2]"] = 1,
["[telecom3]"] = 1,
["[telenet]"] = 1,
["[telenordia]"] = 1,
["[telia]"] = 1,
["[tiscali]"] = 1,
["[tpsa]"] = 1,
["[umenet]"] = 1,
["[uninett]"] = 1,
["[worldnet]"] = 1,
["[xpress]"] = 1,
["[xstream]"] = 1,
}
frmHub:RegBot(BotName)
sISPs = ""
local tempTable = {}
for k,v in tISPs do
if k ~= "n" then
tinsert(tempTable, k)
end
end
sort(tempTable)
local i
for i=1, getn(tempTable)-1 do
sISPs = sISPs..tempTable.." ; "
end
i = getn(tempTable)
sISPs = sISPs..tempTable
ISPCheck = 0 -- change this to 1 to enable the check by default if 0 you have to enable it every time the scripts are restarted
end
function NewUserConnected(curUser)
local _,_,firstPrefix,secondPrefix = strfind(strlower(curUser.sName), "^(%b[])(%b[])")
local x = 0
if not ( ISPCheck == 1 and ( (firstPrefix and tISPs[firstPrefix]) or (secondPrefix and tISPs[secondPrefix]) ) ) then
-- Kick user
curUser:SendPM(BotName, "Your ISP-Tag is wrong!")
curUser:SendPM(BotName, "Your nick should be whit [Your-ISP] Before your nickname!")
curUser:SendPM(BotName, "change your name to [Bostream] or what ISP that you have!")
curUser:SendPM(BotName, "If your IPS is not in the list! Write your ISP-Speed like: [10Mbit]")
curUser:SendPM(BotName, sISPs)
curUser:Disconnect()
end
end-- Skrollster
function DataArrival(user, data)
if user.iProfile == 0 then
local s,e,cmd = strfind(strlower(data), "%b<>(%S+).*|")
if ( (strsub(data,1,1)=="<") or (strsub(data,1,strlen(Bot)+5)=="$To: "..BotName) ) then
data=strsub(data,1,strlen(data)-1)
if ( cmd==strlower("!ISP0") ) then
ISPCheck = 0
elseif ( cmd==strlower("!ISP1") ) then
ISPCheck = 1
end
end
end
end
-----------------------------------------------------------------------
No syntax errors in the script.
C:\Documents and Settings\ace\Mina dokument\-=HUB=-\NEW RB7\scripts\?ISP?.lua loaded