Need a OP - entering script

[Smulf]

Hi there; do someone knows where I can find a script, that tells when a specific OP enters the hub and then writs a specific message out in the main chat window...
E.g Mighty [OP]Banana has entered, so be aware...
[OP]Pinky has entered, so take a cold beer...

Well if you understod it, it would be nice if you would help...

[Paul_Don]

Code: Select all

Dim sBotName, sUserMsg, sRegMsg, sOpMsg, oUser 
Sub Main 
sBotName = "Entry" 
sUserMsg = "" 
sRegMsg = "%USER% has entered" 
sOpMsg = "%USER% Has Entered"
Set oUser = CreateObject("Scripting.Dictionary")
'******************************************************************************************************** 
oUser("Don")= +vbCRLF+vbTab+vbTab+vbTab+vbTab+vbTab+"º¤  The Don Meg@ Has Entered  ¤º" +vbCRLF
oUser("d f x")= +vbCRLF+vbTab+vbTab+vbTab+vbTab+vbTab+"º¤  Dave Has Stepped Into The Hub  ¤º" +vbCRLF
oUser("Westwood")= +vbCRLF+vbTab+vbTab+vbTab+vbTab+vbTab+"º¤  Westwood has entered  ¤º" +vbCRLF

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

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

[Smulf]

Thanks alot, it works fine...