NPC Infotool by Ext3ndedBurs

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
hpnormal.Text = "800"
shieldnormal.Text = "600"
epnormal.Text = "400"
honornormal.Text = "2"
creditsnormal.Text = "400"
uridiumnormal.Text = "1"
foundonnormal.Text = " X-1 & X-2 "
dmgnormal.Text = " unknown "
hpboss.Text = "3200"
shieldboss.Text = "1600"
epboss.Text = "1600"
honorboss.Text = "8"
creditsboss.Text = "1600"
uridiumboss.Text = "4"
dmgboss.Text = "40-60"
foundonboss.Text = " X-2 & 4-5 "
hpuber.Text = "6400"
shielduber.Text = "3200"
epuber.Text = "3200"
honoruber.Text = "16"
creditsuber.Text = "3200"
uridiumuber.Text = "8"
foundonuber.Text = "4-5"
dmguber.Text = "160-270"
Alienchosen.Text = "Currently chosen alien is Streuner"


End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
hpnormal.Text = "2000"
shieldnormal.Text = "2000"
epnormal.Text = "800"
honornormal.Text = "4"
creditsnormal.Text = "800"
uridiumnormal.Text = "2"
foundonnormal.Text = "X-2 & X-3 & X-4 & X-5"
dmgnormal.Text = "unknown"
hpboss.Text = "8000"
shieldboss.Text = "8000"
epboss.Text = "3200"
honorboss.Text = "16"
creditsboss.Text = "3200"
uridiumboss.Text = "8"
dmgboss.Text = "300-350"
foundonboss.Text = "X-2 & 4-5"
hpuber.Text = "16000"
shielduber.Text = "16000"
epuber.Text = "6400"
honoruber.Text = "32"
creditsuber.Text = "6400"
uridiumuber.Text = "16"
foundonuber.Text = "4-5"
dmguber.Text = "500-700"
Alienchosen.Text = "Currently chosen alien is Lordakia"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
hpnormal.Text = "6000"
shieldnormal.Text = "3000"
epnormal.Text = "1600"
honornormal.Text = "8"
creditsnormal.Text = "1600"
uridiumnormal.Text = "4"
foundonnormal.Text = "X-3 & X-4 & 4-5"
dmgnormal.Text = "unknown"
hpboss.Text = "24000"
shieldboss.Text = "12000"
epboss.Text = "6400"
honorboss.Text = "32"
creditsboss.Text = "6400"
uridiumboss.Text = "16"
dmgboss.Text = "600-650"
foundonboss.Text = "X-4 & 4-5"
hpuber.Text = "48000"
shielduber.Text = "48000"
epuber.Text = "25600"
honoruber.Text = "128"
creditsuber.Text = "25600"
uridiumuber.Text = "64"
foundonuber.Text = "4-5"
dmguber.Text = "1200-1500"
Alienchosen.Text = "Currently chosen alien is Saimon"
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
hpnormal.Text = "20000"
shieldnormal.Text = "10000"
epnormal.Text = "3200"
honornormal.Text = "16"
creditsnormal.Text = "6400"
uridiumnormal.Text = "8"
foundonnormal.Text = "X-3 & X-4 & 4-5"
dmgnormal.Text = "300-400"
hpboss.Text = "80000"
shieldboss.Text = "40000"
epboss.Text = "12800"
honorboss.Text = "64"
creditsboss.Text = "25600"
uridiumboss.Text = "32"
dmgboss.Text = "1300-1500"
foundonboss.Text = "X-3 & 4-5"
hpuber.Text = "160000"
shielduber.Text = "80000"
epuber.Text = "256000"
honoruber.Text = "128"
creditsuber.Text = "51200"
uridiumuber.Text = "64"
foundonuber.Text = "4-5"
dmguber.Text = "2500-3000"
Alienchosen.Text = "Currently chosen alien is Mordon"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
hpnormal.Text = "100000"
shieldnormal.Text = "100000"
epnormal.Text = "6400"
honornormal.Text = "32"
creditsnormal.Text = "51200"
uridiumnormal.Text = "16"
foundonnormal.Text = "X-3 & 4-5"
dmgnormal.Text = "800-1300"
hpboss.Text = "400000"
shieldboss.Text = "400000"
epboss.Text = "25600"
honorboss.Text = "128"
creditsboss.Text = "204800"
uridiumboss.Text = "64"
dmgboss.Text = "4100-4650"
foundonboss.Text = "X-3 & 4-5"
hpuber.Text = "800000"
shielduber.Text = "800000"
epuber.Text = "51200"
honoruber.Text = "246"
creditsuber.Text = "500600"
uridiumuber.Text = "800"
foundonuber.Text = "4-5"
dmguber.Text = "8200-9800"
Alienchosen.Text = "Currently chosen alien is Devolarium"
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
hpnormal.Text = "200000"
shieldnormal.Text = "200000"
epnormal.Text = "12800"
honornormal.Text = "64"
creditsnormal.Text = "102400"
uridiumnormal.Text = "32"
foundonnormal.Text = "X-4 & 4-5"
dmgnormal.Text = "1500-2500"
hpboss.Text = "800000"
shieldboss.Text = "800000"
epboss.Text = "51200"
honorboss.Text = "256"
creditsboss.Text = "409600"
uridiumboss.Text = "128"
dmgboss.Text = "9000-11000"
foundonboss.Text = "X-4 & 4-5"
hpuber.Text = "1600000"
shielduber.Text = "1600000"
epuber.Text = "102400"
honoruber.Text = "512"
creditsuber.Text = "819200"
uridiumuber.Text = "246"
foundonuber.Text = "4-5"
dmguber.Text = "18000-22000"
Alienchosen.Text = "Currently chosen alien is Sibelon"
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
hpnormal.Text = "40000"
shieldnormal.Text = "40000"
epnormal.Text = "3200"
honornormal.Text = "16"
creditsnormal.Text = "12800"
uridiumnormal.Text = "12"
foundonnormal.Text = "X-5"
dmgnormal.Text = "850-1100"
hpboss.Text = "160000"
shieldboss.Text = "160000"
epboss.Text = "12800"
honorboss.Text = "64"
creditsboss.Text = "51200"
uridiumboss.Text = "48"
dmgboss.Text = "3175-4350"
foundonboss.Text = "X-5"
hpuber.Text = "640000"
shielduber.Text = "640000"
epuber.Text = "25600"
honoruber.Text = "256"
creditsuber.Text = "102400"
uridiumuber.Text = "96"
foundonuber.Text = "4-5"
dmguber.Text = "6200-7800"
Alienchosen.Text = "Currently chosen alien is Sibelonit"
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
hpnormal.Text = "300000"
shieldnormal.Text = "200000"
epnormal.Text = "25600"
honornormal.Text = "128"
creditsnormal.Text = "204800"
uridiumnormal.Text = "64"
foundonnormal.Text = "X-5"
dmgnormal.Text = "6150-3600"
hpboss.Text = "1200000"
shieldboss.Text = "800000"
epboss.Text = "102400"
honorboss.Text = "512"
creditsboss.Text = "819200"
uridiumboss.Text = "256"
dmgboss.Text = "10000-16000"
foundonboss.Text = "X-5"
hpuber.Text = "2400000"
shielduber.Text = "1600000"
epuber.Text = "204800"
honoruber.Text = "1024"
creditsuber.Text = "1638400"
uridiumuber.Text = "512"
foundonuber.Text = "4-5"
dmguber.Text = "24000-31000"
Alienchosen.Text = "Currently chosen alien is Lordakium"
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
hpnormal.Text = "50000"
shieldnormal.Text = "40000"
epnormal.Text = "6400"
honornormal.Text = "32"
creditsnormal.Text = "12800"
uridiumnormal.Text = "16"
foundonnormal.Text = "X-6 & X-7 & 4-5"
dmgnormal.Text = "900-1150"
hpboss.Text = "200000"
shieldboss.Text = "160000"
epboss.Text = "25600"
honorboss.Text = "128"
creditsboss.Text = "51200"
uridiumboss.Text = "64"
dmgboss.Text = "3600-4700"
foundonboss.Text = "X-6 & X-7 & 4-5"
hpuber.Text = "400000"
shielduber.Text = "320000"
epuber.Text = "51200"
honoruber.Text = "246"
creditsuber.Text = "102400"
uridiumuber.Text = "128"
foundonuber.Text = "4-5"
dmguber.Text = "8200-9800"
Alienchosen.Text = "Currently chosen alien is Kristallin"
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
hpnormal.Text = "400000"
shieldnormal.Text = "300000"
epnormal.Text = "51200"
honornormal.Text = "256"
creditsnormal.Text = "409600"
uridiumnormal.Text = "128"
foundonnormal.Text = "X-6 & X-7"
dmgnormal.Text = "3580-4850"
hpboss.Text = "1600000"
shieldboss.Text = "1200000"
epboss.Text = "204800"
honorboss.Text = "1024"
creditsboss.Text = "1638400"
uridiumboss.Text = "512"
dmgboss.Text = "15000-20000"
foundonboss.Text = "X-6 & X-7 & 4-5"
hpuber.Text = "3200000"
shielduber.Text = "2800000"
epuber.Text = "409600"
honoruber.Text = "2048"
creditsuber.Text = "3276800"
uridiumuber.Text = "1024"
foundonuber.Text = "4-5"
dmguber.Text = "29000-38000"
Alienchosen.Text = "Currently chosen alien is Kristallon"
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
hpnormal.Text = "1600000"
shieldnormal.Text = "1200000"
epnormal.Text = "512000"
honornormal.Text = "4056"
creditsnormal.Text = "1638400"
uridiumnormal.Text = "1024"
foundonnormal.Text = "X-6"
dmgnormal.Text = "Sends Protegits"
hpboss.Text = "n.A."
shieldboss.Text = "n.A."
epboss.Text = "n.A."
honorboss.Text = "n.A."
creditsboss.Text = "n.A."
uridiumboss.Text = "n.A."
dmgboss.Text = "n.A."
foundonboss.Text = "n.A."
hpuber.Text = "n.A."
shielduber.Text = "n.A."
epuber.Text = "n.A."
honoruber.Text = "n.A."
creditsuber.Text = "n.A."
uridiumuber.Text = "n.A."
foundonuber.Text = "n.A."
dmguber.Text = "n.A."
Alienchosen.Text = "Currently chosen alien is Cubikon"
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
hpnormal.Text = "50000"
shieldnormal.Text = "40000"
epnormal.Text = "6400"
honornormal.Text = "32"
creditsnormal.Text = "12800"
uridiumnormal.Text = "16"
foundonnormal.Text = "Send out by Cubikons"
dmgnormal.Text = "2000-3000"
hpboss.Text = "n.A."
shieldboss.Text = "n.A."
epboss.Text = "n.A."
honorboss.Text = "n.A."
creditsboss.Text = "n.A."
uridiumboss.Text = "n.A."
dmgboss.Text = "n.A."
foundonboss.Text = "n.A."
hpuber.Text = "n.A."
shielduber.Text = "n.A."
epuber.Text = "n.A."
honoruber.Text = "n.A."
creditsuber.Text = "n.A."
uridiumuber.Text = "n.A."
foundonuber.Text = "n.A."
dmguber.Text = "n.A."
Alienchosen.Text = "Currently chosen alien is Protegit"
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
hpnormal.Text = "20000"
shieldnormal.Text = "10000"
epnormal.Text = "3200"
honornormal.Text = "16"
creditsnormal.Text = "6400"
uridiumnormal.Text = "8"
foundonnormal.Text = "X-8 & 4-5"
dmgnormal.Text = "400-500"
hpboss.Text = "80000"
shieldboss.Text = "40000"
epboss.Text = "12800"
honorboss.Text = "64"
creditsboss.Text = "25600"
uridiumboss.Text = "32"
dmgboss.Text = "1500-2000"
foundonboss.Text = "X-8 & 4-5"
hpuber.Text = "160000"
shielduber.Text = "80000"
epuber.Text = "256000"
honoruber.Text = "128"
creditsuber.Text = "51200"
uridiumuber.Text = "64"
foundonuber.Text = "4-5"
dmguber.Text = "3000-4000"
Alienchosen.Text = "Currently chosen alien is StreuneR"
End Sub

End Class