Game: Damage System Bug

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Tixewi.

    Game: Damage System Bug

    Hi Leute,

    ich habe ein kleines Spiel begonnen zu programmieren. Es ist nicht das erste was ich mit VB mache aber ich bin jetzt auch noch kein Profi.
    Da Spiel ist sehr Simple aufgebaut aber darauf will ich jetzt nicht weiter eingehen.


    Mein Spiel ist ein Strategie Spiel (Rundenbasierend) ohne Engine sondern mit png's. Das Spiel braucht 2 Spieler vor dem PC (1vs1). Man kann Einheiten bauen und man kann auf einem "Battlefield" kämpfen.


    Das Problem:

    Bürger (50% Chance) vs Bürger (50% Chance) klappt soweit.
    Bürger (1/3 Chance) vs Speerträger (2/3 Chance) passiert folgendes: Anstatt dass eine Meldung erscheint das ein Spieler eine Einheit verloren hat und diese Verschwindet kommt einfach garnichts. Die Random Zahl wird jedoch generiert. Die Random Zahl ist z.b. 1. Der Bürger sollte bei 0-4 Sterben. Dies Passiert aber nicht, weder der Bürger noch der Speer stirbt. Erst nach mehrmaligem wiederholen kommt die Meldung das ein Spieler eine Einheit verloren hat.

    Soweit zu Problem 1. Problem 2 ist ebenfalls im Bereich Bürger vs Speer:
    Stirbt eine Einheit wird manchmal in der Anzeige die Einheitenzahl um 1 gesenkt und manchmal nicht! Bei Bürger vs Bürger funktioniert dies allerdings immer.


    Soweit die Theorie in der Praxis sieht allerdings für mich nach 10-20maligem überarbeiten richtig aus.

    Bevor ich zum Code komme muss ich noch erklären das es ein Combat Check System gibt. Es Prüft welche Einheit ausgewählt ist. Die Combat_ID wird beim Bewegen der Einheit automatisch geändert!

    Der Code ist aus der Sicht des 2.Spielers!

    Battle ID:
    1 = Bürger
    2 = Speer


    VB.NET-Quellcode

    1. Private Sub CombatCheck()
    2. If My.Settings.combat_id_p2 = "Villager" Then
    3. 'Dorfbewohner vs Dorfbewohner
    4. If ButtonVillager.Visible = True Then
    5. If ButtonVillager_p2.Location = ButtonVillager.Location Then
    6. My.Settings.battle_id_unit = "1"
    7. My.Settings.battle_id_unit_p2 = "1"
    8. CombatSystem()
    9. End If
    10. End If
    12. 'Dorfbewohner vs Speer
    13. If ButtonSpear.Visible = True Then
    14. If ButtonVillager_p2.Location = ButtonSpear.Location Then
    15. My.Settings.battle_id_unit = "2"
    16. My.Settings.battle_id_unit_p2 = "1"
    17. CombatSystem()
    18. End If
    19. End If
    21. End If
    23. If My.Settings.combat_id_p2 = "Spear" Then
    24. 'Speer vs Dorfbewohner
    25. If ButtonVillager.Visible = True Then
    26. If ButtonSpear_p2.Location = ButtonVillager.Location Then
    27. My.Settings.battle_id_unit = "1"
    28. My.Settings.battle_id_unit_p2 = "2"
    29. CombatSystem()
    30. End If
    31. End If
    33. 'Speer vs Speer
    34. If ButtonSpear.Visible = True Then
    35. If ButtonSpear_p2.Location = ButtonSpear.Location Then
    36. My.Settings.battle_id_unit = "2"
    37. My.Settings.battle_id_unit_p2 = "2"
    38. CombatSystem()
    39. End If
    40. End If
    42. End If
    43. End Sub



    Das war das Combat Check System. Nun zum CombatSystem:

    VB.NET-Quellcode

    1. Private Sub CombatSystem()
    2. '----------------------------
    3. ' Combat System Informaition:
    4. '----------------------------
    5. '----------------------------
    6. '----------------------------
    7. ' Units
    8. '----------------------------
    9. ' Battle ID Unit 1 = Dorfbewohner
    10. ' Battle ID Unit 2 = Speer
    11. ' Battle ID Unit 3 = Schwert 1
    12. ' Battle ID Unit 4 = Schwert 2
    13. '----------------------------
    14. 'Sound
    15. '----------------------------
    16. If My.Settings.setting_sound = "yes" Then My.Computer.Audio.Play(My.Resources.alert, AudioPlayMode.Background)
    17. '----------------------------
    18. 'CombatSystem
    19. '----------------------------
    20. 'Villager
    21. If My.Settings.battle_id_unit_p2 = "1" Then
    22. If My.Settings.battle_id_unit = "1" Then
    23. 'Unit 1 vs Unit 1
    24. Dim rnd As New Random()
    25. Dim result As Integer = rnd.Next(0, 10)
    26. LabelWin.Text = result
    27. '0-4 = Ich verliere | 5-9 = Anderer verliert | 1:1
    28. If LabelWin.Text > "4" Then
    29. ButtonVillager.Hide()
    30. player1map2.ButtonVillager.Hide()
    31. My.Settings.people = My.Settings.people - 1
    32. My.Settings.unit_villager = My.Settings.unit_villager - 1
    33. player1map1.ButtonVillager.Show()
    34. player1map1.LabelPeople.Text = player1map1.LabelPeople.Text - 1
    35. MsgBox("Player 1 has lost one unit!", MsgBoxStyle.Information, "Combat")
    36. ElseIf LabelWin.Text < "5" Then
    37. ButtonVillager_p2.Hide()
    38. player1map2.ButtonVillager_p2.Hide()
    39. My.Settings.people_p2 = My.Settings.people_p2 - 1
    40. My.Settings.unit_villager_p2 = My.Settings.unit_villager_p2 - 1
    41. player2map1.ButtonVillager.Show()
    42. player2map1.LabelPeople.Text = player2map1.LabelPeople.Text - 1
    43. MsgBox("Player 2 has lost one unit!", MsgBoxStyle.Information, "Combat")
    44. End If
    45. ElseIf My.Settings.battle_id_unit = "2" Then
    46. 'Unit 1 vs Unit 2
    47. Dim rnd2 As New Random()
    48. Dim result As Integer = rnd2.Next(0, 15)
    49. LabelWin.Text = result
    50. '0-9 = Ich verliere | 10-14 = Anderer verliert | 2:1
    51. If LabelWin.Text > "9" Then
    52. ButtonSpear.Hide()
    53. player1map2.ButtonSpear.Hide()
    54. My.Settings.people = My.Settings.people - 1
    55. My.Settings.unit_spear = My.Settings.unit_spear - 1
    56. player1map1.ButtonSpear.Show()
    57. player1map1.LabelPeople.Text = player1map1.LabelPeople.Text - 1
    58. MsgBox("Player 1 has lost one unit!", MsgBoxStyle.Information, "Combat")
    59. ElseIf LabelWin.Text < "10" Then
    60. ButtonVillager_p2.Hide()
    61. player1map2.ButtonVillager_p2.Hide()
    62. My.Settings.people_p2 = My.Settings.people_p2 - 1
    63. My.Settings.unit_villager_p2 = My.Settings.unit_villager_p2 - 1
    64. player2map1.ButtonVillager.Show()
    65. player2map1.LabelPeople.Text = player2map1.LabelPeople.Text - 1
    66. MsgBox("Player 2 has lost one unit!", MsgBoxStyle.Information, "Combat")
    67. End If
    69. End If
    70. End If
    72. 'Speer
    73. If My.Settings.battle_id_unit_p2 = "2" Then
    74. If My.Settings.battle_id_unit = "1" Then
    75. 'Unit 2 vs Unit 1
    76. Dim rnd3 As New Random()
    77. Dim result As Integer = rnd3.Next(0, 15)
    78. LabelWin.Text = result
    79. '0-4 = Ich verliere | 5-14 = Anderer verliert | 1:2
    80. If LabelWin.Text > "4" Then
    81. ButtonVillager.Hide()
    82. player1map2.ButtonVillager.Hide()
    83. My.Settings.people = My.Settings.people - 1
    84. My.Settings.unit_villager = My.Settings.unit_villager - 1
    85. player1map1.ButtonVillager.Show()
    86. player1map1.LabelPeople.Text = player1map1.LabelPeople.Text - 1
    87. MsgBox("Player 1 has lost one unit!", MsgBoxStyle.Information, "Combat")
    88. ElseIf LabelWin.Text < "5" Then
    89. ButtonSpear_p2.Hide()
    90. player1map2.ButtonSpear_p2.Hide()
    91. My.Settings.people_p2 = My.Settings.people_p2 - 1
    92. My.Settings.unit_spear_p2 = My.Settings.unit_spear_p2 - 1
    93. player2map1.ButtonSpear.Show()
    94. player2map1.LabelPeople.Text = player2map1.LabelPeople.Text - 1
    95. MsgBox("Player 2 has lost one unit!", MsgBoxStyle.Information, "Combat")
    96. End If
    97. ElseIf My.Settings.battle_id_unit = "2" Then
    98. 'Unit 2 vs Unit 2
    99. Dim rnd4 As New Random()
    100. Dim result As Integer = rnd4.Next(0, 10)
    101. LabelWin.Text = result
    102. '0-4 = Ich verliere | 5-9 = Anderer verliert
    103. If LabelWin.Text > "4" Then
    104. ButtonSpear.Hide()
    105. player1map2.ButtonSpear.Hide()
    106. My.Settings.people = My.Settings.people - 1
    107. My.Settings.unit_spear = My.Settings.unit_spear - 1
    108. player1map1.ButtonSpear.Show()
    109. player1map1.LabelPeople.Text = player1map1.LabelPeople.Text - 1
    110. MsgBox("Player 1 has lost one unit!", MsgBoxStyle.Information, "Combat")
    111. ElseIf LabelWin.Text < "5" Then
    112. ButtonSpear_p2.Hide()
    113. player1map2.ButtonSpear_p2.Hide()
    114. My.Settings.people_p2 = My.Settings.people_p2 - 1
    115. My.Settings.unit_spear_p2 = My.Settings.unit_spear_p2 - 1
    116. player2map1.ButtonSpear.Show()
    117. player2map1.LabelPeople.Text = player2map1.LabelPeople.Text - 1
    118. MsgBox("Player 2 has lost one unit!", MsgBoxStyle.Information, "Combat")
    119. End If
    121. End If
    122. End If
    124. End Sub



    Wenn ihr das ganze Problem Live sehen wollt: >Hier gehts zur Homepage des Games<
    edit: Beachtet das ich von der Version 0.4.2_11 Alpha rede, welche gerade als patch auf den server gezogen worden ist (16:12Uhr). Der Alpha Key ist 8211.

    Ich hoffe ich habe nichts vergessen zu erwähnen. Wenn ihr mir helfen könntet wäre das echt super ^^ - Danke schomal im vorraus.

    mfg Tixewi

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Tixewi“ ()

    Bitte mal den Editor in "Quellcode" umschalten und dann noch mal den Code einfügen. Post bitte EDITIEREN und nicht NEU schreiben!
    Ohne Einrückungen wird man total blind. Allerdings mixt du auch wild Design und Logik - das machts nicht besser/einfacher lesbar!

    dürfte daran liegen dass du mit Strings RECHNEST!!!

    If Zahl < "10" -> sortierung erfolgt ALPHABETISCH! Bei einstelligen "Zahlen" kein Problem, aber bei zweistelligen ... BANG

    Denn!!!
    "2" ist größer als "10"
    aber
    2 ist kleiner als 10!!!

    Den wert im Label bitte nur zur ANZEIGE verwenden. Zum rechnen, vergleichen etc bitte mit deiner Variable "result" arbeiten!

    Ansonsten: Nun ja ;) SEHR viel Redundanz. Das nächste was du lernen möchtest ist sicherlich: Was sind Klassen und wie setze ich sie sinnvoll ein ;)

    Danke picoflop :thumbsup: . Allerdings hat sich dadurch Problem 2 verschlechtert. Jetzt zieht es bei beiden Spielern die getöteten Einheiten ab. Ich schau mal ob ich es herausfinde woran das liegt. Hoffe das ist nicht wieder was was ich nicht weis hehe.

    Edit: Kann keine neue Antwort grad schreiben also so:

    Player 1 funktioniert nun Bugfrei. Das heißt nur wenn Spieler 2 eine Einheit verliert wird nichts abgezogen ich schaue mal ob des an ner anderen Stelle vom Code liegt.



    Edit Edit: Haha ich habs gefunden. Spieler 1 hatte das nichtmehr wenn man auf die Dorfansicht zurück geht:

    VB.NET-Quellcode

    1. 'People Akutallisieren
    2. player2map1.LabelPeople.Text = My.Settings.people


    Wenn man das raus nimmt geht alles. Danke nochmal ;)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Tixewi“ ()

    Kleiner Quickhack, um zu zeigen worauf ich hinaus will:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Warrior
    2. Public Name As String
    3. Public AttackStrength As Integer
    4. Public DefenseStrength As Integer
    5. Public Agility As Integer
    6. Public PlayerID As Integer
    7. End Class
    9. Public Class Kampfergebnis
    10. Public Losses(1) As Integer
    11. Public IsOver As Boolean = False
    12. End Class
    17. Public Class BattleSystem
    19. Private ListeP1 As New List(Of Warrior)
    20. Private ListeP2 As New List(Of Warrior)
    21. Private r As New Random
    24. Public Sub foo()
    26. ListeP1.Clear()
    27. For i = 1 To 100
    28. Dim Buerger As New Warrior With {.Name = "Bürger", .AttackStrength = 5, .DefenseStrength = 2, .Agility = 4, .PlayerID = 0}
    29. ListeP1.Add(Buerger)
    30. Next
    31. ListeP2.Clear()
    32. For i = 1 To 50
    33. Dim Speertraeger As New Warrior With {.Name = "Speerträger", .AttackStrength = 15, .DefenseStrength = 3, .Agility = 3, .PlayerID = 1}
    34. ListeP2.Add(Speertraeger)
    35. Next
    37. Dim erg As Kampfergebnis
    38. Dim max As Integer = 5
    39. Do
    40. erg = Me.Fight(ListeP1, ListeP2)
    41. ListeP1.RemoveRange(0, erg.Losses(0))
    42. ListeP2.RemoveRange(0, erg.Losses(1))
    43. max -= 1
    44. Loop Until erg.IsOver Or max = 0
    46. Debug.Print("done")
    50. End Sub
    52. Public Function Fight(ByVal l1 As List(Of Warrior), ByVal l2 As List(Of Warrior)) As Kampfergebnis
    54. Dim erg As New Kampfergebnis
    56. ' Beide Listen in eine kopieren
    57. Dim Alle As New List(Of Warrior)
    58. Alle.AddRange(l1.ToArray)
    59. Alle.AddRange(l2.ToArray)
    61. ' Die Liste neu sortieren mit einem zufallswert für agility
    62. Dim Sortiert As New List(Of Warrior)
    63. Sortiert.AddRange((From w As Warrior In Alle Select w Order By (w.Agility * r.Next(1, 4))).ToArray)
    65. ' KAMPFFFFFF!
    66. While Sortiert.Count > 1
    67. ' Angreifer:
    68. Dim att As Warrior = Sortiert(0)
    69. Sortiert.RemoveAt(0)
    70. ' Verteidiger:
    71. Dim defliste = From w As Warrior In Sortiert Where w.PlayerID = (att.PlayerID + 1) Mod 2
    72. If defliste.Count = 0 Then Exit While
    73. Dim defnum = r.Next(0, defliste.Count)
    74. Dim def As Warrior = defliste(defnum)
    75. Sortiert.Remove(def)
    77. Dim WinRatio As Double = att.AttackStrength / (att.AttackStrength + def.DefenseStrength)
    78. If r.NextDouble() < WinRatio Then
    79. ' angreifer gewinnt
    80. Debug.Print(att.Name & " erschlägt " & def.Name)
    81. erg.Losses(def.PlayerID) += 1
    82. End If
    85. End While
    87. If erg.Losses(0) = l1.Count OrElse erg.Losses(1) = l2.Count Then
    88. erg.IsOver = True
    89. Else
    90. erg.IsOver = False
    91. End If
    93. Return erg
    95. End Function
    98. End Class


    Ist mE viel "lesbarer" ...