Gerekli olanlar :
1 adet listbox
2 adet check
box(styl:graphical)
2 adet timer
1 adet check box açın caption:
Atack başlat içine şunu yapıştırın :
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
1 tane daha check açın
caption: Manuel Seçim
2 adet timer açın
birinin name'i (caption
deil)=tmrWatak İnterval=1300 Enabled=False
dierinin name'i( Caption deil )
=tmrWrZ İnterval = 50 Enabled=False
tmrWatak timerının
kodu:
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
tmrWrZ Timerının
kodu:
Tuş yolla("z")
SendkeyK DIK_Z
Modüle eklenecek
olanlar:
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
2. Olarak:
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
EN ÖNEMLİ YER YÜKLE BUTONUNA
BUNU YAZIN:
dvrwarior1
BUNU YAZMAZSANIZ SKİL VURMAZ
1 adet listbox
2 adet check
box(styl:graphical)
2 adet timer
1 adet check box açın caption:
Atack başlat içine şunu yapıştırın :
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
1 tane daha check açın
caption: Manuel Seçim
2 adet timer açın
birinin name'i (caption
deil)=tmrWatak İnterval=1300 Enabled=False
dierinin name'i( Caption deil )
=tmrWrZ İnterval = 50 Enabled=False
tmrWatak timerının
kodu:
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
tmrWrZ Timerının
kodu:
Tuş yolla("z")
SendkeyK DIK_Z
Modüle eklenecek
olanlar:
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
2. Olarak:
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
EN ÖNEMLİ YER YÜKLE BUTONUNA
BUNU YAZIN:
dvrwarior1
BUNU YAZMAZSANIZ SKİL VURMAZ