home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / MasterMind1995495192006.psc / Form1.frm < prev    next >
Text File  |  2006-05-19  |  51KB  |  1,748 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H0000C000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "  Master Mind XP  -  by  0x34"
  6.    ClientHeight    =   7245
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5715
  10.    BeginProperty Font 
  11.       Name            =   "Neuropol"
  12.       Size            =   11.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Form1.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    Picture         =   "Form1.frx":058A
  24.    ScaleHeight     =   7245
  25.    ScaleWidth      =   5715
  26.    StartUpPosition =   2  'CenterScreen
  27.    Visible         =   0   'False
  28.    Begin VB.Timer ETim 
  29.       Enabled         =   0   'False
  30.       Interval        =   50
  31.       Left            =   2640
  32.       Top             =   1320
  33.    End
  34.    Begin VB.Timer MT 
  35.       Enabled         =   0   'False
  36.       Interval        =   1
  37.       Left            =   2160
  38.       Top             =   1320
  39.    End
  40.    Begin VB.Timer Timer3 
  41.       Enabled         =   0   'False
  42.       Interval        =   500
  43.       Left            =   1680
  44.       Top             =   1320
  45.    End
  46.    Begin VB.PictureBox Picture1 
  47.       Appearance      =   0  'Flat
  48.       BackColor       =   &H80000005&
  49.       BorderStyle     =   0  'None
  50.       ForeColor       =   &H80000008&
  51.       Height          =   735
  52.       Left            =   2640
  53.       Picture         =   "Form1.frx":87436
  54.       ScaleHeight     =   735
  55.       ScaleWidth      =   3015
  56.       TabIndex        =   21
  57.       Top             =   120
  58.       Width           =   3015
  59.    End
  60.    Begin VB.Timer Timer2 
  61.       Enabled         =   0   'False
  62.       Interval        =   10
  63.       Left            =   1320
  64.       Top             =   1320
  65.    End
  66.    Begin VB.Timer Timer1 
  67.       Enabled         =   0   'False
  68.       Interval        =   150
  69.       Left            =   960
  70.       Top             =   1320
  71.    End
  72.    Begin VB.CommandButton Enter 
  73.       BeginProperty Font 
  74.          Name            =   "Sylfaen"
  75.          Size            =   24
  76.          Charset         =   0
  77.          Weight          =   700
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   1335
  83.       Left            =   2520
  84.       Picture         =   "Form1.frx":90186
  85.       Style           =   1  'Graphical
  86.       TabIndex        =   20
  87.       Top             =   5280
  88.       Width           =   2655
  89.    End
  90.    Begin VB.CommandButton About 
  91.       BeginProperty Font 
  92.          Name            =   "Perpetua"
  93.          Size            =   15.75
  94.          Charset         =   0
  95.          Weight          =   400
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   615
  101.       Left            =   3900
  102.       Picture         =   "Form1.frx":9BABE
  103.       Style           =   1  'Graphical
  104.       TabIndex        =   19
  105.       Top             =   3720
  106.       Width           =   1335
  107.    End
  108.    Begin VB.CommandButton Command1 
  109.       BeginProperty Font 
  110.          Name            =   "Perpetua"
  111.          Size            =   14.25
  112.          Charset         =   0
  113.          Weight          =   400
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       Height          =   615
  119.       Left            =   3900
  120.       Picture         =   "Form1.frx":9E5EE
  121.       Style           =   1  'Graphical
  122.       TabIndex        =   18
  123.       Top             =   3000
  124.       Width           =   1335
  125.    End
  126.    Begin VB.CommandButton NewGame 
  127.       BeginProperty Font 
  128.          Name            =   "Perpetua"
  129.          Size            =   15.75
  130.          Charset         =   0
  131.          Weight          =   400
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   615
  137.       Left            =   3900
  138.       Picture         =   "Form1.frx":A111E
  139.       Style           =   1  'Graphical
  140.       TabIndex        =   16
  141.       Top             =   1560
  142.       Width           =   1335
  143.    End
  144.    Begin VB.CommandButton Col4 
  145.       BackColor       =   &H00FF0000&
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   8.25
  149.          Charset         =   0
  150.          Weight          =   400
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   255
  156.       Index           =   3
  157.       Left            =   1920
  158.       Style           =   1  'Graphical
  159.       TabIndex        =   15
  160.       Top             =   6360
  161.       Width           =   375
  162.    End
  163.    Begin VB.CommandButton Col4 
  164.       BackColor       =   &H0000FFFF&
  165.       BeginProperty Font 
  166.          Name            =   "MS Sans Serif"
  167.          Size            =   8.25
  168.          Charset         =   0
  169.          Weight          =   400
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       Height          =   255
  175.       Index           =   2
  176.       Left            =   1920
  177.       Style           =   1  'Graphical
  178.       TabIndex        =   14
  179.       Top             =   6000
  180.       Width           =   375
  181.    End
  182.    Begin VB.CommandButton Col4 
  183.       BackColor       =   &H0000FF00&
  184.       BeginProperty Font 
  185.          Name            =   "MS Sans Serif"
  186.          Size            =   8.25
  187.          Charset         =   0
  188.          Weight          =   400
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       Height          =   255
  194.       Index           =   1
  195.       Left            =   1920
  196.       Style           =   1  'Graphical
  197.       TabIndex        =   13
  198.       Top             =   5640
  199.       Width           =   375
  200.    End
  201.    Begin VB.CommandButton Col4 
  202.       BackColor       =   &H000000FF&
  203.       BeginProperty Font 
  204.          Name            =   "MS Sans Serif"
  205.          Size            =   8.25
  206.          Charset         =   0
  207.          Weight          =   400
  208.          Underline       =   0   'False
  209.          Italic          =   0   'False
  210.          Strikethrough   =   0   'False
  211.       EndProperty
  212.       Height          =   255
  213.       Index           =   0
  214.       Left            =   1920
  215.       Style           =   1  'Graphical
  216.       TabIndex        =   12
  217.       Top             =   5280
  218.       Width           =   375
  219.    End
  220.    Begin VB.CommandButton Col3 
  221.       BackColor       =   &H00FF0000&
  222.       BeginProperty Font 
  223.          Name            =   "MS Sans Serif"
  224.          Size            =   8.25
  225.          Charset         =   0
  226.          Weight          =   400
  227.          Underline       =   0   'False
  228.          Italic          =   0   'False
  229.          Strikethrough   =   0   'False
  230.       EndProperty
  231.       Height          =   255
  232.       Index           =   3
  233.       Left            =   1440
  234.       Style           =   1  'Graphical
  235.       TabIndex        =   11
  236.       Top             =   6360
  237.       Width           =   375
  238.    End
  239.    Begin VB.CommandButton Col3 
  240.       BackColor       =   &H0000FFFF&
  241.       BeginProperty Font 
  242.          Name            =   "MS Sans Serif"
  243.          Size            =   8.25
  244.          Charset         =   0
  245.          Weight          =   400
  246.          Underline       =   0   'False
  247.          Italic          =   0   'False
  248.          Strikethrough   =   0   'False
  249.       EndProperty
  250.       Height          =   255
  251.       Index           =   2
  252.       Left            =   1440
  253.       Style           =   1  'Graphical
  254.       TabIndex        =   10
  255.       Top             =   6000
  256.       Width           =   375
  257.    End
  258.    Begin VB.CommandButton Col3 
  259.       BackColor       =   &H0000FF00&
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   8.25
  263.          Charset         =   0
  264.          Weight          =   400
  265.          Underline       =   0   'False
  266.          Italic          =   0   'False
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   255
  270.       Index           =   1
  271.       Left            =   1440
  272.       Style           =   1  'Graphical
  273.       TabIndex        =   9
  274.       Top             =   5640
  275.       Width           =   375
  276.    End
  277.    Begin VB.CommandButton Col3 
  278.       BackColor       =   &H000000FF&
  279.       BeginProperty Font 
  280.          Name            =   "MS Sans Serif"
  281.          Size            =   8.25
  282.          Charset         =   0
  283.          Weight          =   400
  284.          Underline       =   0   'False
  285.          Italic          =   0   'False
  286.          Strikethrough   =   0   'False
  287.       EndProperty
  288.       Height          =   255
  289.       Index           =   0
  290.       Left            =   1440
  291.       Style           =   1  'Graphical
  292.       TabIndex        =   8
  293.       Top             =   5280
  294.       Width           =   375
  295.    End
  296.    Begin VB.CommandButton Col2 
  297.       BackColor       =   &H00FF0000&
  298.       BeginProperty Font 
  299.          Name            =   "MS Sans Serif"
  300.          Size            =   8.25
  301.          Charset         =   0
  302.          Weight          =   400
  303.          Underline       =   0   'False
  304.          Italic          =   0   'False
  305.          Strikethrough   =   0   'False
  306.       EndProperty
  307.       Height          =   255
  308.       Index           =   3
  309.       Left            =   960
  310.       Style           =   1  'Graphical
  311.       TabIndex        =   7
  312.       Top             =   6360
  313.       Width           =   375
  314.    End
  315.    Begin VB.CommandButton Col2 
  316.       BackColor       =   &H0000FFFF&
  317.       BeginProperty Font 
  318.          Name            =   "MS Sans Serif"
  319.          Size            =   8.25
  320.          Charset         =   0
  321.          Weight          =   400
  322.          Underline       =   0   'False
  323.          Italic          =   0   'False
  324.          Strikethrough   =   0   'False
  325.       EndProperty
  326.       Height          =   255
  327.       Index           =   2
  328.       Left            =   960
  329.       Style           =   1  'Graphical
  330.       TabIndex        =   6
  331.       Top             =   6000
  332.       Width           =   375
  333.    End
  334.    Begin VB.CommandButton Col2 
  335.       BackColor       =   &H0000FF00&
  336.       BeginProperty Font 
  337.          Name            =   "MS Sans Serif"
  338.          Size            =   8.25
  339.          Charset         =   0
  340.          Weight          =   400
  341.          Underline       =   0   'False
  342.          Italic          =   0   'False
  343.          Strikethrough   =   0   'False
  344.       EndProperty
  345.       Height          =   255
  346.       Index           =   1
  347.       Left            =   960
  348.       Style           =   1  'Graphical
  349.       TabIndex        =   5
  350.       Top             =   5640
  351.       Width           =   375
  352.    End
  353.    Begin VB.CommandButton Col2 
  354.       BackColor       =   &H000000FF&
  355.       BeginProperty Font 
  356.          Name            =   "MS Sans Serif"
  357.          Size            =   8.25
  358.          Charset         =   0
  359.          Weight          =   400
  360.          Underline       =   0   'False
  361.          Italic          =   0   'False
  362.          Strikethrough   =   0   'False
  363.       EndProperty
  364.       Height          =   255
  365.       Index           =   0
  366.       Left            =   960
  367.       Style           =   1  'Graphical
  368.       TabIndex        =   4
  369.       Top             =   5280
  370.       Width           =   375
  371.    End
  372.    Begin VB.CommandButton Col1 
  373.       BackColor       =   &H00FF0000&
  374.       BeginProperty Font 
  375.          Name            =   "MS Sans Serif"
  376.          Size            =   8.25
  377.          Charset         =   0
  378.          Weight          =   400
  379.          Underline       =   0   'False
  380.          Italic          =   0   'False
  381.          Strikethrough   =   0   'False
  382.       EndProperty
  383.       Height          =   255
  384.       Index           =   3
  385.       Left            =   480
  386.       Style           =   1  'Graphical
  387.       TabIndex        =   3
  388.       Top             =   6360
  389.       Width           =   375
  390.    End
  391.    Begin VB.CommandButton Col1 
  392.       BackColor       =   &H0000FFFF&
  393.       BeginProperty Font 
  394.          Name            =   "MS Sans Serif"
  395.          Size            =   8.25
  396.          Charset         =   0
  397.          Weight          =   400
  398.          Underline       =   0   'False
  399.          Italic          =   0   'False
  400.          Strikethrough   =   0   'False
  401.       EndProperty
  402.       Height          =   255
  403.       Index           =   2
  404.       Left            =   480
  405.       Style           =   1  'Graphical
  406.       TabIndex        =   2
  407.       Top             =   6000
  408.       Width           =   375
  409.    End
  410.    Begin VB.CommandButton Col1 
  411.       BackColor       =   &H0000FF00&
  412.       BeginProperty Font 
  413.          Name            =   "MS Sans Serif"
  414.          Size            =   8.25
  415.          Charset         =   0
  416.          Weight          =   400
  417.          Underline       =   0   'False
  418.          Italic          =   0   'False
  419.          Strikethrough   =   0   'False
  420.       EndProperty
  421.       Height          =   255
  422.       Index           =   1
  423.       Left            =   480
  424.       Style           =   1  'Graphical
  425.       TabIndex        =   1
  426.       Top             =   5640
  427.       Width           =   375
  428.    End
  429.    Begin VB.CommandButton Col1 
  430.       BackColor       =   &H000000FF&
  431.       BeginProperty Font 
  432.          Name            =   "MS Sans Serif"
  433.          Size            =   8.25
  434.          Charset         =   0
  435.          Weight          =   400
  436.          Underline       =   0   'False
  437.          Italic          =   0   'False
  438.          Strikethrough   =   0   'False
  439.       EndProperty
  440.       Height          =   255
  441.       Index           =   0
  442.       Left            =   480
  443.       Style           =   1  'Graphical
  444.       TabIndex        =   0
  445.       Top             =   5280
  446.       Width           =   375
  447.    End
  448.    Begin VB.CommandButton Multiples 
  449.       BeginProperty Font 
  450.          Name            =   "Perpetua"
  451.          Size            =   15.75
  452.          Charset         =   0
  453.          Weight          =   400
  454.          Underline       =   0   'False
  455.          Italic          =   0   'False
  456.          Strikethrough   =   0   'False
  457.       EndProperty
  458.       Height          =   615
  459.       Left            =   3900
  460.       Picture         =   "Form1.frx":A3C4E
  461.       Style           =   1  'Graphical
  462.       TabIndex        =   17
  463.       Top             =   2280
  464.       Width           =   1335
  465.    End
  466.    Begin VB.Label LabLoser 
  467.       Alignment       =   2  'Center
  468.       BackStyle       =   0  'Transparent
  469.       Caption         =   "LOSER"
  470.       BeginProperty Font 
  471.          Name            =   "Times New Roman"
  472.          Size            =   18
  473.          Charset         =   0
  474.          Weight          =   700
  475.          Underline       =   0   'False
  476.          Italic          =   0   'False
  477.          Strikethrough   =   0   'False
  478.       EndProperty
  479.       ForeColor       =   &H0000FFFF&
  480.       Height          =   375
  481.       Left            =   3600
  482.       TabIndex        =   23
  483.       Top             =   1080
  484.       Width           =   1935
  485.    End
  486.    Begin VB.Label LabWin 
  487.       Alignment       =   2  'Center
  488.       BackStyle       =   0  'Transparent
  489.       Caption         =   "WINNER"
  490.       BeginProperty Font 
  491.          Name            =   "Times New Roman"
  492.          Size            =   18
  493.          Charset         =   0
  494.          Weight          =   700
  495.          Underline       =   0   'False
  496.          Italic          =   0   'False
  497.          Strikethrough   =   0   'False
  498.       EndProperty
  499.       ForeColor       =   &H0000FFFF&
  500.       Height          =   375
  501.       Left            =   3600
  502.       TabIndex        =   22
  503.       Top             =   1080
  504.       Width           =   1935
  505.    End
  506.    Begin VB.Shape MultiInd 
  507.       BackColor       =   &H00000000&
  508.       BackStyle       =   1  'Opaque
  509.       BorderStyle     =   6  'Inside Solid
  510.       Height          =   135
  511.       Left            =   3712
  512.       Top             =   2520
  513.       Width           =   135
  514.    End
  515.    Begin VB.Shape Row4 
  516.       BackStyle       =   1  'Opaque
  517.       Height          =   135
  518.       Index           =   6
  519.       Left            =   2895
  520.       Top             =   4200
  521.       Width           =   135
  522.    End
  523.    Begin VB.Shape Row4 
  524.       BackStyle       =   1  'Opaque
  525.       Height          =   135
  526.       Index           =   5
  527.       Left            =   2895
  528.       Top             =   3720
  529.       Width           =   135
  530.    End
  531.    Begin VB.Shape Row4 
  532.       BackStyle       =   1  'Opaque
  533.       Height          =   135
  534.       Index           =   4
  535.       Left            =   2895
  536.       Top             =   3240
  537.       Width           =   135
  538.    End
  539.    Begin VB.Shape Row4 
  540.       BackStyle       =   1  'Opaque
  541.       Height          =   135
  542.       Index           =   3
  543.       Left            =   2895
  544.       Top             =   2760
  545.       Width           =   135
  546.    End
  547.    Begin VB.Shape Row4 
  548.       BackStyle       =   1  'Opaque
  549.       Height          =   135
  550.       Index           =   2
  551.       Left            =   2895
  552.       Top             =   2280
  553.       Width           =   135
  554.    End
  555.    Begin VB.Shape Row4 
  556.       BackStyle       =   1  'Opaque
  557.       Height          =   135
  558.       Index           =   1
  559.       Left            =   2895
  560.       Top             =   1800
  561.       Width           =   135
  562.    End
  563.    Begin VB.Shape Row4 
  564.       BackStyle       =   1  'Opaque
  565.       Height          =   135
  566.       Index           =   0
  567.       Left            =   2895
  568.       Top             =   1320
  569.       Width           =   135
  570.    End
  571.    Begin VB.Shape Row3 
  572.       BackStyle       =   1  'Opaque
  573.       Height          =   135
  574.       Index           =   6
  575.       Left            =   2730
  576.       Top             =   4200
  577.       Width           =   135
  578.    End
  579.    Begin VB.Shape Row3 
  580.       BackStyle       =   1  'Opaque
  581.       Height          =   135
  582.       Index           =   5
  583.       Left            =   2730
  584.       Top             =   3720
  585.       Width           =   135
  586.    End
  587.    Begin VB.Shape Row3 
  588.       BackStyle       =   1  'Opaque
  589.       Height          =   135
  590.       Index           =   4
  591.       Left            =   2730
  592.       Top             =   3240
  593.       Width           =   135
  594.    End
  595.    Begin VB.Shape Row3 
  596.       BackStyle       =   1  'Opaque
  597.       Height          =   135
  598.       Index           =   3
  599.       Left            =   2730
  600.       Top             =   2760
  601.       Width           =   135
  602.    End
  603.    Begin VB.Shape Row3 
  604.       BackStyle       =   1  'Opaque
  605.       Height          =   135
  606.       Index           =   2
  607.       Left            =   2730
  608.       Top             =   2280
  609.       Width           =   135
  610.    End
  611.    Begin VB.Shape Row3 
  612.       BackStyle       =   1  'Opaque
  613.       Height          =   135
  614.       Index           =   1
  615.       Left            =   2730
  616.       Top             =   1800
  617.       Width           =   135
  618.    End
  619.    Begin VB.Shape Row3 
  620.       BackStyle       =   1  'Opaque
  621.       Height          =   135
  622.       Index           =   0
  623.       Left            =   2730
  624.       Top             =   1320
  625.       Width           =   135
  626.    End
  627.    Begin VB.Shape Row2 
  628.       BackStyle       =   1  'Opaque
  629.       Height          =   135
  630.       Index           =   6
  631.       Left            =   2565
  632.       Top             =   4200
  633.       Width           =   135
  634.    End
  635.    Begin VB.Shape Row2 
  636.       BackStyle       =   1  'Opaque
  637.       Height          =   135
  638.       Index           =   5
  639.       Left            =   2565
  640.       Top             =   3720
  641.       Width           =   135
  642.    End
  643.    Begin VB.Shape Row2 
  644.       BackStyle       =   1  'Opaque
  645.       Height          =   135
  646.       Index           =   4
  647.       Left            =   2565
  648.       Top             =   3240
  649.       Width           =   135
  650.    End
  651.    Begin VB.Shape Row2 
  652.       BackStyle       =   1  'Opaque
  653.       Height          =   135
  654.       Index           =   3
  655.       Left            =   2565
  656.       Top             =   2760
  657.       Width           =   135
  658.    End
  659.    Begin VB.Shape Row2 
  660.       BackStyle       =   1  'Opaque
  661.       Height          =   135
  662.       Index           =   2
  663.       Left            =   2565
  664.       Top             =   2280
  665.       Width           =   135
  666.    End
  667.    Begin VB.Shape Row2 
  668.       BackStyle       =   1  'Opaque
  669.       Height          =   135
  670.       Index           =   1
  671.       Left            =   2565
  672.       Top             =   1800
  673.       Width           =   135
  674.    End
  675.    Begin VB.Shape Row2 
  676.       BackStyle       =   1  'Opaque
  677.       Height          =   135
  678.       Index           =   0
  679.       Left            =   2565
  680.       Top             =   1320
  681.       Width           =   135
  682.    End
  683.    Begin VB.Shape Row1 
  684.       BackStyle       =   1  'Opaque
  685.       Height          =   135
  686.       Index           =   6
  687.       Left            =   2400
  688.       Top             =   4200
  689.       Width           =   135
  690.    End
  691.    Begin VB.Shape Row1 
  692.       BackStyle       =   1  'Opaque
  693.       Height          =   135
  694.       Index           =   5
  695.       Left            =   2400
  696.       Top             =   3720
  697.       Width           =   135
  698.    End
  699.    Begin VB.Shape Row1 
  700.       BackStyle       =   1  'Opaque
  701.       Height          =   135
  702.       Index           =   4
  703.       Left            =   2400
  704.       Top             =   3240
  705.       Width           =   135
  706.    End
  707.    Begin VB.Shape R4 
  708.       BackColor       =   &H8000000A&
  709.       BackStyle       =   1  'Opaque
  710.       Height          =   375
  711.       Index           =   6
  712.       Left            =   1920
  713.       Top             =   4080
  714.       Width           =   375
  715.    End
  716.    Begin VB.Shape R4 
  717.       BackColor       =   &H8000000A&
  718.       BackStyle       =   1  'Opaque
  719.       Height          =   375
  720.       Index           =   5
  721.       Left            =   1920
  722.       Top             =   3600
  723.       Width           =   375
  724.    End
  725.    Begin VB.Shape R4 
  726.       BackColor       =   &H8000000A&
  727.       BackStyle       =   1  'Opaque
  728.       Height          =   375
  729.       Index           =   4
  730.       Left            =   1920
  731.       Top             =   3120
  732.       Width           =   375
  733.    End
  734.    Begin VB.Shape R3 
  735.       BackColor       =   &H8000000A&
  736.       BackStyle       =   1  'Opaque
  737.       Height          =   375
  738.       Index           =   6
  739.       Left            =   1440
  740.       Shape           =   1  'Square
  741.       Top             =   4080
  742.       Width           =   375
  743.    End
  744.    Begin VB.Shape R3 
  745.       BackColor       =   &H8000000A&
  746.       BackStyle       =   1  'Opaque
  747.       Height          =   375
  748.       Index           =   5
  749.       Left            =   1440
  750.       Shape           =   1  'Square
  751.       Top             =   3600
  752.       Width           =   375
  753.    End
  754.    Begin VB.Shape R3 
  755.       BackColor       =   &H8000000A&
  756.       BackStyle       =   1  'Opaque
  757.       Height          =   375
  758.       Index           =   4
  759.       Left            =   1440
  760.       Shape           =   1  'Square
  761.       Top             =   3120
  762.       Width           =   375
  763.    End
  764.    Begin VB.Shape R2 
  765.       BackColor       =   &H8000000A&
  766.       BackStyle       =   1  'Opaque
  767.       Height          =   375
  768.       Index           =   6
  769.       Left            =   960
  770.       Shape           =   1  'Square
  771.       Top             =   4080
  772.       Width           =   375
  773.    End
  774.    Begin VB.Shape R2 
  775.       BackColor       =   &H8000000A&
  776.       BackStyle       =   1  'Opaque
  777.       Height          =   375
  778.       Index           =   5
  779.       Left            =   960
  780.       Shape           =   1  'Square
  781.       Top             =   3600
  782.       Width           =   375
  783.    End
  784.    Begin VB.Shape R2 
  785.       BackColor       =   &H8000000A&
  786.       BackStyle       =   1  'Opaque
  787.       Height          =   375
  788.       Index           =   4
  789.       Left            =   960
  790.       Shape           =   1  'Square
  791.       Top             =   3120
  792.       Width           =   375
  793.    End
  794.    Begin VB.Shape R1 
  795.       BackColor       =   &H8000000A&
  796.       BackStyle       =   1  'Opaque
  797.       Height          =   375
  798.       Index           =   6
  799.       Left            =   480
  800.       Shape           =   1  'Square
  801.       Top             =   4080
  802.       Width           =   375
  803.    End
  804.    Begin VB.Shape R1 
  805.       BackColor       =   &H8000000A&
  806.       BackStyle       =   1  'Opaque
  807.       Height          =   375
  808.       Index           =   5
  809.       Left            =   480
  810.       Shape           =   1  'Square
  811.       Top             =   3600
  812.       Width           =   375
  813.    End
  814.    Begin VB.Shape R1 
  815.       BackColor       =   &H8000000A&
  816.       BackStyle       =   1  'Opaque
  817.       Height          =   375
  818.       Index           =   4
  819.       Left            =   480
  820.       Shape           =   1  'Square
  821.       Top             =   3120
  822.       Width           =   375
  823.    End
  824.    Begin VB.Shape Key 
  825.       BackStyle       =   1  'Opaque
  826.       Height          =   375
  827.       Index           =   3
  828.       Left            =   2280
  829.       Top             =   350
  830.       Width           =   375
  831.    End
  832.    Begin VB.Shape Key 
  833.       BackStyle       =   1  'Opaque
  834.       Height          =   375
  835.       Index           =   2
  836.       Left            =   1800
  837.       Top             =   350
  838.       Width           =   375
  839.    End
  840.    Begin VB.Shape Key 
  841.       BackStyle       =   1  'Opaque
  842.       Height          =   375
  843.       Index           =   1
  844.       Left            =   1320
  845.       Top             =   350
  846.       Width           =   375
  847.    End
  848.    Begin VB.Shape Key 
  849.       BackStyle       =   1  'Opaque
  850.       Height          =   375
  851.       Index           =   0
  852.       Left            =   840
  853.       Top             =   350
  854.       Width           =   375
  855.    End
  856.    Begin VB.Shape R4 
  857.       BackColor       =   &H8000000A&
  858.       BackStyle       =   1  'Opaque
  859.       Height          =   375
  860.       Index           =   3
  861.       Left            =   1920
  862.       Top             =   2640
  863.       Width           =   375
  864.    End
  865.    Begin VB.Shape R4 
  866.       BackColor       =   &H8000000A&
  867.       BackStyle       =   1  'Opaque
  868.       Height          =   375
  869.       Index           =   2
  870.       Left            =   1920
  871.       Top             =   2160
  872.       Width           =   375
  873.    End
  874.    Begin VB.Shape R4 
  875.       BackColor       =   &H8000000A&
  876.       BackStyle       =   1  'Opaque
  877.       Height          =   375
  878.       Index           =   1
  879.       Left            =   1920
  880.       Top             =   1680
  881.       Width           =   375
  882.    End
  883.    Begin VB.Shape R4 
  884.       BackColor       =   &H8000000A&
  885.       BackStyle       =   1  'Opaque
  886.       Height          =   375
  887.       Index           =   0
  888.       Left            =   1920
  889.       Top             =   1200
  890.       Width           =   375
  891.    End
  892.    Begin VB.Shape R3 
  893.       BackColor       =   &H8000000A&
  894.       BackStyle       =   1  'Opaque
  895.       Height          =   375
  896.       Index           =   3
  897.       Left            =   1440
  898.       Shape           =   1  'Square
  899.       Top             =   2640
  900.       Width           =   375
  901.    End
  902.    Begin VB.Shape R3 
  903.       BackColor       =   &H8000000A&
  904.       BackStyle       =   1  'Opaque
  905.       Height          =   375
  906.       Index           =   2
  907.       Left            =   1440
  908.       Shape           =   1  'Square
  909.       Top             =   2160
  910.       Width           =   375
  911.    End
  912.    Begin VB.Shape R3 
  913.       BackColor       =   &H8000000A&
  914.       BackStyle       =   1  'Opaque
  915.       Height          =   375
  916.       Index           =   1
  917.       Left            =   1440
  918.       Shape           =   1  'Square
  919.       Top             =   1680
  920.       Width           =   375
  921.    End
  922.    Begin VB.Shape R3 
  923.       BackColor       =   &H8000000A&
  924.       BackStyle       =   1  'Opaque
  925.       Height          =   375
  926.       Index           =   0
  927.       Left            =   1440
  928.       Shape           =   1  'Square
  929.       Top             =   1200
  930.       Width           =   375
  931.    End
  932.    Begin VB.Shape R2 
  933.       BackColor       =   &H8000000A&
  934.       BackStyle       =   1  'Opaque
  935.       Height          =   375
  936.       Index           =   3
  937.       Left            =   960
  938.       Shape           =   1  'Square
  939.       Top             =   2640
  940.       Width           =   375
  941.    End
  942.    Begin VB.Shape R2 
  943.       BackColor       =   &H8000000A&
  944.       BackStyle       =   1  'Opaque
  945.       Height          =   375
  946.       Index           =   2
  947.       Left            =   960
  948.       Shape           =   1  'Square
  949.       Top             =   2160
  950.       Width           =   375
  951.    End
  952.    Begin VB.Shape R2 
  953.       BackColor       =   &H8000000A&
  954.       BackStyle       =   1  'Opaque
  955.       Height          =   375
  956.       Index           =   1
  957.       Left            =   960
  958.       Shape           =   1  'Square
  959.       Top             =   1680
  960.       Width           =   375
  961.    End
  962.    Begin VB.Shape R2 
  963.       BackColor       =   &H8000000A&
  964.       BackStyle       =   1  'Opaque
  965.       Height          =   375
  966.       Index           =   0
  967.       Left            =   960
  968.       Shape           =   1  'Square
  969.       Top             =   1200
  970.       Width           =   375
  971.    End
  972.    Begin VB.Shape R1 
  973.       BackColor       =   &H8000000A&
  974.       BackStyle       =   1  'Opaque
  975.       Height          =   375
  976.       Index           =   3
  977.       Left            =   480
  978.       Shape           =   1  'Square
  979.       Top             =   2640
  980.       Width           =   375
  981.    End
  982.    Begin VB.Shape R1 
  983.       BackColor       =   &H8000000A&
  984.       BackStyle       =   1  'Opaque
  985.       Height          =   375
  986.       Index           =   2
  987.       Left            =   480
  988.       Shape           =   1  'Square
  989.       Top             =   2160
  990.       Width           =   375
  991.    End
  992.    Begin VB.Shape R1 
  993.       BackColor       =   &H8000000A&
  994.       BackStyle       =   1  'Opaque
  995.       Height          =   375
  996.       Index           =   1
  997.       Left            =   480
  998.       Shape           =   1  'Square
  999.       Top             =   1680
  1000.       Width           =   375
  1001.    End
  1002.    Begin VB.Shape R1 
  1003.       BackColor       =   &H8000000A&
  1004.       BackStyle       =   1  'Opaque
  1005.       Height          =   375
  1006.       Index           =   0
  1007.       Left            =   480
  1008.       Shape           =   1  'Square
  1009.       Top             =   1200
  1010.       Width           =   375
  1011.    End
  1012.    Begin VB.Shape Row1 
  1013.       BackStyle       =   1  'Opaque
  1014.       Height          =   135
  1015.       Index           =   3
  1016.       Left            =   2400
  1017.       Top             =   2760
  1018.       Width           =   135
  1019.    End
  1020.    Begin VB.Shape Row1 
  1021.       BackStyle       =   1  'Opaque
  1022.       Height          =   135
  1023.       Index           =   2
  1024.       Left            =   2400
  1025.       Top             =   2280
  1026.       Width           =   135
  1027.    End
  1028.    Begin VB.Shape Row1 
  1029.       BackStyle       =   1  'Opaque
  1030.       Height          =   135
  1031.       Index           =   1
  1032.       Left            =   2400
  1033.       Top             =   1800
  1034.       Width           =   135
  1035.    End
  1036.    Begin VB.Shape Row1 
  1037.       BackStyle       =   1  'Opaque
  1038.       Height          =   135
  1039.       Index           =   0
  1040.       Left            =   2400
  1041.       Top             =   1320
  1042.       Width           =   135
  1043.    End
  1044. End
  1045. Attribute VB_Name = "Form1"
  1046. Attribute VB_GlobalNameSpace = False
  1047. Attribute VB_Creatable = False
  1048. Attribute VB_PredeclaredId = True
  1049. Attribute VB_Exposed = False
  1050. Option Explicit
  1051.  
  1052.  
  1053. '                              Master Mind XP
  1054. '                              Coded by 0x34
  1055. '                         GraphX by Michael Slater
  1056. '                              (0x34's Son)
  1057.  
  1058.  
  1059. Dim ClearRow1 As Boolean
  1060. Dim ClearRow2 As Boolean
  1061. Dim ClearRow3 As Boolean
  1062. Dim ClearRow4 As Boolean
  1063. Dim ClearRow1a As Boolean
  1064. Dim ClearRow2a As Boolean
  1065. Dim ClearRow3a As Boolean
  1066. Dim ClearRow4a As Boolean
  1067. Dim ClearPos As Byte
  1068. Dim RPos As Integer
  1069. Dim DRTR As Boolean
  1070. Dim CRed As Integer
  1071. Dim CGreen As Integer
  1072. Dim CBlue As Integer
  1073. Dim CYellow As Integer
  1074. Dim Winner As Boolean
  1075. Dim Cover As Boolean
  1076. Dim Movedone As Boolean
  1077. Dim Bang As Boolean
  1078. Dim LIT As Boolean
  1079. Dim ErrCnt As Integer
  1080. Dim E As Integer
  1081. Dim SelClr As String
  1082.  
  1083. Dim P(4) As Byte               'Array to hold the Hidden Key
  1084. '                        0 = Red   Colors are always in this order
  1085. '                        1 = Green
  1086. '                        2 = Yellow
  1087. '                        3 = Blue
  1088. Dim Sel(4, 9) As Byte
  1089. Dim KC(4) As Integer
  1090.  
  1091. Dim Start As Boolean
  1092. Dim Multi As Boolean
  1093.  
  1094. Private Sub About_Click() ' Show the splash screen
  1095.     frmSplash.Show
  1096. End Sub
  1097.  
  1098. Public Sub PlySnd() ' Main CLICK sound for button press
  1099.     SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\Click.wav", 1)
  1100. End Sub
  1101.  
  1102. Private Sub Col1_Click(Index As Integer) ' Color Entry KeyPress - Coloum #1
  1103. Select Case Index
  1104.     Case 0
  1105.         R1(RPos).BackColor = vbRed
  1106.         SelClr = vbRed
  1107.     Case 1
  1108.         R1(RPos).BackColor = vbGreen
  1109.         SelClr = vbGreen
  1110.     Case 2
  1111.         R1(RPos).BackColor = vbYellow
  1112.         SelClr = vbYellow
  1113.     Case 3
  1114.         R1(RPos).BackColor = vbBlue
  1115. End Select
  1116. SelClr = R1(RPos).BackColor
  1117. E = NoDubs(RPos, "R1", SelClr)
  1118. Sel(0, RPos) = Index
  1119. PlySnd
  1120. End Sub
  1121.  
  1122. Private Sub Col2_Click(Index As Integer) ' Color Entry KeyPress - Coloum #2
  1123. Select Case Index
  1124.     Case 0
  1125.         R2(RPos).BackColor = vbRed
  1126.     Case 1
  1127.         R2(RPos).BackColor = vbGreen
  1128.     Case 2
  1129.         R2(RPos).BackColor = vbYellow
  1130.     Case 3
  1131.         R2(RPos).BackColor = vbBlue
  1132. End Select
  1133. SelClr = R2(RPos).BackColor
  1134. E = NoDubs(RPos, "R2", SelClr)
  1135. Sel(1, RPos) = Index
  1136. PlySnd
  1137. End Sub
  1138.  
  1139. Private Sub Col3_Click(Index As Integer) ' Color Entry KeyPress - Coloum #3
  1140. Select Case Index
  1141.     Case 0
  1142.         R3(RPos).BackColor = vbRed
  1143.     Case 1
  1144.         R3(RPos).BackColor = vbGreen
  1145.     Case 2
  1146.         R3(RPos).BackColor = vbYellow
  1147.     Case 3
  1148.         R3(RPos).BackColor = vbBlue
  1149. End Select
  1150. SelClr = R3(RPos).BackColor
  1151. E = NoDubs(RPos, "R3", SelClr)
  1152. Sel(2, RPos) = Index
  1153. PlySnd
  1154. End Sub
  1155.  
  1156. Private Sub Col4_Click(Index As Integer) ' Color Entry KeyPress - Coloum #4
  1157. Select Case Index
  1158.     Case 0
  1159.         R4(RPos).BackColor = vbRed
  1160.     Case 1
  1161.         R4(RPos).BackColor = vbGreen
  1162.     Case 2
  1163.         R4(RPos).BackColor = vbYellow
  1164.     Case 3
  1165.         R4(RPos).BackColor = vbBlue
  1166. End Select
  1167. SelClr = R4(RPos).BackColor
  1168. E = NoDubs(RPos, "R4", SelClr)
  1169. Sel(3, RPos) = Index
  1170. PlySnd
  1171. End Sub
  1172.  
  1173. Private Function NoDubs(R As Integer, C As String, ByVal cl As Long) ' Single colors ONLY!
  1174. If Multi = True Then Exit Function
  1175.     If C <> "R1" Then
  1176.         If R1(R).BackColor = cl Then
  1177.             R1(R).BackColor = vbBlack
  1178.         End If
  1179.     End If
  1180.     If C <> "R2" Then
  1181.         If R2(R).BackColor = cl Then
  1182.             R2(R).BackColor = vbBlack
  1183.         End If
  1184.     End If
  1185.     If C <> "R3" Then
  1186.         If R3(R).BackColor = cl Then
  1187.             R3(R).BackColor = vbBlack
  1188.         End If
  1189.     End If
  1190.     If C <> "R4" Then
  1191.         If R4(R).BackColor = cl Then
  1192.             R4(R).BackColor = vbBlack
  1193.         End If
  1194.     End If
  1195. End Function
  1196.  
  1197. Private Sub Command1_Click() ' Statistics Form
  1198.     If Form2.Visible Then
  1199.         Unload Form2
  1200.     Else
  1201.         Form2.Show
  1202.     End If
  1203. End Sub
  1204.  
  1205. Private Sub ETim_Timer() ' Flash empty space timer
  1206.  ErrCnt = ErrCnt + 1
  1207.     If LIT Then
  1208.         DouseEm
  1209.     Else
  1210.         LiteEm
  1211.     End If
  1212. If ErrCnt = 5 Or ErrCnt > 5 Then
  1213.     ETim.Enabled = False
  1214.     DouseEm
  1215. End If
  1216.  
  1217. End Sub
  1218.  
  1219. Private Sub LiteEm() '   Lite unfilled spaces
  1220.     If R1(RPos).BackColor = vbBlack Then
  1221.         R1(RPos).BackColor = vbWhite
  1222.     End If
  1223.     If R2(RPos).BackColor = vbBlack Then
  1224.         R2(RPos).BackColor = vbWhite
  1225.     End If
  1226.     If R3(RPos).BackColor = vbBlack Then
  1227.         R3(RPos).BackColor = vbWhite
  1228.     End If
  1229.     If R4(RPos).BackColor = vbBlack Then
  1230.         R4(RPos).BackColor = vbWhite
  1231.     End If
  1232.     LIT = True
  1233. End Sub
  1234.  
  1235. Private Sub DouseEm() '   Unlite unfilled spaces
  1236.     If R1(RPos).BackColor = vbWhite Then
  1237.         R1(RPos).BackColor = vbBlack
  1238.     End If
  1239.     If R2(RPos).BackColor = vbWhite Then
  1240.         R2(RPos).BackColor = vbBlack
  1241.     End If
  1242.     If R3(RPos).BackColor = vbWhite Then
  1243.         R3(RPos).BackColor = vbBlack
  1244.     End If
  1245.     If R4(RPos).BackColor = vbWhite Then
  1246.         R4(RPos).BackColor = vbBlack
  1247.     End If
  1248.     LIT = False
  1249. End Sub
  1250.  
  1251. Private Sub Enter_Click() ' Enter Key Press - It all happens here
  1252. Dim t As Integer
  1253. Dim CW As Integer
  1254. Dim CCy As Integer
  1255.  
  1256. If ETim.Enabled = True Then Exit Sub
  1257.  
  1258. If R1(RPos).BackColor = vbBlack Or R2(RPos).BackColor = vbBlack _
  1259. Or R3(RPos).BackColor = vbBlack Or R4(RPos).BackColor = vbBlack Then
  1260.     ETim.Enabled = True
  1261.     ErrCnt = 0
  1262.     LiteEm
  1263.     Exit Sub
  1264. End If
  1265.  
  1266.  
  1267.     SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\Enter.wav", 1)
  1268.     CCy = 0
  1269.     CW = 0
  1270.     CRed = 0
  1271.     CGreen = 0
  1272.     CYellow = 0
  1273.     CBlue = 0
  1274.     Timer1.Enabled = False              'Turn off wig wag position indicator
  1275.     Row1(RPos).BackColor = vbBlack
  1276.     Row2(RPos).BackColor = vbBlack
  1277.     Row3(RPos).BackColor = vbBlack
  1278.     Row4(RPos).BackColor = vbBlack
  1279.  
  1280.     For t = 0 To 3                      'Determine how many of each color have been entered
  1281.         Select Case Sel(t, RPos)
  1282.             Case Is = 0
  1283.                 CRed = CRed + 1
  1284.             Case Is = 1
  1285.                 CGreen = CGreen + 1
  1286.             Case Is = 2
  1287.                 CYellow = CYellow + 1
  1288.             Case Is = 3
  1289.                 CBlue = CBlue + 1
  1290.         End Select
  1291.     Next
  1292.                                         'KC(x) is 1 x each color in key
  1293.     If KC(0) > 0 Then                   'Increment CW for each color matching the key colors
  1294.         For t = 0 To KC(0) - 1
  1295.             If CRed > 0 Then
  1296.                 CW = CW + 1
  1297.                 CRed = CRed - 1
  1298.             End If
  1299.         Next
  1300.     End If
  1301.     If KC(1) > 0 Then
  1302.         For t = 0 To KC(1) - 1
  1303.             If CGreen > 0 Then
  1304.                 CW = CW + 1
  1305.                 CGreen = CGreen - 1
  1306.             End If
  1307.         Next
  1308.     End If
  1309.     If KC(2) > 0 Then
  1310.         For t = 0 To KC(2) - 1
  1311.             If CYellow > 0 Then
  1312.                 CW = CW + 1
  1313.                 CYellow = CYellow - 1
  1314.             End If
  1315.         Next
  1316.     End If
  1317.     If KC(3) > 0 Then
  1318.         For t = 0 To KC(3) - 1
  1319.             If CBlue > 0 Then
  1320.                 CW = CW + 1
  1321.                 CBlue = CBlue - 1
  1322.             End If
  1323.         Next
  1324.     End If
  1325.  
  1326.     If CW > 0 Then                      'Colorize boxes white, indicating correct colors
  1327.         Row1(RPos).BackColor = vbWhite
  1328.         CW = CW - 1
  1329.     End If
  1330.     If CW > 0 Then
  1331.         Row2(RPos).BackColor = vbWhite
  1332.         CW = CW - 1
  1333.     End If
  1334.     If CW > 0 Then
  1335.         Row3(RPos).BackColor = vbWhite
  1336.         CW = CW - 1
  1337.     End If
  1338.     If CW > 0 Then
  1339.         Row4(RPos).BackColor = vbWhite
  1340.         CW = CW - 1
  1341.     End If
  1342.     
  1343.     If R1(RPos).BackColor = Key(0).BackColor Then   'Increment CCY for each color in the right spot
  1344.         CCy = CCy + 1
  1345.     End If
  1346.     If R2(RPos).BackColor = Key(1).BackColor Then
  1347.         CCy = CCy + 1
  1348.     End If
  1349.     If R3(RPos).BackColor = Key(2).BackColor Then
  1350.         CCy = CCy + 1
  1351.     End If
  1352.     If R4(RPos).BackColor = Key(3).BackColor Then
  1353.         CCy = CCy + 1
  1354.     End If
  1355.  
  1356.     For t = 0 To CCy - 1                            'Make boxes blue for respective amount
  1357.         If Row1(RPos).BackColor <> &HFFFF80 Then    'of colors in the right spot.
  1358.             Row1(RPos).BackColor = &HFFFF80
  1359.         ElseIf Row2(RPos).BackColor <> &HFFFF80 Then
  1360.             Row2(RPos).BackColor = &HFFFF80
  1361.         ElseIf Row3(RPos).BackColor <> &HFFFF80 Then
  1362.             Row3(RPos).BackColor = &HFFFF80
  1363.         ElseIf Row4(RPos).BackColor <> &HFFFF80 Then
  1364.             Row4(RPos).BackColor = &HFFFF80
  1365.         End If
  1366.     Next
  1367.     Cover = False
  1368.     If CCy = 4 Then '   If all colors are correct (CCy = 4) then: WINNER
  1369.         SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\Win.wav", 1)
  1370.         Wins = Wins + 1             'Increment Wins Stat
  1371.         RPos = 0                    'Zero the Row Position
  1372.         Winner = True               'Set Winner reg
  1373.         DisableInput                'Disable the input buttons
  1374.         Timer3.Enabled = True       'Enable result timer to flash the result
  1375.         LabWin.Visible = True       'Display "Winner"
  1376.         MT.Enabled = True
  1377.         Exit Sub
  1378.     End If
  1379.  
  1380.     RPos = RPos + 1                 'Increment Row Position
  1381.     
  1382.     If RPos > 6 Then    '  If colors not correct, and last try exceeded, then: LOSER
  1383.         SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\Lose.wav", 1)
  1384.         Losses = Losses + 1         'Increment Losses Stat
  1385.         RPos = 0                    'Zero the Row Position
  1386.         Winner = False              'Clear Winner reg
  1387.         DisableInput                'Disable the input buttons
  1388.         Timer3.Enabled = True       'Enable result timer to flash the result
  1389.         LabLoser.Visible = True     'Display "Loser"
  1390.         MT.Enabled = True
  1391.         Exit Sub
  1392.     End If
  1393.     
  1394.     Row1(RPos).BackColor = &HFFFF80 'Set new wig wag start position
  1395.     Timer1.Enabled = True           'Restart wig wag place indicator
  1396.     
  1397. End Sub
  1398.  
  1399. Private Sub Form_Unload(Cancel As Integer) ' Exit program correctly
  1400.     If frmSplash.Visible Then Unload frmSplash
  1401.     If Form2.Visible Then Unload Form2
  1402.     Unload Me
  1403.     End
  1404. End Sub
  1405.  
  1406. Private Sub MT_Timer() ' Move key cover
  1407. If Cover Then
  1408.     If Picture1.Left <= 235 Then
  1409.         MT.Enabled = False
  1410.         NuGam
  1411.         Exit Sub
  1412.     End If
  1413.     Picture1.Left = Picture1.Left - 50
  1414. Else
  1415.     If Picture1.Left >= 2640 Then
  1416.         MT.Enabled = False
  1417.         Exit Sub
  1418.     End If
  1419.     Picture1.Left = Picture1.Left + 50
  1420. End If
  1421.     
  1422. End Sub
  1423.  
  1424. Private Sub Multiples_Click()   ' Toggle Multiples Option
  1425. If RPos > 0 Then
  1426.     E = MsgBox("Start new game?", vbYesNo, "Change Game Type")
  1427.     If E = 7 Then Exit Sub
  1428. End If
  1429.     SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\StatClick.wav", 1)
  1430.     If Multi = False Then
  1431.         MultiInd.BackColor = vbGreen
  1432.         Multi = True
  1433.     Else
  1434.         MultiInd.BackColor = vbBlack
  1435.         Multi = False
  1436.     End If
  1437.     NewGame_Click
  1438. End Sub
  1439.  
  1440. Private Sub Form_Load()
  1441.     LabWin.Visible = False
  1442.     LabLoser.Visible = False
  1443.     DisableInput
  1444.     frmSplash.Show
  1445.     Timer1.Interval = 2000  'Value in milliseconds to display splash screen
  1446.     Timer1.Enabled = True
  1447.     Form1.Visible = False
  1448.     Start = True
  1449.     Picture1.Left = 235
  1450.     Picture1.Top = 120
  1451.     DRTR = True
  1452.     Randomize
  1453. End Sub
  1454.  
  1455. Public Function DisableInput() ' Disable Coloum Keys and Enter Key
  1456. Dim t As Integer
  1457.     For t = 0 To 3
  1458.         Col1(t).Enabled = False
  1459.     Next
  1460.     For t = 0 To 3
  1461.         Col2(t).Enabled = False
  1462.     Next
  1463.         For t = 0 To 3
  1464.         Col3(t).Enabled = False
  1465.     Next
  1466.         For t = 0 To 3
  1467.         Col4(t).Enabled = False
  1468.     Next
  1469.     Enter.Enabled = False
  1470. End Function
  1471. Public Function EnableInput() ' Enable Coloum Keys and Enter Key
  1472. Dim t As Integer
  1473.     For t = 0 To 3
  1474.         Col1(t).Enabled = True
  1475.     Next
  1476.     For t = 0 To 3
  1477.         Col2(t).Enabled = True
  1478.     Next
  1479.         For t = 0 To 3
  1480.         Col3(t).Enabled = True
  1481.     Next
  1482.         For t = 0 To 3
  1483.         Col4(t).Enabled = True
  1484.     Next
  1485.     Enter.Enabled = True
  1486. End Function
  1487.  
  1488. Private Sub NewGame_Click() ' New Game
  1489.     If Picture1.Left > 235 Then
  1490.         SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\close.wav", 1)
  1491.         Bang = True
  1492.     End If
  1493.     Movedone = False
  1494.     Cover = True
  1495.     MT.Enabled = True
  1496. End Sub
  1497.  
  1498. Public Sub NuGam() ' Main New Game set-up routine
  1499. Dim i As Integer
  1500. Dim t As Integer
  1501.     If RPos > 0 Then    ' If a play has been made and the game is reset, it counts as a loss!
  1502.         Losses = Losses + 1
  1503.     End If
  1504.     If Bang Then
  1505.         SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\NewGameb.wav", 1)
  1506.     Else
  1507.         SPly = sndPlaySound("C:\Program Files\MasterMind\Sounds\NewGame.wav", 1)
  1508.     End If
  1509.     Bang = False
  1510.     Timer3.Enabled = False
  1511.     LabLoser.Visible = False
  1512.     LabWin.Visible = False
  1513.     Winner = False
  1514.     For t = 0 To 3
  1515.         KC(t) = 0
  1516.     Next
  1517.     Timer1.Enabled = False
  1518.     NewGame.Enabled = False
  1519.     Randomize
  1520.     ClearRow1 = False
  1521.     ClearRow2 = False
  1522.     ClearRow3 = False
  1523.     ClearRow4 = False
  1524.     ClearRow1a = False
  1525.     ClearRow2a = False
  1526.     ClearRow3a = False
  1527.     ClearRow4a = False
  1528.     DRTR = True
  1529.     ClearPos = 7
  1530.     Timer2.Enabled = True
  1531.     Picture1.Visible = True
  1532.     RPos = 0
  1533.     SelectColors
  1534.     For t = 0 To 8
  1535.         For i = 0 To 4
  1536.             Sel(i, t) = 5
  1537.         Next
  1538.     Next
  1539. End Sub
  1540.  
  1541. Public Sub SelectColors() ' Randomly Pick Key colors
  1542. Dim t As Byte
  1543. Randomize
  1544.     If Multi Then   ' Set for Multiples (Easier to code)
  1545.         For t = 0 To 3
  1546.             P(t) = Fix(Rnd * 4)
  1547.         Next
  1548.         SetColor
  1549.         Exit Sub
  1550.     End If
  1551.     For t = 0 To 3  'Set for Non-Multiples  (Harder to code)
  1552.         P(t) = 5
  1553.     Next
  1554.     P(0) = Fix(Rnd * 4)
  1555. MIX:  'Mix it up  -  Loop untill all colors are not duplicates
  1556.     If P(1) = P(0) Or P(1) = 5 Then
  1557.        P(1) = Fix(Rnd * 4)
  1558.         GoTo MIX
  1559.     End If
  1560.     If P(2) = P(0) Or P(2) = P(1) Or P(2) = 5 Then
  1561.         P(2) = Fix(Rnd * 4)
  1562.         GoTo MIX
  1563.     End If
  1564.     If P(3) = P(0) Or P(3) = P(1) Or P(3) = P(2) Or P(3) = 5 Then
  1565.         P(3) = Fix(Rnd * 4)
  1566.         GoTo MIX
  1567.     End If
  1568.     SetColor
  1569. End Sub
  1570.  
  1571. Public Sub SetColor() 'Place colores under hidden key
  1572. Dim t As Byte
  1573.     For t = 0 To 3
  1574.         If P(t) = 0 Then
  1575.             Key(t).BackColor = vbRed
  1576.             KC(0) = KC(0) + 1
  1577.         End If
  1578.         If P(t) = 1 Then
  1579.             Key(t).BackColor = vbGreen
  1580.             KC(1) = KC(1) + 1
  1581.         End If
  1582.         If P(t) = 2 Then
  1583.             Key(t).BackColor = vbYellow
  1584.             KC(2) = KC(2) + 1
  1585.         End If
  1586.         If P(t) = 3 Then
  1587.             Key(t).BackColor = vbBlue
  1588.             KC(3) = KC(3) + 1
  1589.         End If
  1590.     Next
  1591. End Sub
  1592.  
  1593. Private Sub Timer1_Timer()
  1594.     If Start = True Then    'Splash Screen Control
  1595.         Timer1.Interval = 75    'Wig Wag position indicator speed
  1596.         Timer1.Enabled = False
  1597.         Unload frmSplash
  1598.         Form1.Visible = True
  1599.         Start = False
  1600.         Exit Sub
  1601.     End If
  1602. If DRTR = True Then '                         Cool indicator for play position
  1603.     If Row1(RPos).BackColor = &HFFFF80 Then
  1604.         Row1(RPos).BackColor = vbBlack
  1605.         Row2(RPos).BackColor = &HFFFF80
  1606.         Exit Sub
  1607.     End If
  1608.     If Row2(RPos).BackColor = &HFFFF80 Then
  1609.         Row2(RPos).BackColor = vbBlack
  1610.        Row3(RPos).BackColor = &HFFFF80
  1611.         Exit Sub
  1612.     End If
  1613.         If Row3(RPos).BackColor = &HFFFF80 Then
  1614.         Row3(RPos).BackColor = vbBlack
  1615.         Row4(RPos).BackColor = &HFFFF80
  1616.         Exit Sub
  1617.     End If
  1618.         If Row4(RPos).BackColor = &HFFFF80 Then
  1619.         Row4(RPos).BackColor = vbBlack
  1620.         Row3(RPos).BackColor = &HFFFF80
  1621.         DRTR = False
  1622.         Exit Sub
  1623.     End If
  1624. Else
  1625.     If Row3(RPos).BackColor = &HFFFF80 Then
  1626.         Row3(RPos).BackColor = vbBlack
  1627.         Row2(RPos).BackColor = &HFFFF80
  1628.         Exit Sub
  1629.     End If
  1630.     If Row2(RPos).BackColor = &HFFFF80 Then
  1631.         Row2(RPos).BackColor = vbBlack
  1632.         Row1(RPos).BackColor = &HFFFF80
  1633.         Exit Sub
  1634.     End If
  1635.     If Row1(RPos).BackColor = &HFFFF80 Then
  1636.         Row1(RPos).BackColor = vbBlack
  1637.         Row2(RPos).BackColor = &HFFFF80
  1638.         DRTR = True
  1639.         Exit Sub
  1640.     End If
  1641. End If
  1642. End Sub
  1643.  
  1644. Private Sub Timer2_Timer()  ' Clear all for a new game
  1645.     If ClearRow1 = False Then
  1646.         ClearPos = ClearPos - 1
  1647.         R1(ClearPos).BackColor = vbWhite
  1648.         Row1(ClearPos).BackColor = vbWhite
  1649.         If ClearPos = 0 Then
  1650.             ClearPos = 7
  1651.             ClearRow1 = True
  1652.         End If
  1653.         Exit Sub
  1654.     End If
  1655.     If ClearRow2 = False Then
  1656.         ClearPos = ClearPos - 1
  1657.         R2(ClearPos).BackColor = vbWhite
  1658.         Row2(ClearPos).BackColor = vbWhite
  1659.         If ClearPos = 0 Then
  1660.             ClearPos = 7
  1661.             ClearRow2 = True
  1662.         End If
  1663.         Exit Sub
  1664.     End If
  1665.     If ClearRow3 = False Then
  1666.         ClearPos = ClearPos - 1
  1667.         R3(ClearPos).BackColor = vbWhite
  1668.         Row3(ClearPos).BackColor = vbWhite
  1669.         If ClearPos = 0 Then
  1670.             ClearPos = 7
  1671.             ClearRow3 = True
  1672.         End If
  1673.         Exit Sub
  1674.     End If
  1675.     If ClearRow4 = False Then
  1676.         ClearPos = ClearPos - 1
  1677.         R4(ClearPos).BackColor = vbWhite
  1678.         Row4(ClearPos).BackColor = vbWhite
  1679.         If ClearPos = 0 Then
  1680.             ClearPos = 7
  1681.             ClearRow4 = True
  1682.         End If
  1683.         Exit Sub
  1684.     End If
  1685.     '-------------------------------------(Black)----------
  1686.        If ClearRow1a = False Then
  1687.         ClearPos = ClearPos - 1
  1688.         R1(ClearPos).BackColor = vbBlack
  1689.         Row1(ClearPos).BackColor = vbBlack
  1690.         If ClearPos = 0 Then
  1691.             ClearPos = 7
  1692.             ClearRow1a = True
  1693.         End If
  1694.         Exit Sub
  1695.     End If
  1696.     If ClearRow2a = False Then
  1697.         ClearPos = ClearPos - 1
  1698.         R2(ClearPos).BackColor = vbBlack
  1699.         Row2(ClearPos).BackColor = vbBlack
  1700.         If ClearPos = 0 Then
  1701.             ClearPos = 7
  1702.             ClearRow2a = True
  1703.         End If
  1704.         Exit Sub
  1705.     End If
  1706.     If ClearRow3a = False Then
  1707.         ClearPos = ClearPos - 1
  1708.         R3(ClearPos).BackColor = vbBlack
  1709.         Row3(ClearPos).BackColor = vbBlack
  1710.         If ClearPos = 0 Then
  1711.             ClearPos = 7
  1712.             ClearRow3a = True
  1713.         End If
  1714.         Exit Sub
  1715.     End If
  1716.     If ClearRow4a = False Then
  1717.         ClearPos = ClearPos - 1
  1718.         R4(ClearPos).BackColor = vbBlack
  1719.         Row4(ClearPos).BackColor = vbBlack
  1720.         If ClearPos = 0 Then
  1721.             ClearPos = 7
  1722.             ClearRow4a = True
  1723.             Timer2.Enabled = False
  1724.             NewGame.Enabled = True
  1725.         End If
  1726.         Row1(RPos).BackColor = &HFFFF80
  1727.         Timer1.Enabled = True
  1728.         EnableInput
  1729.         Exit Sub
  1730.     End If
  1731. End Sub
  1732.  
  1733. Private Sub Timer3_Timer() 'Win/Lose Splash timer
  1734.     If Winner Then
  1735.         If LabWin.Visible Then
  1736.             LabWin.Visible = False
  1737.         Else
  1738.             LabWin.Visible = True
  1739.         End If
  1740.     Else
  1741.         If LabLoser.Visible Then
  1742.             LabLoser.Visible = False
  1743.         Else
  1744.             LabLoser.Visible = True
  1745.         End If
  1746.     End If
  1747. End Sub
  1748.