Brauche Hilfe :)

    Hi leute, ich will mein eigenes kleines Poker-Spiel programmieren und habe schon probleme beim karten austeilen .. -_-

    Spoiler anzeigen
    [autoit]


    Global $fold = False
    global $handkarte [2]
    global $karte [5]
    global $i = 0

    [/autoit] [autoit][/autoit] [autoit]

    func KartenAusteilen ()
    while $i < 1
    $handkarte[$i] = int (random(2,14))
    switch $handkarte[$i]
    case 2

    case 3

    case 4

    case 5

    case 6

    case 7

    case 8

    case 9

    case 10

    case 11 ;Bube

    case 12 ; Dame

    case 13 ;König

    case 14 ; Ass

    $i = $i +1
    EndSwitch
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    KartenAusteilen()
    MsgBox (0,0,$handkarte[0] & $handkarte[1])

    [/autoit]

    er hängt sich irgendwo auf, da sich keine msgbox öffnet.. kann mir jmd kurz mein fehler zeigen?

    danke im vorraus

    Zeile 36 musst du ausserhalb des Switch schreiben da sonst eine Endlosschleife entsteht.
    Tipp: anstatt $var = $var + 1 kannst du auch $var += 1 schreiben

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    Die schleife läuft ja auch nur einmal durch sie startet bei 0 am ende wird plus 1 dazugerechnet deine abbruchbedingung ist aber "loope" wenn $i kleiner 1 ist nach einem durchlauf ist $i aber schon eins und somit --> abbruch

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    Hmm kann mir vllt jemand helfen oder einen Gedankenanstoß geben wie ich programmieren kann das keine Karte pro spiel 2x vorkommt?

    Hmm, ich fände es sehr Nett, wenn wir das zusammen scripten könnten. Adde mich doch bitte in ICQ: 261461364 ich lasse mir dann auch was einfallen zu den Karten austeilen ;)