Alguem poderia me ajudar com codigos

[Sr Mw3 0]

Ola eu estou aqui para pedir ajuda, pois alguns codigos meus estão infuncionais, e se alguem sabe um metodo de pegar codigos, ou site, ou tenha codigos de warpon hack ou editor pesso que me ajude... me adicione no msn: marcoantonio.b.m@hotmail.com!

se quizer mais contatos olhe na minha assinatura ok.. ficarei muito grato pela ajuda (:

[regis-killer 1]

amigo, se voce procurar direito aki na wc tem os novos

tenta aew

[#EuGeNiO_ 0]

Vou colocar alguns do Visual Basic

 

REPEAT HACKE

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

 

DESEQUIPAR ARMA PRIMARIA

 

WritePointerInteger("PointBlank", &HA72CA8, 0, &H460, &H0)

 

 

PROTEÇÃO UNIVERSAL

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 412 To 667 Step 1

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 255, h)

Next

 

 

No-RECUOL

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF43)

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF4B)

Next

 

 

PRECISAO

 

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA72C8C, 0, &H174, h, &HF5B)

Next

 

 

 

 

ESSE AKI NAO SEI SE AINDA FUNFA MAIS OS DE CIMA TA OK

 

 

 

-Não Testados- -

 

 

Reload Hack: CheckBox

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1140 Step 4

G = Hex(i)

h = "&H" & G

WritePointerInteger("PointBlank", &HA70C8C, 16777215, &H174, h, &HEE3)

Next

 

 

Alcance: CheckBox

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1076 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA70C8C, 77, &H174, h, &H50F)

Next

 

 

Munição Infinita: CheckBox

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1140 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA70C8C, 0, &H174, h, &HEF1)

Next

 

 

Taxa de Disparo: CheckBox

 

Dim i As Integer

Dim h As String

Dim G As String

For i = 132 To 1140 Step 4

G = Hex(i)

h = "&H" & G

WritePointerByte("PointBlank", &HA70C8C, 0, &H174, h, &H507)

Next

[maatheus' 7]

Tópico movido para área correta [~]

[Katifasti 1]

alguem ai pode me passar os novos valores das armas para meu wepon hack !