- Joined
- Mar 8, 2012
- Messages
- 22,070
- Reaction score
- 273
- Points
- 83
- Age
- 36
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
