beyler bu gün size yeni atak paketine uyarlı rogue tak yapcaz
Gerekenler:
2 adet checkbox atak başlat ve oto mob
2 adet timer
1 adet listbox
1 adet de modül (Modül adı skiller olsun)

Atak bşalat için gerekli kodlar
Kod:
Private Sub Check1_Click()
If Check1.value = 1 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
End Sub


Oto Düşman için gerekli KOdlar
Kod:
Private Sub Check2_Click()
If Check2.value = 1 Then
Timer3.Enabled = True
Else
Timer3.Enabled = False
End If
End Sub


atak başlat için ayarladığınız timeriçin (timerin İnvertali 1400 enabled false )
Kod:
Private Sub Timer2_Timer()
RogueAtak
End Sub


OTo mod için ayarladığn timer kodu(timerin İnvertali 100 olsun enabled false)
Kod:
Private Sub Timer3_Timer()
Tuş BAS("z")
KlavyeBas DIK_Z
End Sub

modül için gerekli Kodlar:
Kod:
Public Sub RogueAtak()
Dim SkillSeç As String
Dim SkillID As String
If Form1.List1.Text = "Archery" Then
SkillSeç = "003"
Else: End If
If Form1.List1.Text = "Through Shot" Then
SkillSeç = "500"
Else: End If
If Form1.List1.Text = "Fire Arrow" Then
SkillSeç = "505"
Else: End If
If Form1.List1.Text = "Posion Arrow" Then
SkillSeç = "510"
Else: End If
If Form1.List1.Text = "Guided Arrow" Then
SkillSeç = "520"
Else: End If
If Form1.List1.Text = "Perfect Shot" Then
SkillSeç = "525"
Else: End If
If Form1.List1.Text = "Fire Shot" Then
SkillSeç = "530"
Else: End If
If Form1.List1.Text = "Poison Shot" Then
SkillSeç = "535"
Else: End If
If Form1.List1.Text = "Arc Shot" Then
SkillSeç = "540"
Else: End If
If Form1.List1.Text = "Explosive Shot" Then
SkillSeç = "545"
Else: End If
If Form1.List1.Text = "Viper" Then
SkillSeç = "550"
Else: End If
If Form1.List1.Text = "Shadow Shot" Then
SkillSeç = "557"
Else: End If
If Form1.List1.Text = "Shadow Hunter" Then
SkillSeç = "560"
Else: End If
If Form1.List1.Text = "Ice Shot" Then
SkillSeç = "562"
Else: End If
If Form1.List1.Text = "Lightning Shot" Then
SkillSeç = "566"
Else: End If
If Form1.List1.Text = "Dark Pursuer" Then
SkillSeç = "570"
Else: End If
If Form1.List1.Text = "Blow Arrow" Then
SkillSeç = "575"
Else: End If
If Form1.List1.Text = "Power Shot" Then
SkillSeç = "585"
End If

SkillID = Strings.Mid(AlignDWORD(SınıfBul & SkillSeç), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + DüşmanID + "FB020000B1010000000000000D00"
Paket "3102" + SkillID + "00" + KarakterID + KarakterID + "FB020000B101000000000000"
Paket "3103" + SkillID + "00" + KarakterID + DüşmanID + "FB020000B1010000000000000000"
End Sub

işte budur rogue atak hazırdır

Timer3_Timer DEğil Timer1_Timer

Oto Düşman için gerekli KOdlar
Kod:
Private Sub Check2_Click()
If Check2.value = 1 Then
Timer3.Enabled = True
Else
Timer3.Enabled = False
End If
End Sub

Bunlarda