Nice.
BTW when did spwn have 3 adresses? Isn't it supposed to have only 2?
Some People Have it Some People Dont..Code:No spawn wait: E1FEC8, E1FEC7 4 byte Crosshair: 943A3C 4 byte Unlockking Slots: B4C7DO Value 4 for 5 slot Value 5 for 6 slot 4 byte Scope: 943A16 4 byte Stamina: 7F2B43 Freeze To 11204034556 4 byte Weapon Hack: 8B5288 4C Value 1 to 70 4 byte Super Jump: 8B5288 180 value 500 + Float No Fall Damage: 8B5288 26C value -999.999999 Float Swim: 8B5288 value 4 float or 4 byte(not sure) No Fog: 95EA70 Value 0 for on Value 1176256512 for off 4 byte No Spread / Recoil 943A51-943A52-943A53-943A54-943A55-943A56 Value 0 4 byte
Ill Be Posting XYZ Cordinates Later...Got to find them oOo
Last edited by Jeckels; 09-22-2007 at 10:32 AM.
Nice.
BTW when did spwn have 3 adresses? Isn't it supposed to have only 2?
Unlockking Slots doesn't work :b
it's fake slot lol
Last edited by kingmetaru; 09-22-2007 at 10:16 AM.
no fog is the see through walls addie i can tell you that just by looking at it and no spawn wait addresses are wrong... no spread no recoil goes from 0 - 9
thanks jesse , these will help me wen i make my own trainer.
[img]https://www.danasof*****m/sig/ghghhkjklk.jpg[/img]
drill sargeant: How tall are you boy!?
soldier: umm....urr about 5' 11''
drill sargeant: I didn't know they stacked shit that high!!
Creator of the Annihilation,Freebie and KFP Series.
<MASTER HACKER>
cool, good job
Last edited by urbanflow; 09-22-2007 at 09:00 PM.
my friend cant seeem to get the super jump working
No, ive used the superjump address and working perfectly:
If Check1.value = 1 Then
If GetKeyPress(vbKeyControl) Then // Hotkey
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H8B5288, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
End If // End If
End If // End If
thats How It Should Look in visual basic! / This is if ur using a checkbox
jesse900 have u anti kick and opk codes? i get vb7 hack program
man your superjump is suk thats not the real code
private sub command1_click()
Dim sj As Long
Dim sj2 As Long
Call ReadALong("warrock", &H8B5288, sj)
sj2 = sj + &H180
Call WriteAFloat("warrock", sj2, Text5.Text)
End If
End Sub
this one is good