A rules script.

[JackDanuls]

I am very new to running a hub. I want to be able to have hub rules displayed when some one logs into my hub. Could some one please point me to a script for this?

Thank you
JackDanuls

[Paul_Don]

Code: Select all

Dim sBotName

Sub Main()
sBotName="bot-name"
frmHub.RegisterBotName(CStr(sBotName)) 
End Sub


Sub NewUserConnected(curUser)
 curUser.PrivateMessage CStr(sBotName), " "&_
  vbCrLf & +vbTab+vbTab+" "& _
   vbCrLf & +vbTab+vbTab+" •  Rule 1"& _
   vbCrLf & +vbTab+vbTab+" •  Rule 2"& _
   vbCrLf & +vbTab+vbTab+" •  Rule 3"& _
   vbCrLf & +vbTab+vbTab+" •  Rule 4"& _
   vbCrLf & +vbTab+vbTab+" •  Rule 5"&_
   vbCrLf & +vbTab+vbTab+" •  Rule 6"& _
   vbCrLf & +vbTab+vbTab+" •  Rule 7"&_
   vbCrLf & +vbTab+vbTab+" •  Rule 8 "&_
   vbCrLf & +vbTab+vbTab+" "
 End Sub
 
Sub OpConnected(curUser) 
   Call NewUserConnected(curUser) 
End Sub

Too add more rules, copy and paste where it says rule 8 then past below number 8.

the last line must end with vbCrLf & +vbTab+vbTab+" " with no " &_ "

[JackDanuls]

Thanks. So Exactly where do I insert the rules?

Also is there a script to limit the hub to DC and DC++ only?