Koxp Oto HP-MP Pot Yapımı

Koxpa Oto HP-MP eklemeyi göstericem.





Gerekenler :

2 Adet Check Box Ekliyoruz.
2 Adet Text Box Ekliyoruz.
2 Adet Combo Box Ekliyoruz.
1 Adet Timer Ekliyoruz.
Yeni bir modül ekliyoruz. Adını Skiller Koyuyoruz. ( Varsa gerek yok)
(New Modül olarak verdiğim genel modülü kullanıcaz. )
Yapılışı :
Check Box Modül Kısmına Aşağıdaki Kodu Yazıyoruz. ( Captionu Oto HP )


PHP- Kodu:

Kod:

Private Sub Check1_Click()

If Check1.Value = 1 Then

UseAutoHeal = 1

Else

UseAutoHeal = 0

End If

End Sub 

Diğer Check Box Kod Kısmına Aşağıdaki Kodu Yazıyoruz. ( Captionuna Oto MP Yazıyoruz. )

Kod:

Private Sub Check2_Click()

If Check2.Value = 1 Then

UseAutoMana = 1

Else

UseAutoMana = 0

End If

End Sub
Text Box Modül Kısmına Aşağıdaki Kodu Yazıyoruz. ( Text1 Kısmı 30 )

Private Sub Text2_Change()

If IsNumeric(Text2.Text) Then

HealPercent = Text2.Text

End If

End Sub

Diğer Text Boxumuza Aşağıdaki Kodu Yazıyoruz. ( Text1 Kısmı 30 )

Kod:

Private Sub Text3_Change()

If IsNumeric(Text3.Text) Then

ManaPercent = Text3.Text

End If

End Sub

Skiller Modül Kısmına Aşağıdaki Kodu Yazıyoruz..

Public Sub skiller()



'Scrollar

Form1.List1.AddItem "%50 Exp Scrol"

Form1.List1.ItemData(Form1.List1.NewIndex) = 610088

Form1.List1.AddItem "%50 NP Scrol"

Form1.List1.ItemData(Form1.List1.NewIndex) = 610089

Form1.List1.AddItem "+1000 HP Scrol"

Form1.List1.ItemData(Form1.List1.NewIndex) = 491078

Form1.List1.AddItem "+200 Defans Scrol"

Form1.List1.ItemData(Form1.List1.NewIndex) = 491081

Form1.List1.AddItem "%10 Atak Scrol"

Form1.List1.ItemData(Form1.List1.NewIndex) = 491075

'HP Potlar

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

Kod:

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