Textadventure Spiel - Quellcode einmal schreiben und mehrmals abfragen

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Textadventure Spiel - Quellcode einmal schreiben und mehrmals abfragen

    Hallo liebe VB- Community,

    ich bin absoluter Einsteiger im Bereich VB und wollte nun ein kleines Textadventure programmieren. Leider bin ich dabei auf ein paar Hindernisse gestoßen. Das meiste konnte ich mit Google glücklicherweise lösen, jedoch stoße ich nun an meine Grenzen, da ich nicht weiß, nach welchem Begriff ich suchen muss.

    Ich habe die Buttons "Gehe nach...." und dann eben Norden, Süden, Westen und Osten. Bei all den Buttons soll das gleiche passieren: Entweder stößt man auf einen Dungeon, auf ein Waldstück, eine Lichtung oder See. Hier wiederrum sollen je nach Gebiet unterschiedliche Gegner auftauchen. Momentan habe ich einen riesigen Quellcode für nur einen Button, den ich natürlich kopieren kann. Allerdings falls ich später mal was änderen möchte, wird es knifflig. Meine Frage daher: Kann ich einen Teil abkürzen, in dem ich es einmal irgendwo definiere und dann abfrage?

    Hier mein Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btnNorden_Click(sender As Object, e As EventArgs) Handles btnNorden.Click
    3. vGebiet = vZufallswürfel.Next(1, 11)
    4. vGegner = vZufallswürfel.Next(1, 11)
    5. btnNorden.Enabled = False
    6. btnSüden.Enabled = False
    7. btnWesten.Enabled = False
    8. btnOsten.Enabled = False
    9. btnAngriff.Enabled = True
    10. Select Case vGebiet
    11. Case 1 To 3
    12. lstStory.Items.Add("Du siehst in eine Höhle")
    13. Select Case vGegner
    14. Case 1 To 3
    15. btnNorden.Enabled = True
    16. btnSüden.Enabled = True
    17. btnWesten.Enabled = True
    18. btnOsten.Enabled = True
    19. btnAngriff.Enabled = False
    20. Case 4 To 6
    21. lstStory.Items.Add(vRattetext)
    22. vGegnername = "Ratte"
    23. vGegnerHP = 10
    24. vGegnerstärke = vZufallswürfel.Next(1, 5)
    25. vXPZuwachs = 5
    26. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    27. lstStory.Items.Add("")
    28. vLebenaktuell -= vGegnerstärke
    29. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    30. pbLeben.Value -= vGegnerstärke
    31. Case 7 To 8
    32. lstStory.Items.Add(vFledermaustext)
    33. vGegnername = "Fledermaus"
    34. vGegnerHP = 15
    35. vXPZuwachs = 15
    36. vGegnerstärke = vZufallswürfel.Next(1, 5)
    37. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    38. lstStory.Items.Add("")
    39. vLebenaktuell -= vGegnerstärke
    40. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    41. pbLeben.Value -= vGegnerstärke
    42. Case 9 To 10
    43. lstStory.Items.Add(vGeisttext)
    44. vGegnername = "Geist"
    45. vGegnerHP = 20
    46. vXPZuwachs = 15
    47. vGegnerstärke = vZufallswürfel.Next(1, 5)
    48. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    49. lstStory.Items.Add("")
    50. vLebenaktuell -= vGegnerstärke
    51. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    52. pbLeben.Value -= vGegnerstärke
    53. End Select
    55. Case 4, 5
    56. lstStory.Items.Add("Du kommst in einen Wald")
    57. Select Case vGegner
    58. Case 1 To 3
    59. btnNorden.Enabled = True
    60. btnSüden.Enabled = True
    61. btnWesten.Enabled = True
    62. btnOsten.Enabled = True
    63. btnAngriff.Enabled = False
    64. Case 4 To 5
    65. lstStory.Items.Add(vFledermaustext)
    66. vGegnername = "Fledermaus"
    67. vGegnerHP = 15
    68. vXPZuwachs = 15
    69. vGegnerstärke = vZufallswürfel.Next(1, 5)
    70. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    71. lstStory.Items.Add("")
    72. vLebenaktuell -= vGegnerstärke
    73. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    74. pbLeben.Value -= vGegnerstärke
    75. Case 6 To 7
    76. lstStory.Items.Add(vWolftext)
    77. vGegnername = "Wolf"
    78. vGegnerHP = 20
    79. vXPZuwachs = 20
    80. vGegnerstärke = vZufallswürfel.Next(1, 5)
    81. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    82. lstStory.Items.Add("")
    83. vLebenaktuell -= vGegnerstärke
    84. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    85. pbLeben.Value -= vGegnerstärke
    86. Case 8 To 9
    87. lstStory.Items.Add(vLuchstext)
    88. vGegnername = "Luchs"
    89. vGegnerHP = 15
    90. vXPZuwachs = 15
    91. vGegnerstärke = vZufallswürfel.Next(1, 5)
    92. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    93. lstStory.Items.Add("")
    94. vLebenaktuell -= vGegnerstärke
    95. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    96. pbLeben.Value -= vGegnerstärke
    97. Case 10
    98. lstStory.Items.Add(vBärtext)
    99. vGegnername = "Bär"
    100. vGegnerHP = 40
    101. vXPZuwachs = 40
    102. vGegnerstärke = vZufallswürfel.Next(1, 5)
    103. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    104. lstStory.Items.Add("")
    105. vLebenaktuell -= vGegnerstärke
    106. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    107. pbLeben.Value -= vGegnerstärke
    108. End Select
    109. Case 6
    110. lstStory.Items.Add("Du kommst auf eine Lichtung")
    111. Select Case vGegner
    112. Case 1 To 3
    113. btnNorden.Enabled = True
    114. btnSüden.Enabled = True
    115. btnWesten.Enabled = True
    116. btnOsten.Enabled = True
    117. btnAngriff.Enabled = False
    118. Case 4 To 6
    119. lstStory.Items.Add(vSchlange)
    120. vGegnername = "Schlange"
    121. vGegnerHP = 15
    122. vXPZuwachs = 15
    123. vGegnerstärke = vZufallswürfel.Next(1, 5)
    124. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    125. lstStory.Items.Add("")
    126. vLebenaktuell -= vGegnerstärke
    127. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    128. pbLeben.Value -= vGegnerstärke
    129. Case 7 To 8
    130. lstStory.Items.Add(vAdlertext)
    131. vGegnername = "Adler"
    132. vGegnerHP = 15
    133. vXPZuwachs = 15
    134. vGegnerstärke = vZufallswürfel.Next(1, 5)
    135. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    136. lstStory.Items.Add("")
    137. vLebenaktuell -= vGegnerstärke
    138. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    139. pbLeben.Value -= vGegnerstärke
    140. Case 9
    141. lstStory.Items.Add(vGreiftext)
    142. vGegnername = "Greif"
    143. vGegnerHP = 20
    144. vXPZuwachs = 20
    145. vGegnerstärke = vZufallswürfel.Next(1, 5)
    146. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    147. lstStory.Items.Add("")
    148. vLebenaktuell -= vGegnerstärke
    149. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    150. pbLeben.Value -= vGegnerstärke
    151. Case 10
    152. lstStory.Items.Add(vDrachetext)
    153. vGegnername = "Drache"
    154. vGegnerHP = 80
    155. vXPZuwachs = 80
    156. vGegnerstärke = vZufallswürfel.Next(1, 5)
    157. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    158. lstStory.Items.Add("")
    159. vLebenaktuell -= vGegnerstärke
    160. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    161. pbLeben.Value -= vGegnerstärke
    162. End Select
    164. Case 7 To 10
    165. lstStory.Items.Add("Du gehst auf einen See zu")
    166. Select Case vGegner
    167. Case 1 To 3
    168. btnNorden.Enabled = True
    169. btnSüden.Enabled = True
    170. btnWesten.Enabled = True
    171. btnOsten.Enabled = True
    172. btnAngriff.Enabled = False
    173. Case 4 To 5
    174. lstStory.Items.Add(vFuchstext)
    175. vGegnername = "Fuchs"
    176. vGegnerHP = 10
    177. vXPZuwachs = 10
    178. vGegnerstärke = vZufallswürfel.Next(1, 5)
    179. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    180. lstStory.Items.Add("")
    181. vLebenaktuell -= vGegnerstärke
    182. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    183. pbLeben.Value -= vGegnerstärke
    184. Case 6 To 7
    185. lstStory.Items.Add(vHirschtext)
    186. vGegnername = "Hirsch"
    187. vGegnerHP = 20
    188. vXPZuwachs = 20
    189. vGegnerstärke = vZufallswürfel.Next(1, 5)
    190. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    191. lstStory.Items.Add("")
    192. vLebenaktuell -= vGegnerstärke
    193. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    194. pbLeben.Value -= vGegnerstärke
    195. Case 8 To 9
    196. lstStory.Items.Add(vKampffisch)
    197. vGegnername = "Kampffisch"
    198. vGegnerHP = 10
    199. vXPZuwachs = 10
    200. vGegnerstärke = vZufallswürfel.Next(1, 5)
    201. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    202. lstStory.Items.Add("")
    203. vLebenaktuell -= vGegnerstärke
    204. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    205. pbLeben.Value -= vGegnerstärke
    206. Case 10
    207. lstStory.Items.Add(vHydra)
    208. vGegnername = "Hydra"
    209. vGegnerHP = 35
    210. vXPZuwachs = 35
    211. vGegnerstärke = vZufallswürfel.Next(1, 5)
    212. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    213. lstStory.Items.Add("")
    214. vLebenaktuell -= vGegnerstärke
    215. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    216. pbLeben.Value -= vGegnerstärke
    217. End Select
    218. End Select


    Hier meine Variablen:

    VB.NET-Quellcode

    1. Dim vGegnername As String
    2. Dim vGegnerHP As Double
    3. Dim vRattetext As String = "Eine riesige Ratte greift dich an"
    4. Dim vFledermaustext As String = "Mehrere Fledermäuse attackieren dich."
    5. Dim vGeisttext As String = "Ein Geist erscheint. Du erstarrst vor Angst!"
    6. Dim vWolftext As String = "Ein Wolf springt auf dich zu"
    7. Dim vLuchstext As String = "Ein Luchs greift dich an."
    8. Dim vBärtext As String = "Ein Bär greift dich an."
    9. Dim vSchlange As String = "Ein Schlange greift dich an."
    10. Dim vAdlertext As String = "Ein Adler greift dich an."
    11. Dim vGreiftext As String = "Ein Greif greift dich an."
    12. Dim vDrachetext As String = "Ein Drache greift dich an."
    13. Dim vFuchstext As String = "Ein Fuchs greift dich an."
    14. Dim vHirschtext As String = "Ein Hirsch greift dich an."
    15. Dim vKampffisch As String = "Ein Kampffisch greift dich an."
    16. Dim vHydra As String = "Ein Hydra greift dich an."


    Ich hoffe, ihr könnt mir helfen. Vielen Dank schon mal im Voraus

    Viele Grüße und ein frohes Fest an alle

    Corai :)

    p.s.: oh und bitte zerfleischt mich nicht, ich weiß, daß ich Anfänger bin XD

    Sehr langen Codeausschnitt in Spoiler-Tags versteckt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Hi,

    nun sicher kann man das eleganter und viel kürzer schreiben. So ein "Textadventure" ist eine recht gute Gelegenheit, sich mit der Objektorientierung zu befassen.

    Hast Du folgende Begrifflichkeiten schon mal gehört oder bist Du damit vertraut?

    Klassen, Vererbung, Schnittstellen (Interfaces).....

    Jedenfalls kann ich Dir sagen, dass Du Dir ohne dieses Konzept wohl die Finger wund schreiben wirst und spätestens nach der 5000. Zeile kannst Du Dein eigenes Programm nicht mehr verstehen.

    Vor allem als Anfänger solltest Du Dir gleich die richtigen Konzepte aneignen. Beantworte kurz die Fragen, dann kann man sehen, wo man ansetzen muss.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @Corai Willkommen im Forum. :thumbup:
    Unbedingte Voraussetzung: Option Strict On.
    Dann machst Du Dir ein Enum:

    VB.NET-Quellcode

    1. Enum Direction
    2. Up,
    3. Down,
    4. Left,
    5. Right
    6. End Enum
    und in die 4 Button-Routinen scheibst Du einfach:

    VB.NET-Quellcode

    1. MoveTo(Direction.Up) ' Down, Left, Right
    Den ganzen Code packst Du in die Routine MoveTo(dir As Direction).
    Dort wetest Du an den betreffenden Stellen den Direction-Parameter aus und feddich. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo zusammen

    @SpaceyX
    meine Freundin macht eine Ausbildung zur IT- Kauffrau und ich lerne da mit. Die haben so etwas noch nicht gehabt, ich somit auch noch nicht :) . Aktuell haben die nur die Kontrollstrukturen durchgenommen. Privat haben wir halt mit google etwas weiter gemacht ;)

    @RodFromGermany
    Ganz oben hab ich Option Strict on natürlich.

    Könntest Du mir das mit dem Enum und dem MoveTo mit einem Beispiel erklären? Also Sprich ich habe Button btnNord, btnSüd, btnWest und btnOst und überall soll folgendes rein:

    VB.NET-Quellcode

    1. lstStory.Items.Add(vRattetext)
    2. vGegnername = "Ratte"
    3. vGegnerHP = 10
    4. vGegnerstärke = vZufallswürfel.Next(1, 5)
    5. vXPZuwachs = 5
    6. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    7. lstStory.Items.Add("")
    8. vLebenaktuell -= vGegnerstärke
    9. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    10. pbLeben.Value -= vGegnerstärke

    Könntest Du das mal aufführen? :)

    Ach noch eine andere Frage. Kann ich eine Listbox so einstellen, daß automatisch wenn was neues dazugeschrieben wird, diese nach ganz unten scrollt? Ich kenne folgenden Befehl:

    lstStory.SelectedIndex = lstStory.Items.Count - 1

    Wenn ich das mit einem Timer alle 0,5 sek abfrage, kann der User nicht mehr hoch scrollen. Wenn ich es aber unter jedem lstStory.Items.Add darunter setze, habe ich wieder sehr viele Zeilen. Kann man das nicht einmal wo definieren, daß es bei jedem add- Befehl passiert?

    Meine Freundin hat folgenden Lehrplan:
    ludwig-erhard-schule.de/filead…ente/UPlan_IKI_AWP_10.pdf

    Aktuell sind sie bei Punkt 6.

    Ich hoffe, das hilft euch, mir zu helfen :D

    Vollzitat entfernt. ~Thunderbolt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()

    Corai schrieb:

    Könntest Du das mal aufführen?
    Wahrscheinlich reden wir aneinander vorbei.
    Ich meinte, das in jedem dieser Button lediglich eine Zeile Code steht, nämlich der Aufruf der eigentlichen Bewegungs-Auswerte-Routine.
    Wenn Du diesen 10-Zeiler überall aufrufen willst, lagere diese 10 Zeilen in eine Prozedur aus und ruf von überall die Prozedur auf.
    Was Du an Parametern mitgeben musst, siehst Du, wenn der Compiler einzelne Variablen als unbekannt anmeckert.
    Ich kann Dir das nur so pauschal sagen, da ich nicht weiß, welche dieser Variablen in der Klasse, welche in der Prozedur deklariert wurden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Corai schrieb:

    meine Freundin macht eine Ausbildung zur IT- Kauffrau und ich lerne da mit. Die haben so etwas noch nicht gehabt
    vermutlich eine Ausbildung, wo man schwerpunktmässig nicht programmieren lernt - und dann kriegt man inkompetente Lehrer, und dann lernt man ühaupt nicht programmieren.
    Muss ja auch nicht.

    jdfs. wenn du programmieren lernen willst, vergiss die Ausbildung deiner Freundin und lad dir gutes Buch herunter: Entwickler-Ressourcen und Tools, Bücher und WebCasts

    Für dein TextAdventure musst du ein Datenmodell erstellen können - das setzt alles von meinen Vorrednern gesagte vorraus und ist noch mehr.
    Hier habich mal einen "Lehrplan" zusammengestellt für sowas:
    Datenverarbeitungs-Vorraussetzungen

    Der hat eine sinnvolle Reihenfolge, und vereinigt verschiedene Dimensionen, weil jedes allein ist immer unzureichend: Buch, Tutorials, Praxis, ...

    RodFromGermany schrieb:

    Corai schrieb:

    Könntest Du das mal aufführen?
    Wahrscheinlich reden wir aneinander vorbei.
    Ich meinte, das in jedem dieser Button lediglich eine Zeile Code steht, nämlich der Aufruf der eigentlichen Bewegungs-Auswerte-Routine.
    Wenn Du diesen 10-Zeiler überall aufrufen willst, lagere diese 10 Zeilen in eine Prozedur aus und ruf von überall die Prozedur auf.
    Was Du an Parametern mitgeben musst, siehst Du, wenn der Compiler einzelne Variablen als unbekannt anmeckert.
    Ich kann Dir das nur so pauschal sagen, da ich nicht weiß, welche dieser Variablen in der Klasse, welche in der Prozedur deklariert wurden.





    Ok ich glaub ich steh echt aufm Schlauch. Heißt das, ich kann eine Zeile aufrufen, indem ich eine Zeile schreibe? Oder kann ich 10 Zeilen gleichzeitig nun aufrufen mit nur einer Zeile? Ich habe jetzt mal den kompletten Text eingefügt:


    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class frmHauptfenster
    5. 'Listbox autoscrollen (mit Timer alle 0,5 sek abfragen):
    6. 'lstStory.SelectedIndex = lstStory.Items.Count - 1
    8. Dim vStufe As Double = 1
    9. Dim vHeiltrankAnzahl As Double = 3
    10. Dim vLebenMax As Int32 = 100
    11. Dim vLebenaktuell As Int32 = 100
    12. Dim vXPaktuell As Int32 = 0
    13. Dim vXPMax As Int32 = 100
    14. Dim vXPZuwachs As Int32
    15. Dim vStärke As Double = 10
    16. Dim vGebiet As Int32
    17. Dim vGegner As Int32
    18. Dim vGegnerstärke As Int32
    19. Dim vZufallswürfel As New Random
    21. 'Gegnertexte:
    22. Dim vGegnername As String
    23. Dim vGegnerHP As Double
    24. Dim vRattetext As String = "Eine riesige Ratte greift dich an"
    25. Dim vFledermaustext As String = "Mehrere Fledermäuse attackieren dich."
    26. Dim vGeisttext As String = "Ein Geist erscheint. Du erstarrst vor Angst!"
    27. Dim vWolftext As String = "Ein Wolf springt auf dich zu"
    28. Dim vLuchstext As String = "Ein Luchs greift dich an."
    29. Dim vBärtext As String = "Ein Bär greift dich an."
    30. Dim vSchlange As String = "Ein Schlange greift dich an."
    31. Dim vAdlertext As String = "Ein Adler greift dich an."
    32. Dim vGreiftext As String = "Ein Greif greift dich an."
    33. Dim vDrachetext As String = "Ein Drache greift dich an."
    34. Dim vFuchstext As String = "Ein Fuchs greift dich an."
    35. Dim vHirschtext As String = "Ein Hirsch greift dich an."
    36. Dim vKampffisch As String = "Ein Kampffisch greift dich an."
    37. Dim vHydra As String = "Ein Hydra greift dich an."
    39. Private Sub frmHauptfenster_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    41. lstStory.Items.Add("Herzlich Willkommen zu meinem Dungeon-Spiel!")
    42. lstStory.Items.Add("")
    43. lstStory.Items.Add("Wie geht es dir?")
    44. btnHeiltrank.Text = "Benutze Heiltrank (" & vHeiltrankAnzahl & ")"
    46. End Sub
    48. Private Sub btnHeiltrank_Click(sender As Object, e As EventArgs) Handles btnHeiltrank.Click
    50. End Sub
    52. Private Sub lstStory_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstStory.SelectedIndexChanged
    54. End Sub
    56. Private Sub btnMenü_Click(sender As Object, e As EventArgs) Handles btnMenü.Click
    58. frmOverlayMenü.Show()
    60. End Sub
    62. Private Sub btnNorden_Click(sender As Object, e As EventArgs) Handles btnNorden.Click
    64. vGebiet = vZufallswürfel.Next(1, 11)
    65. vGegner = vZufallswürfel.Next(1, 11)
    66. btnNorden.Enabled = False
    67. btnSüden.Enabled = False
    68. btnWesten.Enabled = False
    69. btnOsten.Enabled = False
    70. btnAngriff.Enabled = True
    71. Select Case vGebiet
    72. Case 1 To 3
    73. lstStory.Items.Add("Du siehst in eine Höhle")
    74. Select Case vGegner
    75. Case 1 To 3
    76. btnNorden.Enabled = True
    77. btnSüden.Enabled = True
    78. btnWesten.Enabled = True
    79. btnOsten.Enabled = True
    80. btnAngriff.Enabled = False
    81. Case 4 To 6
    82. lstStory.Items.Add(vRattetext)
    83. vGegnername = "Ratte"
    84. vGegnerHP = 10
    85. vGegnerstärke = vZufallswürfel.Next(1, 5)
    86. vXPZuwachs = 5
    87. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    88. lstStory.Items.Add("")
    89. vLebenaktuell -= vGegnerstärke
    90. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    91. pbLeben.Value -= vGegnerstärke
    92. Case 7 To 8
    93. lstStory.Items.Add(vFledermaustext)
    94. vGegnername = "Fledermaus"
    95. vGegnerHP = 15
    96. vXPZuwachs = 15
    97. vGegnerstärke = vZufallswürfel.Next(1, 5)
    98. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    99. lstStory.Items.Add("")
    100. vLebenaktuell -= vGegnerstärke
    101. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    102. pbLeben.Value -= vGegnerstärke
    103. Case 9 To 10
    104. lstStory.Items.Add(vGeisttext)
    105. vGegnername = "Geist"
    106. vGegnerHP = 20
    107. vXPZuwachs = 15
    108. vGegnerstärke = vZufallswürfel.Next(1, 5)
    109. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    110. lstStory.Items.Add("")
    111. vLebenaktuell -= vGegnerstärke
    112. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    113. pbLeben.Value -= vGegnerstärke
    114. End Select
    116. Case 4, 5
    117. lstStory.Items.Add("Du kommst in einen Wald")
    118. Select Case vGegner
    119. Case 1 To 3
    120. btnNorden.Enabled = True
    121. btnSüden.Enabled = True
    122. btnWesten.Enabled = True
    123. btnOsten.Enabled = True
    124. btnAngriff.Enabled = False
    125. Case 4 To 5
    126. lstStory.Items.Add(vFledermaustext)
    127. vGegnername = "Fledermaus"
    128. vGegnerHP = 15
    129. vXPZuwachs = 15
    130. vGegnerstärke = vZufallswürfel.Next(1, 5)
    131. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    132. lstStory.Items.Add("")
    133. vLebenaktuell -= vGegnerstärke
    134. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    135. pbLeben.Value -= vGegnerstärke
    136. Case 6 To 7
    137. lstStory.Items.Add(vWolftext)
    138. vGegnername = "Wolf"
    139. vGegnerHP = 20
    140. vXPZuwachs = 20
    141. vGegnerstärke = vZufallswürfel.Next(1, 5)
    142. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    143. lstStory.Items.Add("")
    144. vLebenaktuell -= vGegnerstärke
    145. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    146. pbLeben.Value -= vGegnerstärke
    147. Case 8 To 9
    148. lstStory.Items.Add(vLuchstext)
    149. vGegnername = "Luchs"
    150. vGegnerHP = 15
    151. vXPZuwachs = 15
    152. vGegnerstärke = vZufallswürfel.Next(1, 5)
    153. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    154. lstStory.Items.Add("")
    155. vLebenaktuell -= vGegnerstärke
    156. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    157. pbLeben.Value -= vGegnerstärke
    158. Case 10
    159. lstStory.Items.Add(vBärtext)
    160. vGegnername = "Bär"
    161. vGegnerHP = 40
    162. vXPZuwachs = 40
    163. vGegnerstärke = vZufallswürfel.Next(1, 5)
    164. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    165. lstStory.Items.Add("")
    166. vLebenaktuell -= vGegnerstärke
    167. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    168. pbLeben.Value -= vGegnerstärke
    169. End Select
    170. Case 6
    171. lstStory.Items.Add("Du kommst auf eine Lichtung")
    172. Select Case vGegner
    173. Case 1 To 3
    174. btnNorden.Enabled = True
    175. btnSüden.Enabled = True
    176. btnWesten.Enabled = True
    177. btnOsten.Enabled = True
    178. btnAngriff.Enabled = False
    179. Case 4 To 6
    180. lstStory.Items.Add(vSchlange)
    181. vGegnername = "Schlange"
    182. vGegnerHP = 15
    183. vXPZuwachs = 15
    184. vGegnerstärke = vZufallswürfel.Next(1, 5)
    185. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    186. lstStory.Items.Add("")
    187. vLebenaktuell -= vGegnerstärke
    188. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    189. pbLeben.Value -= vGegnerstärke
    190. Case 7 To 8
    191. lstStory.Items.Add(vAdlertext)
    192. vGegnername = "Adler"
    193. vGegnerHP = 15
    194. vXPZuwachs = 15
    195. vGegnerstärke = vZufallswürfel.Next(1, 5)
    196. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    197. lstStory.Items.Add("")
    198. vLebenaktuell -= vGegnerstärke
    199. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    200. pbLeben.Value -= vGegnerstärke
    201. Case 9
    202. lstStory.Items.Add(vGreiftext)
    203. vGegnername = "Greif"
    204. vGegnerHP = 20
    205. vXPZuwachs = 20
    206. vGegnerstärke = vZufallswürfel.Next(1, 5)
    207. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    208. lstStory.Items.Add("")
    209. vLebenaktuell -= vGegnerstärke
    210. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    211. pbLeben.Value -= vGegnerstärke
    212. Case 10
    213. lstStory.Items.Add(vDrachetext)
    214. vGegnername = "Drache"
    215. vGegnerHP = 80
    216. vXPZuwachs = 80
    217. vGegnerstärke = vZufallswürfel.Next(1, 5)
    218. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    219. lstStory.Items.Add("")
    220. vLebenaktuell -= vGegnerstärke
    221. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    222. pbLeben.Value -= vGegnerstärke
    223. End Select
    225. Case 7 To 10
    226. lstStory.Items.Add("Du gehst auf einen See zu")
    227. Select Case vGegner
    228. Case 1 To 3
    229. btnNorden.Enabled = True
    230. btnSüden.Enabled = True
    231. btnWesten.Enabled = True
    232. btnOsten.Enabled = True
    233. btnAngriff.Enabled = False
    234. Case 4 To 5
    235. lstStory.Items.Add(vFuchstext)
    236. vGegnername = "Fuchs"
    237. vGegnerHP = 10
    238. vXPZuwachs = 10
    239. vGegnerstärke = vZufallswürfel.Next(1, 5)
    240. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    241. lstStory.Items.Add("")
    242. vLebenaktuell -= vGegnerstärke
    243. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    244. pbLeben.Value -= vGegnerstärke
    245. Case 6 To 7
    246. lstStory.Items.Add(vHirschtext)
    247. vGegnername = "Hirsch"
    248. vGegnerHP = 20
    249. vXPZuwachs = 20
    250. vGegnerstärke = vZufallswürfel.Next(1, 5)
    251. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    252. lstStory.Items.Add("")
    253. vLebenaktuell -= vGegnerstärke
    254. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    255. pbLeben.Value -= vGegnerstärke
    256. Case 8 To 9
    257. lstStory.Items.Add(vKampffisch)
    258. vGegnername = "Kampffisch"
    259. vGegnerHP = 10
    260. vXPZuwachs = 10
    261. vGegnerstärke = vZufallswürfel.Next(1, 5)
    262. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    263. lstStory.Items.Add("")
    264. vLebenaktuell -= vGegnerstärke
    265. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    266. pbLeben.Value -= vGegnerstärke
    267. Case 10
    268. lstStory.Items.Add(vHydra)
    269. vGegnername = "Hydra"
    270. vGegnerHP = 35
    271. vXPZuwachs = 35
    272. vGegnerstärke = vZufallswürfel.Next(1, 5)
    273. lstStory.Items.Add("Du erleidest" & vGegnerstärke & " Schaden")
    274. lstStory.Items.Add("")
    275. vLebenaktuell -= vGegnerstärke
    276. lblLebenszahl.Text = vLebenaktuell.ToString & " / " & vLebenMax.ToString
    277. pbLeben.Value -= vGegnerstärke
    278. End Select
    279. End Select
    281. End Sub
    283. Private Sub btnSüden_Click(sender As Object, e As EventArgs) Handles btnSüden.Click
    285. End Sub
    287. Private Sub btnWesten_Click(sender As Object, e As EventArgs) Handles btnWesten.Click
    289. End Sub
    291. Private Sub btnOsten_Click(sender As Object, e As EventArgs) Handles btnOsten.Click
    293. End Sub
    295. Private Sub btnAngriff_Click(sender As Object, e As EventArgs) Handles btnAngriff.Click
    297. lstStory.Items.Add("Du triffst" & vGegnername & " mit " & vStärke)
    298. vGegnerHP -= vStärke
    299. If vGegnerHP < 1 Then
    300. lstStory.Items.Add("Du hast " & vGegnername & " besiegt. Du erhälst " & vXPZuwachs & " Erfahrungspunkte.")
    301. vXPaktuell += vXPZuwachs
    302. If vXPaktuell >= vXPMax Then
    303. vStufe += 1
    304. lblStufe.Text = "Stufe: " & vStufe
    305. vXPZuwachs = vXPaktuell - vXPMax
    306. vXPaktuell = vXPZuwachs
    307. lstStory.Items.Add("Gratulation! Du hast Stufe" & vStufe & " erreicht.")
    308. pbXP.Value = vXPZuwachs
    309. Else
    310. pbXP.Value += vXPZuwachs
    311. End If
    313. lblErfahrung.Text = "Erfahrung: " & vXPaktuell & " / " & vXPMax
    314. btnNorden.Enabled = True
    315. btnSüden.Enabled = True
    316. btnWesten.Enabled = True
    317. btnOsten.Enabled = True
    318. btnAngriff.Enabled = False
    319. End If
    321. End Sub
    322. End Class




    Das Bild von der Oberfläche findest Du hier:
    picload.org/view/ddrooacw/adventure.jpg.html


    Also ich hoffe, ich kann es irgendwie mit nem simplen befehl abfragen.






    @ErfinderDesRades

    Es ist halt wie der Name sagt "IT-Kauffrau", sprich später mal Admin. Es ist halt kein richtiger Anwendungsentwickler-Beruf :D

    Sie und ich sind eh schon mit dem programmieren deutlich weiter als die Schulkollegen XD.

    @Corai
    1. Lass das vollständige Zitieren.
    2. pack Deinen Code in einen
      spoiler
      spoiler

    3. nutze die Dateianhang-Funktionalität des Forums: Erweiterte Antwort => Dateianhänge => Hochladen.
      Bei werbeverseuchten Hostern höre ich sofort auf, den Post weiter zu lesen.
    Editiere Deinen Post bitte entsprechend.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ErfinderDesRades schrieb:

    vermutlich eine Ausbildung, wo man schwerpunktmässig nicht programmieren lernt
    Das lässt sich nicht pauschalisieren.
    Ich musste mich auch eines besseren belehren lassen.

    Früher war eher Excel-VBA angesagt.
    Inzwischen lernen unsere IT-Kaufleute sowohl in der Schule als auch innerbetrieblich neben kaufmännischem Wissen und DV-Administration auch "echtes" Programmieren.
    Und das in guter Qualität.
    Ich war baff erstaunt, dass inzwischen mit C# als Grundlagensprache angefangen wird.
    Und zwar objektorientiert.
    Dadurch kann man sie hervorragend in Projektarbeit einbinden.

    Es sind anscheinend nicht alle Schulen und Lehrer veraltet.
    Entweder wurden die Lehrpläne inzwischen grundlegend aktualisiert oder die hiesige Berufsschule geht mit einem guten Beispiel voran.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    ich meinte das auch nicht pauschal.
    Zwar selten, aber ist wohl möglich - einmal binnich auch mit einem Wirtschafts-Informatik-Studiengang in Kontakt gekommen, der schien praxisrelevante Programmier-Seminare zu haben. Aber war auch'n Sondermodell - die Studenten hatten 50% Betrieb und 50% Uni.

    @Corai: wie ich bereits gesagt habe: "viel lernen du musst, junger padavan".
    Was du lernen musst, habich auch schon gesagt, aber leider vergessen zu sagen, was dein AdventureSpiel braucht: nämlich ein Datenmodell.
    Also du musst einige Klassen basteln, und miteinander in Verbindung bringen, die deine Spielwelt abbilden.
    bisher wird die Welt scheints von einer Listbox, ein paar Textboxen, Strings und Integers abgebildet - das ist hoffnungslos unzureichend.

    zunächst mal musst du - mit uns zusammen - das Spiel planen. D.h. die Objekte, Personen, Umgebungen und Regeln so definieren, dass man sich dazu passende Klassen ausdenken kann.
    Bislang fand ich aus deinen Erläuterungen folgende abbildebare SpielElemente:
    Richtung (in die man gehen kann) - hier würde man sicher ein Enum-Objekt hernehmen
    Gegner - das muss wohl eine Klasse werden
    Spieler - auch eine Klasse

    irgendwelche Punkte scheinen da herum-zufahren, also das Punkte-System müsstest du mal erläutern.
    Und natürlich was ich falsch verstanden habe korrigieren, und alles fehlende hinzufügen.

    Was du ausserdem brauchst ist eine Möglichkeit, Spielwelten zu speichern und zu laden, auch in "eingefrorenen" Zwischenzuständen.
    Allein diese komplexe Aufgabe legt ein typisiertes Dataset nahe - das ist aber eine Technologie, die bereits sehr viele Grundlagen vorraussetzt.
    Links dazu hab ich dir ja gegeben - hast du in die 4-View-Videos mal reingeschaut?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende