CSB WhisperFromUser

[Eden.SeVeN]

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)

[Noodlez]

does the addwhisper function work?

[Eden.SeVeN]

yes it works, i even did AddChat to see if that was it, and nothing

[Pentium]

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..