Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / mainfrm.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-10-09 | 60.7 KB | 1,844 lines

VERSION 5.00 Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX" Begin VB.Form MainSmall BorderStyle = 0 'None Caption = "QuadBall" ClientHeight = 9000 ClientLeft = 0 ClientTop = 0 ClientWidth = 12000 ClipControls = 0 'False ControlBox = 0 'False BeginProperty Font Name = "Times New Roman" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "MainFrm.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Moveable = 0 'False ScaleHeight = 9000 ScaleWidth = 12000 StartUpPosition = 2 'CenterScreen WindowState = 2 'Maximized Begin VB.PictureBox StatBox Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C000C0& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 1050 Left = 0 ScaleHeight = 1050 ScaleWidth = 1185 TabIndex = 34 Top = 0 Visible = 0 'False Width = 1185 Begin VB.Label OK AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Continue" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 825 Left = 8460 TabIndex = 48 Top = 7650 Width = 2805 End Begin VB.Label Label9 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Game Statistics" BeginProperty Font Name = "Times New Roman" Size = 48 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFF00& Height = 1095 Left = 900 TabIndex = 45 Top = 270 Width = 5985 End Begin VB.Label SavedPlanets AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Neptune" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Index = 3 Left = 4770 TabIndex = 44 Top = 4455 Width = 2580 End Begin VB.Label SavedPlanets AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Mars" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Index = 2 Left = 4770 TabIndex = 43 Top = 3735 Width = 1635 End Begin VB.Label TotalBounces AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TotalBounces" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 7200 TabIndex = 42 Top = 6615 Width = 4185 End Begin VB.Label TopSpeed AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TopSpeed" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4005 TabIndex = 41 Top = 5490 Width = 3090 End Begin VB.Label SavedPlanets AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Earth" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Index = 1 Left = 4770 TabIndex = 40 Top = 2970 Width = 1785 End Begin VB.Label TotalScore AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "SCORE" BeginProperty Font Name = "Times New Roman" Size = 36 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 825 Left = 4005 TabIndex = 39 Top = 1755 Width = 2490 End Begin VB.Label Label8 BackStyle = 0 'Transparent Caption = "Total Number Of Bounces" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 645 Left = 900 TabIndex = 38 Top = 6750 Width = 6180 End Begin VB.Label Label7 BackStyle = 0 'Transparent Caption = "Top Speed" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 555 Left = 900 TabIndex = 37 Top = 5670 Width = 3885 End Begin VB.Label Label6 BackStyle = 0 'Transparent Caption = "Planet Satatus" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 555 Left = 900 TabIndex = 36 Top = 3015 Width = 4110 End Begin VB.Label Label5 BackStyle = 0 'Transparent Caption = "Total Score" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 510 Left = 900 TabIndex = 35 Top = 1890 Width = 3660 End End Begin VB.PictureBox StoryScreen AutoSize = -1 'True BackColor = &H00FF8080& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2000 Left = 0 ScaleHeight = 1995 ScaleWidth = 1995 TabIndex = 10 Top = 0 Visible = 0 'False Width = 2000 Begin VB.Label Quit2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Quit Game" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 6750 TabIndex = 13 Top = 8145 Width = 2955 End Begin VB.Label Start2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Start Game" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 1800 TabIndex = 12 Top = 8145 Width = 3225 End Begin VB.Label StoryLabel Alignment = 2 'Center Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H80000005& BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 20.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 2460 Left = 0 TabIndex = 11 Top = 0 Width = 12075 WordWrap = -1 'True End End Begin VB.PictureBox TitleScreen Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H0080C0FF& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 8940 Left = 0 ScaleHeight = 8940 ScaleWidth = 6960 TabIndex = 6 Top = 0 Width = 6960 Begin QuadBall_Story.ArviScroll Scroll Height = 330 Left = 225 TabIndex = 18 Top = 8550 Width = 11490 _ExtentX = 20267 _ExtentY = 582 BackColor = 16777215 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Terminal" Size = 13.5 Charset = 255 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.Label TrainingMode Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Play In Training Mode" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 630 Left = 5940 TabIndex = 51 Top = 6165 Width = 4965 End Begin VB.Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Quad-Ball Story Mode." BeginProperty Font Name = "Times New Roman" Size = 26.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 555 Left = 225 TabIndex = 50 Top = 7830 Width = 11490 End Begin VB.Label Story Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Show Story" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 6885 TabIndex = 9 Top = 5580 Width = 3075 End Begin VB.Label Quit Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Quit Game" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 6885 TabIndex = 8 Top = 6705 Width = 2955 End Begin VB.Label Start Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Start Game" BeginProperty Font Name = "Times New Roman" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 585 Left = 6840 TabIndex = 7 Top = 5040 Width = 3225 End End Begin VB.PictureBox Info Appearance = 0 'Flat BackColor = &H0000C0C0& ForeColor = &H80000008& Height = 9000 Left = 10320 ScaleHeight = 8970 ScaleWidth = 1650 TabIndex = 20 Top = 0 Width = 1680 Begin VB.Timer TimeKeeper Enabled = 0 'False Interval = 900 Left = 1260 Top = 3690 End Begin VB.Label Reset Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Reset" BeginProperty Font Name = "Times New Roman" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 435 Left = 360 TabIndex = 49 Tag = "no" Top = 5850 Width = 1005 End Begin VB.Image InfoArea Height = 9015 Left = -45 Stretch = -1 'True Top = 0 Width = 1770 End Begin VB.Label HighName Alignment = 2 'Center BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000080FF& Height = 600 Left = 90 TabIndex = 47 Top = 4950 Width = 1455 End Begin VB.Label HighestScore Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "000000" BeginProperty Font Name = "Times New Roman" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 465 Left = 90 TabIndex = 46 Top = 4545 Width = 1455 End Begin VB.Label Label2 Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "High Score" BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 375 Left = 90 TabIndex = 33 Top = 4275 Width = 1455 WordWrap = -1 'True End Begin VB.Shape Shape4 BorderColor = &H00FFFF00& Height = 1320 Left = 90 Top = 4275 Width = 1455 End Begin VB.Label LifeTxt Alignment = 2 'Center BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 13.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 285 Index = 1 Left = 1080 TabIndex = 23 Top = 2655 Width = 375 End Begin VB.Label LifeTxt Alignment = 2 'Center BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 13.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 285 Index = 2 Left = 630 TabIndex = 22 Top = 2655 Width = 375 End Begin VB.Label LifeTxt Alignment = 2 'Center BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 13.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 285 Index = 3 Left = 180 TabIndex = 21 Top = 2655 Width = 375 End Begin VB.Shape ScoreBox Height = 825 Left = 90 Top = -5000 Width = 1410 End Begin VB.Label ScoreLable Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Score" BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 420 Left = 90 TabIndex = 32 Top = 90 Width = 1410 End Begin VB.Label Score Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "0" BeginProperty Font Name = "Times New Roman" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 465 Left = 90 TabIndex = 31 Top = 450 Width = 1410 End Begin VB.Shape TimeBox BackColor = &H0000FF00& BorderColor = &H0000FF00& Height = 1050 Left = 90 Top = 990 Width = 1410 End Begin VB.Label TimeLabel Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Time" BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 420 Left = 90 TabIndex = 30 Top = 990 Width = 1410 End Begin VB.Label TimeSoFar Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "00:00:00" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 420 Left = 90 TabIndex = 29 Top = 1395 Width = 1410 End Begin VB.Label AimTime Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "00:00:00" BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 420 Left = 90 TabIndex = 28 Top = 1710 Width = 1410 End Begin VB.Image Life Height = 375 Index = 1 Left = 1080 Top = 2610 Width = 375 End Begin VB.Image Life Height = 375 Index = 3 Left = 180 Top = 2610 Width = 375 End Begin VB.Shape PlanetsBox BorderColor = &H00FF8080& Height = 1050 Left = 90 Top = 2115 Width = 1410 End Begin VB.Label PlanetsLabel Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Planets" BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 420 Left = 90 TabIndex = 27 Top = 2115 Width = 1410 End Begin VB.Shape Shape1 BorderColor = &H00FFFFFF& Height = 825 Left = 90 Top = 90 Width = 1410 End Begin VB.Label CometSpeedLab Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Comet Speed" BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 645 Left = 45 TabIndex = 26 Top = 3240 Width = 1455 WordWrap = -1 'True End Begin VB.Label CommetSpeed Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "0" BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 330 Left = 45 TabIndex = 25 Top = 3870 Width = 1005 End Begin VB.Label LYLabel Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "LY" BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFF00& Height = 330 Left = 1080 TabIndex = 24 Top = 3870 Width = 375 End Begin VB.Shape Shape2 BorderColor = &H00FF80FF& Height = 960 Left = 90 Top = 3240 Width = 1410 End Begin VB.Image Life Height = 375 Index = 2 Left = 630 Top = 2610 Width = 375 End End Begin VB.PictureBox Area Appearance = 0 'Flat BackColor = &H00C0FFFF& BorderStyle = 0 'None DrawWidth = 2 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 9075 Left = 0 MouseIcon = "MainFrm.frx":09BA MousePointer = 99 'Custom ScaleHeight = 9075 ScaleWidth = 10320 TabIndex = 0 Top = 0 Visible = 0 'False Width = 10320 Begin VB.PictureBox RPad Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 2085 Left = 9990 ScaleHeight = 2085 ScaleWidth = 330 TabIndex = 5 Tag = "Side" Top = 45 Width = 330 End Begin VB.PictureBox LPad Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 2085 Left = 0 ScaleHeight = 2085 ScaleWidth = 330 TabIndex = 4 Tag = "Side" Top = 0 Width = 330 End Begin VB.PictureBox BPad Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 330 Left = 0 ScaleHeight = 330 ScaleWidth = 2085 TabIndex = 3 Tag = "Top" Top = 8685 Width = 2085 End Begin VB.PictureBox TPad Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 330 Left = 0 ScaleHeight = 330 ScaleWidth = 2085 TabIndex = 2 Tag = "Top" Top = 0 Width = 2085 End Begin PicClip.PictureClip AniBall Left = 2160 Top = 2205 _ExtentX = 2646 _ExtentY = 1323 _Version = 393216 Rows = 2 Cols = 4 End Begin PicClip.PictureClip BallBlow Left = 2025 Top = 3375 _ExtentX = 5292 _ExtentY = 5080 _Version = 393216 Rows = 4 Cols = 4 End Begin VB.PictureBox Ball Appearance = 0 'Flat AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 0 'None DrawStyle = 1 'Dash Enabled = 0 'False FillColor = &H0000FFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 375 Left = 5085 ScaleHeight = 375 ScaleWidth = 375 TabIndex = 1 Top = 4455 Width = 375 End Begin VB.Label GameStory Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 2085 Left = 2895 TabIndex = 14 Top = 3555 Width = 5970 WordWrap = -1 'True End Begin VB.Shape Limit BackColor = &H00000000& BorderColor = &H0000FF00& Height = 8370 Left = 360 Top = 315 Visible = 0 'False Width = 9675 End End Begin VB.PictureBox KillEarth AutoSize = -1 'True BackColor = &H008080FF& BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 8970 Left = 0 ScaleHeight = 8970 ScaleWidth = 7980 TabIndex = 15 Top = 0 Width = 7980 Begin QuadBall_Story.EarthBlow1 BlowUpEarth Height = 1380 Left = 450 TabIndex = 16 Top = 810 Width = 1530 _ExtentX = 2699 _ExtentY = 2434 End Begin VB.PictureBox KillBall Appearance = 0 'Flat AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00000000& BorderStyle = 0 'None DrawStyle = 1 'Dash Enabled = 0 'False FillColor = &H0000FFFF& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 375 Left = 0 ScaleHeight = 375 ScaleWidth = 375 TabIndex = 17 Top = 0 Width = 375 End Begin VB.Label GameStory2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent BeginProperty Font Name = "Times New Roman" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 2085 Left = 3150 TabIndex = 19 Top = 3375 Width = 5970 WordWrap = -1 'True End End Attribute VB_Name = "MainSmall" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False ' This Form Loads Up if the Display is 800x600 ' '______________________________________________' ' There is info on what each GENERAL sub does above it ' '______________________________________________________' Dim ExitBounce As Boolean Dim StartTime As Date Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Reset_Click Call StopSounds(True, True) ExitBounce = True Call StopSounds(True, True) End Sub Private Sub Form_Unload(Cancel As Integer) Call StopSounds(True, True) End Sub Private Sub GameStory_Change() ' centre text With GameStory .Left = Int(Me.Width - Info.Width) / 2 .Top = Int(Me.Height / 2) .Left = .Left - Int(.Width / 2) .Top = .Top - Int(.Height / 2) .Refresh End With End Sub Private Sub Info_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Reset End Sub Private Sub InfoArea_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' move paddles even if the mouse leaves the "Area" Picturebox X = Int(Area.Width - (BPad.Width / 2)) Call Area_MouseMove(Button, Shift, X, Y) End Sub Private Sub OK_Click() Reset_Click StatBox.Visible = False End Sub Private Sub OK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Highlight OK End Sub Private Sub Quit_Click() ExitBounce = True WAVPlay "exit.qbs" Unload Me End Sub Private Sub Quit2_Click() Call Quit_Click End Sub ' i think you can work this one out Public Sub CentreBall() Ball.Visible = False Ball.Top = Int((Me.Height + Ball.Height) / 2) Ball.Left = Int(Int((Area.Width - Info.Width) / 2) - Int(Ball.Width / 2)) End Sub ' Reset All Variables and reture to start screen' ' '_______________________________________________' Private Sub Reset_Click() WAVPlay "exit.qbs" ExitBounce = True ExitBounce = True CentreBall TitleScreen.Visible = True Scroll.StartScroll Area.Visible = False LifeTxt(1).caption = "" LifeTxt(2).caption = "" LifeTxt(3).caption = "" LivesLeft = 3 XSpeed = CmdSpeedParam YSpeed = CmdSpeedParam For i = 1 To 3 Life(1).Visible = True Next i TimeSoFar = "00:00:00" AimTime = "00:00:00" Score = "0" End Sub Private Sub Reset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Highlight Reset End Sub Private Sub Start_Click() WAVPlay "start.qbs" Area.Visible = True Area.Cls TitleScreen.Visible = False Scroll.ExitScroll LoadScore LivesLeft = 3 XSpeed = CmdSpeedParam YSpeed = CmdSpeedParam For i = 1 To 3 Life(i).Visible = True LifeTxt(i).caption = "" Next i TimeSoFar = "00:00:00" AimTime = "00:00:25" Score = "0" Ball.Visible = False ' display text GameStory = "Your First Mission Is To Save neptune!" & Chr(13) & " Your Target Time is 0.25 Minuets" Delay 1.5 GameStory = "Ready" Delay 0.8 GameStory = "GO!" Delay 0.6 GameStory = "" Ball.Visible = True ExitBounce = False ' start the bounce Bounce End Sub Private Sub Start2_Click() StoryScreen.Visible = False Call Start_Click End Sub Private Sub Start_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Story UnHighlight TrainingMode UnHighlight Quit Highlight Start End Sub Private Sub Start2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Quit2 Highlight Start2 End Sub Private Sub Quit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Story UnHighlight TrainingMode UnHighlight Start Highlight Quit End Sub Private Sub Quit2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Start2 Highlight Quit2 End Sub ' Show The Game Statistics ' '______________________________' Private Sub ShowStats() TotalScore = Val(Score) TopSpeed = FastSpeed TotalBounces = NumBounces If LifeTxt(3).caption = "OK" Then SavedPlanets(3).caption = "Neptune: Saved!" Else SavedPlanets(3).caption = "Neptune: Destroyed!" End If If LifeTxt(2).caption = "OK" Then SavedPlanets(2).caption = "Mars: Saved!" Else SavedPlanets(2).caption = "Mars: Destroyed!" End If If LifeTxt(1).caption = "OK" Then SavedPlanets(1).caption = "Earth: Saved!" Else SavedPlanets(1).caption = "Earth: Destroyed!" End If StatBox.Visible = True ' check for a new top score If TotalScore > Val(GetKeyValue(HKEY_LOCAL_MACHINE, _ "SOFTWARE\arvisehmi\QuadBall", "TopScore")) Then On Error Resume Next InputWindow.Visible = True End If End Sub Private Sub StatBox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight OK End Sub Private Sub totalbounces_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight OK End Sub Private Sub label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight OK End Sub Private Sub Story_Click() LoadStoryString StoryScreen.Visible = True End Sub Private Sub Story_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Start UnHighlight TrainingMode UnHighlight Quit Highlight Story End Sub Private Sub StoryLabel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Quit2 UnHighlight Start2 End Sub ' updates the played time Private Sub TimeKeeper_Timer() Dim TempTime As Date TempTime = Time - StartTime TimeSoFar = TempTime ' check if the aimtime has been reached If TimeSoFar >= AimTime Then SavePlanet End Sub ' Show The Comet being Destroyed '_______________________________' Public Sub SavePlanet() LivesLeft = LivesLeft - 1 ExitBounce = True WAVLoop "Shoot.qbs" Ball.Visible = True ' draw red lines from the screen corner to the ball For i = 300 To 0 Step -10 Area.Line (0, i)-(Ball.Left, Ball.Top), RGB(180, 0, 0) Area.Line (i, 0)-(Ball.Left, Ball.Top), RGB(180, 0, 0) Delay 1E-19 Area.Cls Next i ' show a boost in power Area.DrawWidth = 12 Area.Line (0, 0)-(Ball.Left, Ball.Top), RGB(180, 0, 0) Area.DrawWidth = 6 Area.Line (0, 0)-(Ball.Left, Ball.Top), RGB(255, 0, 0) Area.DrawWidth = 3 Area.Line (0, 0)-(Ball.Left, Ball.Top), vbWhite Delay 0.2 Area.Cls StopSounds True BlowUpBall Ball.Visible = False CentreBall GameStory = "The Comet Has Been Safely Destroyed!" Sleep 1.6 GameStory = "" Select Case LivesLeft ' display text and set next mssions Case 2 GameStory = "You've Saved The Planet neptune!" AimTime = "00:00:45" Score = Str(Int(Val(Score) + 5000)) Sleep 1.9 GameStory = "Your next Mission Is To Save Mars!" & Chr(13) & "The Target Time Is 0.45 Minuets." Sleep 3 LifeTxt(3).caption = "OK" ExitBounce = False Case 1 GameStory = "You've Saved Mars!!" AimTime = "00:01:30" Score = Str(Int(Val(Score) + 10000)) Sleep 1.9 GameStory = "Your next Mission Is To Save Earth!" & Chr(13) & "The Target Time Is 1.30 Minuets." Sleep 3 LifeTxt(2).caption = "OK" ExitBounce = False Case 0 GameStory = "You've Saved The Planet Earth!!!" Score = Str(Int(Val(Score) + 20000)) LifeTxt(1).caption = "OK" Sleep 3 ExitBounce = True ExitBounce = True ShowStats Exit Sub End Select Ball.Visible = True Area.Refresh GameStory = "Ready" Delay 0.8 GameStory = "GO!" Delay 0.6 GameStory = "" XSpeed = CmdSpeedParam YSpeed = CmdSpeedParam ' make sure the bouncing has stoped ExitBounce = False ' double check the bouncing has stoped ( some errors may reinstate the initial value) ExitBounce = False Bounce End Sub Private Sub TitleScreen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ExitBounce = True UnHighlight Story UnHighlight TrainingMode UnHighlight Start UnHighlight Quit End Sub Public Sub RefreshForm() Me.Show Me.Refresh Area.Refresh TitleScreen.Refresh Info.Refresh End Sub ' This is called when the user moves the mouse Private Sub Area_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' move the paddles If Reset.Tag = "yes" Then UnHighlight Reset TPad.Left = Int(X - (TPad.Width / 2)) BPad.Left = TPad.Left RPad.Top = Int(Y - (RPad.Height / 2)) LPad.Top = RPad.Top End Sub ' Loads All Things and sets variables to defaults Sub Form_Load() Load LoadUp LoadUp.Visible = True ExitBounce = True Area.Visible = False LivesLeft = 3 XSpeed = CmdSpeedParam YSpeed = CmdSpeedParam LoadScore LoadTitlePics LoadGamePics LoadScrollText Unload LoadUp Call SetWindowRgn(KillBall.hWnd, CreateEllipticRgn(0, 0, Ball.Width / Screen.TwipsPerPixelX, Ball.Height / Screen.TwipsPerPixelY), True) Show Scroll.StartScroll RefreshForm End Sub 'loads the scrolling text Public Sub LoadScrollText() LoadPercent = LoadPercent + 1 LoadUp.caption = LoadPercent LoadUp.CurrLoad.caption = "Loading Text..." LoadUp.Refresh Sleep (0.3) Scroll.Font.Name = Terminal Scroll.Font.Size = 14 Scroll.Font.Bold = True Scroll.caption = "< Q U A D - B A L L > - < P r o g r a m m i n g , G r a p h i c s , S o u n d E f f e c t s B y A r v i n d e r S e h m i > - < A r v i n d e r @ S e h m i . C o . U k > - " End Sub 'Loads the game pictures Private Sub LoadGamePics() If GamePicsLoaded = True Then Exit Sub Call LoadPic(Area, "Space.Img") Call LoadPic(Info, "QBallI.Img") Call LoadPic(AniBall, "Ball.Img") Call LoadPic(TPad, "TBPad.Img") Call LoadPic(BPad, "TBPad.Img") Call LoadPic(LPad, "LRPad.Img") Call LoadPic(RPad, "LRPad.Img") Call LoadPic(BallBlow, "BallBlow.Img") Call LoadPic(Life(1), "Planet1.Img") Call LoadPic(Life(2), "Planet2.Img") Call LoadPic(Life(3), "Planet3.Img") KillEarth.Picture = Area.Picture Call LoadAniPic(Ball, AniBall, 0) Call LoadAniPic(KillBall, AniBall, "0") GamePicsLoaded = True End Sub ' Loads the title screen pictures Private Sub LoadTitlePics() If TitlePicsLoaded = True Then Exit Sub Call LoadPic(StoryScreen, "QBallS.Img") Call LoadPic(TitleScreen, "QBallT.Img") Call LoadPic(StatBox, "QBallS.Img") UnHighlight Start UnHighlight Quit UnHighlight Story TitlePicsLoaded = True End Sub ' loads the stoy string Sub LoadStoryString() Dim NewLine As String NewLine = Chr(13) & Chr(13) StoryLabel.FontBold = True StoryLabel.caption = NewLine & "The Year is 2500. " & _ "The Human Civilisation Has Expanded And now;" & _ " Earth, Mars And neptune Are All Inhabited by Our" & _ " Species." & NewLine & "The Colonists On The Planet neptune Have Discovered" & _ " Fifteen Large Comets Heading Towards Our Solar System. Three Of These are" & _ " Heading For The Civilised Planets, These Planets" & _ " Will be Destroyed If The Comets Are not Destroyed First." & NewLine & _ " You Have Been Assigned To Take Control Of A new Protection" & _ " System. You Will Have Keep The Comets In Their Current Area Location (One At a Time)" & _ " So That There Will Be Enough Time To Destroy Each Of The Dangerous Three Saftly." & _ NewLine & "The Human Civilisation Is Depending On YOU!" End Sub ' Spin The Ball ( animate it ) Public Sub SpinBall(Direction) Static BallCell As Single Select Case Direction Case Clock BallCell = BallCell + 0.5 If Int(BallCell) = 8 Then BallCell = 0 Call LoadAniPic(Ball, AniBall, Int(BallCell)) Case AntiClock BallCell = BallCell - 0.5 If Int(BallCell) = -1 Then BallCell = 7 Call LoadAniPic(Ball, AniBall, Int(BallCell)) End Select End Sub ' This Is The Most Important Sub. ' ' It Tells The Ball How To Bounce, ' ' To Increase In Speed, To Add To ' ' The Score And To Test If The Ball ' ' Has Been Missed By The Player ' '____________________________________' Public Sub Bounce() Static BallXCent As Integer, BallYCent As Integer Static Bounces As Integer GetSpeed If ExitBounce = True Then GoTo Nd2: Ball.Visible = True Call SetWindowRgn(Ball.hWnd, CreateEllipticRgn(0, 0, (Ball.Width / Screen.TwipsPerPixelX), (Ball.Height / Screen.TwipsPerPixelY)), True) StartTime = Time DoEvents Ball.Left = Ball.Left + XSpeed Ball.Top = Ball.Top + YSpeed BallXCent = Int(Ball.Left + (Ball.Width / 2)) BallYCent = Int(Ball.Top + (Ball.Height / 2)) If Ball.Top <= Limit.Top And YSpeed < 0 Then TPadLeft = TPad.Left TPadRight = Int(TPad.Left + TPad.Width) If BallXCent > TPadLeft And BallXCent < TPadRight Then Call WAVPlay("Hit.qbs") YSpeed = -YSpeed AddScore GoTo nd: Else Die End If ElseIf Ball.Left <= Limit.Left And XSpeed < 0 Then LPadTop = LPad.Top LPadBottom = Int(LPad.Top + LPad.Height) If BallYCent > LPadTop And BallYCent < LPadBottom Then Call WAVPlay("Hit.qbs") XSpeed = -XSpeed AddScore GoTo nd: Else Die End If ElseIf Int(Ball.Left + Ball.Width) >= Int(Limit.Left + Limit.Width) And XSpeed > 0 Then RPadTop = RPad.Top RPadBottom = Int(RPad.Top + RPad.Height) If BallYCent > RPadTop And BallYCent < RPadBottom Then WAVPlay ("Hit.qbs") XSpeed = -XSpeed AddScore GoTo nd: Else Die End If ElseIf Int(Ball.Top + Ball.Height) >= Int(Limit.Top + Limit.Height) And YSpeed > 0 Then BPadLeft = BPad.Left BPadRight = Int(BPad.Left + BPad.Width) If BallXCent > BPadLeft And BallXCent < BPadRight Then Call WAVPlay("Hit.qbs") YSpeed = -YSpeed AddScore GoTo nd: Else Die End If End If If Bounces = 15 Then If XSpeed > 0 Then SpinBall Clock Else SpinBall AntiClock Bounces = 0 Dim TempTime As Date TempTime = Time - StartTime TimeSoFar = TempTime If TimeSoFar = AimTime Then SavePlanet End If Bounces = Bounces + 1 Loop Until ExitBounce = True StopSounds False, True Ball.Visible = False TimeSoFar = "00:00:00" End Sub ' Called When The Player Missed The Ball Public Sub Die() ExitBounce = True ' deduct a life LivesLeft = LivesLeft - 1 If LivesLeft > 0 Then BlowUpBall Select Case LivesLeft Case 2 GameStory = "The Planet neptune Has Been Destroyed!" & Chr(13) & "Four Billion People Dead!" Area.Refresh Sleep 2.5 GameStory = "Your next Mission Is To Save Mars!" & Chr(13) & "The Target Time Is 0.45 Minuets." Sleep 3 GameStory = "Ready" Delay 0.8 GameStory = "GO!" Delay 0.6 GameStory = "" AimTime = "00:00:45" LifeTxt(3).caption = "X" Case 1 GameStory = "The Planet Mars Has Been Destroyed!" & Chr(13) & "Six Billion People Dead!" Area.Refresh Sleep 2.5 GameStory = "Your next Mission Is To Save Earth!" & Chr(13) & "The Target Time Is 1.30 Minuets." Sleep 3 GameStory = "Ready" Delay 0.8 GameStory = "GO!" Delay 0.6 GameStory = "" AimTime = "00:01:35" LifeTxt(2).caption = "X" Case 0 LifeTxt(1).caption = "X" ShowDie Reset_Click Exit Sub End Select CentreBall YSpeed = CmdSpeedParam XSpeed = CmdSpeedParam GetSpeed ExitBounce = False Bounce End Sub ' Animate The Earth Dissolving Sub ShowDie() 'centre earth KillBall.Top = 200 KillBall.Left = 0 BlowUpEarth.Left = Int((Me.Width - BlowUpEarth.Width) / 2) BlowUpEarth.Top = BlowUpEarth.Left 'Int((Me.Height - BlowUpEarth.Height) / 2) BlowUpEarth.Animate 0, 0, 0 BlowUpEarth.Visible = True KillEarth.ZOrder 0 BlowUpEarth.ZOrder 0 'hide all pic boxes Area.Visible = False TitleScreen.Visible = False Scroll.ExitScroll StoryScreen.Visible = False ' set earth round ' kill earth BlowUpEarth.SetShape True, False Dim Pos As Integer Dim Moves As Integer Static BallCell As Single KillBall.Visible = True KillEarth.Visible = True With KillBall For Pos = 0 To (BlowUpEarth.Left - (.Width / 2)) + 250 Step 24 .Top = .Top + 24 .Left = .Top - 100 KillEarth.Refresh BallCell = BallCell + 0.5 If Int(BallCell) = 8 Then BallCell = 0 Call LoadAniPic(KillBall, AniBall, Int(BallCell)) Next BlowUpEarth.SetShape False, True Call WAVLoop("blowup.qbs") BlowUpEarth.Animate Call StopSounds(True, False) End With KillBall.Visible = False GameStory2 = "The Planet Earth Has Been Destroyed!" & Chr(13) & "Eight Billion People Dead!" 'Area.Refresh Sleep 2.5 GameStory2 = "" BlowUpEarth.Visible = False 'show all picboxes KillEarth.Visible = False Area.Visible = True StoryScreen.Visible = False TitleScreen.Visible = True ShowStats End Sub ' Animate The Ball Exploding Public Sub BlowUpBall() Ball.Visible = True Dim i As Integer WAVPlay "blowup.qbs" Area.Cls Area.Refresh For i = 0 To (BallBlow.Rows * BallBlow.Cols) - 1 Call LoadAniPic(Ball, BallBlow, i) Ball.Refresh Call Sleep(0.1) Next i CentreBall Call LoadAniPic(Ball, AniBall, 0) End Sub ' Adds To The Toltal Score Sub AddScore() On Error GoTo ScoreTooHigh Call IncSpeed Call GetSpeed Dim AveSpeed As Integer AveSpeed = Int(XSpeed + YSpeed) / 2 If AveSpeed < 0 Then AveSpeed = -AveSpeed Score = CLng(Val(Score) + CLng(5 * AveSpeed)) If Val(Score.caption) > 99999 Then Score.FontSize = 16 NumBounces = NumBounces + 1 Exit Sub ScoreTooHigh: Score.FontSize = 14 Score = "Maxed Out" End Sub 'Gets The Ball Speed Public Sub GetSpeed() Dim TempX, TempY TempX = XSpeed TempY = YSpeed If TempX < 0 Then TempX = -TempX If TempY < 0 Then TempY = -TempY CommetSpeed = Val(Int((TempX + TempY) / 2)) If Val(CommetSpeed) > FastSpeed Then FastSpeed = Val(CommetSpeed) End Sub Private Sub TrainingMode_Click() On Error GoTo a: ThisDir Shell "QuadBall_Training.Exe " & Trim(Str(CmdSpeedParam)), vbNormalFocus Reset_Click Unload Me MsgBox "Cannot Find QuadBall_Training.Exe," & Chr(13) & "Please Re-install This Game To Fix The Problem." & Chr(13) & _ "If You Can Find QuadBall_Training.exe On Your PC," & Chr(13) & "Please Place It In The Directory:" & Chr(13) & _ App.Path, vbCritical, "Error" End Sub Private Sub TrainingMode_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) UnHighlight Start Highlight TrainingMode UnHighlight Quit UnHighlight Story End Sub