- Katılım
- 8 Mart 2012
- Mesajlar
- 22,070
1 Text
1 Check
1 Tımer
Check :
Tımer :
Module :
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 SubTımer :
Kod:
If KarakterHP < Text5.Text * KarakterMaxHP / 100 ThenHeal
End IfModule :
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