Hello,
i need a little bit help with packets ;)! Windirus helped me to update the files to the newest client csro (1.177) and its working but when i press start i come into the loadingsection but it dont load anything maybe its a wrong packet but i dont know how to parse the right values ...
i need a little bit help with packets ;)! Windirus helped me to update the files to the newest client csro (1.177) and its working but when i press start i come into the loadingsection but it dont load anything maybe its a wrong packet but i dont know how to parse the right values ...
and here is the packet!Quote:
Public Sub GetCharacterInfo(ByVal sender As sr_Game.Client, ByVal sdata As String)
Dim sCharSize As Integer
Dim cname As String
sCharSize = CInt("&H" & Mid(sdata, 3, 2) & Mid(sdata, 1, 2))
cname = cv_StringFromHex(Mid(sdata, 5, sCharSize * 2))
sender.CharName = cname
sender.IsInZerk = 0
fdata = vbNullString
If GetPlayerInfo(sender) = True Then
sender.CharID = GeneratePlayerID()
sender.MovementFlag = 1
fdata = "CBA86AB7"
fdata &= LongToHex8(sender.CharType) '"73070000"
fdata &= ByteFromInteger(sender.Volume) '"44"
fdata &= ByteFromInteger(sender.Lv) '"01"
fdata &= ByteFromInteger(sender.HLv) '"01"
fdata &= LongToHex16(sender.ExpPoint) '"0000000000000000"
fdata &= WordFromInteger(sender.SPbarre) '"9001"
fdata &= "0000"
fdata &= LongToHex16(sender.GOLD) '"0000000000000000"
fdata &= LongToHex8(sender.SPpoint) '"20000000"
fdata &= WordFromInteger(sender.STATPOINT) '"0100"
fdata &= ByteFromInteger(sender.ZERKPOINT) '"03"
fdata &= "00000000"
fdata &= LongToHex8(sender.CurrentHP) '"C8000000"
fdata &= LongToHex8(sender.CurrentMP) '"C8000000"
fdata &= "01"
fdata &= WordFromInteger(sender.DailyPK) '"01"
fdata &= WordFromInteger(sender.PKPenaltyPoint) '"0000"
fdata &= LongToHex8(sender.TotalPK) '"00000000"
fdata &= "00"
fdata &= "00"
fdata &= ByteFromInteger(sender.InventorySize) '"2D"
fdata &= "00" '00 'ByteFromInteger(CountInventoryItems(sender.CharNa me)) '"01"
'No item function?
'fdata &= "01" & "000000008D2D0000000000000000000027000000" '3B0E00000000000000000000002700000000
'fdata &= "0E" & LongToHex8(7102) & "0100"
'Avatar
fdata &= "05"
fdata &= "00" 'ByteFromInteger(CountAvatarItems(sender))
'items enum
fdata &= "00"
'Mastery
GetMasteries(sender)
Dim reqmastery = From mastery In sender.Masteries _
Order By mastery.Mastery_ID Ascending
For Each mastery In reqmastery
fdata &= "01" & LongToHex8(mastery.Mastery_ID) & HexFromByte(mastery.Mastery_Level)
Next
'skills
fdata &= "0200"
fdata &= Skilldata(sender.CharName)
'Quests
fdata &= "0201"
fdata &= "0001000000"
fdata &= "0000"
fdata &= "00000000"
fdata &= LongToHex8(sender.CharID) '"158D4700"
Dim mySectorX, mySectorY As Integer
Dim mySectorXoffset, mySectorYoffset As Single
mySectorX = Math.Floor(sender.XPos / 192 + 135)
mySectorY = Math.Floor(sender.YPos / 192 + 92)
mySectorXoffset = Math.Round(((sender.XPos / 192) - mySectorX + 135) * 192 * 10)
mySectorYoffset = Math.Round(((sender.YPos / 192) - mySectorY + 92) * 192 * 10)
fdata &= HexFromByte(mySectorX) & HexFromByte(mySectorY)
fdata &= GetLongPos(mySectorXoffset)
fdata &= GetLongPos(sender.Zpos)
fdata &= GetLongPos(mySectorYoffset)
sender.MoveToX = sender.XPos
sender.MoveToY = sender.YPos
'angle
fdata &= "3F08"
fdata &= "00"
fdata &= "01" & "00" '01 moving
fdata &= "3F08"
fdata &= "0000"
fdata &= "0000" 'Zerk
'need calcul with items lv etc... :/
sender.WalkSpeed = 16
sender.RunSpeed = 50
sender.ZerkSpeed = 100
fdata &= Inverse(Float2Hex(sender.WalkSpeed)) '"00008041" 'walk speed
fdata &= Inverse(Float2Hex(sender.RunSpeed)) '"00004842" 'run speed
fdata &= Inverse(Float2Hex(sender.ZerkSpeed)) '"0000c842" 'zerk speed
fdata &= "00"
fdata &= WordFromInteger(sender.CharName.Length) 'fdata &= "0500"
fdata &= cv_HexFromString(sender.CharName) 'fdata &= "62336E6330"
''''JOB SECTION''''
fdata &= WordFromInteger(sender.Job_Allias.Length) '"0000" '
fdata &= cv_HexFromString(sender.Job_Allias) '"41"
fdata &= HexFromByte(sender.Job_Type) '"00" '
fdata &= HexFromByte(sender.Job_Level) '"01" '
fdata &= LongToHex8(sender.Job_Exp) '"00000000" '
'''''''''''''''''''
'?
fdata &= "00000000"
fdata &= "00000000"
fdata &= "000000"
fdata &= "FF00" '??
fdata &= "000000"
fdata &= "00000000"
fdata &= "CE"
fdata &= LongToHex8(sender.AccountID) '"A14FEF46"
fdata &= "001C000000000000000000000100010000"
'GM console
'If sender.IsGM > 0 Then
'fdata &= "01"
'Else
'fdata &= "00"
'End If
'must see
'fdata &= "1E07"
'skill barre
'fdata &= ByteFromInteger(CountSkillBarre(sender)) '"00" 'count item on barre
'If CountSkillBarre(sender) > 0 Then
' fdata &= GetSkillbarre(sender)
'End If
'Autopotion len total 14
'fdata &= GetAutoPotion(sender)
'fdata &= "00"
' fdata &= "0100"
' fdata &= "0100"
' fdata &= "00"
' plen = (fdata.Length) / 2
' fdata = WordFromInteger(plen) & "1330" & "0000" & fdata
sender.Send(cv_StringFromHex(fdata))
End If
End Sub
Maybe some vb.net coder can help me a little bit and maybe one of you can give me a link how to use packets or something like that ;)Quote:
[S -> C][0000]
8B 6C 59 1C .lY.............
6C 3A 00 00 l:..............
33 3...............
01 ................
01 ................
00 00 00 00 00 00 00 00 ................
00 00 00 00 ................
00 00 00 00 00 00 00 00 ................
20 4E 00 00 .N..............
00 00 ................
00 ................
00 00 00 00 ................
C8 00 00 00 ................
C8 00 00 00 ................
01 ................
00 00 ................
00 00 ................
00 00 00 00 ................
00 ................
00 ................
2D -...............
0F ................
01 ................
00 00 00 00 ................
8D 2D 00 00 .-..............
00 ................
00 00 00 00 00 00 00 00 ................
27 00 00 00 '...............
00 ................
01 ................
00 ................
02 ................
00 ................
04 ................
00 00 00 00 ................
8E 2D 00 00 .-..............
00 ................
00 00 00 00 00 00 00 00 ................
27 00 00 00 '...............
00 ................
01 ................
00 ................
02 ................
00 ................
05 ................
00 00 00 00 ................
8F 2D 00 00 .-..............
00 ................
00 00 00 00 00 00 00 00 ................
27 00 00 00 '...............
00 ................
01 ................
00 ................
02 ................
00 ................
06 ................
00 00 00 00 ................
B4 2A 00 00 .*..............
00 ................
00 00 00 00 00 00 00 00 ................
2F 00 00 00 /...............
00 ................
01 ................
00 ................
02 ................
00 ................
07 ................
00 00 00 00 ................
AE 2A 00 00 .*..............
FA 00 ................
0D ................
00 00 00 00 ................
42 1D 00 00 B...............
01 00 ................
0E ................
00 00 00 00 ................
43 1D 00 00 C...............
01 00 ................
0F ................
00 00 00 00 ................
8D 28 00 00 .(..............
14 00 ................
10 ................
00 00 00 00 ................
DB 5E 00 00 .^..............
0A 00 ................
11 ................
00 00 00 00 ................
DE 5E 00 00 .^..............
0A 00 ................
12 ................
00 00 00 00 ................
E4 5D 00 00 .]..............
0F 00 ................
13 ................
00 00 00 00 ................
9D 23 00 00 .#..............
05 00 ................
14 ................
00 00 00 00 ................
1C 29 00 00 .)..............
05 00 ................
15 ................
00 00 00 00 ................
9A 23 00 00 .#..............
02 00 ................
16 ................
00 00 00 00 ................
9B 23 00 00 .#..............
03 00 ................
05 ................
00 ................
00 ................
01 ................
01 02 00 00 ................
00 ................
01 ................
02 02 00 00 ................
00 ................
01 ................
03 02 00 00 ................
00 ................
01 ................
04 02 00 00 ................
00 ................
01 ................
05 02 00 00 ................
00 ................
01 ................
06 02 00 00 ................
00 ................
02 ................
00 ................
02 ................
01 00 ................
01 00 00 00 ................
00 ................
00 ................
00 00 00 00 ................
E1 47 07 00 .G..............
4D 69 Mi..............
F3 A2 B4 44 7D 56 9E 42 C2 30 B9 44 86 08 ...D}V.B.0.D....
00 ................
01 ................
00 ................
86 08 ................
00 ................
00 ................
00 ................
00 ................
00 00 80 41 ...A............
00 00 48 42 ..HB............
00 00 C8 42 ...B............
00 ................
06 00 ................
78 4D 61 6E 75 78 xManux..........
00 00 ................
00 ................
01 ................
00 00 00 00 ................
00 00 00 00 ................
00 00 00 00 ................
00 ................
00 ................
00 ................
FF ................
00 00 00 00 00 00 00 00 ................
4D M...............
DB 4B 5D 00 .K].............
00 ................
5C \...............
00 ................
00 ................
00 00 ................
00 00 ................
00 00 ................
00 ................
00 ................
01 00 01 00 ................
00 ................