Warrior Atack Yapımı Manasız Skiller

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

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

09-08-2010, 02:04	#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:	Warrior Atack Yapımı Manasız Skiller 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

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)