Need a little update for join-script

Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)

Moderator: Moderators

Locked
Walz
Posts: 7
Joined: 2003-11-01 02:54

Need a little update for join-script

Post by Walz » 2004-01-29 10:29

So. I have a following request for you who can script, because I can't enough. I have now a bot running which informs everybody in mainchat if a registered user logs in. I can personalize a logintext for everyone, but I would like to get a little update, so every regged user could easily peronalize their messages themselves without me (for example with command like "!login <text>"), however so that not everyone could modify each others messages. :)

The actual script is like this (it's not mine i got it from somewhere here thx whoever made it):

Code: Select all


Dim sBotName, sUserMsg, sRegMsg, sOpMsg, oUser 
Sub Main 
sBotName = "MyBotName" 
sUserMsg = "" 
sRegMsg = "%USER% has entered" 
sOpMsg = "%USER% Has Entered" 
Set oUser = CreateObject("Scripting.Dictionary") 
'******************************************************************************************************** 
oUser("[1st]ReggedUser")= +vbCRLF+vbTab+vbTab+vbTab+vbTab+vbTab+"º¤  Example logintext  ¤º" 
oUser("[2nd]ReggedUser")= +vbCRLF+vbTab+vbTab+vbTab+vbTab+vbTab+"º¤ Example logintext  ¤º" 

'******************************************************************************************************** 

End Sub 

Sub OpConnected(curUser) 
Call NewUserConnected(curUser) 
End Sub 

Sub NewUserConnected(curUser)  
If oUser.Exists(curUser.sName) Then 
  sMsg=oUser(curUser.sName) 
ElseIf curUser.bOperator Then 
  sMsg=sOpMsg 
ElseIf frmHub.lstOps.FindItem(curUser.sName) Is Nothing Then 
  sMsg=sUserMsg 
Else 
  sMsg=sRegMsg 
End If 
If sMsg<>"" Then colUsers.SendChatToAll CStr(sBotName), CStr(Replace(sMsg,"%USER%",curUser.sName)) 
End Sub

(Edit: code tags work better than bold - GMT)

Locked