Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı

Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145791211
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Çarş. Şub. 03, 2010 3:19 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.

ByLetsFeeL
Bi Teşekkür Yeter...
cheers cheers cheers cheers
Sayfa başına dön Aşağa gitmek
http://koxpworld.yetkin-forum.com
DreamS
Süper Moderator
Süper Moderator


Mesaj Sayısı : 12
Puanlar : 15960
REP : 5
Kayıt tarihi : 03/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Perş. Şub. 04, 2010 12:16 pm

PayLasım İcin TesSekürler
Sayfa başına dön Aşağa gitmek
muhsinberk
Üye
Üye


Mesaj Sayısı : 1
Puanlar : 15890
REP : 0
Kayıt tarihi : 04/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Cuma Şub. 05, 2010 9:28 am

ya bu modüle ney acaba bulamadımda SmileSmile
Sayfa başına dön Aşağa gitmek
ßy_JesteR
Üye
Üye


Mesaj Sayısı : 4
Puanlar : 15910
REP : 0
Kayıt tarihi : 04/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Cuma Şub. 05, 2010 10:39 am

süper olmuş bn yaptım ama z yapmıo mob seçmio mob seçi ayrı bir butona eklemem için napmam lasım
Sayfa başına dön Aşağa gitmek
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145791211
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Cuma Şub. 05, 2010 12:59 pm

Mod Secmek için yeni konu acacam... Very Happy
Ordan bulabilirsiniz...

xD
Sayfa başına dön Aşağa gitmek
http://koxpworld.yetkin-forum.com
xXKinGXx
Üye
Üye


Mesaj Sayısı : 3
Puanlar : 15890
REP : 0
Kayıt tarihi : 06/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   C.tesi Şub. 06, 2010 3:08 pm

teşekürler ellerine saglık
Sayfa başına dön Aşağa gitmek
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145791211
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   C.tesi Şub. 06, 2010 6:26 pm

muhsinberk demiş ki:
ya bu modüle ney acaba bulamadımda SmileSmile

Sağ tarafta properties bölümünde Project1 yazan bir yer var. Oradan project1 in üzerine gel ve sağ tıkla . Add a tıkla ve yanda açılan pencereden Module yi seç.
Bu kadar basit.
Sonra karşına boş beyaz bir sayfa gelecek.Module orası işte. Arka plandaki kodları oraya yazacaksın.

Komut tanıtımlarınıda oraya yazacaksın ... Very Happy
Sayfa başına dön Aşağa gitmek
http://koxpworld.yetkin-forum.com
cityhell
Üye
Üye


Mesaj Sayısı : 1
Puanlar : 15865
REP : 0
Kayıt tarihi : 09/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Çarş. Şub. 10, 2010 2:56 pm

Hepsini Yaptım ama su Liste sunu eklemeyı bulamadım :S yardım eT Very Happy Pls
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
Sayfa başına dön Aşağa gitmek
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145791211
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Perş. Şub. 11, 2010 3:46 pm

cityhell demiş ki:
Hepsini Yaptım ama su Liste sunu eklemeyı bulamadım :S yardım eT Very Happy Pls
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

Sağ tarafta properties bölümü var biliyosunudr. Ordan list die bi bölüm var. Oraya tıklıcaksın karşına boş bir liste gelecek. Oraya Bu kodları yapıştır. Sağ tıkla yapıştır de veya ctrl+v ye bas. Very Happy
Bu kadar xD
Sayfa başına dön Aşağa gitmek
http://koxpworld.yetkin-forum.com
AloneCry
Üye
Üye


Mesaj Sayısı : 2
Puanlar : 15845
REP : 0
Kayıt tarihi : 14/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Salı Şub. 16, 2010 9:15 am

Check1 Butonuna Verdiginiz Kodları Kopyala Yapıstır Diorm Exe Haline Getiricekken Check1 Kısmı İşaretLenip
Compile Error
InvaiLd Outside Procedure
Hatası Alıorm 3 Kere Denedm Tam VeriLenLeri UyguLadım Ama Aynı Hatayı Gine Aldm[b]
Sayfa başına dön Aşağa gitmek
burak
Moderator
Moderator
avatar

Mesaj Sayısı : 26
Puanlar : 15977
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 22
Nerden : Konya

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Salı Şub. 16, 2010 5:12 pm

AloneCry demiş ki:
Check1 Butonuna Verdiginiz Kodları Kopyala Yapıstır Diorm Exe Haline Getiricekken Check1 Kısmı İşaretLenip
Compile Error
InvaiLd Outside Procedure
Hatası Alıorm 3 Kere Denedm Tam VeriLenLeri UyguLadım Ama Aynı Hatayı Gine Aldm[b]

Bildiğim akdarıyla söyliyim. Kardeş sen o zaman Atak Başlat butonunun Properties bölümünde Value: kısmına Checked ise unchecked yap.
Sayfa başına dön Aşağa gitmek
http://www.forumkat.com
AloneCry
Üye
Üye


Mesaj Sayısı : 2
Puanlar : 15845
REP : 0
Kayıt tarihi : 14/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Çarş. Şub. 17, 2010 12:38 am

[b]Sorunum Hallolmadı Kardes Aynı Hata
Sayfa başına dön Aşağa gitmek
By_MEM0
Üye
Üye


Mesaj Sayısı : 2
Puanlar : 15825
REP : 0
Kayıt tarihi : 18/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Cuma Şub. 19, 2010 12:41 pm

Bende herşeyi yapmama rağmen make project kısmında hata alıyorum compile eror sub or function not defined bunu nasıl çözerim.
Sayfa başına dön Aşağa gitmek
burak
Moderator
Moderator
avatar

Mesaj Sayısı : 26
Puanlar : 15977
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 22
Nerden : Konya

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı   Cuma Şub. 19, 2010 6:17 pm

Arkadaşlar yapamayanların galiba offsetleri filan eksik ben size proje veriyorum ve videolu anlatım yaptım.
Bu Proje:

[Linkleri görebilmek için üye olun veya giriş yapın.]

RAR PASS: [Linkleri görebilmek için üye olun veya giriş yapın.]

Bu Video:

[Linkleri görebilmek için üye olun veya giriş yapın.]

TAMAMEN KENDİ ANLATIMIM

Projenin içinde Skiller Module si yok onu kendiniz burdaki kod ile koyarsınız.
Sayfa başına dön Aşağa gitmek
http://www.forumkat.com
 
ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 4 - Rogue Atak Yapımı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Kart satarken bug yapılıomu ????
» Anime çizimm ders 1 anime göz çizim (kadın gözleri)
» 00000000'dan Rogue Taktikleri Asasıan Playerlerine Özel

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: Anlatımlar-
Buraya geçin: