1 Text
1 Check
1 Tımer
Check :
Tımer :
Module :
1 Check
1 Tımer
Check :
Code:
Private Sub Check9_Click()If Check9.Value = 1 Then
Timer9.Enabled = True
Else
Timer9.Enabled = False
End If
End SubTımer :
Code:
If KarakterHP < Text5.Text * KarakterMaxHP / 100 ThenHeal
End IfModule :
Code:
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
