Imports WindowsApplication1.Network.Messages.Connexion
Imports WindowsApplication1.Types.Game.Look
Imports WindowsApplication1.Types.Game.Character
Imports WindowsApplication1.Types.Game.Character.Choice
Imports WindowsApplication1.Types.Game.Character.Characteristic
Imports WindowsApplication1.Types.Game.context.Fight
Imports WindowsApplication1.Network.Types.Game.Data
Imports WindowsApplication1.Types.Game.Data.Items
Imports WindowsApplication1.tifoux.message.Items
Public Class ProtocolTypeManager
Public Shared Function GetInstance(ByVal Id As UInteger)
Dim objectValue As Object = Nothing
Select Case Id
Case 11
objectValue = New Version
Case 377
objectValue = New TrustCertificate
'Case 25
' objectValue = New GameServerInformations
Case 55
objectValue = New EntityLook
Case 54
objectValue = New SubEntity
Case 110
objectValue = New CharacterMinimalInformations
Case 163
objectValue = New CharacterMinimalPlusLookInformations
'Case 193
' objectValue = New CharacterMinimalPlusLookAndGradeInformations
Case 45
objectValue = New CharacterBaseInformations
'Case 212
' objectValue = New CharacterToRecolorInformation
'Case 86
' objectValue = New CharacterHardcoreInformations
'Case 63
' objectValue = New EntityMovementInformations
Case 60
objectValue = New EntityDispositionInformations
'Case 107
' objectValue = New IdentifiedEntityDispositionInformations
'Case 217
' objectValue = New FightEntityDispositionInformations
'Case 365
' objectValue = New BasicGuildInformations
'Case 127
' objectValue = New GuildInformations
Case 204
objectValue = New ActorRestrictionsInformations
Case 201
objectValue = New ActorAlignmentInformations
'Case 183
' objectValue = New PaddockContentInformations
'Case 184
' objectValue = New MountInformationsForPaddock
Case 202
objectValue = New ActorExtendedAlignmentInformations
'Case 135
' objectValue = New AlignmentBonusInformations
'Case 142
' objectValue = New PrismSubAreaInformation
'Case 152
' objectValue = New PrismConquestInformation
'Case 187
' objectValue = New TaxCollectorName
'Case 96
' objectValue = New TaxCollectorBasicInformations
Case 4
objectValue = New CharacterBaseCharacteristic
Case 215
objectValue = New CharacterSpellModification
Case 8
objectValue = New CharacterCharacteristicsInformations
'Case 117
' objectValue = New FightExternalInformations
Case 43
objectValue = New FightCommonInformations
Case 44
objectValue = New FightTeamMemberInformations
'Case 13
' objectValue = New FightTeamMemberCharacterInformations
Case 6
objectValue = New FightTeamMemberMonsterInformations
'Case 177
' objectValue = New FightTeamMemberTaxCollectorInformations
Case 20
objectValue = New FightOptionsInformations
Case 116
objectValue = New AbstractFightTeamInformations
Case 33
objectValue = New FightTeamInformations
'Case 115
' objectValue = New FightTeamLightInformations
'Case 31
' objectValue = New GameFightMinimalStats
'Case 360
' objectValue = New GameFightMinimalStatsPreparation
'Case 41
' objectValue = New FightLoot
'Case 16
' objectValue = New FightResultListEntry
'Case 189
' objectValue = New FightResultFighterListEntry
'Case 191
' objectValue = New FightResultAdditionalData
'Case 192
' objectValue = New FightResultExperienceData
'Case 190
' objectValue = New FightResultPvpData
'Case 24
' objectValue = New FightResultPlayerListEntry
'Case 216
' objectValue = New FightResultMutantListEntry
'Case 84
' objectValue = New FightResultTaxCollectorListEntry
'Case 206
' objectValue = New AbstractFightDispellableEffect
'Case 208
' objectValue = New FightDispellableEffectExtendedInformations
'Case 209
' objectValue = New FightTemporaryBoostEffect
'Case 366
' objectValue = New FightTemporarySpellImmunityEffect
'Case 210
' objectValue = New FightTriggeredEffect
'Case 207
' objectValue = New FightTemporarySpellBoostEffect
'Case 211
' objectValue = New FightTemporaryBoostWeaponDamagesEffect
'Case 214
' objectValue = New FightTemporaryBoostStateEffect
'Case 353
' objectValue = New ActorOrientation
'Case 205
' objectValue = New GameFightSpellCooldown
'Case 364
' objectValue = New GameFightResumeSlaveInfo
Case 7
objectValue = New Item
Case 49
objectValue = New SpellItem
'Case 76
' objectValue = New ObjectEffect
'Case 74
' objectValue = New ObjectEffectString
Case 70
objectValue = New ObjectEffectInteger
'Case 82
' objectValue = New ObjectEffectMinMax
'Case 73
' objectValue = New ObjectEffectDice
'Case 72
' objectValue = New ObjectEffectDate
'Case 75
' objectValue = New ObjectEffectDuration
'Case 71
' objectValue = New ObjectEffectCreature
'Case 81
' objectValue = New ObjectEffectLadder
'Case 179
' objectValue = New ObjectEffectMount
'Case 178
' objectValue = New MountClientData
'Case 356
' objectValue = New UpdateMountBoost
'Case 357
' objectValue = New UpdateMountIntBoost
'Case 168
' objectValue = New ItemDurability
'Case 85
' objectValue = New GameActionMarkedCell
'Case 351
' objectValue = New GameActionMark
'Case 123
' objectValue = New GoldItem
'Case 358
' objectValue = New ObjectEffects
'Case 124
' objectValue = New ObjectItemMinimalInformation
'Case 352
' objectValue = New ObjectItemToSellInNpcShop
'Case 119
' ' objectValue = New ObjectItemQuantity
'Case 134
' objectValue = New ObjectItemNotInContainer
'Case 37
' objectValue = New ObjectItem
'Case 120
' objectValue = New ObjectItemToSell
'Case 359
' objectValue = New ObjectItemToSellInHumanVendorShop
'Case 164
' objectValue = New ObjectItemToSellInBid
'Case 198
' objectValue = New ObjectItemInRolePlay
'Case 197
' objectValue = New ObjectItemWithLookInRolePlay
'Case 199
' objectValue = New OrientedObjectItemWithLookInRolePlay
'Case 185
' objectValue = New PaddockItem
Case 369
objectValue = New Shortcut
'Case 367
' objectValue = New ShortcutObject
'Case 371
' objectValue = New ShortcutObjectItem
'Case 370
' objectValue = New ShortcutObjectPreset
'Case 368
' objectValue = New ShortcutSpell
'Case 121
' objectValue = New SellerBuyerDescriptor
'Case 122
' objectValue = New BidExchangerObjectInfo
'Case 52
' objectValue = New StartupActionAddObject
'Case 363
' objectValue = New Achievement
'Case 362
' objectValue = New AchievementStartedPercent
'Case 361
' objectValue = New AchievementStartedValue
'Case 106
' objectValue = New IgnoredInformations
'Case 105
' objectValue = New IgnoredOnlineInformations
'Case 78
' objectValue = New FriendInformations
'Case 92
' objectValue = New FriendOnlineInformations
'Case 77
' objectValue = New FriendSpouseInformations
'Case 93
' objectValue = New FriendSpouseOnlineInformations
'Case 88
' objectValue = New GuildMember
'Case 87
' objectValue = New GuildEmblem
Case 219
objectValue = New InteractiveElementSkill
'Case 220
' objectValue = New InteractiveElementNamedSkill
Case 80
objectValue = New InteractiveElement
Case 108
objectValue = New StatedElement
Case 200
objectValue = New MapObstacle
'Case 213
' objectValue = New PartyUpdateCommonsInformations
'Case 90
' objectValue = New PartyMemberInformations
'Case 374
' objectValue = New PartyGuestInformations
'Case 376
' objectValue = New PartyInvitationMemberInformations
'Case 378
' objectValue = New PartyMemberGeoPosition
'Case 373
' objectValue = New DungeonPartyFinderPlayer
'Case 97
' objectValue = New JobCrafterDirectorySettings
'Case 194
' objectValue = New JobCrafterDirectoryEntryPlayerInfo
'Case 195
' objectValue = New JobCrafterDirectoryEntryJobInfo
'Case 196
' objectValue = New JobCrafterDirectoryListEntry
'Case 101
' objectValue = New JobDescription
'Case 102
' objectValue = New SkillActionDescription
'Case 103
' objectValue = New SkillActionDescriptionTimed
'Case 99
' objectValue = New SkillActionDescriptionCollect
'Case 100
' objectValue = New SkillActionDescriptionCraft
'Case 104
' objectValue = New SkillActionDescriptionCraftExtended
'Case 98
' objectValue = New JobExperience
Case 111
objectValue = New HouseInformations
'Case 112
' objectValue = New HouseInformationsExtended
'Case 218
' objectValue = New HouseInformationsInside
'Case 170
' objectValue = New HouseInformationsForGuild
'Case 221
' objectValue = New HouseInformationsForSell
'Case 132
' objectValue = New PaddockInformations
'Case 130
' objectValue = New PaddockBuyableInformations
'Case 133
' objectValue = New PaddockAbandonnedInformations
'Case 131
' objectValue = New PaddockPrivateInformations
'Case 222
' objectValue = New PaddockInformationsForSell
Case 150
objectValue = New GameContextActorInformations
Case 141
objectValue = New GameRolePlayActorInformations
Case 157
objectValue = New HumanInformations
Case 153
objectValue = New HumanWithGuildInformations
Case 154
objectValue = New GameRolePlayNamedActorInformations
Case 159
objectValue = New GameRolePlayHumanoidInformations
Case 36
objectValue = New GameRolePlayCharacterInformations
'Case 3
' objectValue = New GameRolePlayMutantInformations
'Case 129
' objectValue = New GameRolePlayMerchantInformations
'Case 146
' objectValue = New GameRolePlayMerchantWithGuildInformations
'Case 180
' objectValue = New GameRolePlayMountInformations
'Case 147
' objectValue = New TaxCollectorStaticInformations
'Case 148
' objectValue = New GameRolePlayTaxCollectorInformations
'Case 167
' objectValue = New TaxCollectorInformations
'Case 372
' objectValue = New TaxCollectorLootInformations
'Case 166
' objectValue = New TaxCollectorInformationsInWaitForHelpState
'Case 186
' objectValue = New ProtectedEntityWaitingForHelpInfo
'Case 169
' objectValue = New TaxCollectorFightersInformation
'Case 165
' objectValue = New AdditionalTaxCollectorInformations
'Case 144
' objectValue = New MonsterInGroupInformations
'Case 140
' objectValue = New GroupMonsterStaticInformations
'Case 160
' objectValue = New GameRolePlayGroupMonsterInformations
'Case 155
' objectValue = New NpcStaticInformations
'Case 156
' objectValue = New GameRolePlayNpcInformations
'Case 161
' objectValue = New GameRolePlayPrismInformations
'Case 143
' objectValue = New GameFightFighterInformations
'Case 158
' objectValue = New GameFightFighterNamedInformations
'Case 46
' objectValue = New GameFightCharacterInformations
'Case 50
' objectValue = New GameFightMutantInformations
'Case 151
' objectValue = New GameFightAIInformations
'Case 29
' objectValue = New GameFightMonsterInformations
'Case 203
' objectValue = New GameFightMonsterWithAlignmentInformations
'Case 48
' objectValue = New GameFightTaxCollectorInformations
'Case 174
' objectValue = New MapCoordinates
'Case 176
' objectValue = New MapCoordinatesExtended
'Case 175
' objectValue = New AtlasPointsInformations
'Case 354
' objectValue = New PresetItem
'Case 355
' objectValue = New Preset
'Case 350
' objectValue = New ContentPart
Case Else
'MsgBox("MsgId: " & Id)
Exit Select
End Select
Return objectValue
End Function
End Class