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!
Mass Message Script NEEDED!!
Moderator: Moderators
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