1886 koxp,Knight Online,1886 Koxp Download,Güncel 1886 Koxp,1886 koxp indir,1886 koxp TT,Download 1886 Koxp,1887 Koxp,1887 Koxp indir,Koxp  
Maps for minecraft pe redstone maps for minecraft.
























Go Back   1886 koxp,Knight Online,1886 Koxp Download,Güncel 1886 Koxp,1886 koxp indir,1886 koxp TT,Download 1886 Koxp,1887 Koxp,1887 Koxp indir,Koxp > Genel Programlama (Koxp,Multi,vb.)

Genel Programlama (Koxp,Multi,vb.) Koxp,Multi Client,vb Programlama Bölümü ...

Cevapla
 
Paylaş Seçenekler Stil
Alt 07-07-2011, 07:31 PM   #1
KaosKoxp
Administrator
 
KaosKoxp - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2011
Mesajlar: 425

Level: 19 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaşım: 45 / 453
Güç: 141 / 1341
Tecrübe: 15%

Teşekkürleri: 0
26 mesajına 36 kere teşekkür edildi.
KaosKoxp isimli üye Tecrübe puanını kapatmıştır.
KaosKoxp - MSN üzeri Mesaj gönder
Arrow Rogue(Okçu) Atak Yapımı

Gerekenler
1 adet ListBox
2 adet checkBox ,biri atak başlat olucak biride oto düşman seç olucak
2 adet timer

ListBox a tıklayıp sağda özelliklerden list e bunları eklicen

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

List Box
sadece skillerin gözükmesi koyucaksın için boş olucak

Check 1 in içine yapıştırılacaklar
Private Sub Check1_Click()
If Check5.value = 1 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
End Sub

Check 2 in içine yapıştırılacaklar (oto düşman seç)
Private Sub Check2_Click()
If Check6.value = 1 Then
Timer3.Enabled = True
Else
Timer3.Enabled = False
End If
End Sub

Timer 2 nin içine yapıştırıcakların
Private Sub Timer2_Timer()
RogueAtak
End Sub

Timer 3 nin içine yapıştırıcakların
Private Sub Timer3_Timer()
Tuş BAS("z")
KlavyeBas DIK_Z
End Sub

Modüle yapıştıracağın rogue atak için
Public Sub RogueAtak()
Dim SkillSeç As String
Dim SkillID As String
If Form1.List1.Text = "Archery" Then
SkillSeç = "003"
Else: End If
If Form1.List1.Text = "Through Shot" Then
SkillSeç = "500"
Else: End If
If Form1.List1.Text = "Fire Arrow" Then
SkillSeç = "505"
Else: End If
If Form1.List1.Text = "Posion Arrow" Then
SkillSeç = "510"
Else: End If
If Form1.List1.Text = "Guided Arrow" Then
SkillSeç = "520"
Else: End If
If Form1.List1.Text = "Perfect Shot" Then
SkillSeç = "525"
Else: End If
If Form1.List1.Text = "Fire Shot" Then
SkillSeç = "530"
Else: End If
If Form1.List1.Text = "Poison Shot" Then
SkillSeç = "535"
Else: End If
If Form1.List1.Text = "Arc Shot" Then
SkillSeç = "540"
Else: End If
If Form1.List1.Text = "Explosive Shot" Then
SkillSeç = "545"
Else: End If
If Form1.List1.Text = "Viper" Then
SkillSeç = "550"
Else: End If
If Form1.List1.Text = "Shadow Shot" Then
SkillSeç = "557"
Else: End If
If Form1.List1.Text = "Shadow Hunter" Then
SkillSeç = "560"
Else: End If
If Form1.List1.Text = "Ice Shot" Then
SkillSeç = "562"
Else: End If
If Form1.List1.Text = "Lightning Shot" Then
SkillSeç = "566"
Else: End If
If Form1.List1.Text = "Dark Pursuer" Then
SkillSeç = "570"
Else: End If
If Form1.List1.Text = "Blow Arrow" Then
SkillSeç = "575"
Else: End If
If Form1.List1.Text = "Power Shot" Then
SkillSeç = "585"
End If

SkillID = Strings.Mid(AlignDWORD(SınıfBul & SkillSeç), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + DüşmanID + "FB020000B1010000000000000D00"
Paket "3102" + SkillID + "00" + KarakterID + KarakterID + "FB020000B101000000000000"
Paket "3103" + SkillID + "00" + KarakterID + DüşmanID + "FB020000B1010000000000000000"
End Sub
KaosKoxp isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı

Hizli Erisim


Forum Yasal Uyarı
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.
kaoskoxp.net Copyright ©2009-11
Kuruluş : 2009
kaoskoxp.net Her Hakkı Saklıdır

Sitenin tüm hakları saklıdır. Sitemizde yer alan içeriğin kullanımından ötürü oluşabilecek herhangi bir zarardan sitemiz sorumlu tutulamaz. Sitemizden indirdiğiniz dosyalara öncelikle virüs kontrolü yapmanız gerekmektedir. | kaoskoxp.net