Superjump code

[matthijs289]

What's wrong with this code?



Dim SJ1 As Long
Dim SJ2 As Long
Dim SJ3 As Long
Call Q41QAV431SQAEV731SQ("warrock", SuperJumpAddy, SJ1)
SJ2 = SJ1 + &H178
Call T35OUV439XJGT35OUV4("warrock", SuperJumpAddy, 1500)

[wr194t]

Correct code:

Dim SJ Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H1373FD8, SJ)
SJ1 = SJ + &H178
SJ2 = 1500
Call WriteAFloat("WarRock", SJ1, SJ2)