1w2w3w4w5w (11-10-2007)
whats wrong with it?
Code:Private Sub Timer10_Timer() If GetAsyncKeyState(119) <> 0 Then Dim jump1 As Long Dim jump2 As Single Call ReadALong("WarRock", &H896E28, jump1) jump1 = jump + &H180 jump2 = Text2 Call WriteAFloat("WarRock", jump1, jump2) End If End Sub
1w2w3w4w5w (11-10-2007)
wat u mean? what happens when u use the cheat in a trainer?
nothing -.-
i ll press F8 and nothing happens.. my other hacks work in same trainer..
[my no fall dmg wont work too... but first superjump ^^]
this one wont even compile
there's no such thing like writeafloat :/ float in vb is single, but writeasingle wont work either
and it shouldnt be
butCode:Call ReadALong("WarRock", &H896E28, jump1) jump1 = jump + &H180
becouse in this what u wrote jump1 variable (which was used for pointer) was being replaced right after reading it by the jump1 = jump + &H180 part.Code:Call ReadALong("WarRock", &H896E28, jump) jump1 = jump + &H180
what...? there is no problem with WriteAFloat but it wont work..
man the problem is in WriteAFloat couse there is no such function! and it should be
jump2 = Text2.Text not just text2
it wont compile with writeafloat - it will pop u out an compile error
so here is proper code (except for the WriteAFloat) rewritten:
Code:Private Sub Timer10_Timer() If GetAsyncKeyState(119) <> 0 Then Dim jump1 As Long Dim jump2 As Single Call ReadALong("WarRock", &H896E28, jump1) jump2 = jump1 + &H180 jumpvalue = Text2.Text Call WriteAFloat("WarRock", jump2, jumpvalue) End If End Sub
no, there isnt an error xD:. but i will try out with text2.text..
i edit post after i tried ^^
EDIT: cant log in.. and with your rewritten code i get an error ..
Last edited by kingkicker8; 06-22-2007 at 09:06 PM.
and how can i make superjump? X_x
lol?? i read tuts.. and i got address.. and my code wont work...........
what to do -.-
but i like to know: HOW ^^
i like to learn it .. but thx for offer
if u like to help me with it, i ll be thankfull :P