C言語でトランプゲームを作りたい

C言語でトランプゲームを作りたいat TECH

C言語でトランプゲームを作りたい - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

658:デフォルトの名無しさん
 08/12/19 15:42:53 
自己解決しました。 
 
    Private Function isStreat(ByVal card() As Card) As Boolean 
        Dim sortedCard(4) As Integer 
        sortedCard(0) = card(0).Number 
        sortedCard(1) = card(1).Number 
        sortedCard(2) = card(2).Number 
        sortedCard(3) = card(3).Number 
        sortedCard(4) = card(4).Number 
        Array.Sort(sortedCard) 
 
        If sortedCard.Contains(13) And sortedCard.Contains(1) Then 
            If sortedCard(0) = 1 Then 
                sortedCard(0) = 14 
            End If 
            If sortedCard(1) = 2 Then 
                sortedCard(1) = 15 
            End If 
            If sortedCard(2) = 3 Then 
                sortedCard(2) = 16 
            End If 
            If sortedCard(3) = 4 Then 
                sortedCard(3) = 17 
            End If 
            Array.Sort(sortedCard) 
        End If 
 
        If sortedCard(0) + 1 = sortedCard(1) And sortedCard(1) + 1 = sortedCard(2) And sortedCard(2) + 1 = sortedCard(3) And sortedCard(3) + 1 = sortedCard(4) Then 
            Return True 
        End If 
        Return False 
    End Function

次ページ