Warrior Attack yapımı l Manasız skiller

Private Sub Check9_Click()
If Check9.value = 1 Then
Check10.value = 0 ' bu Manuel Seçimin Checki
tmrWrZ.Enabled = True
tmrWatak.Enabled = True
Check9.Caption = "Atack Durdur"
Else
Check9.Caption = "Atack Başlat"
tmrWrZ.Enabled = False
tmrWatak.Enabled = False
End If
End Sub


Private Sub tmrWatak_Timer()
Dim ListedenItemOku
Dim WR As Long
ListedenItemOku = List2.Text
Select Case ListedenItemOku
Case "Hash"
SkillWR ("500")
Case "Hoodwink"
SkillWR ("505")
Case "Shear"
SkillWR ("510")
Case "Pierce"
SkillWR ("515")
Case "Leg Cutting"
SkillWR ("520")
Case "Carving"
SkillWR ("525")
Case "Sever"
SkillWR ("530")
Case "Prick"
SkillWR ("535")
Case "Multiple Shock"
SkillWR ("540")
Case "Cleave"
SkillWR ("545")
Case "Mangling"
SkillWR ("550")
Case "Thrust"
SkillWR ("555")
Case "Sword Aura"
SkillWR ("557")
Case "Sword Dancing"
SkillWR ("560")
Case "Howling Sword"
SkillWR ("570")
Case "Blooding"
SkillWR ("575")
Case "Hell Blade"
SkillWR ("580")
End Select
End Sub


Tuş yolla("z")
SendkeyK DIK_Z


Public Sub dvrwarior1()
Form1.List2.AddItem ("Hash")
Form1.List2.AddItem ("Hoodwink")
Form1.List2.AddItem ("Shear")
Form1.List2.AddItem ("Pierce")
Form1.List2.AddItem ("Leg Cutting")
Form1.List2.AddItem ("Carving")
Form1.List2.AddItem ("Sever")
Form1.List2.AddItem ("Prick")
Form1.List2.AddItem ("Multiple Shock")
Form1.List2.AddItem ("Cleave")
Form1.List2.AddItem ("Mangling")
Form1.List2.AddItem ("Thrust")
Form1.List2.AddItem ("Sword Aura")
Form1.List2.AddItem ("Sword Dancing")
Form1.List2.AddItem ("Howling Sword")
Form1.List2.AddItem ("Blooding")
Form1.List2.AddItem ("Hell Blade")
End Sub


Public Sub SkillWR(WR As Long)
On Error Resume Next
Dim pStr As String
Dim pBytes() As Byte
Dim skillid As String
Dim AttackID1 As String
Dim AttackID2 As String
Dim AttackID3 As String
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String
Dim attackskill As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
attackid = Class & WR
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)
id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)
MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)
attackskill = Hex(attackid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 +
ID2 + MobXID1 + MobXID2 + "0000000000000000000000000D00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 +
ID2 + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub

dvrwarior1

eğer yazmassanız skill vurmaz...

CHECK,LİST NUMARALARINI KENDİNİZE GÖRE AYARLAMAYI UNUTMAYIN...