Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H01279280, NFD)
NFD1 = NFD + &H264
Call WriteAFloat("Warrock", NFD1, -999)

)Timer1.Enabled = True
Timer1.Enabled = False
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H01279280, NFD)
NFD1 = NFD + &H264
Call WriteAFloat("Warrock", NFD1, 0)

