Ok, here is the old working code to get weapons(shotgun as an example).
Code:
Dim shotgun As Long 'sets "shotgun" as a variable
Dim shotgun1 As Long 'sets "shotgun1" as a variable
Call ReadAlong ("WarRock" &H4ADCA8, shotgun) 'tells the function "ReadALong" to read the address &H4ADCA8 and make the variable "shotgun" have the value of the address
shotgun1 = shotgun + &H4C 'give "shotgun1" the value of "shotgun" + the hex of 4C
Call WriteALong ("WarRock", shotgun1, 34) 'Tell the function of WriteALong to give the address of "shotgun1" the value of 34(code for shotgun)
I have made my comments in Blue and as always, yes, I wrote this from memory again. Name a hack and I'll write it from memory(minus the new addresses and this problem I'm having this problem I do now).
As I have stated in other posts and PM's I believe the problem is in the part where it adds 4C to the address in hex. I know people have solved it in cheat engines. I would also use a cheat engine but I cannot get Delphi to work so I can't make my own...
Besides VB is better!
Could anyone help me figure this one out?