+report <msg> anyone ?????????

[Night]

Hello!!
Does anyone know where I can get the +report <msg> I just need the command!!
Please help me if you have it!!

Thank you!

Greetings //Night

[BSOD2600]

something like this?

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 

[Night]

Nooo I mean liek this +report <msg>, users can report, example +report [CABLE]Micke is faker, I dont need massmess or something like that..

Thank you

Greetings //Night

[TheNOP]

Why not simply ask your users to pm you instead ?