Private Sub Check2_Click()
If Check2.Value = 1 Then
minort.Enabled = True
Else
minort.Enabled = False
End If
End Sub

Private Sub minort_Timer()
Dim hp
Dim maxhp
hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
If hp < maxhp Then
'www.extra.yetkin-forum.com - minor
End If
End Sub