Koxp Rogue Atak Yapımı

Konu: Koxp Rogue Atak Yapımı Perş. Mart 04, 2010 4:55 pm

Selamün Aleyküm Arkadaşlar Burada Size Koxp Rogue Atak Yapımı Kodlarını vericem.

Gerekenler :

1 Adet CheckBox
1 Adet Timer
1 Adet ListBox
1 Adet Modüle ( Adını Skiller Yapın )

Kodları :

Check1 Captonunu Atak Başlat yapın ve Kod Kısmına Bunu Yazın.

Kod:

If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

Timer1 Intervali 1500 yapın Enabled False.
Kod Kısmına Bunları Yazın

Kod:

RogueAtak

List1 Properties Bölümünde Liste Tıklayıp Bunları Ekleyin.

Kod:

Archery
Through Shot
Fire Arrow
Posion Arrow
Multiple Shot
Guided Arrow
Perfect Shot
Fire Shot
Poison Shot
Arc Shot
Explosive Shot
Viper
Shadow Shot
Shadow Hunter
Ice Shot
Lightning shot
Dark Pursuer
Blow Arrow

Module ( SKiller ) Bu Kodu Yazın.

Kod:

Public Sub RogueAtak()
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

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)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
If Form1.List1.ListIndex = 0 Then
Skilid = Class & "003"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 1 Then
Skilid = Class & "500"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 2 Then
Skilid = Class & "505"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 3 Then
Skilid = Class & "510"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 4 Then
Skilid = Class & "515"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 5 Then
Skilid = Class & "520"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 6 Then
Skilid = Class & "525"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 7 Then
Skilid = Class & "530"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 8 Then
Skilid = Class & "535"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 9 Then
Skilid = Class & "540"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 10 Then
Skilid = Class & "545"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 11 Then
Skilid = Class & "550"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 12 Then
Skilid = Class & "557"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 13 Then
Skilid = Class & "560"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 14 Then
Skilid = Class & "562"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 15 Then
Skilid = Class & "566"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 16 Then
Skilid = Class & "570"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 17 Then
Skilid = Class & "575"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
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

İstek olursa devam ederim.

Konu: Geri: Koxp Rogue Atak Yapımı C.tesi Mart 27, 2010 12:07 pm

Kardes Kod kısmı neresi oluyor ya anlamadım

Konu: Geri: Koxp Rogue Atak Yapımı C.tesi Mart 27, 2010 7:39 pm

Kod girceğin şeyin üzerine çift tıklıyorsun. Kod bölümü açılıyor.

Konu: Geri: Koxp Rogue Atak Yapımı Ptsi Mart 29, 2010 7:06 pm

ya bende bi sorun var ne zaman rogue atak vs yapmaya calıscam söle bi hata geliyo:
compile error
Sub or Function not defined dio modulun kod kısmından ReadLongu isaretliyo Question

pff yardım edin yaw ltfn...

Konu: Geri: Koxp Rogue Atak Yapımı Ptsi Mart 29, 2010 7:19 pm

ReadLong modulün yoktur. Very Happy

Konu: Geri: Koxp Rogue Atak Yapımı Salı Mart 30, 2010 6:42 pm

readlong modulunu nerden bulcam veya yapcammı ? bi acıklarsan sevincem nasıl düzeltcemi:(

Konu: Geri: Koxp Rogue Atak Yapımı C.tesi Nis. 03, 2010 9:24 pm

Ben vereyim sana modulü.

İşte bu kodu al yeni modülünde bi yere yapıştır. :

Kod:

Public Function ReadLong(Addr As Long) As Long 'read a 4 byte value
Dim value As Long
ReadProcessMem KO_HANDLE, Addr, value, 4, 0&
ReadLong = value
End Function

» Koxp Oto HP-MP Yapımı
» Koxp Oto Heal Yapımı
» Koxp Oto SND_FNC Yapımı
» Koxp Oto Party Yapımı
» Patronus KoxP (Karşı Irk Atak Çalışıyor)