#1 Pointers Prontas Para VB.NET Seg Mar 11, 2013 10:32 pm
Eaew Galera Vim Trazer Pointers e Offsets ATT Vamos La!!!
Câmera Livre ON
WritePointerByte("PointBlank", &HAB64E8, 255, &H4CB80)
Câmera Livre OFF
WritePointerByte("PointBlank", &HAB64E8, 0, &H4CB80)
_______________________________________________
Dino Spam
WritePointerInteger("PointBlank", &HAB64E8, 1, &H248, &HD4)
WritePointerInteger("PointBlank", &HAB64E8, 1, &H248, &HD4)
WritePointerInteger("PointBlank", &HAB64E8, 1, &H248, &HD4)
_______________________________________________
Fly Hack
WritePointerByte("PointBlank", &HAB64B0, 10, &H208)
_______________________________________________
Freeze Respawn
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H180)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H181)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H182)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H183)
_______________________________________________
Granada ON
WritePointerByte("PointBlank",&HAB64E8 , 78, &H4CB58)
_______________________________________________
Hack De Convite
WritePointerInteger("PointBlank", &HAB9458, 1, &H6D0, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H6E0, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H6F0, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H700, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H710, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H720, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H730, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H740, &H4CC)
________________________________________________
Host Aleatory
WritePointerInteger("PointBlank", &HAB64E8, 3, &H4CEC)
WritePointerInteger("PointBlank", &HAB64E8, 1, &H4CF0)
________________________________________________
Macro Hax
WritePointerString("PointBlank", &HAB992C, TextBox1.Text, &H3F6)
________________________________________________
Nick Clã
WritePointerString("PointBlank", &HAB6488 ,TextBox4.text ,&H324)
________________________________________________
Nick Hack
WritePointerString("PointBlank", &HAB64E8, TextBox1.Text, &H48CC)
________________________________________________
No Fall Damage
WritePointerByte("PointBlank", &HAB64B0, 14, &H218)
WritePointerByte("PointBlank", &HAB64B0, 172, &H219)
WritePointerByte("PointBlank", &HAB64B0, 4, &H21A)
WritePointerByte("PointBlank", &HAB64B0, 64, &H21B)
________________________________________________
No Respawn
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H180)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H181)
WritePointerInteger("PointBlank", &HAB64C0, 160, &H148, &H182)
WritePointerInteger("PointBlank", &HAB64C0, 64, &H148, &H183)
________________________________________________
Password Lock
WritePointerString("PointBlank", &HAB64E8, TextBox2.Text, &H4CB83)
________________________________________________
Tean Kill
WritePointerByte("PointBlank", &H006B64B4 ,40 , &H321)
________________________________________________
Top Label
WriteString("PointBlank", &HAA2470, TextBox4.Text)
________________________________________________
Travar Tempo
WritePointerByte("PointBlank", &HAB64E8, 40, &H4CB53)
Destravar Tempo
WritePointerByte("PointBlank", &HAB64E8, 0, &H4CB53)
________________________________________________
Fechar PointBlank
Dim Processos As Process() = Process.GetProcessesByName("PointBlank")
For Each Processo As Process In Processos
Processo.Kill()
Next
________________________________________________
Missão Hack
IMissão Total
WritePointerInteger("PointBlank", &HAB6E90, 2, &HD64)
Missão Sobreviventes²
WritePointerInteger("PointBlank", &HAB6E90, 3, &HD64)
Missão Dinossauro²
WritePointerInteger("PointBlank", &HAB6E90, 12, &HD64)
________________________________________________
Patente Hack
If (Me.ComboBox1.Text = "Novato") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 0, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Recruta") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 1, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Soldado") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 2, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Cabo") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 3, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Sargento") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 4, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Terceiro-Sargento 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 5, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Terceiro-Sargento 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 6, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Terceiro-Sargento 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 7, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 8, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 9, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 10, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 11, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 12, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 13, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 14, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 15, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H10, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H11, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H12, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H13, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 20, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H15, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H16, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H17, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H18, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H19, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1A, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1B, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1C, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1D, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 30, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1F, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H20, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H21, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H22, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H23, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H24, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H25, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H26, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H27, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 40, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H29, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2A, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2B, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2C, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2D, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "General de Brigada") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2E, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "General de Divisao") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2F, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "General de Exercito") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H30, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Marechal") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H31, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Heroi de Guerra") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 50, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Heroi de Guerra(Modificado)") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H33, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Bomba Patente") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H34, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "GM") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H35, New Integer() {&H461D})
End If
Câmera Livre ON
WritePointerByte("PointBlank", &HAB64E8, 255, &H4CB80)
Câmera Livre OFF
WritePointerByte("PointBlank", &HAB64E8, 0, &H4CB80)
_______________________________________________
Dino Spam
WritePointerInteger("PointBlank", &HAB64E8, 1, &H248, &HD4)
WritePointerInteger("PointBlank", &HAB64E8, 1, &H248, &HD4)
WritePointerInteger("PointBlank", &HAB64E8, 1, &H248, &HD4)
_______________________________________________
Fly Hack
WritePointerByte("PointBlank", &HAB64B0, 10, &H208)
_______________________________________________
Freeze Respawn
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H180)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H181)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H182)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H183)
_______________________________________________
Granada ON
WritePointerByte("PointBlank",&HAB64E8 , 78, &H4CB58)
_______________________________________________
Hack De Convite
WritePointerInteger("PointBlank", &HAB9458, 1, &H6D0, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H6E0, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H6F0, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H700, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H710, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H720, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H730, &H4CC)
WritePointerInteger("PointBlank", &HAB9458, 1, &H740, &H4CC)
________________________________________________
Host Aleatory
WritePointerInteger("PointBlank", &HAB64E8, 3, &H4CEC)
WritePointerInteger("PointBlank", &HAB64E8, 1, &H4CF0)
________________________________________________
Macro Hax
WritePointerString("PointBlank", &HAB992C, TextBox1.Text, &H3F6)
________________________________________________
Nick Clã
WritePointerString("PointBlank", &HAB6488 ,TextBox4.text ,&H324)
________________________________________________
Nick Hack
WritePointerString("PointBlank", &HAB64E8, TextBox1.Text, &H48CC)
________________________________________________
No Fall Damage
WritePointerByte("PointBlank", &HAB64B0, 14, &H218)
WritePointerByte("PointBlank", &HAB64B0, 172, &H219)
WritePointerByte("PointBlank", &HAB64B0, 4, &H21A)
WritePointerByte("PointBlank", &HAB64B0, 64, &H21B)
________________________________________________
No Respawn
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H180)
WritePointerInteger("PointBlank", &HAB64C0, 0, &H148, &H181)
WritePointerInteger("PointBlank", &HAB64C0, 160, &H148, &H182)
WritePointerInteger("PointBlank", &HAB64C0, 64, &H148, &H183)
________________________________________________
Password Lock
WritePointerString("PointBlank", &HAB64E8, TextBox2.Text, &H4CB83)
________________________________________________
Tean Kill
WritePointerByte("PointBlank", &H006B64B4 ,40 , &H321)
________________________________________________
Top Label
WriteString("PointBlank", &HAA2470, TextBox4.Text)
________________________________________________
Travar Tempo
WritePointerByte("PointBlank", &HAB64E8, 40, &H4CB53)
Destravar Tempo
WritePointerByte("PointBlank", &HAB64E8, 0, &H4CB53)
________________________________________________
Fechar PointBlank
Dim Processos As Process() = Process.GetProcessesByName("PointBlank")
For Each Processo As Process In Processos
Processo.Kill()
Next
________________________________________________
Missão Hack
IMissão Total
WritePointerInteger("PointBlank", &HAB6E90, 2, &HD64)
Missão Sobreviventes²
WritePointerInteger("PointBlank", &HAB6E90, 3, &HD64)
Missão Dinossauro²
WritePointerInteger("PointBlank", &HAB6E90, 12, &HD64)
________________________________________________
Patente Hack
If (Me.ComboBox1.Text = "Novato") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 0, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Recruta") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 1, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Soldado") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 2, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Cabo") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 3, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Sargento") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 4, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Terceiro-Sargento 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 5, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Terceiro-Sargento 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 6, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Terceiro-Sargento 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 7, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 8, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 9, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 10, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Sargento 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 11, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 12, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 13, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 14, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 15, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Sargento 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H10, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H11, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H12, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H13, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Segundo-Tenente 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 20, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H15, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H16, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H17, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H18, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Primeiro-Tenente 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H19, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1A, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1B, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1C, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1D, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Capitao 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 30, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H1F, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H20, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H21, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H22, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Major 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H23, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H24, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H25, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H26, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H27, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Tenente Coronel 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 40, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 1") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H29, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 2") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2A, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 3") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2B, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 4") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2C, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Coronel 5") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2D, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "General de Brigada") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2E, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "General de Divisao") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H2F, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "General de Exercito") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H30, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Marechal") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H31, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Heroi de Guerra") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, 50, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Heroi de Guerra(Modificado)") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H33, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "Bomba Patente") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H34, New Integer() {&H461D})
End If
If (Me.ComboBox1.Text = "GM") Then
Trainer.WritePointerInteger("PointBlank", &HAB64E8, &H35, New Integer() {&H461D})
End If