home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / trainlar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-08  |  46.9 KB  |  1,436 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Begin VB.Form TrainLarge 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Quad-Ball Training Mode. Arvinder Sehmi 1999, Arvinder@Sehmi.Co.Uk"
  6.    ClientHeight    =   8970
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   11985
  10.    Icon            =   "TrainLarge.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   8970
  16.    ScaleWidth      =   11985
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.PictureBox StatBox 
  20.       Appearance      =   0  'Flat
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H00C000C0&
  23.       BorderStyle     =   0  'None
  24.       ForeColor       =   &H80000008&
  25.       Height          =   3030
  26.       Left            =   0
  27.       ScaleHeight     =   3030
  28.       ScaleWidth      =   3570
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Visible         =   0   'False
  32.       Width           =   3570
  33.       Begin VB.Label Label5 
  34.          Alignment       =   1  'Right Justify
  35.          BackStyle       =   0  'Transparent
  36.          Caption         =   "Total Score"
  37.          BeginProperty Font 
  38.             Name            =   "Times New Roman"
  39.             Size            =   27.75
  40.             Charset         =   0
  41.             Weight          =   400
  42.             Underline       =   0   'False
  43.             Italic          =   0   'False
  44.             Strikethrough   =   0   'False
  45.          EndProperty
  46.          ForeColor       =   &H0000FF00&
  47.          Height          =   510
  48.          Left            =   900
  49.          TabIndex        =   12
  50.          Top             =   1890
  51.          Width           =   2895
  52.       End
  53.       Begin VB.Label Label7 
  54.          Alignment       =   1  'Right Justify
  55.          BackStyle       =   0  'Transparent
  56.          Caption         =   "Top Speed"
  57.          BeginProperty Font 
  58.             Name            =   "Times New Roman"
  59.             Size            =   27.75
  60.             Charset         =   0
  61.             Weight          =   400
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          ForeColor       =   &H0000FF00&
  67.          Height          =   555
  68.          Left            =   -90
  69.          TabIndex        =   11
  70.          Top             =   5535
  71.          Width           =   3885
  72.       End
  73.       Begin VB.Label Label8 
  74.          Alignment       =   1  'Right Justify
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "Total Bounces"
  77.          BeginProperty Font 
  78.             Name            =   "Times New Roman"
  79.             Size            =   27.75
  80.             Charset         =   0
  81.             Weight          =   400
  82.             Underline       =   0   'False
  83.             Italic          =   0   'False
  84.             Strikethrough   =   0   'False
  85.          EndProperty
  86.          ForeColor       =   &H0000FF00&
  87.          Height          =   645
  88.          Left            =   135
  89.          TabIndex        =   10
  90.          Top             =   6705
  91.          Width           =   3660
  92.       End
  93.       Begin VB.Label TotalScore 
  94.          AutoSize        =   -1  'True
  95.          BackStyle       =   0  'Transparent
  96.          Caption         =   "SCORE"
  97.          BeginProperty Font 
  98.             Name            =   "Times New Roman"
  99.             Size            =   36
  100.             Charset         =   0
  101.             Weight          =   700
  102.             Underline       =   0   'False
  103.             Italic          =   0   'False
  104.             Strikethrough   =   0   'False
  105.          EndProperty
  106.          ForeColor       =   &H0000FFFF&
  107.          Height          =   825
  108.          Left            =   4185
  109.          TabIndex        =   9
  110.          Top             =   1755
  111.          Width           =   2490
  112.       End
  113.       Begin VB.Label TopSpeed 
  114.          AutoSize        =   -1  'True
  115.          BackStyle       =   0  'Transparent
  116.          Caption         =   "TopSpeed"
  117.          BeginProperty Font 
  118.             Name            =   "Times New Roman"
  119.             Size            =   36
  120.             Charset         =   0
  121.             Weight          =   700
  122.             Underline       =   0   'False
  123.             Italic          =   0   'False
  124.             Strikethrough   =   0   'False
  125.          EndProperty
  126.          ForeColor       =   &H0000FFFF&
  127.          Height          =   825
  128.          Left            =   4185
  129.          TabIndex        =   8
  130.          Top             =   5400
  131.          Width           =   3090
  132.       End
  133.       Begin VB.Label TotalBounces 
  134.          AutoSize        =   -1  'True
  135.          BackStyle       =   0  'Transparent
  136.          Caption         =   "TotalBounces"
  137.          BeginProperty Font 
  138.             Name            =   "Times New Roman"
  139.             Size            =   36
  140.             Charset         =   0
  141.             Weight          =   700
  142.             Underline       =   0   'False
  143.             Italic          =   0   'False
  144.             Strikethrough   =   0   'False
  145.          EndProperty
  146.          ForeColor       =   &H0000FFFF&
  147.          Height          =   825
  148.          Left            =   4230
  149.          TabIndex        =   7
  150.          Top             =   6615
  151.          Width           =   4185
  152.       End
  153.       Begin VB.Label Label9 
  154.          AutoSize        =   -1  'True
  155.          BackStyle       =   0  'Transparent
  156.          Caption         =   "Game Statistics"
  157.          BeginProperty Font 
  158.             Name            =   "Times New Roman"
  159.             Size            =   48
  160.             Charset         =   0
  161.             Weight          =   400
  162.             Underline       =   -1  'True
  163.             Italic          =   0   'False
  164.             Strikethrough   =   0   'False
  165.          EndProperty
  166.          ForeColor       =   &H00FFFF00&
  167.          Height          =   1095
  168.          Left            =   900
  169.          TabIndex        =   6
  170.          Top             =   270
  171.          Width           =   5985
  172.       End
  173.       Begin VB.Label Label4 
  174.          Alignment       =   1  'Right Justify
  175.          BackStyle       =   0  'Transparent
  176.          Caption         =   "Total Time"
  177.          BeginProperty Font 
  178.             Name            =   "Times New Roman"
  179.             Size            =   27.75
  180.             Charset         =   0
  181.             Weight          =   400
  182.             Underline       =   0   'False
  183.             Italic          =   0   'False
  184.             Strikethrough   =   0   'False
  185.          EndProperty
  186.          ForeColor       =   &H0000FF00&
  187.          Height          =   510
  188.          Left            =   945
  189.          TabIndex        =   5
  190.          Top             =   3105
  191.          Width           =   2850
  192.       End
  193.       Begin VB.Label Label6 
  194.          Alignment       =   1  'Right Justify
  195.          BackStyle       =   0  'Transparent
  196.          Caption         =   "Highest Time"
  197.          BeginProperty Font 
  198.             Name            =   "Times New Roman"
  199.             Size            =   27.75
  200.             Charset         =   0
  201.             Weight          =   400
  202.             Underline       =   0   'False
  203.             Italic          =   0   'False
  204.             Strikethrough   =   0   'False
  205.          EndProperty
  206.          ForeColor       =   &H0000FF00&
  207.          Height          =   645
  208.          Left            =   315
  209.          TabIndex        =   4
  210.          Top             =   4320
  211.          Width           =   3480
  212.       End
  213.       Begin VB.Label AllTime 
  214.          AutoSize        =   -1  'True
  215.          BackStyle       =   0  'Transparent
  216.          Caption         =   "SCORE"
  217.          BeginProperty Font 
  218.             Name            =   "Times New Roman"
  219.             Size            =   36
  220.             Charset         =   0
  221.             Weight          =   700
  222.             Underline       =   0   'False
  223.             Italic          =   0   'False
  224.             Strikethrough   =   0   'False
  225.          EndProperty
  226.          ForeColor       =   &H0000FFFF&
  227.          Height          =   825
  228.          Left            =   4185
  229.          TabIndex        =   3
  230.          Top             =   3015
  231.          Width           =   2490
  232.       End
  233.       Begin VB.Label HighTime 
  234.          AutoSize        =   -1  'True
  235.          BackStyle       =   0  'Transparent
  236.          Caption         =   "SCORE"
  237.          BeginProperty Font 
  238.             Name            =   "Times New Roman"
  239.             Size            =   36
  240.             Charset         =   0
  241.             Weight          =   700
  242.             Underline       =   0   'False
  243.             Italic          =   0   'False
  244.             Strikethrough   =   0   'False
  245.          EndProperty
  246.          ForeColor       =   &H0000FFFF&
  247.          Height          =   825
  248.          Left            =   4185
  249.          TabIndex        =   2
  250.          Top             =   4230
  251.          Width           =   2490
  252.       End
  253.       Begin VB.Label OK 
  254.          AutoSize        =   -1  'True
  255.          BackStyle       =   0  'Transparent
  256.          Caption         =   "Continue"
  257.          BeginProperty Font 
  258.             Name            =   "Times New Roman"
  259.             Size            =   36
  260.             Charset         =   0
  261.             Weight          =   700
  262.             Underline       =   0   'False
  263.             Italic          =   0   'False
  264.             Strikethrough   =   0   'False
  265.          EndProperty
  266.          ForeColor       =   &H00008000&
  267.          Height          =   825
  268.          Left            =   7605
  269.          TabIndex        =   1
  270.          Tag             =   "No"
  271.          Top             =   7380
  272.          Width           =   2805
  273.       End
  274.    End
  275.    Begin VB.PictureBox TitleScreen 
  276.       Appearance      =   0  'Flat
  277.       AutoSize        =   -1  'True
  278.       BackColor       =   &H0080C0FF&
  279.       BorderStyle     =   0  'None
  280.       ForeColor       =   &H80000008&
  281.       Height          =   8895
  282.       Left            =   0
  283.       ScaleHeight     =   8895
  284.       ScaleWidth      =   6690
  285.       TabIndex        =   13
  286.       Top             =   0
  287.       Width           =   6690
  288.       Begin VB.Label Start 
  289.          Alignment       =   2  'Center
  290.          AutoSize        =   -1  'True
  291.          BackStyle       =   0  'Transparent
  292.          Caption         =   "Start Game"
  293.          BeginProperty Font 
  294.             Name            =   "Times New Roman"
  295.             Size            =   27.75
  296.             Charset         =   0
  297.             Weight          =   400
  298.             Underline       =   0   'False
  299.             Italic          =   0   'False
  300.             Strikethrough   =   0   'False
  301.          EndProperty
  302.          ForeColor       =   &H00008000&
  303.          Height          =   585
  304.          Left            =   6795
  305.          TabIndex        =   17
  306.          Top             =   5220
  307.          Width           =   3225
  308.       End
  309.       Begin VB.Label Quit 
  310.          Alignment       =   2  'Center
  311.          AutoSize        =   -1  'True
  312.          BackStyle       =   0  'Transparent
  313.          Caption         =   "Quit Game"
  314.          BeginProperty Font 
  315.             Name            =   "Times New Roman"
  316.             Size            =   27.75
  317.             Charset         =   0
  318.             Weight          =   400
  319.             Underline       =   0   'False
  320.             Italic          =   0   'False
  321.             Strikethrough   =   0   'False
  322.          EndProperty
  323.          ForeColor       =   &H00008000&
  324.          Height          =   585
  325.          Left            =   6930
  326.          TabIndex        =   16
  327.          Top             =   6435
  328.          Width           =   2955
  329.       End
  330.       Begin VB.Label Label3 
  331.          Alignment       =   2  'Center
  332.          BackStyle       =   0  'Transparent
  333.          Caption         =   "Quad-Ball Training Mode"
  334.          BeginProperty Font 
  335.             Name            =   "Times New Roman"
  336.             Size            =   36
  337.             Charset         =   0
  338.             Weight          =   700
  339.             Underline       =   0   'False
  340.             Italic          =   0   'False
  341.             Strikethrough   =   0   'False
  342.          EndProperty
  343.          ForeColor       =   &H0000FF00&
  344.          Height          =   1005
  345.          Left            =   135
  346.          TabIndex        =   15
  347.          Top             =   7875
  348.          Width           =   11805
  349.       End
  350.       Begin VB.Label Story 
  351.          Alignment       =   2  'Center
  352.          AutoSize        =   -1  'True
  353.          BackStyle       =   0  'Transparent
  354.          Caption         =   "Play Story Mode"
  355.          BeginProperty Font 
  356.             Name            =   "Times New Roman"
  357.             Size            =   27.75
  358.             Charset         =   0
  359.             Weight          =   400
  360.             Underline       =   0   'False
  361.             Italic          =   0   'False
  362.             Strikethrough   =   0   'False
  363.          EndProperty
  364.          ForeColor       =   &H00008000&
  365.          Height          =   630
  366.          Left            =   6615
  367.          TabIndex        =   14
  368.          Top             =   5805
  369.          Width           =   3675
  370.       End
  371.    End
  372.    Begin VB.PictureBox Area 
  373.       Appearance      =   0  'Flat
  374.       BackColor       =   &H00C0FFFF&
  375.       BorderStyle     =   0  'None
  376.       DrawWidth       =   2
  377.       ForeColor       =   &H000000FF&
  378.       Height          =   9030
  379.       Left            =   0
  380.       MouseIcon       =   "TrainLarge.frx":09BA
  381.       MousePointer    =   99  'Custom
  382.       ScaleHeight     =   9030
  383.       ScaleWidth      =   10320
  384.       TabIndex        =   38
  385.       Top             =   0
  386.       Visible         =   0   'False
  387.       Width           =   10320
  388.       Begin VB.PictureBox Ball 
  389.          Appearance      =   0  'Flat
  390.          AutoRedraw      =   -1  'True
  391.          AutoSize        =   -1  'True
  392.          BackColor       =   &H00000000&
  393.          BorderStyle     =   0  'None
  394.          DrawStyle       =   1  'Dash
  395.          Enabled         =   0   'False
  396.          FillColor       =   &H0000FFFF&
  397.          ForeColor       =   &H80000008&
  398.          Height          =   375
  399.          Left            =   5085
  400.          ScaleHeight     =   375
  401.          ScaleWidth      =   375
  402.          TabIndex        =   43
  403.          Top             =   4455
  404.          Width           =   375
  405.       End
  406.       Begin VB.PictureBox TPad 
  407.          Appearance      =   0  'Flat
  408.          AutoSize        =   -1  'True
  409.          BackColor       =   &H00000000&
  410.          BorderStyle     =   0  'None
  411.          ForeColor       =   &H80000008&
  412.          Height          =   330
  413.          Left            =   0
  414.          ScaleHeight     =   330
  415.          ScaleWidth      =   2085
  416.          TabIndex        =   42
  417.          Tag             =   "Top"
  418.          Top             =   0
  419.          Width           =   2085
  420.       End
  421.       Begin VB.PictureBox BPad 
  422.          Appearance      =   0  'Flat
  423.          AutoSize        =   -1  'True
  424.          BackColor       =   &H00000000&
  425.          BorderStyle     =   0  'None
  426.          ForeColor       =   &H80000008&
  427.          Height          =   330
  428.          Left            =   0
  429.          ScaleHeight     =   330
  430.          ScaleWidth      =   2085
  431.          TabIndex        =   41
  432.          Tag             =   "Top"
  433.          Top             =   8685
  434.          Width           =   2085
  435.       End
  436.       Begin VB.PictureBox LPad 
  437.          Appearance      =   0  'Flat
  438.          AutoSize        =   -1  'True
  439.          BackColor       =   &H00000000&
  440.          BorderStyle     =   0  'None
  441.          ForeColor       =   &H80000008&
  442.          Height          =   2085
  443.          Left            =   0
  444.          ScaleHeight     =   2085
  445.          ScaleWidth      =   330
  446.          TabIndex        =   40
  447.          Tag             =   "Side"
  448.          Top             =   0
  449.          Width           =   330
  450.       End
  451.       Begin VB.PictureBox RPad 
  452.          Appearance      =   0  'Flat
  453.          AutoSize        =   -1  'True
  454.          BackColor       =   &H00000000&
  455.          BorderStyle     =   0  'None
  456.          ForeColor       =   &H80000008&
  457.          Height          =   2085
  458.          Left            =   9990
  459.          ScaleHeight     =   2085
  460.          ScaleWidth      =   330
  461.          TabIndex        =   39
  462.          Tag             =   "Side"
  463.          Top             =   45
  464.          Width           =   330
  465.       End
  466.       Begin PicClip.PictureClip BallBlow 
  467.          Left            =   6705
  468.          Top             =   3240
  469.          _ExtentX        =   5292
  470.          _ExtentY        =   5080
  471.          _Version        =   393216
  472.          Rows            =   4
  473.          Cols            =   4
  474.       End
  475.       Begin PicClip.PictureClip AniBall 
  476.          Left            =   6975
  477.          Top             =   1755
  478.          _ExtentX        =   2646
  479.          _ExtentY        =   1323
  480.          _Version        =   393216
  481.          Rows            =   2
  482.          Cols            =   4
  483.       End
  484.       Begin VB.Shape Limit 
  485.          BackColor       =   &H00000000&
  486.          BorderColor     =   &H0000FF00&
  487.          Height          =   8370
  488.          Left            =   315
  489.          Top             =   315
  490.          Visible         =   0   'False
  491.          Width           =   9675
  492.       End
  493.       Begin VB.Label GameStory 
  494.          Alignment       =   2  'Center
  495.          AutoSize        =   -1  'True
  496.          BackStyle       =   0  'Transparent
  497.          BeginProperty Font 
  498.             Name            =   "Times New Roman"
  499.             Size            =   15.75
  500.             Charset         =   0
  501.             Weight          =   400
  502.             Underline       =   0   'False
  503.             Italic          =   0   'False
  504.             Strikethrough   =   0   'False
  505.          EndProperty
  506.          ForeColor       =   &H0000FF00&
  507.          Height          =   2085
  508.          Left            =   2895
  509.          TabIndex        =   44
  510.          Top             =   3555
  511.          Width           =   5970
  512.          WordWrap        =   -1  'True
  513.       End
  514.    End
  515.    Begin VB.PictureBox Info 
  516.       Appearance      =   0  'Flat
  517.       BackColor       =   &H0000C0C0&
  518.       ForeColor       =   &H80000008&
  519.       Height          =   9000
  520.       Left            =   10320
  521.       ScaleHeight     =   8970
  522.       ScaleWidth      =   1650
  523.       TabIndex        =   18
  524.       Top             =   0
  525.       Width           =   1680
  526.       Begin VB.Timer TimeKeeper 
  527.          Enabled         =   0   'False
  528.          Interval        =   900
  529.          Left            =   1260
  530.          Top             =   3690
  531.       End
  532.       Begin VB.Label Reset 
  533.          Alignment       =   2  'Center
  534.          AutoSize        =   -1  'True
  535.          BackStyle       =   0  'Transparent
  536.          Caption         =   "Reset"
  537.          BeginProperty Font 
  538.             Name            =   "Times New Roman"
  539.             Size            =   20.25
  540.             Charset         =   0
  541.             Weight          =   700
  542.             Underline       =   0   'False
  543.             Italic          =   0   'False
  544.             Strikethrough   =   0   'False
  545.          EndProperty
  546.          ForeColor       =   &H00008000&
  547.          Height          =   435
  548.          Left            =   360
  549.          TabIndex        =   22
  550.          Tag             =   "no"
  551.          Top             =   7110
  552.          Width           =   1005
  553.       End
  554.       Begin VB.Image Life 
  555.          Height          =   375
  556.          Index           =   2
  557.          Left            =   630
  558.          Top             =   2520
  559.          Width           =   375
  560.       End
  561.       Begin VB.Shape Shape2 
  562.          BorderColor     =   &H00FF80FF&
  563.          Height          =   690
  564.          Left            =   90
  565.          Top             =   3105
  566.          Width           =   1410
  567.       End
  568.       Begin VB.Label LYLabel 
  569.          Alignment       =   2  'Center
  570.          BackStyle       =   0  'Transparent
  571.          Caption         =   "LY"
  572.          BeginProperty Font 
  573.             Name            =   "Times New Roman"
  574.             Size            =   15.75
  575.             Charset         =   0
  576.             Weight          =   400
  577.             Underline       =   0   'False
  578.             Italic          =   0   'False
  579.             Strikethrough   =   0   'False
  580.          EndProperty
  581.          ForeColor       =   &H00FFFF00&
  582.          Height          =   330
  583.          Left            =   1080
  584.          TabIndex        =   37
  585.          Top             =   3420
  586.          Width           =   375
  587.       End
  588.       Begin VB.Label CommetSpeed 
  589.          Alignment       =   1  'Right Justify
  590.          BackStyle       =   0  'Transparent
  591.          Caption         =   "0"
  592.          BeginProperty Font 
  593.             Name            =   "Times New Roman"
  594.             Size            =   15.75
  595.             Charset         =   0
  596.             Weight          =   400
  597.             Underline       =   0   'False
  598.             Italic          =   0   'False
  599.             Strikethrough   =   0   'False
  600.          EndProperty
  601.          ForeColor       =   &H000000FF&
  602.          Height          =   330
  603.          Left            =   0
  604.          TabIndex        =   36
  605.          Top             =   3420
  606.          Width           =   1005
  607.       End
  608.       Begin VB.Label CometSpeedLab 
  609.          Alignment       =   2  'Center
  610.          Appearance      =   0  'Flat
  611.          BackColor       =   &H80000005&
  612.          BackStyle       =   0  'Transparent
  613.          Caption         =   "Speed"
  614.          BeginProperty Font 
  615.             Name            =   "Times New Roman"
  616.             Size            =   14.25
  617.             Charset         =   0
  618.             Weight          =   400
  619.             Underline       =   0   'False
  620.             Italic          =   0   'False
  621.             Strikethrough   =   0   'False
  622.          EndProperty
  623.          ForeColor       =   &H0000FFFF&
  624.          Height          =   375
  625.          Left            =   45
  626.          TabIndex        =   35
  627.          Top             =   3105
  628.          Width           =   1455
  629.          WordWrap        =   -1  'True
  630.       End
  631.       Begin VB.Shape Shape1 
  632.          BorderColor     =   &H00FFFFFF&
  633.          Height          =   780
  634.          Left            =   90
  635.          Top             =   90
  636.          Width           =   1410
  637.       End
  638.       Begin VB.Label PlanetsLabel 
  639.          Alignment       =   2  'Center
  640.          Appearance      =   0  'Flat
  641.          BackColor       =   &H80000005&
  642.          BackStyle       =   0  'Transparent
  643.          Caption         =   "Planets"
  644.          BeginProperty Font 
  645.             Name            =   "Times New Roman"
  646.             Size            =   15.75
  647.             Charset         =   0
  648.             Weight          =   400
  649.             Underline       =   0   'False
  650.             Italic          =   0   'False
  651.             Strikethrough   =   0   'False
  652.          EndProperty
  653.          ForeColor       =   &H0000FFFF&
  654.          Height          =   420
  655.          Left            =   90
  656.          TabIndex        =   34
  657.          Top             =   2070
  658.          Width           =   1410
  659.       End
  660.       Begin VB.Shape PlanetsBox 
  661.          BorderColor     =   &H00FF8080&
  662.          Height          =   1005
  663.          Left            =   90
  664.          Top             =   2025
  665.          Width           =   1410
  666.       End
  667.       Begin VB.Image Life 
  668.          Height          =   375
  669.          Index           =   3
  670.          Left            =   180
  671.          Top             =   2520
  672.          Width           =   375
  673.       End
  674.       Begin VB.Image Life 
  675.          Height          =   375
  676.          Index           =   1
  677.          Left            =   1080
  678.          Top             =   2520
  679.          Width           =   375
  680.       End
  681.       Begin VB.Label TotalTime 
  682.          Alignment       =   2  'Center
  683.          BackStyle       =   0  'Transparent
  684.          Caption         =   "00:00:00"
  685.          BeginProperty Font 
  686.             Name            =   "Times New Roman"
  687.             Size            =   12
  688.             Charset         =   0
  689.             Weight          =   700
  690.             Underline       =   0   'False
  691.             Italic          =   0   'False
  692.             Strikethrough   =   0   'False
  693.          EndProperty
  694.          ForeColor       =   &H000000FF&
  695.          Height          =   420
  696.          Left            =   90
  697.          TabIndex        =   33
  698.          Top             =   1665
  699.          Width           =   1410
  700.       End
  701.       Begin VB.Label TimeSoFar 
  702.          Alignment       =   2  'Center
  703.          BackStyle       =   0  'Transparent
  704.          Caption         =   "00:00:00"
  705.          BeginProperty Font 
  706.             Name            =   "Times New Roman"
  707.             Size            =   12
  708.             Charset         =   0
  709.             Weight          =   700
  710.             Underline       =   0   'False
  711.             Italic          =   0   'False
  712.             Strikethrough   =   0   'False
  713.          EndProperty
  714.          ForeColor       =   &H000000FF&
  715.          Height          =   420
  716.          Left            =   90
  717.          TabIndex        =   32
  718.          Top             =   1350
  719.          Width           =   1410
  720.       End
  721.       Begin VB.Label TimeLabel 
  722.          Alignment       =   2  'Center
  723.          Appearance      =   0  'Flat
  724.          BackColor       =   &H80000005&
  725.          BackStyle       =   0  'Transparent
  726.          Caption         =   "Time"
  727.          BeginProperty Font 
  728.             Name            =   "Times New Roman"
  729.             Size            =   15.75
  730.             Charset         =   0
  731.             Weight          =   400
  732.             Underline       =   0   'False
  733.             Italic          =   0   'False
  734.             Strikethrough   =   0   'False
  735.          EndProperty
  736.          ForeColor       =   &H0000FFFF&
  737.          Height          =   420
  738.          Left            =   90
  739.          TabIndex        =   31
  740.          Top             =   945
  741.          Width           =   1410
  742.       End
  743.       Begin VB.Shape TimeBox 
  744.          BackColor       =   &H0000FF00&
  745.          BorderColor     =   &H0000FF00&
  746.          Height          =   1005
  747.          Left            =   90
  748.          Top             =   945
  749.          Width           =   1410
  750.       End
  751.       Begin VB.Label Score 
  752.          Alignment       =   2  'Center
  753.          BackStyle       =   0  'Transparent
  754.          Caption         =   "0"
  755.          BeginProperty Font 
  756.             Name            =   "Times New Roman"
  757.             Size            =   20.25
  758.             Charset         =   0
  759.             Weight          =   700
  760.             Underline       =   0   'False
  761.             Italic          =   0   'False
  762.             Strikethrough   =   0   'False
  763.          EndProperty
  764.          ForeColor       =   &H000000FF&
  765.          Height          =   465
  766.          Left            =   90
  767.          TabIndex        =   30
  768.          Top             =   405
  769.          Width           =   1410
  770.       End
  771.       Begin VB.Label ScoreLable 
  772.          Alignment       =   2  'Center
  773.          Appearance      =   0  'Flat
  774.          BackColor       =   &H80000005&
  775.          BackStyle       =   0  'Transparent
  776.          Caption         =   "Score"
  777.          BeginProperty Font 
  778.             Name            =   "Times New Roman"
  779.             Size            =   15.75
  780.             Charset         =   0
  781.             Weight          =   400
  782.             Underline       =   0   'False
  783.             Italic          =   0   'False
  784.             Strikethrough   =   0   'False
  785.          EndProperty
  786.          ForeColor       =   &H0000FFFF&
  787.          Height          =   420
  788.          Left            =   90
  789.          TabIndex        =   29
  790.          Top             =   90
  791.          Width           =   1410
  792.       End
  793.       Begin VB.Shape ScoreBox 
  794.          Height          =   825
  795.          Left            =   90
  796.          Top             =   -5000
  797.          Width           =   1410
  798.       End
  799.       Begin VB.Label LifeTxt 
  800.          Alignment       =   2  'Center
  801.          BackStyle       =   0  'Transparent
  802.          BeginProperty Font 
  803.             Name            =   "Times New Roman"
  804.             Size            =   13.5
  805.             Charset         =   0
  806.             Weight          =   700
  807.             Underline       =   0   'False
  808.             Italic          =   0   'False
  809.             Strikethrough   =   0   'False
  810.          EndProperty
  811.          ForeColor       =   &H000000FF&
  812.          Height          =   285
  813.          Index           =   3
  814.          Left            =   180
  815.          TabIndex        =   28
  816.          Top             =   2565
  817.          Width           =   375
  818.       End
  819.       Begin VB.Label LifeTxt 
  820.          Alignment       =   2  'Center
  821.          BackStyle       =   0  'Transparent
  822.          BeginProperty Font 
  823.             Name            =   "Times New Roman"
  824.             Size            =   13.5
  825.             Charset         =   0
  826.             Weight          =   700
  827.             Underline       =   0   'False
  828.             Italic          =   0   'False
  829.             Strikethrough   =   0   'False
  830.          EndProperty
  831.          ForeColor       =   &H0000FF00&
  832.          Height          =   285
  833.          Index           =   2
  834.          Left            =   630
  835.          TabIndex        =   27
  836.          Top             =   2565
  837.          Width           =   375
  838.       End
  839.       Begin VB.Label LifeTxt 
  840.          Alignment       =   2  'Center
  841.          BackStyle       =   0  'Transparent
  842.          BeginProperty Font 
  843.             Name            =   "Times New Roman"
  844.             Size            =   13.5
  845.             Charset         =   0
  846.             Weight          =   700
  847.             Underline       =   0   'False
  848.             Italic          =   0   'False
  849.             Strikethrough   =   0   'False
  850.          EndProperty
  851.          ForeColor       =   &H0000FFFF&
  852.          Height          =   285
  853.          Index           =   1
  854.          Left            =   1080
  855.          TabIndex        =   26
  856.          Top             =   2565
  857.          Width           =   375
  858.       End
  859.       Begin VB.Shape Shape4 
  860.          BorderColor     =   &H00FFFF00&
  861.          Height          =   1320
  862.          Left            =   90
  863.          Top             =   3870
  864.          Width           =   1455
  865.       End
  866.       Begin VB.Label Label2 
  867.          Alignment       =   2  'Center
  868.          Appearance      =   0  'Flat
  869.          BackColor       =   &H80000005&
  870.          BackStyle       =   0  'Transparent
  871.          Caption         =   "High Score"
  872.          BeginProperty Font 
  873.             Name            =   "Times New Roman"
  874.             Size            =   14.25
  875.             Charset         =   0
  876.             Weight          =   400
  877.             Underline       =   0   'False
  878.             Italic          =   0   'False
  879.             Strikethrough   =   0   'False
  880.          EndProperty
  881.          ForeColor       =   &H0000FFFF&
  882.          Height          =   330
  883.          Left            =   90
  884.          TabIndex        =   25
  885.          Top             =   3870
  886.          Width           =   1455
  887.          WordWrap        =   -1  'True
  888.       End
  889.       Begin VB.Label HighestScore 
  890.          Alignment       =   2  'Center
  891.          BackStyle       =   0  'Transparent
  892.          Caption         =   "0"
  893.          BeginProperty Font 
  894.             Name            =   "Times New Roman"
  895.             Size            =   20.25
  896.             Charset         =   0
  897.             Weight          =   700
  898.             Underline       =   0   'False
  899.             Italic          =   0   'False
  900.             Strikethrough   =   0   'False
  901.          EndProperty
  902.          ForeColor       =   &H0000FF00&
  903.          Height          =   465
  904.          Left            =   90
  905.          TabIndex        =   24
  906.          Top             =   4095
  907.          Width           =   1455
  908.       End
  909.       Begin VB.Label HighName 
  910.          Alignment       =   2  'Center
  911.          BackStyle       =   0  'Transparent
  912.          BeginProperty Font 
  913.             Name            =   "Times New Roman"
  914.             Size            =   14.25
  915.             Charset         =   0
  916.             Weight          =   700
  917.             Underline       =   0   'False
  918.             Italic          =   0   'False
  919.             Strikethrough   =   0   'False
  920.          EndProperty
  921.          ForeColor       =   &H000080FF&
  922.          Height          =   600
  923.          Left            =   90
  924.          TabIndex        =   23
  925.          Top             =   4500
  926.          Width           =   1455
  927.       End
  928.       Begin VB.Image InfoArea 
  929.          Height          =   9075
  930.          Left            =   -45
  931.          Stretch         =   -1  'True
  932.          Top             =   -45
  933.          Width           =   1770
  934.       End
  935.       Begin VB.Shape Shape6 
  936.          BorderColor     =   &H000080FF&
  937.          Height          =   1680
  938.          Left            =   90
  939.          Top             =   5265
  940.          Width           =   1455
  941.       End
  942.       Begin VB.Label Label10 
  943.          Alignment       =   2  'Center
  944.          Appearance      =   0  'Flat
  945.          BackColor       =   &H80000005&
  946.          BackStyle       =   0  'Transparent
  947.          Caption         =   "Longest Time Total"
  948.          BeginProperty Font 
  949.             Name            =   "Times New Roman"
  950.             Size            =   14.25
  951.             Charset         =   0
  952.             Weight          =   400
  953.             Underline       =   0   'False
  954.             Italic          =   0   'False
  955.             Strikethrough   =   0   'False
  956.          EndProperty
  957.          ForeColor       =   &H0000FFFF&
  958.          Height          =   645
  959.          Left            =   90
  960.          TabIndex        =   21
  961.          Top             =   5310
  962.          Width           =   1455
  963.          WordWrap        =   -1  'True
  964.       End
  965.       Begin VB.Label HighestTime 
  966.          Alignment       =   2  'Center
  967.          BackStyle       =   0  'Transparent
  968.          Caption         =   "00:00:00"
  969.          BeginProperty Font 
  970.             Name            =   "Times New Roman"
  971.             Size            =   18
  972.             Charset         =   0
  973.             Weight          =   700
  974.             Underline       =   0   'False
  975.             Italic          =   0   'False
  976.             Strikethrough   =   0   'False
  977.          EndProperty
  978.          ForeColor       =   &H0000FF00&
  979.          Height          =   465
  980.          Left            =   90
  981.          TabIndex        =   20
  982.          Top             =   5895
  983.          Width           =   1455
  984.       End
  985.       Begin VB.Label HighTimeName 
  986.          Alignment       =   2  'Center
  987.          BackStyle       =   0  'Transparent
  988.          BeginProperty Font 
  989.             Name            =   "Times New Roman"
  990.             Size            =   14.25
  991.             Charset         =   0
  992.             Weight          =   700
  993.             Underline       =   0   'False
  994.             Italic          =   0   'False
  995.             Strikethrough   =   0   'False
  996.          EndProperty
  997.          ForeColor       =   &H000080FF&
  998.          Height          =   600
  999.          Left            =   90
  1000.          TabIndex        =   19
  1001.          Top             =   6300
  1002.          Width           =   1455
  1003.       End
  1004.    End
  1005. Attribute VB_Name = "TrainLarge"
  1006. Attribute VB_GlobalNameSpace = False
  1007. Attribute VB_Creatable = False
  1008. Attribute VB_PredeclaredId = True
  1009. Attribute VB_Exposed = False
  1010. ' TO SEE DOCUMENTATION ON WHAT THESE SUBS DO    '
  1011. ' GOTO "TrainFRM", As This Code Is Very Similar '
  1012. ' And As Only Been Slightly Adjusted To Work    '
  1013. ' On Displays Larger Than 800x600               '
  1014. '_______________________________________________'
  1015. Dim ExitBounce As Boolean
  1016. Dim StartTime As Date
  1017. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1018.  UnHighlight Story
  1019.  UnHighlight Start
  1020.  UnHighlight Quit
  1021. End Sub
  1022. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  1023.  Call StopSounds(True, True)
  1024.  ExitBounce = True
  1025.  Call StopSounds(True, True)
  1026.  Reset_Click
  1027.  StatBox.Visible = False
  1028.  TitleScreen.Visible = True
  1029.  Reset_Click
  1030.  Unload Me
  1031. End Sub
  1032. Private Sub Form_Unload(Cancel As Integer)
  1033.  Call StopSounds(True, True)
  1034.   Call StopSounds(True, True)
  1035. End Sub
  1036. Private Sub GameStory_Change()
  1037. With GameStory
  1038.  .Left = Int(Me.Width - Info.Width) / 2
  1039.  .Top = Int(Me.Height / 2)
  1040.  .Left = .Left - Int(.Width / 2)
  1041.  .Top = .Top - Int(.Height / 2)
  1042.  .Refresh
  1043. End With
  1044. End Sub
  1045. Private Sub Info_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1046.  UnHighlight Reset
  1047. End Sub
  1048. Private Sub InfoArea_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1049.  X = Int(Area.Width - (BPad.Width / 2))
  1050.  Call Area_MouseMove(Button, Shift, X, Y)
  1051. End Sub
  1052. Private Sub OK_Click()
  1053.  Reset_Click
  1054.  StatBox.Visible = False
  1055. End Sub
  1056. Private Sub OK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1057.  Highlight OK
  1058. End Sub
  1059. Private Sub Quit_Click()
  1060.  ExitBounce = True
  1061.  WAVPlay "exit.qbs"
  1062.  Unload Me
  1063. End Sub
  1064. Private Sub Quit2_Click()
  1065.  Call Quit_Click
  1066. End Sub
  1067. Public Sub CentreBall()
  1068.  Ball.Visible = False
  1069.  Ball.Top = Int((Me.Height + Ball.Height) / 2)
  1070.  Ball.Left = Int(Int((Area.Width - Info.Width) / 2) - Int(Ball.Width / 2))
  1071. End Sub
  1072. Private Sub Reset_Click()
  1073.  WAVPlay "exit.qbs"
  1074.  ExitBounce = True
  1075.  ExitBounce = True
  1076.  LoadScoreTraining
  1077.  LoadTimeTraining
  1078.  CentreBall
  1079.  TitleScreen.Visible = True
  1080.  Area.Visible = False
  1081.  LifeTxt(1).Caption = ""
  1082.  LifeTxt(2).Caption = ""
  1083.  LifeTxt(3).Caption = ""
  1084.  LivesLeft = 3
  1085.  XSpeed = CmdSpeedParam
  1086.  YSpeed = CmdSpeedParam
  1087.  For i = 1 To 3
  1088.   Life(1).Visible = True
  1089.  Next i
  1090.  TopTime = "00:00:00"
  1091.  TimeSoFar = "00:00:00"
  1092.  OldTime = "00:00:00"
  1093.  TotalTime = "00:00:00"
  1094.  Score = "0"
  1095. End Sub
  1096. Private Sub Reset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1097.  Highlight Reset
  1098. End Sub
  1099. Private Sub Start_Click()
  1100.  WAVPlay "start.qbs"
  1101.  Area.Visible = True
  1102.  Area.Cls
  1103.  TitleScreen.Visible = False
  1104.  LoadScoreTraining
  1105.  LoadTimeTraining
  1106.  LivesLeft = 3
  1107.  XSpeed = CmdSpeedParam
  1108.  YSpeed = CmdSpeedParam
  1109.   For i = 1 To 3
  1110.    Life(i).Visible = True
  1111.    LifeTxt(i).Caption = ""
  1112.   Next i
  1113.  TopTime = "00:00:00"
  1114.  TimeSoFar = "00:00:00"
  1115.  OldTime = "00:00:00"
  1116.  TotalTime = "00:00:00"
  1117.  Score = "0"
  1118.  Ball.Visible = False
  1119.  GameStory = "Ready"
  1120.  Delay 0.8
  1121.  GameStory = "GO!"
  1122.  Delay 0.6
  1123.  GameStory = ""
  1124.  Ball.Visible = True
  1125.  ExitBounce = False
  1126.  Bounce
  1127. End Sub
  1128. Private Sub Start2_Click()
  1129.  StoryScreen.Visible = False
  1130.  Call Start_Click
  1131. End Sub
  1132. Private Sub Start_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1133.  UnHighlight Quit
  1134.  UnHighlight Story
  1135.  Highlight Start
  1136. End Sub
  1137. Private Sub Quit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1138.  UnHighlight Start
  1139.  UnHighlight Story
  1140.  Highlight Quit
  1141. End Sub
  1142. Private Sub ShowStats()
  1143. TotalScore = Val(Score)
  1144. TopSpeed = FastSpeed
  1145. TotalBounces = NumBounces
  1146. HighTime.Caption = TopTime
  1147. AllTime.Caption = TotalTime
  1148. StatBox.Visible = True
  1149.  If TotalScore > Val(GetKeyValue(HKEY_LOCAL_MACHINE, _
  1150.   "SOFTWARE\arvisehmi\QuadBall\Training", "TopScore")) Then
  1151.   On Error Resume Next
  1152.   InputWindow.Visible = True
  1153.  End If
  1154. Dim TmpOldHigh As String
  1155. Dim OldHigh As Date
  1156.   TmpOldHigh = (GetKeyValue(HKEY_LOCAL_MACHINE, _
  1157.   "SOFTWARE\arvisehmi\QuadBall\Training", "TopTime"))
  1158.   OldHigh = TmpOldHigh
  1159.   If TotalTime > OldHigh Then
  1160.    On Error Resume Next
  1161.    InputWindow2.Visible = True
  1162.   End If
  1163. Reset_Click
  1164. End Sub
  1165. Private Sub StatBox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1166.  UnHighlight OK
  1167. End Sub
  1168. Private Sub Story_Click()
  1169.  On Error GoTo a:
  1170.  ThisDir
  1171.  Shell "QuadBall.Exe " & Trim(Str(CmdSpeedParam)), vbNormalFocus
  1172.  Reset_Click
  1173.  Unload Me
  1174.  MsgBox "Cannot Find QuadBall.Exe," & Chr(13) & "Please Re-install This Game To Fix The Problem." & Chr(13) & _
  1175.         "If You Can Find QuadBall.exe On Your PC," & Chr(13) & "Please Place It In The Directory:" & Chr(13) & _
  1176.         App.Path, vbCritical, "Error"
  1177. End Sub
  1178. Private Sub totalbounces_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1179.  UnHighlight OK
  1180. End Sub
  1181. Private Sub label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1182.  UnHighlight OK
  1183. End Sub
  1184. Private Sub Story_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1185.  Highlight Story
  1186.  UnHighlight Start
  1187.  UnHighlight Quit
  1188. End Sub
  1189. Private Sub TitleScreen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1190.  ExitBounce = True
  1191.  UnHighlight Start
  1192.  UnHighlight Quit
  1193. End Sub
  1194. ' TO SEE DOCUMENTATION ON WHAT THESE SUBS DO    '
  1195. ' GOTO "TrainFRM", As This Code Is Very Similar '
  1196. ' And As Only Been Slightly Adjusted To Work    '
  1197. ' On Displays Larger Than 800x600               '
  1198. '_______________________________________________'
  1199. Public Sub RefreshForm()
  1200.  Me.Show
  1201.  Me.Refresh
  1202.  Area.Refresh
  1203.  TitleScreen.Refresh
  1204.  Info.Refresh
  1205. End Sub
  1206. Private Sub Area_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1207.  If Reset.Tag = "yes" Then UnHighlight Reset
  1208.  TPad.Left = Int(X - (TPad.Width / 2))
  1209.  BPad.Left = TPad.Left
  1210.  RPad.Top = Int(Y - (RPad.Height / 2))
  1211.  LPad.Top = RPad.Top
  1212. End Sub
  1213. Sub Form_Load()
  1214.  Load TrainLoadUp
  1215.  TrainLoadUp.Visible = True
  1216.  ExitBounce = True
  1217.  Area.Visible = False
  1218.  LivesLeft = 3
  1219.  XSpeed = CmdSpeedParam
  1220.  YSpeed = CmdSpeedParam
  1221.  LoadScoreTraining
  1222.  LoadTimeTraining
  1223.  LoadTitlePics
  1224.  LoadGamePics
  1225.  Unload TrainLoadUp
  1226.  Show
  1227.  RefreshForm
  1228. End Sub
  1229. Private Sub LoadGamePics()
  1230.  If GamePicsLoaded = True Then Exit Sub
  1231.  Call LoadPic(Area, "Space.Img")
  1232.  Call LoadPic(Info, "QBallI.Img")
  1233.  Call LoadPic(AniBall, "Ball.Img")
  1234.  Call LoadPic(TPad, "TBPad.Img")
  1235.  Call LoadPic(BPad, "TBPad.Img")
  1236.  Call LoadPic(LPad, "LRPad.Img")
  1237.  Call LoadPic(RPad, "LRPad.Img")
  1238.  Call LoadPic(BallBlow, "BallBlow.Img")
  1239.  Call LoadPic(Life(1), "Planet1.Img")
  1240.  Call LoadPic(Life(2), "Planet2.Img")
  1241.  Call LoadPic(Life(3), "Planet3.Img")
  1242.  Call LoadAniPic(Ball, AniBall, 0)
  1243.  GamePicsLoaded = True
  1244. End Sub
  1245. Private Sub LoadTitlePics()
  1246.  If TitlePicsLoaded = True Then Exit Sub
  1247.  Call LoadPic(TitleScreen, "QBallT.Img")
  1248.  Call LoadPic(StatBox, "QBallS.Img")
  1249.  UnHighlight Start
  1250.  UnHighlight Quit
  1251.  TitlePicsLoaded = True
  1252. End Sub
  1253. Public Sub SpinBall(Direction)
  1254. Static BallCell As Single
  1255.  Select Case Direction
  1256.   Case Clock
  1257.    BallCell = BallCell + 0.5
  1258.    If Int(BallCell) = 8 Then BallCell = 0
  1259.    Call LoadAniPic(Ball, AniBall, Int(BallCell))
  1260.   Case AntiClock
  1261.    BallCell = BallCell - 0.5
  1262.    If Int(BallCell) = -1 Then BallCell = 7
  1263.    Call LoadAniPic(Ball, AniBall, Int(BallCell))
  1264.  End Select
  1265. End Sub
  1266. ' Control The Mouse'
  1267. '__________________'
  1268. Private Sub KeepMouseOnForm()
  1269. If ExitMainMouse = True Then GoTo nd:
  1270. If Get_Mouse_X >= Int((Me.Left + Me.Width) _
  1271.  / Screen.TwipsPerPixelX) - 5 Then _
  1272.  Set_Mouse_X ((Me.Left + Me.Width) / Screen.TwipsPerPixelX) - 5
  1273. If Get_Mouse_X <= Int((Me.Left) _
  1274.  / Screen.TwipsPerPixelX) Then _
  1275.  Set_Mouse_X ((Me.Left) / Screen.TwipsPerPixelX) + 5
  1276. If Get_Mouse_Y <= Int(Me.Top / Screen.TwipsPerPixelY) + 5 Then _
  1277.  Set_Mouse_Y (Me.Top / Screen.TwipsPerPixelY) + 35
  1278. If Get_Mouse_Y >= Int((Me.Top + Me.Height) / Screen.TwipsPerPixelY) - 5 Then _
  1279.  Set_Mouse_Y ((Me.Top + Me.Height) / Screen.TwipsPerPixelY) - 5
  1280. End Sub
  1281. Public Sub Bounce()
  1282. Static BallXCent As Integer, BallYCent As Integer
  1283. Static Bounces As Integer
  1284. GetSpeed
  1285. If ExitBounce = True Then GoTo Nd2:
  1286. Ball.Visible = True
  1287. Call SetWindowRgn(Ball.hWnd, CreateEllipticRgn(0, 0, (Ball.Width / Screen.TwipsPerPixelX), (Ball.Height / Screen.TwipsPerPixelY)), True)
  1288. StartTime = Time
  1289. DoEvents
  1290. KeepMouseOnForm
  1291. Ball.Left = Ball.Left + XSpeed
  1292. Ball.Top = Ball.Top + YSpeed
  1293. BallXCent = Int(Ball.Left + (Ball.Width / 2))
  1294. BallYCent = Int(Ball.Top + (Ball.Height / 2))
  1295.  If Ball.Top <= Limit.Top And YSpeed < 0 Then
  1296.   TPadLeft = TPad.Left
  1297.   TPadRight = Int(TPad.Left + TPad.Width)
  1298.   If BallXCent > TPadLeft And BallXCent < TPadRight Then
  1299.    Call WAVPlay("Hit.qbs")
  1300.    YSpeed = -YSpeed
  1301.    AddScore
  1302.    GoTo nd:
  1303.   Else
  1304.    Die
  1305.   End If
  1306.  ElseIf Ball.Left <= Limit.Left And XSpeed < 0 Then
  1307.   LPadTop = LPad.Top
  1308.   LPadBottom = Int(LPad.Top + LPad.Height)
  1309.   If BallYCent > LPadTop And BallYCent < LPadBottom Then
  1310.    Call WAVPlay("Hit.qbs")
  1311.    XSpeed = -XSpeed
  1312.    AddScore
  1313.    GoTo nd:
  1314.   Else
  1315.    Die
  1316.   End If
  1317.  ElseIf Int(Ball.Left + Ball.Width) >= Int(Limit.Left + Limit.Width) And XSpeed > 0 Then
  1318.   RPadTop = RPad.Top
  1319.   RPadBottom = Int(RPad.Top + RPad.Height)
  1320.   If BallYCent > RPadTop And BallYCent < RPadBottom Then
  1321.    WAVPlay ("Hit.qbs")
  1322.    XSpeed = -XSpeed
  1323.    AddScore
  1324.    GoTo nd:
  1325.   Else
  1326.    Die
  1327.   End If
  1328.  ElseIf Int(Ball.Top + Ball.Height) >= Int(Limit.Top + Limit.Height) And YSpeed > 0 Then
  1329.   BPadLeft = BPad.Left
  1330.   BPadRight = Int(BPad.Left + BPad.Width)
  1331.   If BallXCent > BPadLeft And BallXCent < BPadRight Then
  1332.    Call WAVPlay("Hit.qbs")
  1333.    YSpeed = -YSpeed
  1334.    AddScore
  1335.    GoTo nd:
  1336.   Else
  1337.    Die
  1338.   End If
  1339.  End If
  1340. If Bounces = 15 Then
  1341.  KeepMouseOnForm
  1342.  If XSpeed > 0 Then SpinBall Clock Else SpinBall AntiClock
  1343.  Bounces = 0
  1344.  Dim TempTime As Date
  1345.  TempTime = Time - StartTime
  1346.  TimeSoFar = TempTime
  1347.  TotalTime = OldTime + TempTime
  1348. End If
  1349. Bounces = Bounces + 1
  1350. Loop Until ExitBounce = True
  1351. StopSounds True, True
  1352. Ball.Visible = False
  1353. 'TimeSoFar = "00:00:00"
  1354. End Sub
  1355. Public Sub Die()
  1356.  ExitBounce = True
  1357.  LivesLeft = LivesLeft - 1
  1358.  BlowUpBall
  1359.  Dim TempTime As Date
  1360.  TempTime = TimeSoFar
  1361.  OldTime = OldTime + TempTime
  1362.  Debug.Print LivesLeft; "  "; OldTime
  1363.  Select Case LivesLeft
  1364.   Case 2
  1365.    GameStory = "Ready"
  1366.    Delay 0.8
  1367.    GameStory = "GO!"
  1368.    Delay 0.6
  1369.    GameStory = ""
  1370.    LifeTxt(3).Caption = "X"
  1371.    If TempTime > TopTime Then TopTime = TempTime
  1372.   Case 1
  1373.    GameStory = "Ready"
  1374.    Delay 0.8
  1375.    GameStory = "GO!"
  1376.    Delay 0.6
  1377.    GameStory = ""
  1378.    LifeTxt(2).Caption = "X"
  1379.    If TempTime > TopTime Then TopTime = TempTime
  1380.   Case 0
  1381.    LifeTxt(1).Caption = "X"
  1382.    '+-----------+
  1383.     ' code here '
  1384.    '+-----------+
  1385.    'Reset_Click
  1386.    If TempTime > TopTime Then TopTime = TempTime
  1387.    ShowStats
  1388.    Exit Sub
  1389.  End Select
  1390.  CentreBall
  1391.  YSpeed = CmdSpeedParam
  1392.  XSpeed = CmdSpeedParam
  1393.  GetSpeed
  1394.  ExitBounce = False
  1395.  TimeSoFar = "00:00:00"
  1396.  Bounce
  1397. End Sub
  1398. Public Sub BlowUpBall()
  1399.  Ball.Visible = True
  1400.  Dim i As Integer
  1401.  WAVPlay "blowup.qbs"
  1402.  Area.Cls
  1403.  Area.Refresh
  1404.  For i = 0 To (BallBlow.Rows * BallBlow.Cols) - 1
  1405.   Call LoadAniPic(Ball, BallBlow, i)
  1406.   Ball.Refresh
  1407.   Call Sleep(0.1)
  1408.  Next i
  1409.  CentreBall
  1410.  Call LoadAniPic(Ball, AniBall, 0)
  1411. End Sub
  1412. Sub AddScore()
  1413. On Error GoTo ScoreTooHigh
  1414.  Call IncSpeed
  1415.  Call GetSpeed
  1416.  Dim AveSpeed As Integer
  1417.  AveSpeed = Int(XSpeed + YSpeed) / 2
  1418.  If AveSpeed < 0 Then AveSpeed = -AveSpeed
  1419.  Score = CLng(Val(Score) + CLng(5 * AveSpeed))
  1420.  If Val(Score.Caption) > 99999 Then Score.FontSize = 16
  1421.  NumBounces = NumBounces + 1
  1422.  Exit Sub
  1423. ScoreTooHigh:
  1424.  Score.FontSize = 14
  1425.  Score = "Maxed Out"
  1426. End Sub
  1427. Public Sub GetSpeed()
  1428.  Dim TempX, TempY
  1429.  TempX = XSpeed
  1430.  TempY = YSpeed
  1431.  If TempX < 0 Then TempX = -TempX
  1432.  If TempY < 0 Then TempY = -TempY
  1433.  CommetSpeed = Val(Int((TempX + TempY) / 2))
  1434.  If Val(CommetSpeed) > FastSpeed Then FastSpeed = Val(CommetSpeed)
  1435. End Sub
  1436.