Mass Message Script NEEDED!!

[mrdesai83]

Hey everyone,

I am using the Stimbot Script in my hub, however, I am in need of a good mass message script that I can use with that. Can someone pls give me that, since the script for mass message on the Scripts page on theses forums is not working properly.

Thanks in Advance!

[BSOD2600]

Code: Select all

'              Massmessage 
'  by  : DirtyFinger  HomePage: http://www30.brinkster.com/dirtyfinger/ 
'  for : ZzDr.Fred who only wanted a massmessage without the rest of my bot ^^ 

Dim sBotName 

Sub Main() 
   sBotName = "Bender_Messenger" 
   frmHub.registerbotname (sBotName) 
End Sub 


Sub DataArival (curUser, sCurData) 
   Dim sCommandWord, sCommand, sMessage 
   If curUser.bOperator Then 
      If InStr(lcase(sCurData), "$to: " & lCase(sBotName)) = 1 then    
         sCommand = Left(sCurData, InStr(2, sCurData, "$")) + "<"+ curUser.sName + "> " 
         sCommand = replace (cSTR(scurdata),sCommand,"",1,1,1) 
      Else 
         sCommand = mid(cstr(sCurData),len(CurUser.sName)+4) 
      End If 
      
      sCommandWord = Left(sCommand, InStr(1, sCommand, " ") - 1) 
      sMessage = replace (sCommand,sCommandWord+" ","",1,1,1) 
      
      Select Case sCommandWord 
      Case "+mm" 
         MassMessage sMessage, curUser, "all" 
      Case "+mmop" 
         MassMessage sMessage, curUser, "op" 
      Case "+mma" 
         MassMessage sMessage, curUser, "anon" 
      End Select 
   End If 
End Sub 

Function MassMessage (sMessage, curUser, sWho) 
   Select Case sWho 
   Case "all" 
      sMessage = "------======###### Massmessage ######======------" + vbCRLF + sMessage 
      For each cUser in colUsers 
         cUser.PrivateMessage curUser.sName , cStr(sMessage) 
      Next 
   Case "anon" 
      sMessage = "------======###### Announcement ######======------" + vbCRLF + sMessage 
      For each cUser in colUsers 
         cUser.PrivateMessage cStr(sBotName) , cStr(sMessage) 
      Next 
   Case "op" 
      sMessage = "------======###### Operator Notification ######======------" + vbCRLF + sMessage 
      For each cUser in colUsers 
         If cUser.bOperator then 
            cUser.privateMessage CurUser.sName, cStr(sMessage) 
         End If 
      Next 
   End Select 
End Function 

[mrdesai83]

Thanx man!