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 8 Oto HP,MP

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 8 Oto HP,MP   Çarş. Şub. 03, 2010 3:50 pm

Selamün Aleyküm Arkadaşlar Burada Size Koxp Oto HP Ve MP Yapımı Kodlarını vericem.

Gerekenler :
2 Adet CheckBox
2 Adet TextBox
2 Adet ComboBox
1 Adet Timer
1 Adet Module

Kodları :

Check1 Captonunu Oto HP yapın ve Kod Kısmına Bunu Yazın.
Kod:
If Check1.Value = 1 Then
UseAutoHeal = 1
Else
UseAutoHeal = 0
End If
Check2 Captonunu Oto MP yapın ve Kod Kısmına Bunu Yazın.
Kod:
If Check2.Value = 1 Then
UseAutoMana = 1
Else
UseAutoMana = 0
End If
Text1in Kod Kısmına Aşağıdaki Kodu yazın.
Kod:
If IsNumeric(Text1.Text) Then
HealPercent = Text1.Text
End If
Text2in Kod Kısmına Aşağıdaki Kodu yazın.
Kod:
If IsNumeric(Text2.Text) Then
HealPercent = Text2.Text
End If
Form_Loada Bu Kodları Ekleyin
Kod:
PotID
HealPercent = Text1.Text
ManaPercent = Text2.Text
Timerin Intervali 100 Yapın ve Kod Kısmına bunu yazın.
Kod:
If Combo1.Text = "" Then
Else
If UseAutoHeal = 1 Then
Dim CurrentHP As Long, maxhp As Long, HEALON2 As Single, HEALON As Long
CurrentHP = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
HEALON2 = HealPercent / 100
HEALON = Round(maxhp * HEALON2, 0)
If CurrentHP <= HEALON And CurrentHP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
Skill Combo1.ItemData(Combo1.ListIndex)
End If
End If
End If
End If
If Combo2.Text = "" Then
Else
If UseAutoMana = 1 Then
Dim CurrentMP As Long, MaxMP As Long, ManaON2 As Single, ManaON As Long
CurrentMP = ReadLong(KO_ADR_CHR + KO_OFF_MP)
MaxMP = ReadLong(KO_ADR_CHR + KO_OFF_MAXMP)
ManaON2 = ManaPercent / 100
ManaON = Round(MaxMP * ManaON2, 0)
If CurrentMP <= ManaON And CurrentMP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
Skill Combo2.ItemData(Combo2.ListIndex)
End If
End If
End If
End If
Modüle Bu Kodları Ekleyin
Kod:
Public Sub PotID()
Form1.Combo1.AddItem "45"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490010
Form1.Combo1.AddItem "90"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490011
Form1.Combo1.AddItem "180"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490012
Form1.Combo1.AddItem "360"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490013
Form1.Combo1.AddItem "720"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490014


'mp potlar
Form1.Combo2.AddItem "120"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490016
Form1.Combo2.AddItem "240"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490017
Form1.Combo2.AddItem "480"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490018
Form1.Combo2.AddItem "960"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490019
Form1.Combo2.AddItem "1920"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490020
End Sub


Bu Kadar Koxpumuza oto heal eklemiş olduk.


İstek olursa devam ederim.

ByLetsFeeL
Bi Teşekkür Yeter...
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 8 Oto HP,MP   Perş. Şub. 04, 2010 12:15 pm

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


Mesaj Sayısı : 5
Puanlar : 15860
REP : 0
Kayıt tarihi : 15/02/10

MesajKonu: Geri: ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 8 Oto HP,MP   Ptsi Şub. 15, 2010 5:57 pm

Form1.Combo1.AddItem "45"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490010
Form1.Combo1.AddItem "90"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490011
Form1.Combo1.AddItem "180"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490012
Form1.Combo1.AddItem "360"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490013
Form1.Combo1.AddItem "720"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490014


'mp potlar
Form1.Combo2.AddItem "120"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490016
Form1.Combo2.AddItem "240"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490017
Form1.Combo2.AddItem "480"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490018
Form1.Combo2.AddItem "960"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490019
Form1.Combo2.AddItem "1920"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490020
End Sub

bu kodlarda hata veriyor :S?
Sayfa başına dön Aşağa gitmek
 
ByLetsFeeL - Ayrıntılı Koxp Yapımı - Ders 8 Oto HP,MP
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)

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: