Zamanlı Skill Yapımı ( Checkli)

**DieChild** · 09-11-2010, 13:47

Evet Arkadaşlar Bazı Arkadaşlar Tek Tek Bunları Anlatmıcam Sadece 1 ni Anlatcam Gerisini Siz Yapabilceksiniz...

Zamanlı Skill Süreleri ( Yanlış Vermişsem Doğrularını Siz Bulun ™
Rogue
Wolf : 123
Safety : 32
Evade : 32
Lupin Eyes : 32
Slaled Skin : 58
Rogue Hide : 14
Light Feet : 11
Swift : 601
Warior
Sprint : 11
Defans : 16
Gain : 301
Priest
Kitap 2 : 121
Strengh : 601
Blasting : 421

Şimdi 1 Tane Örnek Veriyorum Gerisini Siz Yapın

Gerekenler
1 Tane Check
1 Tane Timer( İnvartel 1000 - Enable False )
1 Tane Label

Check İçine

Alıntı:

If Check1.Value = "1" Then
Wolf
Timer1.Enabled = True
Label1.Caption = "123"
Else
Timer1.Enabled = False
Label1.Caption = "123"
End If

Timer İçine

Alıntı:

Dim wolftime ' Sürekli Basması için
Label1.Caption = Label1.Caption - 1
wolftime = Label1.Caption
If Label1.Caption = 0 Then
Wolf
Label1.Caption = "123"
End If

Modulünüze

Alıntı:

Public Sub Wolf()
Paket "3101" & AlignDWORD(SınıfBul & "030") & KarakterID & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "0000000000001100"
Paket "3103" & AlignDWORD(SınıfBul & "030") & KarakterID & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "000000000000"
End Sub

Örnek Bitti...
Şimdi Modülünüze Ekliyeceğiniz Zamanlı Skill Kodlarını Veriyorum

Hepsini Yukarıdaki Wolf Gibi Yapın
Rogue'den Başlıyalım

Wolf

Alıntı:

Public Sub Wolf()
Paket "3101" & AlignDWORD(SınıfBul & "030") & KarakterID & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "0000000000001100"
Paket "3103" & AlignDWORD(SınıfBul & "030") & KarakterID & "FFFF" & Strings.Mid(AlignDWORD(KarakterX), 1, 4) & "0400" & Strings.Mid(AlignDWORD(KarakterY), 1, 4) & "000000000000"
End Sub

Safety

Alıntı:

Public Sub Safety()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "730"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub

Evade

Alıntı:

Public Sub Evade()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "710"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub

LupinEyes

Alıntı:

Public Sub LupineEyes()
Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "735"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000001400"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "735"), 1, 6) + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"
End Sub

ScaledSkin(Üçlü Defans)

Alıntı:

Public Sub ScaledSkin()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "760"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "760"), 1, 6) + "00" + KarakterID + KarakterID + "4901120003070000000000001100"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "760"), 1, 6) + "00" + KarakterID + KarakterID + "490112000307000000000000"
End Sub

Ezik RogueHide

Alıntı:

Public Sub RogueHide()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "700"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub

LightFeet

Alıntı:

Public Sub LightFeet()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "725"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub

Swift

Alıntı:

Public Sub Swift()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "010"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "F7020400AE01000000000000"
End Sub

Wariorda Sıra
Public Sub Sprint()
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "002"), 1, 6) + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub
Gain

Alıntı:

Public Sub Gain()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "705"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000001400"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub

Defanse

Alıntı:

Public Sub Defense()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "007"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000001400"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub

Priesti Verelim Şimdide
Strenght

Alıntı:

Public Sub Strength()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "004"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub

Blasting

Alıntı:

Public Sub Blasting()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "529"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "000000000000000000000000"
End Sub

Kitap2

Alıntı:

Public Sub Kitap2()
Dim SkillID As String
SkillID = Strings.Mid(AlignDWORD(SınıfBul & "020"), 1, 6)
Paket "3101" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000F00"
Paket "3103" + SkillID + "00" + KarakterID + KarakterID + "0000000000000000000000000000"
End Sub

Evet Bu Verdiklerimide Örnekte Verdiğim Wolf Gibi Yapın Skill Sürelerinide Verdim

Hepsini Elimle Yazdım Alıntı Deildir. Bu Kadar Uğraştık Bir Teşekkür Butonunu Kullanın

Bu Dersin Öğretmeni Tabikide ProFonix

**SpongeBoB** · 10-10-2010, 11:26

Kimse ne teşekkür etmiş nede bişi demiş xD

**DieChild** · 10-18-2010, 09:37

Alıntı:

SpongeBoB´isimli üyeden Alıntı

Kimse ne teşekkür etmiş nede bişi demiş xD

Boş Ver İsteyen Etsin İsteyen Etmesin Ben Maksat Yardım İçin Yaptım Teşekkür'ü Alsak İyi olurdu ama olsun

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

10-10-2010, 11:26	#2 (permalink)
SpongeBoB Usta Oyuncu Forum Üye No: 14054 Üyelik tarihi: Apr 2010 Mesajlar: 28 Teşekkürler + Puan Verdi: 1 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Kimse ne teşekkür etmiş nede bişi demiş xD

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)