Kampfsystem

  • Allgemein

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Kampfsystem

    Guten Tag,
    Ich möchte ein bestimmtes Kampfsystem bei einem Spiel benutzen, undzwar möchte ich wenn zb. "50" Angriffspunkte hat und der Gegner "40" Abwehrpunkte, der Verteidiger "10" Lebenspunkte verliert. Die Anzahl der Punkte + die Lebenspunkte werden mit Label angezeigt.

    Weiß jemand wie ich das hinkriege?
    Dazu wäre es noch schön wenn mir Jemand sagen kann wie ich z.B. Wenn ich das Spiel starte und in eine TextBox etwas schreibe, dies speichern kann, dass dies bei schließung und öffnung des Programms wieder Angezeigt wird.

    LG

    Willkommen im Forum. :thumbup:
    Mit dem Addieren und Subtrahieren von Punkten ist das so eine Sache.
    Bau da Tests drumherum, die dafür sorgen, dass keine unsinnigen Resultate rauskommen, z.B. negative Lebenspunkte und so.
    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!

    Mirishi schrieb:

    könnte mal jmd einen bsp. Code reinstellen
    Zeig Deinen Code und wir rücken ihn gerade.
    Und:
    Bevor Du ihn postest, gib Deinem Projekt Option Strict On und korrigiere die Fehler.
    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!

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    HP = Hauptmenü.HPWert.Text
    ANG = Hauptmenü.ANGWert.Text
    VER = Hauptmenü.VERWert.Text
    HPEinfach = Me.HPWertEinfach.Text
    ANGEinfach = Me.ANGWertEinfach.Text
    VEREinfach = Me.VERWertEinfach.Text

    If Val(Hauptmenü.ANGWert) > Val(VERWertEinfach) Then Sieglabel.Text = "Sieg"

    Und wenn ich auf den Button drücke stürzt es ab und es kommt: Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.

    Als erstes Rechne mit Integer und Option Strict ON
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Löse das am besten objektorientiert. Das ist am einfachsten, finde ich.
    Mach dir also eine Klasse "Player"

    VB.NET-Quellcode

    1. Public Class Player
    3. ''' <summary>
    4. ''' Die Lebenspunkte des Spielers
    5. ''' </summary>
    6. Public Property Lebenspunkte As Integer
    8. ''' <summary>
    9. ''' Die Angriffspunkte des Spielers
    10. ''' </summary>
    11. Public Property Angriffspunkte As Integer
    13. ''' <summary>
    14. ''' Die Verteidigungspunkte des Spielers
    15. ''' </summary>
    16. Public Property Verteidigungspunkte As Integer
    18. ''' <summary>
    19. ''' Werte zuweisen
    20. ''' </summary>
    21. ''' <param name="l">Die Lebenspunkte</param>
    22. ''' <param name="a">Die Angriffspunkte</param>
    23. ''' <param name="v">Die Verteidigungspunkte</param>
    24. ''' <remarks></remarks>
    25. Sub New(ByVal l As Integer, ByVal a As Integer, ByVal v As Integer)
    26. Lebenspunkte = l
    27. Angriffspunkte = a
    28. Verteidigungspunkte = v
    29. End Sub
    31. ''' <summary>
    32. ''' Spieler greift anderen Spieler an
    33. ''' </summary>
    34. ''' <param name="p">Ein anderer Spieler</param>
    35. ''' <remarks></remarks>
    36. Public Sub Attack(ByVal p As Player)
    37. If p.Lebenspunkte <= Me.Angriffspunkte Then
    38. p.Lebenspunkte = 0
    39. Else
    40. p.Lebenspunkte = p.Lebenspunkte - Me.Angriffspunkte
    41. End If
    42. End Sub
    43. End Class


    Nur mit dem angreifen musst du mal schauen, ob da nicht ein Rückgabewert sinnvoll wäre.

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Dim p1 As New Player(100, 100, 100)
    6. Dim p2 As New Player(50, 100, 100)
    7. p1.Attack(p2)
    8. If p2.Lebenspunkte = 0 Then
    9. MessageBox.Show("Spieler2 ist tot")
    10. End If
    11. End Sub
    12. End Class

    @Mirishi
    Hier noch ein bisschen verbessert, weil ich gut drauf bin :)
    Player

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Player
    4. Private _Lebenspunkte As Integer
    5. ''' <summary>
    6. ''' Die Lebenspunkte des Spielers
    7. ''' </summary>
    8. Public Property Lebenspunkte As Integer
    9. Get
    10. Return _Lebenspunkte
    11. End Get
    12. Set(ByVal value As Integer)
    13. _Lebenspunkte = value
    14. RaiseEvent GotHurt()
    15. End Set
    16. End Property
    18. ''' <summary>
    19. ''' Die Angriffspunkte des Spielers
    20. ''' </summary>
    21. Public Property Angriffspunkte As Integer
    23. ''' <summary>
    24. ''' Die Verteidigungspunkte des Spielers
    25. ''' </summary>
    26. Public Property Verteidigungspunkte As Integer
    28. ''' <summary>
    29. ''' Event das ausgelöst wird, wenn der Spieler verletzt wird
    30. ''' </summary>
    31. ''' <remarks></remarks>
    32. Public Event GotHurt()
    34. ''' <summary>
    35. ''' Werte zuweisen
    36. ''' </summary>
    37. ''' <param name="l">Die Lebenspunkte</param>
    38. ''' <param name="a">Die Angriffspunkte</param>
    39. ''' <param name="v">Die Verteidigungspunkte</param>
    40. ''' <remarks></remarks>
    41. Sub New(ByVal l As Integer, ByVal a As Integer, ByVal v As Integer)
    42. Lebenspunkte = l
    43. Angriffspunkte = a
    44. Verteidigungspunkte = v
    45. End Sub
    47. ''' <summary>
    48. ''' Spieler greift anderen Spieler an
    49. ''' </summary>
    50. ''' <param name="p">Ein anderer Spieler</param>
    51. ''' <remarks></remarks>
    52. Public Sub Attack(ByVal p As Player)
    53. If p.Lebenspunkte + p.Verteidigungspunkte < Me.Angriffspunkte Then
    54. p.Lebenspunkte = 0
    55. Else
    56. p.Lebenspunkte = p.Lebenspunkte + p.Verteidigungspunkte - Me.Angriffspunkte
    57. End If
    58. End Sub
    59. End Class
    Form

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. WithEvents p2 As New Player(100, 100, 55) 'Withevents Instanz eines Spielers
    5. Public p1 As New Player(100, 100, 49) 'Normale Instanz
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. player1progress.Maximum = p1.Lebenspunkte 'Progressbar das Maximum der Lebenszahl zuweisen
    9. player2progress.Maximum = p2.Lebenspunkte
    10. End Sub
    12. Private Sub p2_GotHurt() Handles p2.GotHurt 'Wird ausgelöst wenn Spieler 2 verletzt wird
    13. If p2.Lebenspunkte <= 0 Then 'Wenn die Lebenspunkte 0 sind dann
    14. MessageBox.Show("Ich bin gefallen !")
    15. Else 'sonst
    16. MessageBox.Show("Ich wurde verletzt !")
    17. End If
    18. End Sub
    20. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    21. p1.Attack(p2) 'Schaden hinzufügen
    22. player1progress.Value = p1.Lebenspunkte 'Progressbars Werte zuweisen
    23. player2progress.Value = p2.Lebenspunkte
    24. End Sub
    25. End Class


    Edit: Oh ich war ja der letzte Poster, bitte Posts zusammenfügen.
    Edit by der_kurt: Done ;-)

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

    @Mirishi: Bevor Du hier loscodest und die Snippets von n Leuten kopierst und nicht verstehst, mach doch erst mal einen Plan.
    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!