Wat the hell am i doing wrong?

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

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:

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

the offset was wrong, its 179 not 180.

Swim:

Code:

Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &H12C8520, SSwim1)
SSwim2 = SSwim1 + &H276
Call WriteAFloat("Warrock", SSwim2, 4)

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.

Originally Posted by K2 Nemico

here are the 2 correct codes:

Superjump:

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

the offset was wrong, its 179 not 180.

Swim:

Code:

Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &H12C8520, SSwim1)
SSwim2 = SSwim1 + &H276
Call WriteAFloat("Warrock", SSwim2, 4)

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.

so you could make it where u r driving in CQC without a vehicle?

Wat the hell am i doing wrong?

Similar Threads

Tags for this Thread