8'li Ok Paketleri

~~TrophyMaster~~ · 09-08-2010, 02:09

Dim pStr As String
Dim pBytes() As Byte
' 3 lü ok paketleri
pStr ="3101" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000000000000000D00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3102" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0D020600B7019BFF0000F0000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000400000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000400000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000500000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

'5 li ok paketleri
pStr ="3101" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3102" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0D020600B7019BFF0000F0000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001500000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001500000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001600000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001700000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001800000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

09-08-2010, 02:09	#1 (permalink)
~~TrophyMaster~~ Banned Forum Üye No: 38791 Üyelik tarihi: Sep 2010 Mesajlar: 44 Teşekkürler + Puan Verdi: 3 + Puan Aldı: 4 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	8'li Ok Paketleri Dim pStr As String Dim pBytes() As Byte ' 3 lü ok paketleri pStr ="3101" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000000000000000D00" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3102" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0D020600B7019BFF0000F0000F00" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000400000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000400000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "515"), 1, 6) + "00" + CharID + MobID + "0000000000000500000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes '5 li ok paketleri pStr ="3101" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000000000000000000F00" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3102" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0D020600B7019BFF0000F0000F00" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001500000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001500000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001600000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001700000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes pStr ="3103" + Strings.Mid(AlignDWORD(ClassOku & "555"), 1, 6) + "00" + CharID + MobID + "0000000000001800000000000000" ConvHEX2ByteArray pStr, pBytes SendPackets pBytes

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)