Print Page - Open extra slot mini-script

Title: Open extra slot mini-script
Post by: nErBoS on 24 November, 2003, 14:08:43

Hi all,

I made this little script to forbide users with ",O:xx" on their tag to get on the Hub..

Bot = "Extra-Slot"

function NewUserConnected(user, data) 

		if strfind(user.sMyInfoString,"O:") then 
		user:SendData(Bot, "Settings of DC->Sharing , Open extra slot must be zero.")
		user:SendData(Bot, "Disconnecting...")
		user:Disconnect()
		end
end

But it?s not working, can anyonehelp me ??

Best regards, nErBoS

Title:
Post by: [T-G-T]M@sto on 24 November, 2003, 14:26:15

QuoteOriginally posted by nErBoS
Hi all,

I made this little script to forbide users with ",O:xx" on their tag to get on the Hub..

Code Select Expand
Bot = "Extra-Slot" function NewUserConnected(user, data) if strfind(user.sMyInfoString,"O:") then user:SendData(Bot, "Settings of DC->Sharing , Open extra slot must be zero.") user:SendData(Bot, "Disconnecting...") user:Disconnect() end end
But it?s not working, can anyonehelp me ??

Best regards, nErBoS

I can't help you with the script but i tinkt O:? means Oploadlimit and not numbers of extra slots.

Title:
Post by: nErBoS on 24 November, 2003, 16:18:08

No, O:xx -> means Open Extra Slot check out your DC or oDC in Settings of DC->Sharing , Open extra slot

Title:
Post by: kepp on 24 November, 2003, 20:58:02

Do you really need data in NewUserConnected?

Title:
Post by: nErBoS on 25 November, 2003, 01:51:44

why not ??

Title:
Post by: plop on 25 November, 2003, 02:02:17

try this.
this also answers kepp's question.

Code Select

Bot = "Extra-Slot"

function NewUserConnected(user) 
   if strfind(user.sMyInfoString,"(O:%x)")then
		user:SendData(Bot, "Settings of DC->Sharing , Open extra slot must be zero.")
		user:SendData(Bot, "Disconnecting...")
		user:Disconnect()
		end
end

plop

Title:
Post by: nErBoS on 25 November, 2003, 04:04:47

I have already tried that plop didn?t work : (

Title:
Post by: plop on 25 November, 2003, 04:43:28

if this 1 works your running TD4 and encountered the same bug as i have 2day.

Code Select

Bot = "Extra-Slot"

function DataArrival(user, data) 
   if strfind(user.sMyInfoString,"(O:%x)")then
		user:SendData(Bot, "Settings of DC->Sharing , Open extra slot must be zero.")
		user:SendData(Bot, "Disconnecting...")
		user:Disconnect()
   end
end

plop

Title:
Post by: nErBoS on 26 November, 2003, 00:39:44

still not working :(

PtokaX forum

Development Section => Your Developing Problems => Topic started by: nErBoS on 24 November, 2003, 14:08:43