[PBDEV] Pointer & Offsets.

Vou postar Pointer & Offsets [PBDEV] Para teste(Estudos)

Em dephi exemplo: PWORD(PDWORD(PBBase+$A7B1B4)^+$250)^:= 10;
A primeira letra que e "A" Coloca "6" Sempre. Se for B,Ou qualquer outra letra Coloca "6"

No-Respawn(Timer)

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B1B4, 0, &H250, &H1F0, &H11C, &H1D0, &H178)
WritePointerInteger("PointBlank", &HA7B1B4, 0, &H250, &H1F0, &H11C, &H1D0, &H179)
WritePointerInteger("PointBlank", &HA7B1B4, 160, &H250, &H1F0, &H11C, &H1D0, &H17A)
WritePointerInteger("PointBlank", &HA7B1B4, 64, &H250, &H1F0, &H11C, &H1D0, &H17B)

No Fall Damage(Timer)

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B490, 14, &H218)
WritePointerInteger("PointBlank", &HA7B490, 172, &H219)
WritePointerInteger("PointBlank", &HA7B490, 4, &H21A)
WritePointerInteger("PointBlank", &HA7B490, 64, &H21B)

Fly Hack(HotKey)

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B490, 10, &H208)

Anti AFK(Timer)

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B4C0, 66, &H11C, &H2F3)
WritePointerInteger("PointBlank", &HA7B4C0, 66, &H11C, &H2F7)

Auto Kill(Timer)

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B4C8, 1, &H6250)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H6247)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H6245)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H6243)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H6241)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H623F)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H623D)
WritePointerInteger("PointBlank", &HA7B4C8, 1, &H623B)

Modo Bazooka(Timer)

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B4C8, 150, &H58ABF)

Peso Maximo(CheckBox)

On Error Resume Next

If CheckBox9.Checked = True Then
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", &HA7B4AC, 67, &H174, h, &H51B)
CheckBoxQueVcColocoEsseCodigo.Enabled = False
Next
End If

Vida Infinita(Timer) Interval = 1

On Error Resume Next

WritePointerInteger("PointBlank", &HA7B494, 1125521279, &H344)
WritePointerInteger("PointBlank", &HA7B494, 1125521279, &H360)