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