Sub CycleFutureDMD()
Dim GameWinner
If NvScore1 > NvScore2 and NvScore1 > NvScore3 and NvScore1 > NvScore4 Then
GameWinner = NvScore1
End if
If NvScore2 > NvScore1 and NvScore2 > NvScore3 and NvScore2 > NvScore4 Then
GameWinner = NvScore2
End if
If NvScore3 > NvScore1 and NvScore3 > NvScore2 and NvScore3 > NvScore4 Then
GameWinner = NvScore3
End if
If NvScore4 > NvScore1 and NvScore4 > NvScore2 and NvScore4 > NvScore3 Then
GameWinner = NvScore4
End if
If PlayersPlayingGame = 1 then
MyNewDMD.FlushAnimation:MyNewDMD.FlushQueue
MyNewDMD.UpdateInterval = 10
MyNewDMD.QueueText "[edge4][f2][xc][y9]"& FormatNumber (nvscore1, 0, -1, 0, -1) & "[f1][x2][y2]FINAL SCORE:"
MyNewDmd.QueueText "[Edge 4][f2][xc][y9]Table Name", deFlip, 2000, true
MyNewDMD.QueueText "[Edge4][f2][xc][y9]"& nvHighScore1Name & " " &FormatNumber( nvHighScore1, 0, -1, 0, -1) & "[f1][x64][y2]" &nvHighScore2Name & " " &FormatNumber(nvHighScore2, 0, -1, 0, -1) & "[x2][y2]"&nvHighScore1Name & " " & FormatNumber(nvHighScore1, 0, -1, 0, -1) &"[f1][x2][y25]"&nvHighScore3Name & " " & FormatNumber(nvHighScore3, 0, -1, 0, -1) & "[x64][y25]"&nvHighScore4Name & " " & FormatNumber(nvHighScore4, 0, -1, 0, -1), deFlip, 2000, True
MyNewDMD.QueueText "[Edge 4][f2][xc][y9]"& nvHighScore1Name & " " & FormatNumber(nvHighScore1, 0, -1, 0, -1) & "[f1][x2][y25]CREDITS: "& nvCredits & "[f1][x2][y2]HIGHSCORE: " &nvHighScore1Name & "[f1][x78][y2]GAMES: " & nvTotalGamesPlayed &"[f1][x78][y25]PLAYERS: " & PlayersPlayingGame, deFlip, 2000, False
End if
If PlayersPlayingGame > 1 then
MyNewDMD.FlushAnimation:MyNewDMD.FlushQueue
MyNewDMD.UpdateInterval = 10
MyNewDMD.QueueText "[edge4][f2][xc][y9]"& FormatNumber (GameWinner, 0, -1, 0, -1) & "[f1][x64][y2]P2: " & FormatNumber(nvscore2, 0, -1, 0, -1) & "[x2][y2]P1: "& FormatNumber(nvscore1, 0, -1, 0, -1) &"[x2][y25]P3: " & FormatNumber(nvscore3, 0, -1, 0, -1) & "[f1][x64][y25]P4: "& FormatNumber(nvscore4, 0, -1, 0, -1), deFlip, 2000, False
MyNewDmd.QueueText "[Edge 4][f2][xc][y9]Table Name", deFlip, 2000, true
MyNewDMD.QueueText "[Edge4][f2][xc][y9]"& nvHighScore1Name & " " &FormatNumber( nvHighScore1, 0, -1, 0, -1) & "[f1][x64][y2]" &nvHighScore2Name & " " &FormatNumber(nvHighScore2, 0, -1, 0, -1) & "[x2][y2]"&nvHighScore1Name & " " & FormatNumber(nvHighScore1, 0, -1, 0, -1) &"[f1][x2][y25]"&nvHighScore3Name & " " & FormatNumber(nvHighScore3, 0, -1, 0, -1) & "[x64][y25]"&nvHighScore4Name & " " & FormatNumber(nvHighScore4, 0, -1, 0, -1), deFlip, 2000, True
MyNewDMD.QueueText "[Edge 4][f2][xc][y9]"& nvHighScore1Name & " " & FormatNumber(nvHighScore1, 0, -1, 0, -1) & "[f1][x2][y25]CREDITS: "& nvCredits & "[f1][x2][y2]HIGHSCORE: " &nvHighScore1Name & "[f1][x78][y2]GAMES: " & nvTotalGamesPlayed &"[f1][x78][y25]PLAYERS: " & PlayersPlayingGame, deFlip, 2000, False
End if
If PlayersPlayingGame = 0 Then
MyNewDMD.FlushAnimation:MyNewDMD.FlushQueue
MyNewDMD.UpdateInterval = 10
MyNewDmd.QueueText "[Edge 4][f2][xc][y9]Table Name", deFlip, 2000, true
MyNewDMD.QueueText "[Edge4][f2][xc][y9]"& nvHighScore1Name & " " &FormatNumber( nvHighScore1, 0, -1, 0, -1) & "[f1][x64][y2]" &nvHighScore2Name & " " &FormatNumber(nvHighScore2, 0, -1, 0, -1) & "[x2][y2]"&nvHighScore1Name & " " & FormatNumber(nvHighScore1, 0, -1, 0, -1) &"[f1][x2][y25]"&nvHighScore3Name & " " & FormatNumber(nvHighScore3, 0, -1, 0, -1) & "[x64][y25]"&nvHighScore4Name & " " & FormatNumber(nvHighScore4, 0, -1, 0, -1), deFlip, 2000, False
End if
End Sub