For Swim you write 4. As far as I can see its all correct, Does your code compile? Swim,SJ are 4 bytes, so use write a long.
can som1 please post the good code of this:
Private Sub Command21_Click()
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("Warrock", &H12C8520, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("Warrock", SJ1, SJ2)
End Sub
and
Private Sub Command15_Click()
Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &H12C8520, SSwim1)
SSwim2 = SSwim1 + &H276
Call WriteAFloat("Warrock", SSwim2, 1)
End Sub
please i really need help
Gtfo k
For Swim you write 4. As far as I can see its all correct, Does your code compile? Swim,SJ are 4 bytes, so use write a long.
here are the 2 correct codes:
Superjump:
the offset was wrong, its 179 not 180.Code:Dim SJ As Long Dim SJ1 As Long Dim SJ2 As Single Call ReadALong("Warrock", &H12C8520, SJ) SJ1 = SJ + &H179 SJ2 = Text1.Text Call WriteAFloat("Warrock", SJ1, SJ2) End Sub
Swim:
instead of 1 it should be 4 because 0 is walk, 1 is prone, 2 is kneel, 3 is ladder, 4 is swim, and 5 is vehicle.Code:Dim SSwim1 As Long Dim SSwim2 As Long Call ReadALong("Warrock", &H12C8520, SSwim1) SSwim2 = SSwim1 + &H276 Call WriteAFloat("Warrock", SSwim2, 4)