Private Sub Check35_Click()
If Check35.Value = 1 Then
Timer25.Enabled = True
Else
Timer25.Enabled = False
End If
End Sub
1 ADET CHECK EKLEYİN...
1 Adette timer ekleyin..
Timer invertal 1 olsun ..
Timer kodları :
Dim hp
Dim maxhp
hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
If hp < maxhp Then
Skill ("500053")
End If
End Sub
If Check35.Value = 1 Then
Timer25.Enabled = True
Else
Timer25.Enabled = False
End If
End Sub
1 ADET CHECK EKLEYİN...
1 Adette timer ekleyin..
Timer invertal 1 olsun ..
Timer kodları :
Dim hp
Dim maxhp
hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
If hp < maxhp Then
Skill ("500053")
End If
End Sub
