NPC Infotool by Ext3ndedBurs

[Ext3ndedBurs]

Originally Posted by Skittl

Hab da eher die Frage wozu man das braucht? Die Daten stehen doch eh alle in der "DO Fibel" ?

Dann musst du nicht immer erst auf die Seite. Du hast dann ein Programm auf dem PC wo die Infos drinstehen die auch im Darkorbit Wikia sind.

[NeX#]

Naja.. also da das ja aus langeweile entstanden ist, ist es ja okey^^
Das Tool besteht ja eig. nur aus If's^^

[105 077 121]

Bau noch eine Rangpukte für ein NPC-Übersicht ein...

[Klenix123]

Originally Posted by NeX#

Naja.. also da das ja aus langeweile entstanden ist, ist es ja okey^^
Das Tool besteht ja eig. nur aus If's^^

da sind glaub ich 2-3 ifs drinne...
mehr nicht...

[Ext3ndedBurs]

Da sind garkeine If's drin.

Ich mach mal den Code in nen

 Spoiler

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

Wie gesagt ist aus Lernzwecken enstanden, bzw. aus Langeweile.

[Klenix123]

Die neue Variante meine ich, die is auch um einiges kürzer oder ;-)

[Ext3ndedBurs]

Nein, die alte ist kürzer. Aber nur weil in der neuen auch alle Aliens drin sind. Hab halt noch Annihilator, Ufo, Ufonit usw eingefügt.

[21_0x15_025_NAK]

Naja ob der Lernzweck da so groß ist...
Du könntest noch die Stärke von GG Aliens einbauen...obwohl das eigentlich unnötig ist...jedenfalls hoffe ich das jeder hier rechnen kann

[Ext3ndedBurs]

Originally Posted by 21_0x15_025_NAK

Naja ob der Lernzweck da so groß ist...

Also für mich war er groß, da ich deshalb mit Klenix123 Bekannschaft gemacht habe und dieser hat mir dann gezeigt wie man ein besser aussehendes Tool dafür macht, ohne alle Werte eintragen zu müssen.

Danke nochmal dafür Klenix.

[BaD.MiZo]

very good programm , keep going

[Ext3ndedBurs]

Originally Posted by BaD.MiZo

very good programm , keep going

Thank you.

I've already made a second program with the help of Klenix123. I think of updating this post.

[NeX#]

@Ext3nded:
Achso ja aklar.. ich hab gedacht du hast es anders gemacht.
Gibt ja aber mehrere Möglichkeiten.

[Ext3ndedBurs]

Ich hab vor ungefähr einem Tag angefangen zu programmieren, und dann soll ich schon die If's beherrschen ? Das Programm wurde als aller erstes von mir gemacht.

[KleinesGumi]

kleines edit
Must noch eine seite für Galaxie gate machen

[Ext3ndedBurs]

An dem Programm kann man noch ganz viel machen.
Ich glaub wenn ich die enstprechend notwendigen Fähigkeiten besitze mache ich daraus ein Multiinformationstool.