Priest Manuel & Auto ATack Kodları

sa kendi priestime göre yapmıs oldugum tek client koxpdan priest Atack sistemini paylasıyorum Not : Tarja.dll göre yazılmıstır. farklı projelere görede uyarlıya bilirsiniz ... birden fazla skil secebilirsiniz sırasıyla hepsini vurucaktır paylasım devam edecek ... Not2 : Kodlarda eksik bi yer varsa lütfen söyleyiniz cok uzun oldugu için karıstırabilirim ... k.g Kullananlardan tek istegim Bir Teşekkür ... Gerekenler ... 1 adet list adı list2 olucak listenin içine > Kod: Wrath Wield Harsh Collision Shuddering Ruin Helish Tilt Bloody RavingEdge Hades Judgement stroke 1 adet timer adı timer7 olucak interval = 10 enabled = false içine asagıdakileri ekleyin ... Kod: If MobID = "FFFF" Then Else If MobID2 = "FFFF" Then Exit Sub Wrath Wield Harsh Collision Shuddering Ruin Helish Tilt Bloody RavingEdge Hades Judgement stroke 1 adet check ekleyin adı check12 olucak Kod: If Check12.Value = 1 Then Timer7.Enabled = True Check12.Caption = "Durdur" Else Timer7.Enabled = False Check12.Caption = "Başlat" End If 2 adet option option1.caption = Manuel Atack option2.caption = Auto Atack olucak option1 in içine Kod: Option2.value = false option2 in içine Kod: Option1.value = false modül e ekleyin .... Kod: Function Wrath() If Form1.List2.Selected(0) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "611" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If If Form1.List2.Selected(0) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "611" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If End Function Function Wield() If Form1.List2.Selected(1) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "620" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (900) PacketSend "080101" & MobID & "FF00000000" End If End If End If If Form1.List2.Selected(1) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "620" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "080101" & MobID2 & "FF00000000" Bekle (900) End If End If End If End Function Function Harsh() If Form1.List2.Selected(2) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "641" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (2000) End If End If End If If Form1.List2.Selected(2) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "641" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (2000) End If End If End If End Function Function Collision() If Form1.List2.Selected(3) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "511" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If If Form1.List2.Selected(3) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "511" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If End Function Function Shuddering() If Form1.List2.Selected(4) = True Then If Form1.Option1.Value = True Then If MobID = "FFFF" Then Else SkillSeç = "520" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If If Form1.List2.Selected(4) = True Then If Form1.Option2.Value = True Then If MobID2 <> "FFFF" Then SkillSeç = "520" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If End Function Function Ruin() If Form1.List2.Selected(5) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "542" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (2000) End If End If End If If Form1.List2.Selected(5) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "542" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (2000) End If End If End If End Function Function Helish() If Form1.List2.Selected(6) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "551" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (3000) End If End If End If If Form1.List2.Selected(6) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "551" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (3000) End If End If End If End Function Function Tilt() If Form1.List2.Selected(7) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "712" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If If Form1.List2.Selected(7) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "712" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If End Function Function Bloody() If Form1.List2.Selected(8) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "721" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If If Form1.List2.Selected(8) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "721" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (900) End If End If End If End Function Function RavingEdge() If Form1.List2.Selected(9) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "739" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (2000) End If End If End If If Form1.List2.Selected(9) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "739" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (2000) End If End If End If End Function Function Hades() If Form1.List2.Selected(10) = True Then If Form1.Option1.Value = True Then Dim SkillSeç As String Dim skillID As String If MobID = "FFFF" Then Else SkillSeç = "750" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (3000) End If End If End If If Form1.List2.Selected(10) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "750" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (3000) End If End If End If End Function Function Judgement() If Form1.List2.Selected(11) = True Then If Form1.Option1.Value = True Then If MobID = "FFFF" Then Else SkillSeç = "802" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (1100) End If End If End If If Form1.List2.Selected(11) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "802" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (1100) End If End If End If End Function Function stroke() If Form1.List2.Selected(12) = True Then If Form1.Option1.Value = True Then If MobID = "FFFF" Then Else SkillSeç = "001" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID + "00000D020600B7019BFF0000F0000F00" Bekle (1100) End If End If End If If Form1.List2.Selected(12) = True Then If Form1.Option2.Value = True Then If MobID2 = "FFFF" Then Else SkillSeç = "001" skillID = Strings.Mid(AlignDWORD(CharClass & SkillSeç), 1, 6) PacketSend "3101" + skillID + "00" + CharID + MobID2 + "00000000000000000000000000000D00" PacketSend "3102" + skillID + "00" + "FFFF" + MobID2 + "00000D020600B7019BFF0000F0000F00" PacketSend "3103" + skillID + "00" + CharID + MobID2 + "00000D020600B7019BFF0000F0000F00" Bekle (1100) End If End If End If End Function Kod: Function MobID() As String On Error Resume Next: Cinfo = CharInfo(): MobID = Mid(AlignDWORD(Cinfo.TID), 1, 4) End Function Function MobID2() As String On Error Resume Next: Cinfo = CharInfo(): MobID2 = Mid(AlignDWORD(Cinfo.NEAR), 1, 4) End Function Kod: Public Sub Bekle(seconds As Integer, Optional sn As Boolean = False) On Error Resume Next If sn = True Then dTimer = Second(Time) Do Until dTimer = Second(Time) - seconds Sleep (1) DoEvents Loop Else Dim dTimer2 As Double dTimer2 = Timer Do While Timer < dTimer2 + seconds / 1000 Sleep (1) DoEvents Loop End If End Sub