'This Script Was created By Late@421 'Hubmaster of dope-shit.no-ip.org ' This Bot puts a timed message in the main chat ' This Message Includes Hub Name, Addy, Network Info, and Help Command ' I added a couple of settings to amke it an easy Drop-in. ' And If you are an Untoutchable Hub Owner, Its already setup!! ' THIS IS THE DEFAULT FORMAT OF THE MESSAGE: ' '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 'Welcome to HUBNAME, an Uñtøücháblè Nétwørk Hub. 'Please Save to Favorites ----> HUBADDY.NO-IP.ORG <---- 'Visit our site for more info www.UTBnet.com 'Type '-help' for a list of available commands. '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Dim sBotName Dim iNetName Dim iHelpCmd Dim iNetSite Dim iTimeInt Dim iShoHelp Dim iBotName Dim iUseHubN Dim iCmdLine Dim iShoLine Dim iDefLine Dim tDefLine Dim bDefLine '-------------EDITABLE SETTINGS----------------- iUseHubN = True 'Use Hub Name For Bot (True or False) iBotName = "Message To All Users" 'Default Name For Bot (Only if iUseHubN = False) iNetSite = "www.UTBnet.com" 'Network Website iNetName = "Uñtøücháblè Nétwørk" 'Network Name iHelpCmd = "-help" 'Help Command for Users iShoHelp = True 'Show Help Command Line (True or False) iTimeInt = 60 'Time Interval Of Message in Minutes iShoLine = True 'Show Definition Lines (True or False) iDefLine = "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-" ' Definition Line '----------END EDITABLE SETTINGS---------------- sub main() '-------SETS BOT NAME---------------- If iUseHubN = True Then sBotName = frmHub.txtName Else sBotName = iBotName End If '--------SETS HELP LINE-------------- If iShoHelp = True Then iCmdLine = "Type '" & iHelpCmd & "' for a list of available commands." & vbCRLF Else iCmdLine = "" End If '-------SHOW DEFINITION LINES-------- If iShoLine = True Then bDefLine = iDefLine Else bDefLine = "" End If tmrScriptTimer.interval=60000 'Set The Timer Interval 1 min tmrScriptTimer.enabled=true end sub Sub tmrScriptTimer_Timer() If tmrScriptTimer.tag="" then tmrScriptTimer.tag="0" End If tmrScriptTimer.tag=clng(tmrScriptTimer.tag)+1 If clng(tmrScriptTimer.tag)=>iTimeInt then tmrScriptTimer.tag=0 colUsers.SendChatToAll CStr(sBotName),vbCRLF & _ bDefLine & vbCRLF & _ "Welcome to " & frmHub.txtName & ", an " & iNetName & " Hub." & vbCRLF & _ "Please Save to Favorites ----> " & frmHub.txtIP & " <----" & vbCRLF & _ "Visit our site for more info " & iNetSite & vbCRLF & _ iCmdLine &_ bDefLine end if end sub