ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801381
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: 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...  | |
|
DreamS
Süper Moderator
Mesaj Sayısı : 12
Puanlar : 26130
REP : 5
Kayıt tarihi : 03/02/10
| | Konu: 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 | |
|
muhsinberk
Üye
Mesaj Sayısı : 1
Puanlar : 26060
REP : 0
Kayıt tarihi : 04/02/10
| |
ßy_JesteR
Üye
Mesaj Sayısı : 4
Puanlar : 26080
REP : 0
Kayıt tarihi : 04/02/10
| | Konu: 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 | |
|
ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801381
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
| | Konu: 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...  Ordan bulabilirsiniz... xD | |
|
xXKinGXx
Üye
Mesaj Sayısı : 3
Puanlar : 26060
REP : 0
Kayıt tarihi : 06/02/10
| | Konu: 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 | |
|
ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801381
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
| | Konu: 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
 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 ... | |
|
cityhell
Üye
Mesaj Sayısı : 1
Puanlar : 26035
REP : 0
Kayıt tarihi : 09/02/10
| | Konu: 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 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 | |
|
ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801381
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
| | Konu: 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 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. Bu kadar xD | |
|
AloneCry
Üye
Mesaj Sayısı : 2
Puanlar : 26015
REP : 0
Kayıt tarihi : 14/02/10
| | Konu: 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] | |
|
burak
Moderator
Mesaj Sayısı : 26
Puanlar : 26147
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 28
Nerden : Konya
| | Konu: 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. | |
|
AloneCry
Üye
Mesaj Sayısı : 2
Puanlar : 26015
REP : 0
Kayıt tarihi : 14/02/10
| | Konu: 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 | |
|
By_MEM0
Üye
Mesaj Sayısı : 2
Puanlar : 25995
REP : 0
Kayıt tarihi : 18/02/10
| | Konu: 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. | |
|
burak
Moderator
Mesaj Sayısı : 26
Puanlar : 26147
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 28
Nerden : Konya
| | Konu: 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. | |
|
