Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: texas71 on 14 March, 2004, 22:38:42

Title: "ISP and prefix"
Post by: texas71 on 14 March, 2004, 22:38:42
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 ...

Title:
Post by: texas71 on 14 March, 2004, 23:18:38
sorry for posting in the wrong topic
Title:
Post by: NightLitch on 14 March, 2004, 23:21:30
change:
Code Select
ISP =
[bbb];
[telia];
[bostream];
[sunet];
[10Mbit];
[2Mbit];
[0,5Mbit];
[5Mbit];
[Bitnet];
[ComHem];
[Spray];
[Tele2];
[Xstream];
[1Mbit];

to
Code Select
ISP = {
[bbb],
[telia],
[bostream],
[sunet],
[10Mbit],
[2Mbit],
[0,5Mbit],
[5Mbit],
[Bitnet],
[ComHem],
[Spray],
[Tele2],
[Xstream],
[1Mbit],
}

/NL
Title:
Post by: texas71 on 14 March, 2004, 23:44:38
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
Title: ISP!!
Post by: WickeD on 14 March, 2004, 23:52:07
Do this script only check if a user have a ISP in that list? Or do it check the spelling of the ISP?

//WickeD
Title:
Post by: texas71 on 15 March, 2004, 00:01:22
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],
}
Title:
Post by: plop on 15 March, 2004, 00:33:45
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
Title:
Post by: texas71 on 15 March, 2004, 01:03:37
Yeah I got it right now thank?s alot of all the help I got

 :D
Title: Should it look like this??
Post by: WickeD on 15 March, 2004, 13:45:28
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??


Code Select
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
Title:
Post by: VERMiN on 15 March, 2004, 13:56:02
You can use my script for this function if you like to.
Title: Thx!!
Post by: WickeD on 15 March, 2004, 13:58:01
But I what a script only for ISP-Check my m8!!



But Thx a lot!!

Can eny one Plzzz!! Help mee whit that??


//WickeD
Title:
Post by: BeeR on 15 March, 2004, 16:55:15
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..
Title:
Post by: Skrollster on 15 March, 2004, 17:43:40
Haven't tested it as usual...

Code Select
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
Title: Nice!!!! =)
Post by: WickeD on 15 March, 2004, 19:39:55
Thx a lot my m8!!


//WickeD
Title:
Post by: Skrollster on 15 March, 2004, 19:54:13
did it work as it was suppose to?
Title: Don?t know!! =)
Post by: WickeD on 15 March, 2004, 20:50:38
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
Title:
Post by: texas71 on 15 March, 2004, 20:52:33
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......
Title: Nice whit one more =)
Post by: WickeD on 15 March, 2004, 20:59:47
Thx a lot for that script!

A have saved that script to! And will try it later!!


//WickeD
Title:
Post by: Skrollster on 15 March, 2004, 21:40:26
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...

Code Select
-- 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
Title: Skrollster
Post by: Snoris on 15 March, 2004, 22:04:54
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
Title:
Post by: [G-T-E]Gate? on 15 March, 2004, 22:31:11
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..
Title:
Post by: Skrollster on 16 March, 2004, 08:38:42
I know i realy should test them every time i change something but i don't...

tell me if this isnt't working..


Code Select
-- 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
Title: "[Bot]??Gate-Check??" dont see VIPs.
Post by: [G-T-E]Gate? on 16 March, 2004, 10:21:57
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?
Title:
Post by: Skrollster on 16 March, 2004, 11:02:46
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...
Title: "[Bot]??Gate-Check??"
Post by: [G-T-E]Gate? on 16 March, 2004, 12:02:51
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?
Title:
Post by: Skrollster on 16 March, 2004, 12:57:08
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...

Code Select
-- 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
Title:
Post by: [G-T-E]Gate? on 16 March, 2004, 13:12:01
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
Title:
Post by: [G-T-E]Gate? on 17 March, 2004, 00:04:44
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
Title:
Post by: Skrollster on 17 March, 2004, 00:41:00
now it works as i wanted it to work.. test it and se if it works as you want it to work as well..

Code Select
-- 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
Title:
Post by: [G-T-E]Gate? on 17 March, 2004, 00:47:28
opk Back in a few minutes , Tk
Title:
Post by: [G-T-E]Gate? on 17 March, 2004, 00:57:38
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
Title:
Post by: Skrollster on 17 March, 2004, 00:59:39
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..
Title:
Post by: [G-T-E]Gate? on 17 March, 2004, 01:09:46
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
Title:
Post by: Skrollster on 17 March, 2004, 01:40:21
tried !isp1 and !isp0 ???
Title:
Post by: [G-T-E]Gate? on 17 March, 2004, 08:55:30
That mistake of mine is like a 10 pointer.   :O
Seems  my eyes are becoming more like _
Sorry , ur right , works like a charm   :]
Title: Hi! =)
Post by: WickeD on 19 March, 2004, 17:59:38
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
Title:
Post by: [G-T-E]Gate? on 19 March, 2004, 18:58:13
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..
Title:
Post by: acethecase on 16 April, 2004, 03:42:30
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
Text only | Text with Images