ByLetsFeeL Admin
Mesaj Sayısı : 161 Puanlar : 145801301 REP : 94 Kayıt tarihi : 02/02/10 Nerden : Nereyee...
| Konu: 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... | |
|
DreamS Süper Moderator
Mesaj Sayısı : 12 Puanlar : 26050 REP : 5 Kayıt tarihi : 03/02/10
| Konu: 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 | |
|
seth Üye
Mesaj Sayısı : 5 Puanlar : 25950 REP : 0 Kayıt tarihi : 15/02/10
| Konu: 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? | |
|