pbbr (point blank brasil) Alguns códigos para criar trainers (Edição de Armas)

[~PʀѳTѳtypɛ 0]

Códigos

 

Não postarei os COD neste tópico, porque ao colocar no Visual Basic sairá errado.

 

 

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-Recoil

 

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

 

 

Precisão

 

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

 

 

- -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

 

 

Créditos

 

Mr_NiNoO

Mordokloko

HardCheater

HxRedBully

Forcerote

~PʀѳTѳtypɛ - Pelo post

 

 

OBS.: Se esqueci de colocar alguém no tópico me desculpe, avise-me aqui no tópico que editarei.

[leoocara 0]

Pode ensinar como fazer isso como fazer se precisa de timer tal