Sub SelectBox_Click(Index As Integer) If PCPlayers(CurrentPlayer) = False Then If SelectBox(Index).BackStyle = 0 Then Exit Sub If Index < 6 Then Games(CurrentPlayer, Index) = HowManyThisDice(Index + 1) * (Index + 1) If Pref.SlotYahtzee > 0 Then If FindYahtzee = True Then AddYahtzee SlotUsed(CurrentPlayer, Index) = 1 StartNewRoll Else Select Case Index Case 12 'Small Straight If Pref.SlotYahtzee > 0 Then If FindYahtzee = True Then AddYahtzee If FindStraight4 = True Then Games(CurrentPlayer, GameSmallStraight) = 30 Else Games(CurrentPlayer, GameSmallStraight) = 0 End If SlotUsed(CurrentPlayer, GameSmallStraight) = 1 StartNewRoll Case 13 'Large Straight If Pref.SlotYahtzee > 0 Then If FindYahtzee = True Then AddYahtzee If FindStraight5 = True Then Games(CurrentPlayer, GameLargeStraight) = 40 Else Games(CurrentPlayer, GameLargeStraight) = 0 End If SlotUsed(CurrentPlayer, GameLargeStraight) = 1 StartNewRoll This is what I saw your project that was posted. What I don't understand is where your FindStraight(put the number here) comes from. I saw no other reference to it in the project........so ?
|