Aşağıdaki kodu nasıl C# çevirebelirim Option Explicit Private fData As String Private pLen As Integer Private i As Integer Private x As Integer Public Function SummonGrowthPet Dim PetID As String Dim Walking As String PlayerData . GrowthPet = Pet fData = "0300" fData = fData & "0000" fData = fData & "3645" fData = fData & "204002" For i = 1 To UBound If PlayerData . Ingame = True Then 'frmMain. GameSocket . SendData cv_StringFromHex End If Next i 'spawn Pet fData = "D730" fData = fData & "0000" fData = fData & Inverse(DecToHexLong(CLng PetID = Inverse((DecToHexLong(Int(Rnd 2000000) + 1500000))) PlayerData . GrowthPetID = PetID fData = fData & PetID fData = fData & ByteFromInteger(PlayerData . XSection) 'X sector fData = fData & ByteFromInteger(PlayerData . YSection) 'ySector fData = fData & Inverse(Float2Hex(((PlayerData . XPos - 1.5) - ((PlayerData . XSection) - 135) 192) 10)) 'X fData = fData & "00000000" 'Z fData = fData & Inverse(Float2Hex(((PlayerData . YPos - 1.5) - ((PlayerData . YSection) - 92) 192) 10)) 'Y fData = fData & "DC72" fData = fData & "00" '01 walking fData = fData & "01" If Walking = "01" Then fData = fData & Inverse(ByteFromInteger(PlayerData . XSection)) 'X sector fData = fData & Inverse(ByteFromInteger(PlayerData . YSection)) 'ySector fData = fData & Inverse(WordFromInteger(((PlayerData . XPos) - ((PlayerData . XSection) - 135) 192))) 'X fData = fData & "0000" 'Z fData = fData & Inverse(WordFromInteger(((PlayerData . YPos) - ((PlayerData . YSection) - 92) 192))) 'Y End If fData = fData & "00" fData = fData & "DC72" fData = fData & "0100" fData = fData & "02" 'Berserker fData = fData & "00004842" 'Playerspeed while walking fData = fData & "00009642" 'Playerspeed while running fData = fData & "0000C842" 'Playerspeed while berserk fData = fData & "0000" fData = fData & "0000" 'pet name len 'fData = fData & cv_StringFromHex 'pet name fData = fData & WordFromInteger((Len fData = fData & cv_HexFromString fData = fData & "0000" fData = fData & PlayerData . CharID fData = fData & "01" fData = WordFromInteger(((Len - 8) / 2)) & fData For i = 1 To UBound If PlayerData . Ingame = True Then frmMain. GameSocket . SendData cv_StringFromHex End If Next i 'set pets stats and everthing fData = "5831" fData = fData & "0000" fData = fData & PetID fData = fData & Inverse(DecToHexLong(CLng fData = fData & "6801000068010000000000000000000001102701000000" fData = fData & "0000" 'fData = fData & cv_StringFromHex fData = fData & "00" fData = fData & PlayerData . CharID fData = fData & "20" fData = WordFromInteger(((Len - 8) / 2)) & fData frmMain. GameSocket . SendData cv_StringFromHex 'send current hgp fData = "0700" fData = fData & "0432" fData = fData & "0000" fData = fData & PetID fData = fData & "040F27" 'frmMain. GameSocket . SendData cv_StringFromHex PlayerData . GrowthPetXPos = PlayerData . XPos PlayerData . GrowthPetYPos = PlayerData . YPos End Function Public Function UnsummonPet fData = "0500" fData = fData & "0835" fData = fData & "0000" fData = fData & sData fData = fData & "01" frmMain. GameSocket . SendData cv_StringFromHex fData = "0400" fData = fData & "AB36" fData = fData & "0000" fData = fData & sData For i = 1 To UBound If PlayerData . Ingame = True Then frmMain. GameSocket . SendData cv_StringFromHex End If Next i PlayerData . GrowthPet = 0 PlayerData . GrowthPetID = "" End Function

Hea emulator yazyorumda c#

Silkroad için bunlar elimize çok geçmişti xDD çeviremezsin...