Comando /EcharClan

SERVIDOR:

Buscamos:



LoginExistingChar



y arriba ponemos:



KickClan



Buscamos:



Select Case packetID



Y abajo ponemos:



Case ClientPacketID.kickclan
Call handlekickclan(userindex)



Agregamos este sub:



Private Sub handlekickclan(ByVal userindex As Integer)

Dim buffer As New clsByteQueue
Call buffer.CopyBuffer(UserList(userindex).incomingData)
buffer.ReadByte
Dim asd As String
asd = buffer.ReadASCIIString()
if userlist(userindex).guildindex = userlist(nameindex(asd)).guilindex then
Call modGuilds.m_EcharMiembroDeClan(userindex, asd)
Call WriteConsoleMsg(userindex, "Has hechado a " & asd , FontTypeNames.FONTTYPE_INFO)
end if


Call UserList(userindex).incomingData.CopyBuffer(buffer)

End Sub



CLIENTE:

Buscamos:



LoginExistingChar



y arriba agregamos:



KickClan



Buscamos:



Case "/ECHARPARTY"



y arriba agregamos:



Case "/ECHARCLAN"
If notNullArguments Then
Call writekickclan(ArgumentosRaw)
Else
'Avisar que falta el parametro
Call ShowConsoleMsg("Faltan parámetros. Utilice /echarclan NICKNAME.")
End If



y Agregamos este sub:



Public Sub writekickclan(ByVal arg As String)
With outgoingData
.WriteByte (ClientPacketID.kickclan)
.WriteASCIIString (arg)

End With
End Sub



Testeado y funcional.