Namespace Types.Game.Look
Public Class EntityLook
Public bonesId As UInteger = 0
Public skins As New List(Of UInteger)
Public indexedColors As New List(Of Integer)
Public scales As New List(Of Integer)
Public subentities As New List(Of SubEntity)
Public protocolId As UInteger = 55
Public Function EntityLook()
Me.skins = New List(Of UInteger)
Me.indexedColors = New List(Of Integer)
Me.scales = New List(Of Integer)
Me.subentities = New List(Of SubEntity)
Return Me
End Function
Public Function getTypeId() As UInteger
Return protocolId
End Function
Public Function initEntityLook(ByVal param1 As UInteger, ByVal param2 As List(Of UInteger), ByVal param3 As List(Of Integer), ByVal param4 As List(Of Integer), ByVal param5 As List(Of SubEntity)) As EntityLook
Me.bonesId = param1
Me.skins = param2
Me.indexedColors = param3
Me.scales = param4
Me.subentities = param5
Return Me
End Function
Public Function reset()
Me.bonesId = 0
Me.skins = New List(Of UInteger)
Me.indexedColors = New List(Of Integer)
Me.scales = New List(Of Integer)
Me.subentities = New List(Of SubEntity)
Return Me
End Function
Public Function deserialize(ByVal param1 As Dofus.DofusReader)
Me.deserializeAs_EntityLook(param1)
Return Me
End Function
Public Function deserializeAs_EntityLook(ByVal param1 As Dofus.DofusReader)
Dim _loc_10 As UInteger = 0
Dim _loc_11 As Integer = 0
Dim _loc_12 As Integer = 0
Dim _loc_13 As SubEntity
Me.bonesId = param1.readShort()
If (Me.bonesId < 0) Then
Console.WriteLine("Forbidden value (" + Me.bonesId + ") on element of EntityLook.bonesId.")
End If
Dim _loc_2 As UShort = param1.ReadUnSignedshort()
Dim _loc_3 As UInteger = 0
While (_loc_3 < _loc_2)
_loc_10 = param1.ReadShort()
If (_loc_10 < 0) Then
Console.WriteLine("Forbidden value (" + _loc_10 + ") on elements of skins.")
End If
Me.skins.Add(_loc_10)
_loc_3 = _loc_3 + 1
End While
Dim _loc_4 As UShort = param1.ReadUnSignedshort()
Dim _loc_5 As UInteger = 0
While (_loc_5 < _loc_4)
_loc_11 = param1.ReadInt()
Me.indexedColors.Add(_loc_11)
_loc_5 = _loc_5 + 1
End While
Dim _loc_6 As UShort = param1.ReadUnSignedshort()
Dim _loc_7 As UInteger = 0
While (_loc_7 < _loc_6)
_loc_12 = param1.ReadShort()
Me.scales.Add(_loc_12)
_loc_7 = _loc_7 + 1
End While
Dim _loc_8 As UShort = param1.ReadUnSignedshort()
Dim _loc_9 As UInteger = 0
While (_loc_9 < _loc_8)
_loc_13 = New SubEntity()
_loc_13.deserialize(param1)
Me.subentities.Add(_loc_13)
_loc_9 = _loc_9 + 1
End While
Return Me
End Function
End Class
End Namespace