Von |
nPUltra |
Am |
10. Juni 2008 um 21:40:52 |
Frage |
Hallo. Ich habe ein Problem bei meinem Black Jack. Asse zaehlen ja immer 1 oder 11. Wenn der Dieler <<< (Wenn ich es richtig schreibe, vbFun - falsches Wort, darf nicht) seine Karten zieht sieht es bei mir so aus (cards32.dll):If Karte(lngZaehler) >= 0 And Karte(lngZaehler) <= 3 Then If intDCount + 11 >= 22 Then intDCount = intDCount + 1 Else intDCount = intDCount + 11 End If ElseIf Karte(lngZaehler) >= 4 And Karte(lngZaehler) <= 7 Then intDCount = intDCount + 2 ElseIf Karte(lngZaehler) >= 8 And Karte(lngZaehler) <= 11 Then intDCount = intDCount + 3 ElseIf Karte(lngZaehler) >= 12 And Karte(lngZaehler) <= 15 Then intDCount = intDCount + 4 ElseIf Karte(lngZaehler) >= 16 And Karte(lngZaehler) <= 19 Then intDCount = intDCount + 5 ElseIf Karte(lngZaehler) >= 20 And Karte(lngZaehler) <= 23 Then intDCount = intDCount + 6 ElseIf Karte(lngZaehler) >= 24 And Karte(lngZaehler) <= 27 Then intDCount = intDCount + 7 ElseIf Karte(lngZaehler) >= 28 And Karte(lngZaehler) <= 31 Then intDCount = intDCount + 8 ElseIf Karte(lngZaehler) >= 32 And Karte(lngZaehler) <= 35 Then intDCount = intDCount + 9 ElseIf Karte(lngZaehler) >= 36 And Karte(lngZaehler) <= 51 Then intDCount = intDCount + 10 End If Aber damit hat der Spieler ein Vorteil, da der Dieler, wenn er z.b. 4 und Ass bekommt, Punkte von 15 hat. Nun zieht er noch eine und es kommt eine 9 (Also 24). Aber normalerweise muesste der Dieler nun 14 haben.
Wie kann ich das am besten realisieren?
MFG Non Plus Ultra |
|