#1 Pointers e OFFSETS att 29/12/12 Dom Dez 30, 2012 2:13 pm
- Spoiler:
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", &HA77C8C, 0, &H174, h, &HF43)
WritePointerByte("PointBlank", &HA77C8C, 0, &H174, h, &HF4B)
NextNo reload
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", &H677C8C, 16777215, &H174, h, &HEE3)
NextMuniçã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", &H677C8C, 255, &H174, h, &HEF9)
NextPrecisã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", &HA77C8C, 0, &H174, h, &HF5B)
NextTaxa de disparo
Código (VB):
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", &HA77C8C, 0, &H174, h, &H507)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", &HA77C8C, 255, h)
NextDesequipar arma primária
WritePointerInteger("PointBlank", &HA77CA8, 0, &H460, &H0)
- Head Hunter
Código (VB):
WritePointerByte("PointBlank",&HA77CA8, 38, &H49D8D)Repeat Hacker
Dim Re As Integer
Re = ReadPointerInteger("PointBlank", &HA77CA8, &H45DCC)
Dim R As Integer
R = Re - 5
WritePointerInteger("PointBlank", &HA77CA8, R, &H45DCCWall-name CT
Dim rpi1 As Integer
Dim rp2 As Integer
rp1 = ReadPointerInteger("PointBlank", &HA77C74, &H30F)
rpi2 = ReadPointerInteger("PointBlank", &HA77C74, &H310)
ReadPointerInteger("PointBlank", &HA77C74, &H348)
ReadPointerInteger("PointBlank", &HA77C74, &H380)
ReadPointerInteger("PointBlank", &HA77C74, &H3B8)
ReadPointerInteger("PointBlank", &HA77C74, &H428)
ReadPointerInteger("PointBlank", &HA77C74, &H460)
ReadPointerInteger("PointBlank", &HA77C74, &H4D0)
WritePointerInteger("PointBlank", &HA77C74, rp2, &H32C)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H364)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H39C)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H3D4)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H40C)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H444)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H47C)
WritePointerInteger("PointBlank", &HA77C74, rp1, rp2, &H4B4)Wall-name TR
Dim rpi1 As Integer
Dim rpi2 As Integer
rpi1 = ReadPointerInteger("PointBlank", &HA77C74, &H32C)
rp2 = ReadPointerInteger("PointBlank", &HA77C74, &H364)
ReadPointerInteger("PointBlank", &HA77C74, &H39C)
ReadPointerInteger("PointBlank", &HA77C74, &H3D4)
ReadPointerInteger("PointBlank", &HA77C74, &H40C)
ReadPointerInteger("PointBlank", &HA77C74, &H444)
ReadPointerInteger("PointBlank", &HA77C74, &H47C)
ReadPointerInteger("PointBlank", &HA77C74, &H4B4)
WritePointerInteger("PointBlank", &HA77C74, rpi1, &H310)
WritePointerInteger("PointBlank", &HA77C74, rpi1, rpi2, &H348)
WritePointerInteger("PointBlank", &HA77C74, rpi1, rpi2, &H380)
WritePointerInteger("PointBlank", &HA77C74, rpi1, rpi2, &H3B8)
WritePointerInteger("PointBlank", &HA77C74, rpi1, rpi2, &H428)
WritePointerInteger("PointBlank", &HA77C74, rpi1, rpi2, &H460)
WritePointerInteger("PointBlank", &HA77C74, rpi1, rpi2, &H4D0)Bug Room
WritePointerByte("PointBlank", &HA77CA8, 93, &H45EE3)ínvisivel Weapon
WritePointerByte("PointBlank", &HA77C70, 10, &H214)Stoped Hack
Desativar
WritePointerInteger("PointBlank", &HA77C78, 1, &H21C)
WritePointerInteger("PointBlank", &HA77C78, 1, &H10)Ativar
WritePointerInteger("PointBlank", &HA77C78, 0, &H21C)
WritePointerInteger("PointBlank", &HA77C78, 0, &H10)No Respawn
Desativa
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H178)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H179)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H17A)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H17B)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H17C)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H17D)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H17E)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H17F)
WritePointerInteger("PointBlank", &HA77C80, 0, &H148, &H180)Ativa
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H178)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H179)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H17A)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H17B)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H17C)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H17D)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H17E)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H17F)
WritePointerInteger("PointBlank", &HA77C81000, 1000, &H148, &H180)Homem Bomba
WritePointerInteger("PointBlank", &HA77C8C, 255, &H144)
WritePointerInteger("PointBlank", &HA77C8C, 255, &H148)
WritePointerInteger("PointBlank", &HA77C8C, 255, &H174)
WritePointerInteger("PointBlank", &HA77C8C, 255, &H3E0)
WritePointerInteger("PointBlank", &HA77C8C, 255, &HFFB)Lançamento K-400
WritePointerInteger("PointBlank", &HA71610, 48, &HD58)
WritePointerInteger("PointBlank", &HA71610, 76, &HD58)ou
WritePointerInteger("PointBlank", &HA71610, 48, &HD58)Char Color
If TrackBar1.Value = 0 Then
WritePointerByte("PointBlank", &HA77C80, 10, &H148, &H148, &H144, &H11C, &H243)
WritePointerByte("PointBlank", &HA77994, 10, &H134, &H144, &H148, &H247)
End If
If TrackBar1.Value = 1 Then
WritePointerByte("PointBlank", &HA77C80, 70, &H148, &H148, &H144, &H11C, &H243)
End If
If TrackBar1.Value = 2 Then
WritePointerByte("PointBlank", &HA77C80, 50, &H148, &H148, &H144, &H11C, &H243)
WritePointerByte("PointBlank", &HA77994, 70, &H134, &H144, &H148, &H247)
End If
If TrackBar1.Value = 3 Then
WritePointerByte("PointBlank", &HA77C80, 10, &H148, &H148, &H144, &H11C, &H243)
WritePointerByte("PointBlank", &HA77994, 10, &H134, &H144, &H148, &H247)
WritePointerByte("PointBlank", &HA77994, 70, &H134, &H134, &H11C, &H24B)
End If[/sup]
H4KE
Fellipe012