For/Next issue again

[nitekram]

OK - I created this script and want to make it deals cards the right way ( after getting some help on a new deck ). My problem is that my script has already been created and I really do not want to start over again - maybe I have to though.

What I need help on is to create the For/Next loop to go through the loop and only pass each person a card and then go back and deal another card to each person - then call my _Points() function and add the points.

I am really tired or this is impossible - can you help.

The function that is in question is line 669

Func _Deal()
    ;MsgBox(0, "test", "_Deal")
    
    $BestHand = 0
    If @error Then MsgBox('', 'ERROR DEALING', @error)
    
    If $FirstDeal And Not $TESTING Then
        _ClearGUI(0)
    Else
        $FirstDeal = 0
    EndIf
    
    If $FirstRun Then
        SoundPlay($SoundsFileShuffle, 1)
        For $i = 0 To $TotalPlayers * 2 - 1
            $iCard[$i] = _NewCard()
            ConsoleWrite($i & ' ' & $iCard[$i] & @CRLF)
            GUICtrlSetImage($aPic[$i], "Cards\blank.jpg")
            Sleep($DealDelay)
            ;
            GUICtrlSetImage($aPic[$i], "Cards\" & $iCard[$i] & ".gif")
            If $Sounds Then SoundPlay($SoundsFileDeal, $SoundsFast)
            ;_Percent($i) ; calls with value of $i the value of the card
            _Points($i)
        Next
        $FirstRun = 0
    Else
        
    EndIf

EndFunc   ;==>_Deal

Thanks

[nitekram]

Nevermind - found a way to make it work.

For $i = 0 To $TotalPlayers * 2 - 1 Step 2
                $iCard[$i] = _NewCard()
                ConsoleWrite($i & ' ' & $iCard[$i] & @CRLF)
                GUICtrlSetImage($aPic[$i], "Cards\blank.jpg")
                Sleep($DealDelay)
                ;
                GUICtrlSetImage($aPic[$i], "Cards\" & $iCard[$i] & ".gif")
                If $Sounds Then SoundPlay($SoundsFileDeal, $SoundsFast)
                ;_Percent($i) ; calls with value of $i the value of the card
                ;_Points($i)
            Next
            
            
            For $i = 1 To $TotalPlayers * 2 - 1 Step 2
                $iCard[$i] = _NewCard()
                ConsoleWrite($i & ' ' & $iCard[$i] & @CRLF)
                GUICtrlSetImage($aPic[$i], "Cards\blank.jpg")
                Sleep($DealDelay)
                ;
                GUICtrlSetImage($aPic[$i], "Cards\" & $iCard[$i] & ".gif")
                If $Sounds Then SoundPlay($SoundsFileDeal, $SoundsFast)
                ;_Percent($i) ; calls with value of $i the value of the card
                ;_Points($i)
            Next
            
            For $i = 0 To $TotalPlayers * 2 - 1
                _Points($i)
            Next