player poniter : 137BE20
----------- Swim hack ----------------
made 2 Buttons :
-ON >
Private Sub Command23_Click()
Dim SM1 As Long
Dim SM2 As Long
Call ReadALong("Warrock", &H137BE20, SM1)
SM2 = SM1 + &H276
Call WriteALong("Warrock", SM2, 4)
End Sub
-OFF >
Private Sub Command24_Click()
Dim SM1 As Long
Dim SM2 As Long
Call ReadALong("Warrock", &H137BE20, SM1)
SM2 = SM1 + &H276
Call WriteALong("Warrock", SM2, 2)
End Sub
-----------
give me thankes