01.
Dim
h
As
String
02.
Dim
G
As
String
03.
On
Error
Resume
Next
04.
For
Hack = 49
To
63
Step
2
05.
G = Hex(Hack)
06.
h =
"&H"
& G
07.
WritePointerByte(
"Game"
, &Hxxxcccc, Hack, &H2ACA0)
08.
WritePointerByte(
"Game"
, &Hxxxxccc, 1, &H2AC8C)
09.
WritePointerInteger(
"Game"
, &Hxxxxxx, 702001017, &H2AC88)
10.
Next