'*************************************************************************************************
'* This source code is the work of Chris Miles and is an active part of Xirc and my purpose of
'* posting it is to help out other people developing an IRC client!
'*************************************************************************************************
'* use this code for parseing the incoming data and if a version equest is asked for then
‘* this reply will be sent
'*
'**************************************************************************************************

'***************************************** Here is the sort of code For returning a version reply ******

If Mid$(msg, InStr(msg, ":") + 1) = Chr$(1) & "VERSION" & Chr$(1) Then
SendData "NOTICE " & Mid$(sline, 2, InStr(sline, "!") - 2) & " :" & Chr$(1) & _
"VERSION " & "[Xirc Version 4] " & "[Win 98/95/NT] " & _
"[Chris Miles - [email protected]]" & ":" & Chr$(1)
End If

'***************************************** Here is the sort of code for returning a version reply ******