Help with REGME in R/C cmds

[-Dan-]

is it possible to get REGME in R/C cmds,  
 
for non reg'd only - i.e
                             add to favourites                    
                          copy nick to clipboard
                          ---------------------------
                               FUN SCRIPT
                          ---------------------------
                               REGISTER  ME
                          ---------------------------
running ptokax 0.3.3.21(debug)
robocopv10.01e
and recently added -  UniBlock 1.0 by Mutor  8/22/05
 
I have searched the forum but with no luck  could anyone help with this plz :)

[TTB]

I thougt that option can be enabled in robocop (GUI)? :]

1st tab -> options "Enable self registering users"

[-Dan-]

yes that is ticked  
but when i log in as a normal user it does not appear in R/C cmds    

[-Dan-]

continued....

although users can use self register (it works)
 
i would like them to see that in R/C

[TTB]

Try to put it in your welcome message! Then your problem is fixed. In !help the user can see he/she can use the !regme command.

You also can set an advertising script on every xx min (search for other scripts) to let those users know that they can reg themselves.

[-Dan-]

i do also use ROTATING MESSAGE script,
which alternates between txt files every 20 min  but by that time people would have left lol

[-Dan-]

And i dont want to chase them out by mass messaging

them every 10 min  in pm or main chat, i think users get annoyed with that

especially if they chatting in main  lol

[Tw?sT?d-d?v]

Add this to robocop at the top ...
 
aMenu = (Register)

add that under this line  = sMenu = "RC"

then add this ...

user:SendData("$UserCommand 1 3 "..aMenu.."\\REGISTER$<%[mynick]> !regme %[line:password]||")

add that under this line ...
customCMDs = function(user) --// You can put your custome commands here

I think i got that right  :P

[-Dan-]

Top one m8

That's just what i was after -  

[Tw?sT?d-d?v]

No probs    

[TTB]

Ghehe... was just bored, created this for you -Dan-

-- Little Announcer script by TTB
-- 1 message will appear individually after xx seconds
-- 12-11-2005, created for -Dan-
--------------------------------------------------------------------

--------------------------------------------------------------------
-- Settings
--------------------------------------------------------------------
bot = "[BOT]Announcer"
aTime = 5 -- after xx seconds the new user will be informed about the message below
aMessage = "Please register yourself! Type in the main chat: !regme [password]"
aCmd = "#showqueue"

--------------------------------------------------------------------
-- Preloading
--------------------------------------------------------------------
sNote = {}
bla = ""

function Main()
	frmHub:RegBot(bot)
	SetTimer(1000)
	StartTimer()
end

--------------------------------------------------------------------
-- Timer
--------------------------------------------------------------------
function OnTimer()
	for user,timer in pairs(sNote) do
		if timer > 0 then
			sNote[user] = sNote[user] - 1
		else
			SendPmToNick(user,bot,aMessage)
			sNote[user] = nil			
		end
	end
end

--------------------------------------------------------------------
-- User connects // disconnects
--------------------------------------------------------------------
function NewUserConnected(curUser,data)
	if not sNote[curUser.sName] and curUser.iProfile == -1 then
		sNote[curUser.sName] = aTime
	end
end
		
function UserDisconnected(curUser,data)
	if sNote[curUser.sName] then
		sNote[curUser.sName] = nil
	end
end

--------------------------------------------------------------------
-- ChatArrival for commands
--------------------------------------------------------------------
function ChatArrival(curUser,data)
	data = string.sub(data,1,string.len(data)-1)
	s,e,cmd = string.find(data,"%b<>%s+(%S+)")
	if cmd and string.lower(cmd) == aCmd and curUser.bOperator then
		bla = "\r\n\r\nQueued messages:\r\n----------------------------\r\n\r\n"
		for a,b in pairs(sNote) do
			bla = bla..a.."\r\n"
		end
		SendToNick(curUser.sName,bla)
		return 1
	end
end

[-Dan-]

thanx m8    :]

[TTB]

You're welcome...

[TTB]

whoops... little bug found... Script above updated