Vb 6.0 Kendıne Heal Yapma

ReaL · 12 Ocak 2016

1 Text

1 Check

1 Tımer

Check :

Kod:

Private Sub Check9_Click()If Check9.Value = 1 Then

Timer9.Enabled = True

Else

Timer9.Enabled = False

End If

End Sub

Tımer :

Kod:

If KarakterHP < Text5.Text * KarakterMaxHP / 100 ThenHeal

End If

Module :

Kod:

Sub Heal() 'Heal 240 HP'Paket "3102" + AlignDWORD(SınıfBul & 545) + KarakterID + KarakterID + "FB020000B101000000000000"

Paket "3103" + AlignDWORD(SınıfBul & 545) + KarakterID + KarakterID + "FB020000B1010000000000000000"

End Sub

Vb 6.0 Kendıne Heal Yapma

ReaL