=Olá Aqui e o ~NeveR + 1 vez mais Agora para Dizer Como Fazer um Weapon Basic Pelo VB (Microsoft Visual basic.)
Código (VB):
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H83C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H994)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HC44)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HEF4)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H11A4)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H1454)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H1704)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H19B4)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H83C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HAEC)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HD9C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H104C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H12FC)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H15AC)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H185C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H1B0C)
WritePointerInteger("PointBlank", &HA72994, 100003033, &H5B8, &H38, &H8)
Eu uso um Modo Mais Facil que é assim!
Const myWeapon As Integer = 100003033 ' Código da Ak Sopmod
Dim i As Integer
For i = 2108 To 6924 Step 344
Dim offset As String = "&H" & Hex(i)
WritePointerInteger("Pointblank", &HA72CA8, myWeapon, offset)
Next
WritePointerInteger("Pointblank", &HA72994, myWeapon, &H5B8, &H38, &H8)
Algum problema? Mande MP para Mim ou Para o Outro Membro da Equipe o ~Fudencio pois nois podemos Ajudar!
~Cheats.Team fazendo com que a Cyber Cheats seja Cada Vez Melhor!
Código (VB):
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H83C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H994)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HC44)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HEF4)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H11A4)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H1454)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H1704)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H19B4)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H83C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HAEC)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &HD9C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H104C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H12FC)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H15AC)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H185C)
WritePointerInteger("PointBlank", &HA72CA8, 100003033, &H1B0C)
WritePointerInteger("PointBlank", &HA72994, 100003033, &H5B8, &H38, &H8)
Eu uso um Modo Mais Facil que é assim!
Const myWeapon As Integer = 100003033 ' Código da Ak Sopmod
Dim i As Integer
For i = 2108 To 6924 Step 344
Dim offset As String = "&H" & Hex(i)
WritePointerInteger("Pointblank", &HA72CA8, myWeapon, offset)
Next
WritePointerInteger("Pointblank", &HA72994, myWeapon, &H5B8, &H38, &H8)
Algum problema? Mande MP para Mim ou Para o Outro Membro da Equipe o ~Fudencio pois nois podemos Ajudar!
~Cheats.Team fazendo com que a Cyber Cheats seja Cada Vez Melhor!
Última edição por R3N4NL0K0 em Sex Nov 30, 2012 2:33 am, editado 1 vez(es) (Motivo da edição : Por Estar Mal Arrumado !!)