

Superjump:
Dim sj1 As Long
Dim sj2 As Long
Dim sj3 As Single
Call ReadALong("Warrock", &HAddress, sj1)
sj2 = sj1 + &HOffset
Text1.Text = sj3
Call WriteALong("Warrock", sj2, Text1.Text (Or value))
NFD:
Dim nfd1 As Long
Dim nfd2 As Long
Call ReadALong("Warrock", &HAddress, nfd1)
nfd2 = nfd1 + &HOffset
Call WriteALong("Warrock", nfd2, Value)