Slot Machinen Spiel

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Takafusa.

    Slot Machinen Spiel

    Ich versuche ein kleines Slot Maschinen spiel zu bauen aber es scheitert an einer simplen if abfrage vllt kann mir wer helfen
    Über ein Button wird ein Timer gestartet und wenn das Timerlabel 10 erreicht wird das rouletten der Bilder gestoppt

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim a As Integer
    4. Dim b As Integer
    5. Dim c As Integer
    6. Dim amount As Integer
    7. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    8. a = 1 + Int(Rnd() * 8)
    9. b = 1 + Int(Rnd() * 8)
    10. c = 1 + Int(Rnd() * 8)
    11. Timerlabel.Text = Timerlabel.Text + 1
    12. 'Erstes Slotfeld
    13. If a = 1 Then
    14. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\grape.png")
    15. Punkteoutputlabel.Text = +5
    16. End If
    17. If a = 2 Then
    18. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\cherries.png")
    19. Punkteoutputlabel.Text = +10
    20. End If
    21. If a = 3 Then
    22. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\orange.png")
    23. Punkteoutputlabel.Text = +20
    24. End If
    25. If a = 4 Then
    26. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\lemon.png")
    27. Punkteoutputlabel.Text = +30
    28. End If
    29. If a = 5 Then
    30. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\melon.png")
    31. Punkteoutputlabel.Text = +40
    32. End If
    33. If a = 6 Then
    34. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\seven.png")
    35. Punkteoutputlabel.Text = +50
    36. End If
    37. If a = 7 Then
    38. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bigwin.png")
    39. Punkteoutputlabel.Text = +100
    40. End If
    41. If a = 8 Then
    42. PictureBox1.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bananas.png")
    43. Punkteoutputlabel.Text = +60
    44. End If
    45. 'Zweites Slotfeld
    46. If b = 1 Then
    47. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\grape.png")
    48. Punkteoutputlabel2.Text = +5
    49. End If
    50. If b = 2 Then
    51. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\cherries.png")
    52. Punkteoutputlabel2.Text = +10
    53. End If
    54. If b = 3 Then
    55. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\orange.png")
    56. Punkteoutputlabel2.Text = +20
    57. End If
    58. If b = 4 Then
    59. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\lemon.png")
    60. Punkteoutputlabel2.Text = +30
    61. End If
    62. If b = 5 Then
    63. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\melon.png")
    64. Punkteoutputlabel2.Text = +40
    65. End If
    66. If b = 6 Then
    67. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\seven.png")
    68. Punkteoutputlabel2.Text = +50
    69. End If
    70. If b = 7 Then
    71. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bigwin.png")
    72. Punkteoutputlabel2.Text = +100
    73. End If
    74. If b = 8 Then
    75. PictureBox2.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bananas.png")
    76. Punkteoutputlabel2.Text = +60
    77. End If
    78. 'Drittes Slotfeld
    79. If c = 1 Then
    80. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\grape.png")
    81. Punkteoutputlabel3.Text = +5
    82. End If
    83. If c = 2 Then
    84. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\cherries.png")
    85. Punkteoutputlabel3.Text = +10
    86. End If
    87. If c = 3 Then
    88. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\orange.png")
    89. Punkteoutputlabel3.Text = +20
    90. End If
    91. If c = 4 Then
    92. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\lemon.png")
    93. Punkteoutputlabel3.Text = +30
    94. End If
    95. If c = 5 Then
    96. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\melon.png")
    97. Punkteoutputlabel3.Text = +40
    98. End If
    99. If c = 6 Then
    100. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\seven.png")
    101. Punkteoutputlabel3.Text = +50
    102. End If
    103. If c = 7 Then
    104. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bigwin.png")
    105. Punkteoutputlabel3.Text = +100
    106. End If
    107. If c = 8 Then
    108. PictureBox3.Image = Bitmap.FromFile("D:\payne\Downloads\HowTo - Slot Machine\HowTo - Slot Machine\Resources\bananas.png")
    109. Punkteoutputlabel3.Text = +60
    110. End If
    111. 'Ende der Slots
    112. If Timerlabel.Text = "10" Then
    113. Timer1.Stop()
    114. Auszahlunglabel.Text = ""
    115. Timerlabel.Text = "1"
    116. 'Start der Punkteabfrage
    117. 'Hier soll die abfrage der bilder stattfinden
    118. 'Ende der Punkteabfrage
    119. End If
    120. End Sub
    122. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    123. Timer1.Start()
    124. End Sub
    125. End Class

    Aber ich finde keine möglichkeit durch eine if abfrage herauszufinden ob mehrmals das selbe Bild vorhand ist und ich dann einen Wert angezeigt bekomme wenn ja, also bei 2 Grapes 10 oder bei 3 davon halt 15
    Vllt hat ja jemand ne Ahnung, bin immernoch absoluter Noob in visual basic und hab über nen Jahr nichts mehr damit gemacht, hab also komplett irgendwie alles vergessen was ich mal wusste...

    Der Code ist wirklich nicht gut. Du sagts, du hättest fast alle vergessen? Leider scheinbar auch das wichtigste. Objekt-Orientiertes-Programmieren.

    Ich hab jetzt deine "Hausaufgaben" zur hälfte gemacht, oder doch etwas mehr. Du willst ja auch bei 2 gleichen Symbolen einen Gewinn ausschütten, ich hab es nur mit 3 gleichen gemacht. Keine 30 Zeilen mehr Code als du, aber Objektorientiert und besser, allein schon wegen OOP, aber auch in der Formklasse ist nur das nötigste. Vorallem immer die Bitmaps neu laden, da sehe ich nur einen Grund für, Ressourcenverschwendung.
    SlotDisplay

    VB.NET-Quellcode

    1. Public Class SlotDisplay
    3. Private random As New Random()
    5. Const X As Integer = 50
    6. Const Y As Integer = 50
    7. Const Width As Integer = 700
    8. Const Height As Integer = 300
    10. Private slotLeft As New Slot(random)
    11. Private slotCenter As New Slot(random)
    12. Private slotRigth As New Slot(random)
    14. Public Event PlayerWin(slotValue As SlotValue)
    15. Public Event PlayerLost()
    17. Public Sub Paint(g As Graphics)
    18. slotLeft.Paint(g, New Point(X, Y))
    19. slotCenter.Paint(g, New Point(X + 250, Y))
    20. slotRigth.Paint(g, New Point(X + 500, Y))
    21. End Sub
    23. Public Sub Spin()
    24. slotLeft.Spin(random)
    25. slotCenter.Spin(random)
    26. slotRigth.Spin(random)
    28. If slotLeft.GetSlotValue() = slotCenter.GetSlotValue AndAlso slotLeft.GetSlotValue() = slotRigth.GetSlotValue() Then
    29. RaiseEvent PlayerWin(slotLeft.GetSlotValue())
    30. Else
    31. RaiseEvent PlayerLost()
    32. End If
    34. End Sub
    36. End Class

    Slot

    VB.NET-Quellcode

    1. Public Class Slot
    3. Private slotSymbols As New List(Of SlotSymbol)
    4. Private currentSymbolIndex As Integer = 0
    5. Private currentSlotValue As SlotValue
    7. Public Function GetSlotValue() As SlotValue
    8. Return currentSlotValue
    9. End Function
    11. Public Sub New(r As Random)
    12. 'mehrmals gleiche symbole, erhöhen glaub ich die chance 3 gleiche davon zu bekommen
    13. 'je wertvollor ein symbol umso weniger sollten davon vorkommen
    14. 'so hat man mehr kleine gewinnen, der spieler soll ja nicht 50 runden am stück verlieren
    15. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    16. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    17. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    18. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    19. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    20. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    21. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    22. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    23. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    24. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    25. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    26. slotSymbols.Add(New SlotSymbol(SlotValue.Apple, New Bitmap("./Images/apple.png")))
    27. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    28. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    29. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    30. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    31. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    32. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    33. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    34. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    35. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    36. slotSymbols.Add(New SlotSymbol(SlotValue.Banana, New Bitmap("./Images/banana.png")))
    37. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    38. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    39. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    40. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    41. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    42. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    43. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    44. slotSymbols.Add(New SlotSymbol(SlotValue.Cherry, New Bitmap("./Images/cherry.png")))
    45. slotSymbols.Add(New SlotSymbol(SlotValue.Orange, New Bitmap("./Images/orange.png")))
    46. slotSymbols.Add(New SlotSymbol(SlotValue.Orange, New Bitmap("./Images/orange.png")))
    47. slotSymbols.Add(New SlotSymbol(SlotValue.Orange, New Bitmap("./Images/orange.png")))
    48. slotSymbols.Add(New SlotSymbol(SlotValue.Orange, New Bitmap("./Images/orange.png")))
    49. slotSymbols.Add(New SlotSymbol(SlotValue.Orange, New Bitmap("./Images/orange.png")))
    50. slotSymbols.Add(New SlotSymbol(SlotValue.Orange, New Bitmap("./Images/orange.png")))
    51. slotSymbols.Add(New SlotSymbol(SlotValue.Lemon, New Bitmap("./Images/lemon.png")))
    52. slotSymbols.Add(New SlotSymbol(SlotValue.Lemon, New Bitmap("./Images/lemon.png")))
    53. slotSymbols.Add(New SlotSymbol(SlotValue.Lemon, New Bitmap("./Images/lemon.png")))
    54. slotSymbols.Add(New SlotSymbol(SlotValue.Lemon, New Bitmap("./Images/lemon.png")))
    55. slotSymbols.Add(New SlotSymbol(SlotValue.Raspberry, New Bitmap("./Images/raspberry.png")))
    56. slotSymbols.Add(New SlotSymbol(SlotValue.Raspberry, New Bitmap("./Images/raspberry.png")))
    57. End Sub
    59. Public Sub Paint(g As Graphics, position As Point)
    60. slotSymbols(currentSymbolIndex).Paint(g, position)
    61. End Sub
    63. Public Sub Spin(r As Random)
    64. currentSymbolIndex = r.Next(0, slotSymbols.Count)
    65. currentSlotValue = slotSymbols(currentSymbolIndex).GetSlotValue()
    66. End Sub
    68. End Class

    SlotSymbol

    VB.NET-Quellcode

    1. Public Class SlotSymbol
    3. Private slotValue As SlotValue
    4. Public slotImage As Bitmap
    6. Public Function GetSlotValue() As SlotValue
    7. Return slotValue
    8. End Function
    10. Public Sub New(slotvalue As SlotValue, image As Bitmap)
    11. Me.slotValue = slotvalue
    12. slotImage = image
    13. End Sub
    15. Public Sub Paint(g As Graphics, p As Point)
    16. g.DrawImage(slotImage, p)
    17. End Sub
    19. End Class

    SlotValue

    VB.NET-Quellcode

    1. Public Enum SlotValue
    2. Apple = 5
    3. Banana = 10
    4. Cherry = 25
    5. Orange = 50
    6. Lemon = 100
    7. Raspberry = 250
    8. End Enum


    Form1

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents slotmachine As New SlotDisplay
    5. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    6. slotmachine.Paint(e.Graphics)
    7. End Sub
    9. Private Sub ButtonSpin_Click(sender As Object, e As EventArgs) Handles ButtonSpin.Click
    10. slotmachine.Spin()
    11. Invalidate()
    12. End Sub
    14. Private Sub slotmachine_PlayerLost() Handles slotmachine.PlayerLost
    15. Label1.Text = "You Lost!"
    16. End Sub
    18. Private Sub slotmachine_PlayerWin(slotValue As SlotValue) Handles slotmachine.PlayerWin
    19. Label1.Text = "You Win " & CInt(slotValue) & " Points!"
    20. End Sub
    22. End Class


    Projekt im Anhang, bereinigt, aber "bin/debug/images", "bin/release/images" Ordner erhalten mit den Bildern.
    Dateien

    • SlotEx.zip

      (40,14 kB, 77 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Takafusa“ ()

    Oha vielen dank schonmal, werd mich mal durch den Code arbeiten um zu sehen wie du dort was genau gemacht hast um das zu verstehen.


    Ok hab den Code nochmal bisschen angepasst und jetzt funktioniert es schonmal so wie ich es gern hätte.
    Ein weiteres Problem habe ich nur noch, und zwar habe ich die Slots Maschine mit meinem Twitch Chat verbunden.
    Sobald jetzt jemand zb "!slots" schreibt dann soll die Form sichtbar werden und der Slotspin starten und nachdem er fertig ist wieder die Form hiden.
    Ich kann mich auch verbinden, die Nachrichten auslesen etc..alles wunderbar...jedoch kann ich von dort aus nicht meine Form hiden oder meinen Timer starten weil das ganze in ner eigenen Instanz läuft oder so ?!
    Habe was von nem Threading Timer gefunden aber der stoppt halt auch net, krieg damit die Slotmaschine ans laufen aber die hört halt nicht auf, ich blick bei dem Teil absolut net durch.

    Hier der Code
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports TwitchLib.Client
    3. Imports TwitchLib.Client.Enums
    4. Imports TwitchLib.Client.Events
    5. Imports TwitchLib.Client.Extensions
    6. Imports TwitchLib.Client.Models
    7. Imports System.Threading
    8. Imports System.Timers
    9. Public Class Form1
    10. Private client As TwitchClient
    11. Dim message As String = Nothing
    12. Dim username As String = Nothing
    13. Dim winAmount As Integer
    14. Dim spintime As Integer = 1
    15. Private WithEvents slotmachine As New SlotDisplay
    17. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    18. slotmachine.Paint(e.Graphics)
    19. End Sub
    21. Private Sub slotmachine_PlayerLost() Handles slotmachine.PlayerLost
    22. 'Verloren
    23. End Sub
    25. Private Sub slotmachine_PlayerWin(slotValue As SlotValue) Handles slotmachine.PlayerWin
    26. winAmount = CInt(slotValue)
    27. End Sub
    29. Private Sub SpinTimer_Tick(sender As Object, e As EventArgs) Handles SpinTimer.Tick
    30. spintime = spintime + 1
    31. slotmachine.Spin()
    32. Invalidate()
    33. If spintime = 20 Then
    34. spintime = 1
    35. SpinTimer.Stop()
    36. End If
    37. End Sub
    39. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    40. Dim credentials As New ConnectionCredentials("TWITCHACCOUNT", "OAUTHTOKEN")
    42. client = New TwitchClient()
    43. client.Initialize(credentials, "CHANNELNAME")
    44. AddHandler client.OnJoinedChannel, AddressOf onJoinedChannel
    45. AddHandler client.OnMessageReceived, AddressOf onMessageReceived
    46. AddHandler client.OnWhisperReceived, AddressOf onWhisperReceived
    47. AddHandler client.OnNewSubscriber, AddressOf onNewSubscriber
    48. AddHandler client.OnConnected, AddressOf Client_OnConnected
    49. AddHandler client.OnDisconnected, AddressOf Client_OnDisconnected
    50. client.Connect()
    51. End Sub
    53. Private Sub Client_OnConnected(ByVal sender As Object, ByVal e As OnConnectedArgs)
    54. MessageBox.Show("Connected")
    55. End Sub
    57. Private Sub Client_OnDisconnected()
    58. MessageBox.Show("Disconnected")
    59. End Sub
    60. Private Sub onJoinedChannel(ByVal sender As Object, ByVal e As OnJoinedChannelArgs)
    61. client.SendMessage(e.Channel, "Ich bin der SirBotAlot, und bin auch dabei!")
    62. End Sub
    64. Private Sub onMessageReceived(ByVal sender As Object, ByVal e As OnMessageReceivedArgs)
    65. If e.ChatMessage.Message.Contains("!slots") Then
    66. username = e.ChatMessage.Username
    67. message = e.ChatMessage.Message
    68. 'Slots starten
    69. SpinTimer.Start()
    70. '
    71. ElseIf e.ChatMessage.Message.Contains("Hallo") Or e.ChatMessage.Message.Contains("hallo") Then
    72. username = e.ChatMessage.Username
    73. client.SendMessage("SirDieAlotTV", "Hallo " & username)
    74. ElseIf e.ChatMessage.Message.Contains("Hi") Or e.ChatMessage.Message.Contains("hi") Then
    75. username = e.ChatMessage.Username
    76. client.SendMessage("SirDieAlotTV", "Hi " & username)
    77. ElseIf e.ChatMessage.Message.Contains("Hey") Or e.ChatMessage.Message.Contains("hey") Then
    78. username = e.ChatMessage.Username
    79. client.SendMessage("SirDieAlotTV", "Hey " & username)
    80. ElseIf e.ChatMessage.Message.Contains("Moin") Or e.ChatMessage.Message.Contains("moin") Then
    81. username = e.ChatMessage.Username
    82. client.SendMessage("SirDieAlotTV", "Moin " & username)
    83. End If
    84. End Sub
    85. Private Sub onWhisperReceived(ByVal sender As Object, ByVal e As OnWhisperReceivedArgs)
    86. 'If e.WhisperMessage.Username = "my_friend" Then
    87. 'client.SendWhisper(e.WhisperMessage.Username, "Hey! Whispers are so cool!!")
    88. 'End If
    89. End Sub
    90. Private Sub onNewSubscriber(ByVal sender As Object, ByVal e As OnNewSubscriberArgs)
    91. 'If e.Subscriber.SubscriptionPlan = SubscriptionPlan.Prime Then
    92. 'client.SendMessage(e.Channel, $"Welcome {e.Subscriber.DisplayName} to the substers! You just earned 500 points! So kind of you to use your Twitch Prime on this channel!")
    93. 'Else
    94. 'client.SendMessage(e.Channel, $"Welcome {e.Subscriber.DisplayName} to the substers! You just earned 500 points!")
    95. 'End If
    96. End Sub
    97. End Class

    Ansonsten auch nochmal im Ahang als Projektdatei


    Also habs jetzt nachträglich noch hinbekommen, aber da ich eine Slotmaschinen drehung "emulieren" will hab ich die ganze Spin funktion in einen Timer gepackt der an nem bestimmten Punkt stoppt..aber er kann ja währenddessen trotzdem mehrmals einen gewinn oder lose würfeln bis das ganze fertig is..und postet dann jedesmal das selbige im Chat...vllt ne Idee dazu

    Beiträge zusammengefügt. ~Thunderbolt
    Dateien

    • SlotEx-Edited.rar

      (18,2 MB, 64 mal heruntergeladen, zuletzt: )

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

    Also ein Twitch-User schriebt im Chat auf Twitch "!slot" und der Apparat soll sichtbar werden. Das ist einfach, das hast ja bereits im Form das Twitch Zeug, das ganze Form mit Form.Hide und Form.Show anzeigen, ist schon jemand am Slot, im Chat eine Meldung machen, das der Apparat besetzt ist. Nur was mir auch nicht klar ist wie du es realisieren willst, das ein User mehrere Spins machen sollen kann, würde auch via Chat funktionieren, aber den Chat willst du sicher nicht mit sowas vollgespamt haben. Daher würde ich eher auf eine automatik setzen, wie sie echte Spielautomaten auch haben.

    Meine Idee dazu, ein User startet den Automaten, bekommt eine feste Anzahl an Spins, jedes mal wenn ein Spin fertig ist, von der Variable 1 abziehen, wenn diese aber > 0 ist, einfach einen neuen Spin starten, sobald sie 0 ist, kannst du sicherlich irgendwie auch an den Chat senden, sowas wie: "SpinBot: User XXX hat 1001 Gummipunkte erspielt.". Könnte man noch eine Highscore Tabelle machen und diese Kurz einblenden, wenn ein Top 10 Highscore aufgestellt wurde.

    Um im Form feststellen zu können wann keine Spins mehr übrig sind, mach eine Sub AutoSpin(spinCount as integer) in den SlotDisplay, sowie eine Variable für die Anzahl an Spins. Dann wird dort solange gespielt bis keine Spins mehr übrig sind, dann feuerst du ein Event welches du in der Form abboniert hast, "GameOver" wäre ein guter Name, so wie ich das mit Win/Lost gemacht hab. Dann hast du einen Auslöser der dann an den Chat sendet, sowie auch einen möglichen neuen Highscore zu zeigen.

    Ich ändere meinen SlotEx Code im Laufe des Tages ein wenig, hänge das Projekt dann später an, dann kannst du das bei dir reinmachen.

    So habe meinen Code auf deine Bedürfnisse angepasst. Die Bilder sind nun in den Ressourcen. Weiteres Form hinzugefügt, dieses Form wird dann bei Bedarf instanziert und alles läuft von allein. Die Slotmachine ist nun ein Control, einfach aus der ToolBox aufs Form werfen, wenn die Bilder in den Ressourcen sind.
    Schaut ganz passabel aus. Nun wird auch ein Gewinn ausgeschüttet wenn 2 Slots gleich sind, dafür aber beim Drilling die doppelten Punkte.
    Demovideo:
    streamable.com/asx01q

    Nun kannst du alles in der Klasse Form1 starten. Du musst nur noch die Twitch-Sachen einbauen, evtl auch noch die Anzahl pro "Bild" in Slot.vb ändern, damit nicht zu viel oder zu wenig gewonnen wird.
    Dateien

    • SlotEx_V2.zip

      (174,25 kB, 83 mal heruntergeladen, zuletzt: )

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

Facebook
Telefonspende