yakan531
Moderatör
  Mesaj Sayısı : 207
Kayıt tarihi : 16/11/09
Yaş : 28
 |  Konu: (Koxp yapımcıları için) Warior manasız atack yapma buyrun içeri  C.tesi Ara. 05, 2009 7:47 pm | |
| 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 : - Kod:
-
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: - Kod:
-
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: - Kod:
-
Tuş yolla("z")
SendkeyK DIK_Z Modüle eklenecek olanlar: - Kod:
-
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: - Kod:
-
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 eğer yazmassanız skill vurmaz... Checkleri Kendinize Ayarlayın, Alıntıdır.... | |
|
