Private Sub CSB_WhisperFromUser(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
If Dii = True Then
Username = Right(Username, Len(Username) - 1)
End If
Dim intstr As Integer
If InStr(1, Username, "*", vbTextCompare) <> 0 Then
intstr = InStr(1, Username, "*", vbTextCompare)
Username = Right(Username, Len(Username) - intstr)
End If
AddWhisper vbBlue, "<From: " & Username & "> ", vbWhite, Message
LastWhisper = Username
End Sub
it doesnt show the Whisper at all :(
any ideas why?
(btw, i copied it exactly from another bot, which works this way)
does the addwhisper function work?
yes it works, i even did AddChat to see if that was it, and nothing
Thats easily fixed.. This happened to me, make sure the whisper window, if you are using one, or any of the windows which should have server information displayed on them are in richtextbox form a regular textbox won't show any AddChat or other functions..