Liste Şeklinde Okçu Atak Skilleri Yapılışı
Liste Şeklinde Okçu Atak Skilleri Yapılışı
Gerekenler:
1 adet List box
1 adet Timer
1 adet list box açın içine şu kodu yapıştırın :
Kod:
Private Sub List1_DblClick()
If List1.Enabled = True Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
1 tane timer ekleyin enabled = false ve interval = 1350 içine şu kodu yapıştırın :
Kod:
Public Sub skiller()
Form1.List1.AddItem "Archery"
Form1.List1.ItemData(Form1.List1.NewIndex) = 3
Form1.List1.AddItem "Through Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 500
Form1.List1.AddItem "Fire Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 505
Form1.List1.AddItem "Posion Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 510
Form1.List1.AddItem "Multiple Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 515
Form1.List1.AddItem "Guided Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 520
Form1.List1.AddItem "Perfect Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 525
Form1.List1.AddItem "Fire Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 530
Form1.List1.AddItem "Poison Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 535
Form1.List1.AddItem "Arc Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 540
Form1.List1.AddItem "Explosive Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 545
Form1.List1.AddItem "Viper"
Form1.List1.ItemData(Form1.List1.NewIndex) = 550
Form1.List1.AddItem "Arrow Shower"
Form1.List1.ItemData(Form1.List1.NewIndex) = 555
Form1.List1.AddItem "Shadow Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 557
Form1.List1.AddItem "Shadow Hunter"
Form1.List1.ItemData(Form1.List1.NewIndex) = 560
Form1.List1.AddItem "İce Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 562
Form1.List1.AddItem "Lighting Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 566
Form1.List1.AddItem "Dark Pursuer"
Form1.List1.ItemData(Form1.List1.NewIndex) = 570
Form1.List1.AddItem "Blow Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 575
Form1.List1.AddItem "Blinding Strafe"
Form1.List1.ItemData(Form1.List1.NewIndex) = 580
Form1.List1.AddItem "Power Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 585
End Sub
Forumun Loadınada şunu yazın :
skiller
DipNot :
Listbox,timer ve modüldeki list form numaralarını kendinize göre ayarlamayı sakın unutmayın
1 adet List box
1 adet Timer
1 adet list box açın içine şu kodu yapıştırın :
Kod:
Private Sub List1_DblClick()
If List1.Enabled = True Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
1 tane timer ekleyin enabled = false ve interval = 1350 içine şu kodu yapıştırın :
Kod:
Public Sub skiller()
Form1.List1.AddItem "Archery"
Form1.List1.ItemData(Form1.List1.NewIndex) = 3
Form1.List1.AddItem "Through Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 500
Form1.List1.AddItem "Fire Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 505
Form1.List1.AddItem "Posion Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 510
Form1.List1.AddItem "Multiple Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 515
Form1.List1.AddItem "Guided Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 520
Form1.List1.AddItem "Perfect Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 525
Form1.List1.AddItem "Fire Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 530
Form1.List1.AddItem "Poison Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 535
Form1.List1.AddItem "Arc Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 540
Form1.List1.AddItem "Explosive Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 545
Form1.List1.AddItem "Viper"
Form1.List1.ItemData(Form1.List1.NewIndex) = 550
Form1.List1.AddItem "Arrow Shower"
Form1.List1.ItemData(Form1.List1.NewIndex) = 555
Form1.List1.AddItem "Shadow Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 557
Form1.List1.AddItem "Shadow Hunter"
Form1.List1.ItemData(Form1.List1.NewIndex) = 560
Form1.List1.AddItem "İce Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 562
Form1.List1.AddItem "Lighting Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 566
Form1.List1.AddItem "Dark Pursuer"
Form1.List1.ItemData(Form1.List1.NewIndex) = 570
Form1.List1.AddItem "Blow Arrow"
Form1.List1.ItemData(Form1.List1.NewIndex) = 575
Form1.List1.AddItem "Blinding Strafe"
Form1.List1.ItemData(Form1.List1.NewIndex) = 580
Form1.List1.AddItem "Power Shot"
Form1.List1.ItemData(Form1.List1.NewIndex) = 585
End Sub
Forumun Loadınada şunu yazın :
skiller
DipNot :
Listbox,timer ve modüldeki list form numaralarını kendinize göre ayarlamayı sakın unutmayın