mdlGlobal.bas

 Attribute VB_Name = "mdlGlobal"
Public strPlayerName As String
Public btStartGame As Boolean

Public Function GetCaptionByIndex(idx As Integer, RandomNumber As Long) As String
Dim btnCaption As String
Select Case RandomNumber

Case 1

If idx = 2 Or idx = 12 Then
btnCaption = "F"
End If
If idx = 3 Or idx = 10 Then
btnCaption = "N"
End If
If idx = 4 Or idx = 8 Then
btnCaption = "R"
End If
If idx = 5 Or idx = 6 Then
btnCaption = "L"
End If
If idx = 1 Or idx = 15 Then
btnCaption = "S"
End If
If idx = 7 Or idx = 16 Then
btnCaption = "P"
End If
If idx = 9 Or idx = 14 Then
btnCaption = "B"
End If
If idx = 11 Or idx = 13 Then
btnCaption = "D"
End If

Case 2

If idx = 1 Or idx = 7 Then
btnCaption = "F"
End If
If idx = 6 Or idx = 2 Then
btnCaption = "N"
End If
If idx = 5 Or idx = 3 Then
btnCaption = "R"
End If
If idx = 4 Or idx = 9 Then
btnCaption = "L"
End If
If idx = 10 Or idx = 8 Then
btnCaption = "S"
End If
If idx = 12 Or idx = 14 Then
btnCaption = "P"
End If
If idx = 15 Or idx = 11 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 13 Then
btnCaption = "D"
End If

Case 3

If idx = 10 Or idx = 8 Then
btnCaption = "F"
End If
If idx = 5 Or idx = 9 Then
btnCaption = "N"
End If
If idx = 3 Or idx = 1 Then
btnCaption = "R"
End If
If idx = 12 Or idx = 14 Then
btnCaption = "L"
End If
If idx = 2 Or idx = 4 Then
btnCaption = "S"
End If
If idx = 15 Or idx = 11 Then
btnCaption = "P"
End If
If idx = 7 Or idx = 13 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 6 Then
btnCaption = "D"
End If

Case 4

If idx = 9 Or idx = 4 Then
btnCaption = "F"
End If
If idx = 5 Or idx = 1 Then
btnCaption = "N"
End If
If idx = 2 Or idx = 8 Then
btnCaption = "R"
End If
If idx = 14 Or idx = 3 Then
btnCaption = "L"
End If
If idx = 7 Or idx = 13 Then
btnCaption = "S"
End If
If idx = 12 Or idx = 6 Then
btnCaption = "P"
End If
If idx = 11 Or idx = 15 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 10 Then
btnCaption = "D"
End If

Case 5

If idx = 1 Or idx = 12 Then
btnCaption = "F"
End If
If idx = 3 Or idx = 2 Then
btnCaption = "N"
End If
If idx = 13 Or idx = 9 Then
btnCaption = "R"
End If
If idx = 8 Or idx = 4 Then
btnCaption = "L"
End If
If idx = 16 Or idx = 11 Then
btnCaption = "S"
End If
If idx = 10 Or idx = 5 Then
btnCaption = "P"
End If
If idx = 15 Or idx = 6 Then
btnCaption = "B"
End If
If idx = 7 Or idx = 14 Then
btnCaption = "D"
End If

Case 6

If idx = 5 Or idx = 9 Then
btnCaption = "F"
End If
If idx = 12 Or idx = 2 Then
btnCaption = "N"
End If
If idx = 8 Or idx = 7 Then
btnCaption = "R"
End If
If idx = 4 Or idx = 1 Then
btnCaption = "L"
End If
If idx = 11 Or idx = 15 Then
btnCaption = "S"
End If
If idx = 6 Or idx = 3 Then
btnCaption = "P"
End If
If idx = 14 Or idx = 16 Then
btnCaption = "B"
End If
If idx = 13 Or idx = 10 Then
btnCaption = "D"
End If

Case 7

If idx = 3 Or idx = 9 Then
btnCaption = "F"
End If
If idx = 8 Or idx = 7 Then
btnCaption = "N"
End If
If idx = 2 Or idx = 11 Then
btnCaption = "R"
End If
If idx = 14 Or idx = 6 Then
btnCaption = "L"
End If
If idx = 10 Or idx = 15 Then
btnCaption = "S"
End If
If idx = 13 Or idx = 1 Then
btnCaption = "P"
End If
If idx = 5 Or idx = 12 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 4 Then
btnCaption = "D"
End If

Case 8

If idx = 6 Or idx = 4 Then
btnCaption = "F"
End If
If idx = 10 Or idx = 15 Then
btnCaption = "N"
End If
If idx = 3 Or idx = 1 Then
btnCaption = "R"
End If
If idx = 9 Or idx = 16 Then
btnCaption = "L"
End If
If idx = 2 Or idx = 7 Then
btnCaption = "S"
End If
If idx = 11 Or idx = 8 Then
btnCaption = "P"
End If
If idx = 12 Or idx = 13 Then
btnCaption = "B"
End If
If idx = 14 Or idx = 5 Then
btnCaption = "D"
End If

Case 9

If idx = 7 Or idx = 3 Then
btnCaption = "F"
End If
If idx = 16 Or idx = 14 Then
btnCaption = "N"
End If
If idx = 6 Or idx = 8 Then
btnCaption = "R"
End If
If idx = 13 Or idx = 10 Then
btnCaption = "L"
End If
If idx = 7 Or idx = 5 Then
btnCaption = "S"
End If
If idx = 4 Or idx = 9 Then
btnCaption = "P"
End If
If idx = 11 Or idx = 12 Then
btnCaption = "B"
End If
If idx = 1 Or idx = 2 Then
btnCaption = "D"
End If

Case 10

If idx = 3 Or idx = 11 Then
btnCaption = "F"
End If
If idx = 9 Or idx = 10 Then
btnCaption = "N"
End If
If idx = 2 Or idx = 8 Then
btnCaption = "R"
End If
If idx = 14 Or idx = 1 Then
btnCaption = "L"
End If
If idx = 12 Or idx = 13 Then
btnCaption = "S"
End If
If idx = 7 Or idx = 4 Then
btnCaption = "P"
End If
If idx = 15 Or idx = 6 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 5 Then
btnCaption = "D"
End If

Case 11

If idx = 11 Or idx = 3 Then
btnCaption = "F"
End If
If idx = 2 Or idx = 5 Then
btnCaption = "N"
End If
If idx = 8 Or idx = 12 Then
btnCaption = "R"
End If
If idx = 4 Or idx = 10 Then
btnCaption = "L"
End If
If idx = 13 Or idx = 1 Then
btnCaption = "S"
End If
If idx = 9 Or idx = 14 Then
btnCaption = "P"
End If
If idx = 15 Or idx = 6 Then
btnCaption = "B"
End If
If idx = 7 Or idx = 16 Then
btnCaption = "D"
End If

Case 12

If idx = 1 Or idx = 7 Then
btnCaption = "F"
End If
If idx = 12 Or idx = 8 Then
btnCaption = "N"
End If
If idx = 6 Or idx = 13 Then
btnCaption = "R"
End If
If idx = 15 Or idx = 4 Then
btnCaption = "L"
End If
If idx = 9 Or idx = 5 Then
btnCaption = "S"
End If
If idx = 3 Or idx = 16 Then
btnCaption = "P"
End If
If idx = 10 Or idx = 2 Then
btnCaption = "B"
End If
If idx = 11 Or idx = 14 Then
btnCaption = "D"
End If

Case 13

If idx = 2 Or idx = 6 Then
btnCaption = "F"
End If
If idx = 5 Or idx = 4 Then
btnCaption = "N"
End If
If idx = 9 Or idx = 1 Then
btnCaption = "R"
End If
If idx = 3 Or idx = 10 Then
btnCaption = "L"
End If
If idx = 11 Or idx = 7 Then
btnCaption = "S"
End If
If idx = 15 Or idx = 12 Then
btnCaption = "P"
End If
If idx = 8 Or idx = 13 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 14 Then
btnCaption = "D"
End If

Case 14

If idx = 2 Or idx = 9 Then
btnCaption = "F"
End If
If idx = 4 Or idx = 7 Then
btnCaption = "N"
End If
If idx = 8 Or idx = 5 Then
btnCaption = "R"
End If
If idx = 14 Or idx = 16 Then
btnCaption = "L"
End If
If idx = 11 Or idx = 1 Then
btnCaption = "S"
End If
If idx = 6 Or idx = 13 Then
btnCaption = "P"
End If
If idx = 15 Or idx = 12 Then
btnCaption = "B"
End If
If idx = 10 Or idx = 3 Then
btnCaption = "D"
End If

Case 15

If idx = 12 Or idx = 9 Then
btnCaption = "F"
End If
If idx = 6 Or idx = 5 Then
btnCaption = "N"
End If
If idx = 11 Or idx = 14 Then
btnCaption = "R"
End If
If idx = 2 Or idx = 7 Then
btnCaption = "L"
End If
If idx = 8 Or idx = 12 Then
btnCaption = "S"
End If
If idx = 4 Or idx = 1 Then
btnCaption = "P"
End If
If idx = 16 Or idx = 15 Then
btnCaption = "B"
End If
If idx = 3 Or idx = 10 Then
btnCaption = "D"
End If

Case 16

If idx = 1 Or idx = 7 Then
btnCaption = "F"
End If
If idx = 9 Or idx = 3 Then
btnCaption = "N"
End If
If idx = 4 Or idx = 15 Then
btnCaption = "R"
End If
If idx = 8 Or idx = 2 Then
btnCaption = "L"
End If
If idx = 6 Or idx = 10 Then
btnCaption = "S"
End If
If idx = 12 Or idx = 5 Then
btnCaption = "P"
End If
If idx = 13 Or idx = 16 Then
btnCaption = "B"
End If
If idx = 14 Or idx = 11 Then
btnCaption = "D"
End If

Case 17

If idx = 2 Or idx = 4 Then
btnCaption = "F"
End If
If idx = 8 Or idx = 12 Then
btnCaption = "N"
End If
If idx = 11 Or idx = 1 Then
btnCaption = "R"
End If
If idx = 5 Or idx = 9 Then
btnCaption = "L"
End If
If idx = 14 Or idx = 6 Then
btnCaption = "S"
End If
If idx = 3 Or idx = 10 Then
btnCaption = "P"
End If
If idx = 15 Or idx = 7 Then
btnCaption = "B"
End If
If idx = 16 Or idx = 13 Then
btnCaption = "D"
End If

Case 18

If idx = 7 Or idx = 4 Then
btnCaption = "F"
End If
If idx = 3 Or idx = 8 Then
btnCaption = "N"
End If
If idx = 11 Or idx = 1 Then
btnCaption = "R"
End If
If idx = 6 Or idx = 5 Then
btnCaption = "L"
End If
If idx = 2 Or idx = 13 Then
btnCaption = "S"
End If
If idx = 14 Or idx = 15 Then
btnCaption = "P"
End If
If idx = 16 Or idx = 9 Then
btnCaption = "B"
End If
If idx = 10 Or idx = 12 Then
btnCaption = "D"
End If

Case 19

If idx = 4 Or idx = 10 Then
btnCaption = "F"
End If
If idx = 9 Or idx = 2 Then
btnCaption = "N"
End If
If idx = 3 Or idx = 8 Then
btnCaption = "R"
End If
If idx = 1 Or idx = 12 Then
btnCaption = "L"
End If
If idx = 7 Or idx = 13 Then
btnCaption = "S"
End If
If idx = 14 Or idx = 16 Then
btnCaption = "P"
End If
If idx = 11 Or idx = 5 Then
btnCaption = "B"
End If
If idx = 6 Or idx = 15 Then
btnCaption = "D"
End If


End Select
GetCaptionByIndex = btnCaption
End Function

Project Homepage: