To be used for archiving purposes only. No new posts will be made. View Scope's Farewell Message
With PBuffer aProfile(Index).ClanArray(0) = .GetDWORD 'cookie aProfile(Index).ClanArray(1) = .GetDWORD '.GetDWORD 'tag aProfile(Index).ClanArray(2) = .GetNTstring 'clan name aProfile(Index).ClanArray(3) = .GetNTstring 'clan leader/inviter End With AddChat 0, Index, &H8000&, GetSTRING(110), vbGreen, StrReverse$(KillNull(aProfile(Index).ClanArray(1))), &H8000&, GetSTRING(111) '~~~~~~~~~~~~~ 'Clan joining invitation recieved, tag '. Type /accept to join the clan.
Public Function GetDWORD(Optional Data As String) As LongDim lReturn As Long If LenB(Data) Then Call CopyMemory(lReturn, ByVal Left$(Data, 4), 4) GetDWORD = lReturn 'read from supplied Else Call CopyMemory(lReturn, ByVal Left$(RecvBuffer, 4), 4) GetDWORD = lReturn RecvBuffer = Mid$(RecvBuffer, 5) 'read from recv packet End If End Function
[1] &H79 -in-> F à ‘ D i o V J E R E L I S N O O B S h i n e [ v D ] E0 18 11 00 44 69 6F 56 4A 45 52 45 4C 49 53 4E 4F 4F 42 00 53 68 69 6E 65 5B 76 44 5D 00