For i As Integer = 0 To ID_Message.actors.Count - 1
Select Case ID_Message.actors(i).protocolId 'En fonction du type on affiche
Case 36 'Joueurs
If ID_Message.Actors(i).ContextualId = Bot.ID Then
Bot.CellID = ID_Message.Actors(i).Disposition.cellId
End If
Dim Level As Integer = ID_Message.Actors(i).alignmentInfos.CharacterPower - ID_Message.Actors(i).ContextualId
For i As Integer = 0 To ID_Message.actors.Count - 1
Select Case ID_Message.actors(i).protocolId
Case 36
If ID_Message.actors(i).GameContextActorInformations.name = IDN_Bot Then
ID_Cell = ID_Message.actors(i).disposition.cellId
MsgBox(ID_Cell)
End If
End Select
Next
ID_Flood = ID_Message.informations.GameContextActorInformations.name
Dim Version_ As New Types.Version.VersionExtended
Version_.initVersion(2, 7, 0, 60799, 2, 0)
Public Function serializeAs_Version(ByVal param1 As Dofus.DofusWriter)
param1.WriteByte(Me.major)
param1.WriteByte(Me.minor)
param1.WriteByte(Me.release)
param1.WriteShort(Me.revision)
param1.WriteByte(Me.patch)
param1.WriteByte(Me.buildType)
Return Me
End Function
ID_Flood = ID_Message.informations.GameContextActorInformations.name