Codigo Wall Name Atualizado

Wall Name CT:
On Error Resume Next
Dim re As Integer
re = 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, re, &H32C)
WritePointerInteger("PointBlank", &HA77C74, re, &H364)
WritePointerInteger("PointBlank", &HA77C74, re, &H39C)
WritePointerInteger("PointBlank", &HA77C74, re, &H3D4)
WritePointerInteger("PointBlank", &HA77C74, re, &H40C)
WritePointerInteger("PointBlank", &HA77C74, re, &H444)
WritePointerInteger("PointBlank", &HA77C74, re, &H47C)
WritePointerInteger("PointBlank", &HA77C74, re, &H4B4)
MsgBox("Para ativar essa função você precisa estar TR.")

Wall Name TR:
On Error Resume Next
Dim re As Integer
re = ReadPointerInteger("PointBlank", &HA77C74, &H32C)
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, re, &H310)
WritePointerInteger("PointBlank", &HA77C74, re, &H348)
WritePointerInteger("PointBlank", &HA77C74, re, &H380)
WritePointerInteger("PointBlank", &HA77C74, re, &H3B8)
WritePointerInteger("PointBlank", &HA77C74, re, &H428)
WritePointerInteger("PointBlank", &HA77C74, re, &H460)
WritePointerInteger("PointBlank", &HA77C74, re, &H4D0)
MsgBox("Para ativar essa função você precisa estar CT.")