Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

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

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Classic_Ae2034511222006.psc / Flight / frmGame.frm < prev

Wrap

Text File | 2006-12-01 | 122KB | 3,345 lines

VERSION 5.00 Begin VB.Form frmGame BackColor = &H00FFFFFF& Caption = "Flight" ClientHeight = 8175 ClientLeft = 1530 ClientTop = 750 ClientWidth = 8175 Icon = "frmGame.frx":0000 LinkTopic = "Form1" ScaleHeight = 8175 ScaleWidth = 8175 StartUpPosition = 2 'CenterScreen WindowState = 2 'Maximized Begin VB.PictureBox picBoard Appearance = 0 'Flat BackColor = &H00FFFFFF& BorderStyle = 0 'None ForeColor = &H80000008& Height = 8175 Left = 0 ScaleHeight = 8175 ScaleWidth = 8175 TabIndex = 0 Top = 0 Width = 8175 Begin VB.Frame fraMessage BackColor = &H00FF0000& Height = 1455 Left = 2760 TabIndex = 23 Top = 3360 Visible = 0 'False Width = 2655 Begin VB.Label lblMessage Alignment = 2 'Center Caption = "Waiting Blue (AI)..." BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 1095 Left = 120 TabIndex = 24 Top = 240 Width = 2415 End End Begin VB.Timer AIThinkTimer Enabled = 0 'False Interval = 1000 Left = 4560 Top = 4920 End Begin VB.Timer DelayTimer Enabled = 0 'False Interval = 1000 Left = 4560 Top = 2880 End Begin VB.Timer ShortCutTimer Enabled = 0 'False Interval = 10 Left = 6480 Top = 4560 End Begin VB.TextBox Text1 Enabled = 0 'False Height = 375 Left = 2520 TabIndex = 22 Text = "6" ToolTipText = "1 to 6" Top = 2880 Visible = 0 'False Width = 375 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 14 Left = 3000 Picture = "frmGame.frx":0442 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 15 Top = 1440 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 11 Left = 3000 Picture = "frmGame.frx":08BE ScaleHeight = 360 ScaleWidth = 360 TabIndex = 16 Top = 1080 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 12 Left = 3360 Picture = "frmGame.frx":0D37 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 13 Top = 1080 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 13 Left = 3360 Picture = "frmGame.frx":11B4 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 14 Top = 1440 Visible = 0 'False Width = 420 End Begin VB.CommandButton Command1 Caption = "Set" Enabled = 0 'False Height = 375 Left = 2880 TabIndex = 21 Top = 2880 Visible = 0 'False Width = 735 End Begin VB.CommandButton cmdRoll Caption = "Roll" Enabled = 0 'False Height = 495 Index = 1 Left = 720 TabIndex = 20 Top = 720 Width = 495 End Begin VB.CommandButton cmdRoll Caption = "Roll" Enabled = 0 'False Height = 495 Index = 2 Left = 6960 TabIndex = 19 Top = 720 Width = 495 End Begin VB.CommandButton cmdRoll Caption = "Roll" Enabled = 0 'False Height = 495 Index = 4 Left = 720 TabIndex = 18 Top = 6960 Width = 495 End Begin VB.CommandButton cmdRoll Caption = "Roll" Enabled = 0 'False Height = 495 Index = 3 Left = 6960 TabIndex = 17 Top = 6960 Width = 495 End Begin VB.Timer DieTimer Enabled = 0 'False Interval = 100 Left = 1200 Top = 3120 End Begin VB.Timer FlyTimer Enabled = 0 'False Interval = 1000 Left = 6480 Top = 3120 End Begin VB.Timer BlinkTimer Enabled = 0 'False Interval = 500 Left = 1200 Top = 4680 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 21 Left = 4440 Picture = "frmGame.frx":1630 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 12 Top = 1080 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 24 Left = 4440 Picture = "frmGame.frx":1AB6 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 11 Top = 1440 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 22 Left = 4800 Picture = "frmGame.frx":1F37 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 10 Top = 1080 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 23 Left = 4800 Picture = "frmGame.frx":23B9 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 9 Top = 1440 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane Height = 375 Index = 41 Left = 3000 Picture = "frmGame.frx":283A ScaleHeight = 315 ScaleWidth = 315 TabIndex = 8 Top = 6360 Visible = 0 'False Width = 375 End Begin VB.PictureBox picPlane Height = 375 Index = 44 Left = 3000 Picture = "frmGame.frx":2CB5 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 7 Top = 6720 Visible = 0 'False Width = 375 End Begin VB.PictureBox picPlane Height = 375 Index = 42 Left = 3360 Picture = "frmGame.frx":3133 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 6 Top = 6360 Visible = 0 'False Width = 375 End Begin VB.PictureBox picPlane Height = 375 Index = 43 Left = 3360 Picture = "frmGame.frx":35B1 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 5 Top = 6720 Visible = 0 'False Width = 375 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 31 Left = 4440 Picture = "frmGame.frx":3A28 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 4 Top = 6360 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 34 Left = 4440 Picture = "frmGame.frx":3EA0 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 3 Top = 6720 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 32 Left = 4800 Picture = "frmGame.frx":4322 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 2 Top = 6360 Visible = 0 'False Width = 420 End Begin VB.PictureBox picPlane AutoSize = -1 'True Height = 420 Index = 33 Left = 4800 Picture = "frmGame.frx":47A6 ScaleHeight = 360 ScaleWidth = 360 TabIndex = 1 Top = 6720 Visible = 0 'False Width = 420 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 11 Left = 240 Stretch = -1 'True Top = 1200 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 12 Left = 1200 Stretch = -1 'True Top = 1200 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 13 Left = 1200 Stretch = -1 'True Top = 240 Width = 495 End Begin VB.Shape Path BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 5 Left = 40 Shape = 3 'Circle Top = 1960 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 31 Left = 7440 Stretch = -1 'True Top = 6480 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 32 Left = 6480 Stretch = -1 'True Top = 6480 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 33 Left = 6480 Stretch = -1 'True Top = 7440 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 41 Left = 1200 Stretch = -1 'True Top = 7440 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 42 Left = 1200 Stretch = -1 'True Top = 6480 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 43 Left = 240 Stretch = -1 'True Top = 6480 Width = 495 End Begin VB.Image Plane Height = 495 Index = 21 Left = 6480 Stretch = -1 'True Top = 240 Width = 495 End Begin VB.Image Plane Height = 495 Index = 22 Left = 6480 Stretch = -1 'True Top = 1200 Width = 495 End Begin VB.Image Plane Height = 495 Index = 23 Left = 7440 Stretch = -1 'True Top = 1200 Width = 495 End Begin VB.Image Plane Height = 495 Index = 24 Left = 7440 Stretch = -1 'True Top = 240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 79 Left = 3840 Shape = 3 'Circle Top = 5280 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 44 Left = 240 Stretch = -1 'True Top = 7440 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 34 Left = 7440 Stretch = -1 'True Top = 7440 Width = 495 End Begin VB.Shape Base BackColor = &H00800000& BackStyle = 1 'Opaque Height = 495 Index = 11 Left = 240 Shape = 3 'Circle Top = 1200 Width = 495 End Begin VB.Shape Base BackColor = &H00800000& BackStyle = 1 'Opaque Height = 495 Index = 12 Left = 1200 Shape = 3 'Circle Top = 1200 Width = 495 End Begin VB.Image Plane Enabled = 0 'False Height = 495 Index = 14 Left = 240 Stretch = -1 'True Top = 240 Width = 495 End Begin VB.Shape Base BackColor = &H00800000& BackStyle = 1 'Opaque Height = 495 Index = 14 Left = 240 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Base BackColor = &H00800000& BackStyle = 1 'Opaque Height = 495 Index = 13 Left = 1200 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Base BackColor = &H00008000& BackStyle = 1 'Opaque Height = 495 Index = 21 Left = 6480 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Base BackColor = &H00000080& BackStyle = 1 'Opaque Height = 495 Index = 31 Left = 7440 Shape = 3 'Circle Top = 6480 Width = 495 End Begin VB.Shape Base BackColor = &H00008080& BackStyle = 1 'Opaque Height = 495 Index = 43 Left = 240 Shape = 3 'Circle Top = 6480 Width = 495 End Begin VB.Shape Base BackColor = &H00000080& BackStyle = 1 'Opaque Height = 495 Index = 32 Left = 6480 Shape = 3 'Circle Top = 6480 Width = 495 End Begin VB.Shape Base BackColor = &H00000080& BackStyle = 1 'Opaque Height = 495 Index = 33 Left = 6480 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Base BackColor = &H00000080& BackStyle = 1 'Opaque Height = 495 Index = 34 Left = 7440 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Base BackColor = &H00008000& BackStyle = 1 'Opaque Height = 495 Index = 24 Left = 7440 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Base BackColor = &H00008000& BackStyle = 1 'Opaque Height = 495 Index = 22 Left = 6480 Shape = 3 'Circle Top = 1200 Width = 495 End Begin VB.Shape Base BackColor = &H00008000& BackStyle = 1 'Opaque Height = 495 Index = 23 Left = 7440 Shape = 3 'Circle Top = 1200 Width = 495 End Begin VB.Shape Base BackColor = &H00008080& BackStyle = 1 'Opaque Height = 495 Index = 42 Left = 1200 Shape = 3 'Circle Top = 6480 Width = 495 End Begin VB.Shape Base BackColor = &H00008080& BackStyle = 1 'Opaque Height = 495 Index = 44 Left = 240 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Base BackColor = &H00008080& BackStyle = 1 'Opaque Height = 495 Index = 41 Left = 1200 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Base3 BackColor = &H000000C0& BackStyle = 1 'Opaque BorderWidth = 2 Height = 1935 Left = 6240 Top = 6240 Width = 1935 End Begin VB.Shape Path BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 7 Left = 7640 Shape = 3 'Circle Top = 5720 Width = 495 End Begin VB.Shape Base1 BackColor = &H00C00000& BackStyle = 1 'Opaque BorderWidth = 2 Height = 1935 Left = 0 Top = 0 Width = 1935 End Begin VB.Shape Base4 BackColor = &H0000C0C0& BackStyle = 1 'Opaque BorderWidth = 2 Height = 1935 Left = 0 Top = 6240 Width = 1935 End Begin VB.Shape Path BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 495 Index = 8 Left = 1960 Shape = 3 'Circle Top = 7640 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 9 Left = 420 Shape = 3 'Circle Top = 2360 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 24 Left = 5520 Shape = 3 'Circle Top = 1440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 23 Left = 5520 Shape = 3 'Circle Top = 960 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 13 Left = 2360 Shape = 3 'Circle Top = 1960 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 17 Left = 2880 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 21 Left = 4800 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 11 Left = 1440 Shape = 3 'Circle Top = 2160 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 12 Left = 1960 Shape = 3 'Circle Top = 2320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 14 Left = 2160 Shape = 3 'Circle Top = 1440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 15 Left = 2160 Shape = 3 'Circle Top = 960 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 16 Left = 2340 Shape = 3 'Circle Top = 420 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 19 Left = 3840 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 20 Left = 4320 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 25 Left = 5320 Shape = 3 'Circle Top = 1960 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 10 Left = 960 Shape = 3 'Circle Top = 2160 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 18 Left = 3360 Shape = 3 'Circle Top = 240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 22 Left = 5320 Shape = 3 'Circle Top = 420 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 26 Left = 5720 Shape = 3 'Circle Top = 2340 Width = 495 End Begin VB.Shape GreenPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 975 Index = 19 Left = 2880 Top = 0 Width = 495 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 975 Index = 10 Left = 4800 Top = 0 Width = 495 End Begin VB.Shape RedPath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 13 Left = 1920 Top = 1440 Width = 975 End Begin VB.Shape RedPath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 975 Index = 11 Left = 960 Top = 1920 Width = 495 End Begin VB.Shape YellowPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 975 Index = 6 Left = 1440 Top = 1920 Width = 495 End Begin VB.Shape YellowPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 495 Index = 8 Left = 1920 Top = 960 Width = 975 End Begin VB.Shape RedPath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 975 Index = 14 Left = 3360 Top = 0 Width = 495 End Begin VB.Shape GreenPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 975 Index = 20 Left = 3840 Top = 0 Width = 495 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 975 Index = 15 Left = 4320 Top = 0 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 27 Left = 6240 Shape = 3 'Circle Top = 2160 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 60 Left = 240 Shape = 3 'Circle Top = 2880 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 59 Left = 240 Shape = 3 'Circle Top = 3360 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 58 Left = 240 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 57 Left = 240 Shape = 3 'Circle Top = 4320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 56 Left = 240 Shape = 3 'Circle Top = 4800 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 55 Left = 420 Shape = 3 'Circle Top = 5320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 54 Left = 960 Shape = 3 'Circle Top = 5520 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 53 Left = 1440 Shape = 3 'Circle Top = 5520 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 52 Left = 1960 Shape = 3 'Circle Top = 5320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 51 Left = 2360 Shape = 3 'Circle Top = 5720 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 50 Left = 2160 Shape = 3 'Circle Top = 6240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 49 Left = 2160 Shape = 3 'Circle Top = 6720 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 48 Left = 2360 Shape = 3 'Circle Top = 7240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 47 Left = 2880 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 46 Left = 3360 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 45 Left = 3840 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 44 Left = 4320 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 43 Left = 4800 Shape = 3 'Circle Top = 7440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 42 Left = 5320 Shape = 3 'Circle Top = 7240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 41 Left = 5520 Shape = 3 'Circle Top = 6720 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 40 Left = 5520 Shape = 3 'Circle Top = 6240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 39 Left = 5325 Shape = 3 'Circle Top = 5720 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 38 Left = 5720 Shape = 3 'Circle Top = 5320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 37 Left = 6240 Shape = 3 'Circle Top = 5520 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 36 Left = 6720 Shape = 3 'Circle Top = 5520 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 35 Left = 7240 Shape = 3 'Circle Top = 5320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 34 Left = 7440 Shape = 3 'Circle Top = 4800 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 33 Left = 7440 Shape = 3 'Circle Top = 4320 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 32 Left = 7440 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 31 Left = 7440 Shape = 3 'Circle Top = 3360 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 30 Left = 7440 Shape = 3 'Circle Top = 2880 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 29 Left = 7240 Shape = 3 'Circle Top = 2360 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 28 Left = 6720 Shape = 3 'Circle Top = 2160 Width = 495 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 20 Left = 0 Top = 3840 Width = 975 End Begin VB.Shape YellowPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 495 Index = 5 Left = 0 Top = 3360 Width = 975 End Begin VB.Shape BluePath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 26 Left = 0 Top = 2880 Width = 975 End Begin VB.Shape GreenPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 495 Index = 4 Left = 7200 Top = 3360 Width = 975 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 9 Left = 7200 Top = 2880 Width = 975 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 495 Index = 14 Left = 0 Top = 4320 Width = 975 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 6 Left = 0 Top = 4800 Width = 975 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 975 Index = 14 Left = 960 Top = 5280 Width = 495 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 975 Index = 19 Left = 1440 Top = 5280 Width = 495 End Begin VB.Shape GreenPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 975 Index = 10 Left = 2880 Top = 7200 Width = 495 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 975 Index = 15 Left = 3360 Top = 7200 Width = 495 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 975 Index = 20 Left = 3840 Top = 7200 Width = 495 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 975 Index = 4 Left = 4320 Top = 7200 Width = 495 End Begin VB.Shape GreenPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 975 Index = 9 Left = 4800 Top = 7200 Width = 495 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 495 Index = 18 Left = 5280 Top = 6720 Width = 975 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 2 Left = 5280 Top = 6240 Width = 975 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 975 Index = 17 Left = 6240 Top = 5280 Width = 495 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 10 Left = 7200 Top = 4800 Width = 975 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 495 Index = 15 Left = 7200 Top = 4320 Width = 975 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 975 Index = 1 Left = 6720 Top = 5280 Width = 495 End Begin VB.Shape GreenPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 495 Index = 8 Left = 1920 Top = 6720 Width = 975 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 13 Left = 1920 Top = 6240 Width = 975 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 20 Left = 7200 Top = 3840 Width = 975 End Begin VB.Shape Path BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 495 Index = 6 Left = 5720 Shape = 3 'Circle Top = 40 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 80 Left = 3840 Shape = 3 'Circle Top = 4800 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 78 Left = 3840 Shape = 3 'Circle Top = 5760 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 77 Left = 3840 Shape = 3 'Circle Top = 6240 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 76 Left = 3840 Shape = 3 'Circle Top = 6720 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 75 Left = 4800 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 74 Left = 5280 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 73 Left = 5760 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 72 Left = 6240 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 71 Left = 6720 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 70 Left = 3840 Shape = 3 'Circle Top = 2880 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 69 Left = 3840 Shape = 3 'Circle Top = 2400 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 68 Left = 3840 Shape = 3 'Circle Top = 1920 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 67 Left = 3840 Shape = 3 'Circle Top = 1440 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 66 Left = 3840 Shape = 3 'Circle Top = 960 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 65 Left = 2880 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 64 Left = 2400 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 63 Left = 1920 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 62 Left = 1440 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Path BackStyle = 1 'Opaque Height = 495 Index = 61 Left = 960 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape GreenPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 2415 Index = 23 Left = 3840 Top = 960 Width = 495 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 23 Left = 4800 Top = 3840 Width = 2415 End Begin VB.Shape YellowPath BackColor = &H0000C0C0& BackStyle = 1 'Opaque Height = 2415 Index = 23 Left = 3840 Top = 4800 Width = 495 End Begin VB.Shape BluePath BackColor = &H00C00000& BackStyle = 1 'Opaque Height = 495 Index = 21 Left = 960 Top = 3840 Width = 2415 End Begin VB.Shape Goal BackColor = &H0080FFFF& BackStyle = 1 'Opaque Height = 495 Index = 4 Left = 3840 Shape = 3 'Circle Top = 4320 Width = 495 End Begin VB.Shape Goal BackColor = &H0080FF80& BackStyle = 1 'Opaque Height = 495 Index = 2 Left = 3840 Shape = 3 'Circle Top = 3360 Width = 495 End Begin VB.Shape Goal BackColor = &H008080FF& BackStyle = 1 'Opaque Height = 495 Index = 3 Left = 4320 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Shape Goal BackColor = &H00FF8080& BackStyle = 1 'Opaque Height = 495 Index = 1 Left = 3360 Shape = 3 'Circle Top = 3840 Width = 495 End Begin VB.Image Image1 Height = 975 Left = 0 Picture = "frmGame.frx":4C22 Top = 5280 Width = 975 End Begin VB.Image Image2 Height = 975 Left = 1920 Picture = "frmGame.frx":5154 Top = 5280 Width = 975 End Begin VB.Shape GreenFly BackColor = &H0080FF80& BackStyle = 1 'Opaque BorderColor = &H00C0FFC0& Height = 495 Index = 1 Left = 4320 Top = 5720 Width = 495 End Begin VB.Shape GreenFly BackColor = &H0080FF80& BackStyle = 1 'Opaque BorderColor = &H00C0FFC0& Height = 495 Index = 2 Left = 3360 Top = 5720 Width = 495 End Begin VB.Shape GreenFly BackColor = &H0080FF80& BackStyle = 1 'Opaque BorderColor = &H00C0FFC0& Height = 495 Index = 3 Left = 2880 Top = 5720 Width = 495 End Begin VB.Image Image3 Height = 960 Left = 0 Picture = "frmGame.frx":5679 Top = 1920 Width = 960 End Begin VB.Image Image4 Height = 975 Left = 1920 Picture = "frmGame.frx":5B7B Top = 0 Width = 975 End Begin VB.Image Image9 Height = 975 Left = 5280 Picture = "frmGame.frx":607C Top = 7200 Width = 975 End Begin VB.Image Image12 Height = 975 Left = 7200 Picture = "frmGame.frx":657D Top = 5280 Width = 975 End Begin VB.Shape YellowFly BackColor = &H0080FFFF& BackStyle = 1 'Opaque BorderColor = &H00C0FFFF& Height = 495 Index = 1 Left = 3360 Top = 1960 Width = 495 End Begin VB.Shape YellowFly BackColor = &H0080FFFF& BackStyle = 1 'Opaque BorderColor = &H00C0FFFF& Height = 495 Index = 2 Left = 4320 Top = 1960 Width = 495 End Begin VB.Shape RedFly BackColor = &H008080FF& BackStyle = 1 'Opaque BorderColor = &H00C0C0FF& Height = 495 Index = 2 Left = 1960 Top = 3360 Width = 495 End Begin VB.Shape RedFly BackColor = &H008080FF& BackStyle = 1 'Opaque BorderColor = &H00C0C0FF& Height = 495 Index = 7 Left = 1960 Top = 4320 Width = 495 End Begin VB.Shape BlueFly BackColor = &H00FF8080& BackStyle = 1 'Opaque BorderColor = &H00FFC0C0& Height = 495 Index = 1 Left = 5720 Top = 3360 Width = 495 End Begin VB.Shape BlueFly BackColor = &H00FF8080& BackStyle = 1 'Opaque BorderColor = &H00FFC0C0& Height = 495 Index = 2 Left = 5720 Top = 4320 Width = 495 End Begin VB.Image Image10 Height = 975 Left = 5280 Picture = "frmGame.frx":6A7E Top = 5280 Width = 975 End Begin VB.Shape BlueFly BackColor = &H00FF8080& BackStyle = 1 'Opaque BorderColor = &H00FFC0C0& Height = 495 Index = 3 Left = 5720 Top = 4800 Width = 495 End Begin VB.Shape RedFly BackColor = &H008080FF& BackStyle = 1 'Opaque BorderColor = &H00C0C0FF& Height = 495 Index = 6 Left = 1960 Top = 4800 Width = 495 End Begin VB.Image Image5 Height = 975 Left = 1920 Picture = "frmGame.frx":6F9C Top = 1920 Width = 975 End Begin VB.Shape YellowFly BackColor = &H0080FFFF& BackStyle = 1 'Opaque BorderColor = &H00C0FFFF& Height = 495 Index = 0 Left = 2880 Top = 1960 Width = 495 End Begin VB.Shape GreenFly BackColor = &H0080FF80& BackStyle = 1 'Opaque BorderColor = &H00C0FFC0& Height = 495 Index = 0 Left = 4800 Top = 5720 Width = 495 End Begin VB.Shape RedFly BackColor = &H008080FF& BackStyle = 1 'Opaque BorderColor = &H00C0C0FF& Height = 495 Index = 3 Left = 1960 Top = 2880 Width = 495 End Begin VB.Image Image11 Height = 975 Left = 1920 Picture = "frmGame.frx":74BA Top = 7200 Width = 975 End Begin VB.Shape GreenPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 975 Index = 2 Left = 6240 Top = 1920 Width = 495 End Begin VB.Shape RedPath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 975 Index = 18 Left = 6720 Top = 1920 Width = 495 End Begin VB.Shape Base2 BackColor = &H0000C000& BackStyle = 1 'Opaque BorderWidth = 2 Height = 1935 Left = 6240 Top = 0 Width = 1935 End Begin VB.Image Image6 Height = 975 Left = 5280 Picture = "frmGame.frx":79AC Top = 0 Width = 975 End Begin VB.Shape YellowPath BackColor = &H0000C000& BackStyle = 1 'Opaque Height = 495 Index = 11 Left = 5280 Top = 960 Width = 975 End Begin VB.Shape BluePath BackColor = &H000000C0& BackStyle = 1 'Opaque Height = 495 Index = 6 Left = 5280 Top = 1440 Width = 975 End Begin VB.Image Image7 Height = 975 Left = 5280 Picture = "frmGame.frx":7E9E Top = 1920 Width = 975 End Begin VB.Shape YellowFly BackColor = &H0080FFFF& BackStyle = 1 'Opaque BorderColor = &H00C0FFFF& Height = 495 Index = 3 Left = 4800 Top = 1960 Width = 495 End Begin VB.Image Image8 Height = 975 Left = 7200 Picture = "frmGame.frx":83C0 Top = 1920 Width = 975 End Begin VB.Shape BlueFly BackColor = &H00FF8080& BackStyle = 1 'Opaque BorderColor = &H00FFC0C0& Height = 495 Index = 0 Left = 5720 Top = 2880 Width = 495 End Begin VB.Image Image13 Height = 1455 Left = 3360 Picture = "frmGame.frx":88B2 Top = 3360 Width = 1455 End End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuLoad Caption = "&Load Game" Shortcut = {F2} End Begin VB.Menu mnuSave Caption = "&Save Game" Enabled = 0 'False Shortcut = {F3} End Begin VB.Menu mnuSeparator2 Caption = "-" End Begin VB.Menu mnuExit Caption = "E&xit" Shortcut = ^X End End Begin VB.Menu mnuGame Caption = "&Game" Begin VB.Menu mnuStart Caption = "&Start Game" Shortcut = {F4} End Begin VB.Menu mnuEnd Caption = "&End Game" Enabled = 0 'False Shortcut = {F9} End Begin VB.Menu mnuSeparator1 Caption = "-" End Begin VB.Menu mnuOne Caption = "&One Player" Checked = -1 'True Shortcut = {F5} End Begin VB.Menu mnuFour Caption = "&Four Players" Shortcut = {F6} End Begin VB.Menu mnuSim Caption = "&Simulation (4 AIs)" End End Begin VB.Menu mnuOption Caption = "&Option" Begin VB.Menu mnuMenu Caption = "Hide &Menu (Esc)" End Begin VB.Menu mnuSettings Caption = "&Settings" Shortcut = {F7} End Begin VB.Menu mnuRules Caption = "Game &Rules" Shortcut = {F8} End Begin VB.Menu mnuDebug Caption = "Enable Fixed &Die" End End Begin VB.Menu mnuHelp Caption = "&Help" Begin VB.Menu mnuAbout Caption = "&About" Shortcut = {F1} End End End Attribute VB_Name = "frmGame" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Seed As Integer Private RollCount As Integer Private Moves As Integer Private Blink As Integer Private ThinkTime As Integer Private Delay As Integer Private blnClick As Boolean 'True = clicked a plane Private Go As Integer 'User clicked/Moving Plane Index Private StopPath As Integer 'Path Number of currently/last moving plane Private intFlying As Integer 'For ShortCut Flying Private intStartClick As Integer 'First round player click Private intMaxRoll As Integer ' Maximum times to roll a die in 1 turn Private intRepeatRoll As Integer ' How many times a die roll repeatedly Private COLOUR(1 To 4, 1 To 4) As Integer 'Plane position (Colour, Number) Private blnColour(1 To 4, 1 To 4) As Boolean 'Plane Ready? (Colour, Number) for blinking Private IMG(1 To 4, 1 To 4) As Integer 'Load Which Image? (Colour, Number) Private Win(1 To 4) As Integer 'How many plane goal Private blnVictory(1 To 4) As Boolean 'Victorious? Private blnReverse(1 To 4, 1 To 4) As Boolean 'fly reverse direction Private ShowMenu As Boolean Private OhOu As String 'Sound path 'Use Static or Constant? Private Play As String 'Sound path 'Private Sub cmdBlueRoll_KeyDown(KeyCode As Integer, Shift As Integer) '18 = vbKeyMenu (Alt) '19 = vbKeyPause '27 = vbKeyEscape 'If KeyCode = 18 Or KeyCode = 19 Or KeyCode = 27 Then 'If Me.Caption = "Flight Game (Testing only)" Then ' Me.Caption = Me.Caption & " - Paused (Press Esc to Resume)" 'Else ' Me.Caption = "Flight Game (Testing only)" 'End If 'mnuMenu_Click 'End If 'End Sub Private Sub cmdRoll_Click(Index As Integer) 'Roll one time only 'Human cannot click or roll die more than once 'set boolean = true if clicked and do not allowed human click If Turn = Index Then 'And blnRoll = False Then ' blnRoll = True ' Rollable = True Randomize RollCount = Rnd() * 100 Mod 6 + 6 DieTimer.Enabled = True cmdRoll(Turn).Enabled = False End If End Sub Private Sub Command1_Click() Dim dv As String 'debug value 'Debug purpose RollCount = 0 dv = Text1 If Not (dv = "1" Or dv = "2" Or dv = "3" Or dv = "4" Or dv = "5" Or dv = "6") Then Exit Sub Steps = dv cmdRoll(Turn).Caption = Steps BlinkTimer.Enabled = True cmdRoll(Turn).Enabled = False EnablePlane 'Text1.Enabled = False 'Command1.Enabled = False End Sub Private Sub DieTimer_Timer() DieNumber = (Rnd() * 10 + Seed) Mod 6 Steps = DieNumber + 1 cmdRoll(Turn).Caption = Steps If RollCount = 0 Then DieTimer.Enabled = False If intStartClick < 1 Then ' Or intStartClick = 0 blnFirstRound = False 'Enable Load/Save Game after a game is loaded mnuLoad.Enabled = True mnuSave.Enabled = True Else blnFirstRound = True intStartClick = intStartClick - 1 End If BlinkTimer.Enabled = True 'Blink AI moveable planes 'At the same time let AI thinks If blnAI(Turn) = True Then Go = AI(AINum(Turn)) If Go > 0 Then Delay = 0 'Thinking Delay AIThinkTimer.Enabled = True End If End If Exit Sub End If RollCount = RollCount - 1 End Sub Private Sub Form_Load() Dim Dummy As Integer On Error GoTo err Me.Top = -100 'Default Game Mode GameMode = "A" PlayerColour = BLUE Turn = PlayerColour 'Default Turn LoadSetting LoadRule Open App.Path & "\Saved.txt" For Input As #3 If Not EOF(3) Then Input #3, Player(BLUE), Dummy, Dummy, Dummy, Dummy, Dummy Input #3, Player(GREEN), Dummy, Dummy, Dummy, Dummy, Dummy Input #3, Player(RED), Dummy, Dummy, Dummy, Dummy, Dummy Input #3, Player(YELLOW), Dummy, Dummy, Dummy, Dummy, Dummy End If Close #3 InitPlane 'This should be disabled mnuFile.Visible = True 'False mnuGame.Visible = True 'False mnuOption.Visible = True 'False mnuHelp.Visible = True 'False mnuMenu.Checked = False 'True ShowMenu = True 'Generate Seed Randomize Seed = ((Rnd() * 100) + (Timer * 100)) Mod 6 If Seed = 0 Then Seed = 1 intStartClick = 4 blnFirstRound = True 'Maximum roll repeat if die number is 6 intMaxRoll = 2 'Play sound OhOu = App.Path & "\Oh Ou.wav" Play = App.Path & "\Play.wav" Me.Caption = Me.Caption & " " & App.Major & "." & App.Minor & " (built " & App.Revision & ")" Exit Sub err: AppendText "Error", Now & " " & " Error: " & Error & "(Form Load)" End Sub Private Function InitPlane() Dim i As Integer For i = 1 To 4 'BLUE To YELLOW 'Initial positions COLOUR(BLUE, i) = BLUE COLOUR(GREEN, i) = GREEN COLOUR(RED, i) = RED COLOUR(YELLOW, i) = YELLOW ' Use For Loop later ' Eg. For i = 1 ' IMG(BLUE, 1) = PathDirection(1) -> means Blue1 = South ' Plane(11).Picture = picPlane(1, IMG(BLUE, 1)).Picture IMG(BLUE, i) = PathDirection(COLOUR(BLUE, i)) Plane(BLUE * 10 + i).Picture = picPlane(BLUE * 10 + BLUE).Picture IMG(GREEN, i) = PathDirection(COLOUR(GREEN, i)) Plane(GREEN * 10 + i).Picture = picPlane(GREEN * 10 + GREEN).Picture IMG(RED, i) = PathDirection(COLOUR(RED, i)) Plane(RED * 10 + i).Picture = picPlane(RED * 10 + RED).Picture IMG(YELLOW, i) = PathDirection(COLOUR(YELLOW, i)) Plane(YELLOW * 10 + i).Picture = picPlane(YELLOW * 10 + YELLOW).Picture blnColour(BLUE, i) = False blnColour(GREEN, i) = False blnColour(RED, i) = False blnColour(YELLOW, i) = False ' blnAI(i) = True blnVictory(i) = False Win(i) = 0 Next 'Generate AI If PlayerColour <> BLUE Then AINum(BLUE) = GenerateAI If PlayerColour <> GREEN Then AINum(GREEN) = GenerateAI If PlayerColour <> RED Then AINum(RED) = GenerateAI If PlayerColour <> YELLOW Then AINum(YELLOW) = GenerateAI End Function Private Sub FlyTimer_Timer() Dim cut As Integer Dim FlyPlane As Integer Dim PlaneNo As Integer Dim D1 As Integer Dim D2 As Integer Dim GoWin As Integer Dim Jump As Integer 'On Error GoTo errFly FlyPlane = COLOUR(Turn, Go) PlaneNo = Turn * 10 'Make Plane on top Plane(PlaneNo + Go).ZOrder 0 Select Case Turn Case BLUE D1 = 58 D2 = 66 GoWin = 4 Jump = 2 Case GREEN D1 = 19 D2 = 71 GoWin = 1 Jump = 3 Case RED D1 = 32 D2 = 76 GoWin = 2 Jump = 0 Case YELLOW D1 = 45 D2 = 81 GoWin = 3 Jump = 1 End Select 'Inside Base If FlyPlane = Turn Then 'Direction FlyPlane = FlyPlane + 4 ' Or Turn + 4 COLOUR(Turn, Go) = FlyPlane StopPath = FlyPlane Plane(PlaneNo + Go).Left = Path(FlyPlane).Left Plane(PlaneNo + Go).Top = Path(FlyPlane).Top FlyTimer.Enabled = False 'Disable this line cause Green moves ' NextTurn 'Cannot repeat roll die If Steps = 6 And blnRollAgain = True Then 'Roll again if six If intRepeatRoll < intMaxRoll Then SameTurn 'intRepeatRoll = intRepeatRoll + 1 Else NextTurn ' No repeat End If Else NextTurn ' No repeat End If Exit Sub End If If Moves = Steps Then ' use >= ? to prevent undefinite loop FlyTimer.Enabled = False blnReverse(Turn, Go) = False If FlyPlane = D2 Then 'Win ' Plane(PlaneNo + Go).Left = Goal(Turn).Left 'Need? ' Plane(PlaneNo + Go).Top = Goal(Turn).Top 'Need? FlyPlane = 0 'Cannot move anymore COLOUR(Turn, Go) = FlyPlane StopPath = FlyPlane Win(Turn) = Win(Turn) + 1 If Win(Turn) = 4 Then If GameMode <> "S" Then 'Avoid Messagebox MsgBox Player(Turn) & "'s " & gstrObject & " has completed the mission.", vbOKOnly, "Mission accomplished" End If 'no more turn blnVictory(Turn) = True Else If GameMode <> "S" Then MsgBox Player(Turn) & "'s " & gstrObject & " " & Go & " has completed objective " & Win(Turn), vbOKOnly, "Objective complete" End If End If 'NextTurn If Steps = 6 And blnRollAgain = True Then 'Roll again if six If intRepeatRoll < intMaxRoll Then SameTurn 'intRepeatRoll = intRepeatRoll + 1 Else NextTurn ' No repeat End If Else NextTurn ' No repeat End If Exit Sub End If 'If COLOUR(1,Go)=26, Take ShortCut cut = ((Turn Mod 4) + 1) * 13 If FlyPlane = cut Then 'FlyTimer.Enabled = False IMG(Turn, Go) = PathDirection(FlyPlane) Plane(PlaneNo + Go).Picture = picPlane(PlaneNo + Turn).Picture intFlying = Path(cut).Left intFlying = Path(cut).Top ShortCutTimer.Enabled = True 'MsgBox "Before taking shortcut" Exit Sub End If 'If COLOUR(BLUE,Go)=58 or COLOUR(BLUE,Go)=62, don't jump! 'Else same colour then jump 1 time If Not (FlyPlane = D1 Or FlyPlane = D2 - 4) Then If blnEnableJump = True And FlyPlane Mod 4 = Jump Then FlyPlane = FlyPlane + 4 'Do not use FlyPlane ' continue next section after jump ' dun let blue jumps If FlyPlane = 61 Then FlyPlane = 9 ' Yellow If FlyPlane = 63 Then FlyPlane = 11 ' Green If FlyPlane = 64 Then FlyPlane = 12 ' Red COLOUR(Turn, Go) = FlyPlane Direction Plane(PlaneNo + Go).Left = Path(FlyPlane).Left Plane(PlaneNo + Go).Top = Path(FlyPlane).Top End If End If '???? StopPath = FlyPlane Direction 'Direction If blnKickPlane = True Then CheckKick End If ' NextTurn If Steps = 6 And blnRollAgain = True Then 'Roll again if six If intRepeatRoll < intMaxRoll Then SameTurn 'intRepeatRoll = intRepeatRoll + 1 Else NextTurn ' No repeat End If Else NextTurn ' No repeat End If Exit Sub End If 'If still got available Moves 'Turn Plane before flying ? If FlyPlane = Turn + 4 Then 'In between Base and Circuit FlyPlane = D1 + 3 If FlyPlane = 61 Then FlyPlane = 9 ' if Blue COLOUR(Turn, Go) = FlyPlane Plane(PlaneNo + Go).Left = Path(FlyPlane).Left Plane(PlaneNo + Go).Top = Path(FlyPlane).Top Else If blnReverse(Turn, Go) = False Then FlyPlane = FlyPlane + 1 Else FlyPlane = FlyPlane - 1 End If If FlyPlane = D1 + 1 Then '59 FlyPlane = D2 - 5 '61 'Go towards goal Else If FlyPlane = 61 Then FlyPlane = 9 'Continue next section (except Blue) End If End If COLOUR(Turn, Go) = FlyPlane If FlyPlane = D2 Then '66 Plane(PlaneNo + Go).Left = Goal(Turn).Left Plane(PlaneNo + Go).Top = Goal(Turn).Top Direction blnReverse(Turn, Go) = True Else Direction Plane(PlaneNo + Go).Left = Path(FlyPlane).Left Plane(PlaneNo + Go).Top = Path(FlyPlane).Top End If End If If Moves < Steps Then Moves = Moves + 1 Direction End If Exit Sub errFly: MsgBox Error & Chr(13) & gstrObject & " (" & Player(Turn) & ") = " & Go, vbExclamation, "Flytimer" FlyTimer.Enabled = False End Sub 'Use for Human and AI Players 'Check whether any plane enable? Private Function CheckMove() Dim i As Integer For i = 1 To 4 If COLOUR(Turn, i) < 5 Then If COLOUR(Turn, i) = 0 Then blnColour(Turn, i) = False Else If Steps = 6 Then blnColour(Turn, i) = True Else '==========DieNumber Not 6========== If blnFirstRound = True And blnSixOnlyStart = False Then blnColour(Turn, i) = True Else blnColour(Turn, i) = False End If End If End If Else blnColour(Turn, i) = True End If Next 'blink plane 'If Turn <> PlayerColour Then ' BlinkTimer.Enabled = True 'End If End Function Private Sub BlinkTimer_Timer() Dim i As Integer 'Next turn if no selected plane for AI If blnAI(Turn) And Go = 0 Then BlinkTimer.Enabled = False AIThinkTimer.Enabled = False 'optional? 'blnClick = False NextTurn 'No repeat? Exit Sub End If ' Check whether plane is enabled before blink CheckMove 'Next turn if no enabled planes If blnColour(Turn, 1) = False And blnColour(Turn, 2) = False And blnColour(Turn, 3) = False And blnColour(Turn, 4) = False Then BlinkTimer.Enabled = False AIThinkTimer.Enabled = False 'blnClick = False 'Require? NextTurn 'No repeat? Exit Sub End If If blnAI(Turn) = False Then fraMessage.Visible = False EnablePlane ' Must CheckMove first End If For i = 1 To 4 If Blink = 0 Then 'Blink Plane that ready to move If blnColour(Turn, i) = True Then Plane(Turn * 10 + i).Picture = LoadPicture("") Else If blnColour(Turn, i) = True Then Plane(Turn * 10 + i).Picture = picPlane(Turn * 10 + IMG(Turn, i)).Picture End If Next If blnClick = True Then 'Make all planes visible For i = 1 To 4 Plane(Turn * 10 + i).Picture = picPlane(Turn * 10 + IMG(Turn, i)).Picture blnColour(Turn, i) = False 'disabled all planes Next If blnAI(Turn) = True Then 'If this is an AI then don't ask 'Check Go = ? BlinkTimer.Enabled = False 'mandatory 'AIThinkTimer.Enabled = False 'optional blnClick = False 'require FlyTimer.Enabled = True 'mandatory Else ' EnablePlane ' Must CheckMove first ' Ask Player If vbCancel = MsgBox("Move " & gstrObject & " " & Go & " ?", vbOKCancel + vbQuestion, Player(Turn) & "'s Turn") Then er(Turn) & "'s Turn") Then er(Turn) & "'s Turn") Then er(f bl eckKi= 49OLOer(Turn) & "'s Turn") Then I & "'s Turn") Then errn if no sink = MsgC Else I & "'s Td = 10g Directi8tlinkTimer.Enabled e 'm If = 10g Directi8tlinkTimer.Enabled e 'm If = 10g DirectinalE6i False EablePlane ' Must CheckMove first ' Ask Player Plane that ready tne that ready to move If blnCo'r blnVictory(Tur If blnColour(Turn, 1) = False And blnColour(Turn, 2) = False And srn, 2) = Flour(Turn, 2) = intRepeatRoll < intMaxRoll Then < Exit If blnAr 0 Select Case Turn icture = 94i, 1)'a Plane that ready tne that ready to move If blnCo'r blnVictory(Tur If blnColour(Turn, 1) = FaTur If bln 2) rn, 2) = intRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRollVictory(Tur If blnColour(Tur"M)7")ny hether any plane enable? Privati& "'s Turn"en )e enable? Privati& "'s Turn"en NextTurn 'No repeat? Exit SuIThina I & "'s Tu Ife? PrivatiI & "'s lnCohhhhhhhective coc ati(Tur If blnColour(Turn, 1) = FaTur If bln 2) rn, 2) = intRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s Turn")ntRepeatRoll < thata I & "'s) rn, 2) = in4peatRoll < thata I & "'0 & "'0 S If blnColo6080FF80& a I & "'s) rn, Then If blnColo6080FF80& an VB.Shape RedFly BackColor = &H008080FF& 0& an VB.Shape RN6< er(Turn) & "' thata I & "'s Turn")ntRepeatRoll < thata I & "'s) rn, 2) = inS i)).Picture = ? P0g D = ? P0g D = 80& an VB.T\ ane ,e on top Plane(PlaneNo + Go).ZOrder D = 80& an VB.T\ 1ick Private intMaxRoll As Integer ' Maximum times to roll a die in 1 turn Private intRepeatRoll As Integer ' How many times a die roll repen 1 turn Privi DieNumbene ' Must CheckMove first ' Ask Player PThen F If blnClick =mes to roll aumany times a die irst die lanatRoll As Int .ZOrder D = 80& an VB.T\ 1ick Private in i)).Picture = ? P0g D = ? P0g D nk =& "' ' Mu>nd Sub rIpblnAI(Tnnot NeGo & " has complete EablePlane ' Must CheckMove first ' Ask Player 2"A .ZO:no6.Enabled = True 'l Go).eN6< er(TTTTTTTTTTTTTTTTTTTTTTdivate RollCount As Integer Privattdber) for blinkinTdivat If Exit SuQblinkinTdivat If Exit SuQblinkinTdivat If Exit SuQblinkinTdivaZOrder D = 80& Exmany times auFalse 'option4Falsel'option4Falion4Falsel'option4Falion4Falsel'option4Falion4Falsel'option4Falion4Falsel'option4Falion4Falsel'option4Falion4Falsel'oo TutWeatRollViTutWeatRt COLOUR(YELLOW, i)t4 If COLOUR(Turn, i) < 5 Then If COLOUR(Turn, i) = 0 Then & Exit Sub End If ' Check whether plane is enabled before blink CheckMove 'Next turn if no enabled planes If blnColour(Tuth WidCanceler PThen AI If blnAI(Tur'Use for End If ' Check whethe,b errFly: MsgBox Error & Chr(13) & gstrObject & " (" & PlayIvBbject & "ane =r If ' Check whether plane is enabled before blink CheckMove 'Next turn if no enabled planes If blnColour(Tuth WidCanceler PT gstrObject & " (" & PlayIvBbjetrObject & 2BbjetrObject &abled planes If t4= 11 ' Green If Flt4= 119oIf FlyPlane = 64 Then FlyPlane = 12 ' Red ' CheAs>edctinalE6i nAI(TurseAs>e44444444444444drn")ntRepled = False 'manatCe(Privi DieNub rIpblnAI(Tnnot NeGlI7+eFoyer(REDlane FlyPlane = 11 ' GreI(EDlane FlyPlan e 'm If 'Next turn if no enab Player Plane that ready tne that ready to move If blnCo'eeeeeeeeeeeeeeeeeee\eeeeeeeeeeeeeeeee\eeeeeeeeeeuFady toft 'eeeeeeebne = 11 ' GreI(EDlane FlyPlan e 'm If 'Next turn if no enab Player Plane that reaaaaaaaa\eeekB_3er that reaaablnClick = True Then 'Make all planes visible For i = 1 To 4 Plane(Turn * 10 + i).Picture = picPlane(Turn * 10 + IMG(Turn, i)).Picture 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111tLOUR(YELLOW, i)t4 If COLOUR(Turn, i) < 5 Then If COLOUR(Turn, i) = 0 Then & Exit Sub End If ' eft = 1960 Top = 2880 Width = 495 x Woct0& an VntRlor Top ( If Not (Fl & "'s " & gstrObject & ">& ">& ' ( 'no more tum ' ( g b If Mov1111111111 I lour If COLOUR(Turn, i) = 0 Then & Exit So So So So So So So So So CVB.T\ 1ick Private intMaxRoll As Integer ' M #Turn, Go) = PathDirection(FlyPlane) Plane(PlaneNo + Go).Picture = picPlane(PlaneNo + Turn).Picture intFlying = Path(cut).Left intFlying = Path(cut).Top ShortCutTimer.Enabled = True 'MsgBox "Bef(cutOeckMove first ' Ask Player atRoplanes atRopOLOUR(Turn, i) = 0 Then 2'ot= If blPlane) er(Tuth WidCayei)).Picture x = True Then o If blnAI(Turn) And Go = 0 Then BlinkTimer.Enabled Width 1n 'Net End IfHi'oyer atRoplanes atRopOLOUR(Turn, i) = 0 Then 2'ot= If blPlane) er(Tuth WidCayei)).Picture x = True ('option4Falion4 If blnO T\ = G).PicnIf blPlane) er(Tuth WidCayei)).Picture x = True ('option4Falion4 If blnO T\ = G).PicnIf blPlane) OLOU 80& an VB.T\ " & I & "'s Turn")ntRepeatRoll < thata 2uth epeatRoll < thata 2uthrn")ntR80& aum (One) er(Tuth pE False & aum (One) a & aum (Onek =& "' '8u yoo ? P0g D nk =& "' ' Mu>nd Sub rIpe 'manatCe(Privi DieNub'D2 Then '6Afwhether plane is enabled before blink CheckMove 'Ne er(Tuth pE False & aum (One) VB.Shape RN6< er(Turn) & "' thata I & "'s Turn")ntRepeatRoll < thata I & "'s) rn, 2) = inS i)).Picture = ? P0g D = ? P0g D = 80& an VB.T\ ane ,e on top Plane(PlaneNo + Go).ZOrder D = 80p Plane(PlaneN rn, P028 = d WidCayei)).Picture F35uisbahata(mes auFalse 'option4Falsel'option4Falion4Falsel'option4Falion4Falsel'option4Falion4Fat35uisbVyFalion4Fat35uisbVyFeNub'D2 Then Plane(P1= 0 Then 5BD) = inS i)).Pi D = ? F 7n, P028 /alse 'option4Falseli.T\6's Turn")ntRepeatRoll < thata I & "'s) rn, 2) = inS i)).PirFalion4 If bl"s4rFalion4 If bl"s4R)sel'opif no enab Player Plane that ready tne that ready to move If blnCo'eeeeeeeeeeeeee If COLOUR(Turn, i) 43ue ('option4Falion4 If blnOeef(cutOeckMove first at r7on4 If blyFalionl If COLOURr(Tuth WidCanceler PThen AI If blnAI(Tur'Use for End If icPlane(Turn * 10 + IMG(Turn, rue ('option4Fa Woct0& 2'ot=+ IM0oll 6 1ick Private& an VB.T\ " &ug nalsel'oo TutWeatRollViTutWeatRt COLOUR(YELLOW, i)t4 If COLOUR(Turn, i) < 5 Then If COLOUR(Turn, i) = 0 Then & Exitl2 ' Red ' CheAs>edctinalE6i nAI(TurseAsnalE6i nAI(TurseAsnalE6i nAI(neNo + Go).ZOrdert COLOUR(YELLAI(Tur, g<td If icn2inalE6i nAI(TurseAsnalE6ii pOL11111E6i n)).Picture eAs E5y11111E6i n)).Pict,F8gleCOLh111111tLOUR(YELLOW, i)t4 ,Vayur, g<tds ----Pre = picPl4neNo + Goircuitctuf>fove firstChr(13) & gstrObject & " (" & Player(Turn) & ") = " & Go, vbExclamation, "Flytimer" FlyTimer.Enabled = False End Sub 'Use for Human 1 se And blnColour(Turn, 3) = False And blnColour(Turn, 4) = False Then 1) ?Then 1) ?Then ?---Pr 1) ?Then ?--- 1) ?Then Funcode GamsnalE6i Tuth If S ('option4Fa Woct0& 2'ot=+ IM0oll 6 1ition4Fa Woct05 2'ot=+a Woct0& 2'ot=+ IM0olle ? P0g 2'ot=+ IM0op, 3) = False And 2) = inur(Turn, 3) = False A& " (" & Player(wF35uF r(Turn, 3) = False Aon4Fa WodSettingr1(Turn, 3) = FalFThen 1) ?Then 1) ?Then ?---Pr 1) ?The?The n 1) ?Then 1) ?Then ?---Prrdert COLOUR(wrdert COLOUR(wrde + Goircuitctuf>fove firstChr(1seli.T\6's Turn")ntRepeatRoll e firstChr(1seli.The?The n 1) ?Then 1) ?Then ?---Prrdert COLOUR(wrdert COLOUR(wrde + Goircuitctuf>fove firstChr(1seli.T\6's Turn")ntRepeatRoll e firstChr(1seli.The?The n lane(Tum8wrde + ' inS i)).PirFa\1c180&ying As Integer 'For ShortCut Flyiolanes visible For i = 1 To 4 {8, i) < 5 Then "r(1selate {8, i) < 5 Then AxT{8, ke ShortCut cut = ((Turn M(Tur'Use for Enhen M3(Turn M(Tur'Use for Enhen M3(u("ck whether 0&H008080FF& 0& an VB.Shape RN6< er(Tur 'Fure a & aum (Onek =) = Falsrohape RN6< er(Tur 'Fure a & aum (Onek =) = Falsrohape RN6< er(Tur 'Fure ek =) = Falsrohape RN6< = Falsrothat ready tste RN6< Pict,F8gne).Top Else If blnReverse(Turn, Go) = False Then FlyPlane = FlyPlane + OLh1 Width laneNo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo +es auF1c= False And blnColour(Turn, 4) = False Then 1) ?Then 1) ?Then ?-- 1) ?Then >Then ?-- 1) ?Then >egerhen ?-- 1) ?Then >Then Width laneNo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo +Falion4 KdvShoo + Turn).Picxfeger 'For Shoo +Fal?xfeger 'ForOAPicxfeger 'For Shoo +eeger 'Fo Turn"en o).Picxfeger 'For Kdv9oo + Turxfeger 'ForOAPi4Fa Woct0& 2'ot=+ IM0oll 6 1ition4F&77ane se And 1)cxfegon4F&77ane bu vbExclamarde + Goirci7ane s atRop Then "r'n >Theh If S ('option4Fa Woct0& 2'ot=+ I>eying l < thata 2uthrn")ntR80& aum")n 'blink plane 'If Turn <> Playeraurn).Picxfeger 'For Shoo +Fal?xfeo W'For Shoo +eeger 'Fo Turn"en oi If COLOUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i) reiR(wrdert COLOUR(wrde + Goircuitctuf>fove firstChr(1seli.T\6's Turn")ntRepeatRoll e firstChr(1seli.The?The n lane(Tum8wrde(Tum8wrde(Tumd oi li.The?The n lane(Tum8wrde(Tum8wrde(Tumd oi li.The ThenUR(Turn?rn, 3) = False A& " (" &v 3) = False A& " (" &v 3) = Faliv 3) = FaliIFaliIFaliII'For Shoo +eeger 'dex = 2 qv Exit Sub bject & "ane =r If 3 'A Shoo +efIf rbung l < thata 2False A& " (" &v 3) = Faliv 3) = FaliIFaliIFaliII'For Shoo +eeger 'dex = 2 qv Exit Sub bject & "ane =r If 3 'A Shoo +efIf rbung l < thata 2False A& " (" &v 3) = Faliv Shoo +efIf rbun StopPa9).Picxfeger 'For ShlCf rbun 0) < 5 ThenUR(T l ).PicxiStopPa9).Picxfeger 'Fo 'For Shoo + TurnsMf rbnnuGame.Visible = True 'False mnuOption.Visible = True 'False mnuHelp.Visible = True 'Faloo>l <e 'Faloo>l <e 'FaloPicenu mnuOne 41Kiur(Turn, 4) = False Then BlinkTimer.Enabled = False AIThinkTimer.Enabled = False 'blnClick = False 'Require? NextTurn 'No repeat? Exit S do Turn"en oi If COLOUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i) < 5 ThenUR(Turn, i))))))))))))))))Pption.Visible&e 'Require? loo>l <e 'Faloo>lot=+a Woct0& 2'otr(Te 41Kiur(Turn, 4) = False Then BlinkTimer.Enabled = False AIThinkTimer.Enabled = FalsGoircuitctuf>fove 8 AIThinkTith = ed = False AIThinkTimOption.Visible ?????????????????ane(Tum8wrde(Tum8wrde(Tumd oi li.The ThenUR(Turn?rn, 3) = False A& "o blnColour(Turn = False A& "o blnColour(Turn = False A& "o)'lion4Falsel'oo TutWeatRollViTutWeatRt COLOUR(YELLOW, i)t4 If COLOUR(Turn, i) < 5 Then If COLOUR(Turn, i) = 0 Then & Exit Sub End If ' Check whether plane is enabled before blink CheckMove ger Privattdber) for blicxfeger 'For ShlCf rbu ThenUR(Turns enabled before blink Check<e 'FaloPice-rtCut cut = ((Turn Mod 4) + 1) * 13 If FlyPlane = cut Then 'FlyTimer.Enabled = False IMG(Turn, Go) = PathDirection(FlyPlane) Plane(PlaneNo 80u Turn"en oi If COLOblnColour(Turn = False A& "o)'lion4Falsel'oo TutWeatRollViTutrOAPicxfegeplor Shoo +eeger 'Fo Turn"en)d 4) + 1) * 13 1)ne =n 9 mten)c9Ne AxT{8, keo{8, kese mned e blink k8 5 Then "r(1s 5 c ((Turn Mod 4) + 1) * 13 If FlyPlane = cut Then 'FlyTimer.Enabled = False IMG(Turn, Go) = PathDirectio c ((T Turn)ectio c ((T Tu FlyPla=B If COLOblnColoupPa9).Picxfeger 'Fo la=B If COLOblnColoupPC7no.PicPlane.Enaf Endi li.The?The n lane(Tum8wrdolio0o +e kese mned e blink k8 5 Then "r(1s 5 c ((Turn Mod 4) + 1) * 13 If FlyPlane = cut Then 'FlyTimer.Enabled = False IMG(Turn, Go) = PathDirectio c ((o & s IMG(Turn, Go) = PathDirectio c ((T Turn)ec ((T Turn) Turn)ee For Sobu sWiA* Fo 4) + visible For i = Click = False NextTurn 'ible For i = Click = False NextTurn 'ible For i = Click = False NextTurn 'ible Picture = picPlane(Tur3 bu vbExclamardTurn, i) < 5 ThenUR(Turn, i) < 5 M 0& an Vrsse mned e blink I 9 Picture = picPlane(Tur3 bu vbExclamardTurn, i) < 5 ThenURyTiatRop Then NextTurn 'ible Fe5 ThenUR(Turn, i) < 5LOblnColoup For SobunColour(Turn = Fa3 'FlyTimer.Enab d Sobaaa a3 'FlyTimer.Enab d Sobaaaaab le Picture IMG(Turn, Go) = PathDirectio c ((o & s IMG(Turn, Go) = PathDirectio c ((T Turn)ec ((T Turn) Turn)ee For Sobu sWiA* Fo 4) + visibl Tg r 'For ShenUR(Turns enabled before blink egeIUR('s) rrrrrR(T SobunColour(Turn& "aR('s) rrrG>ub'D2 Then Plane(P1= 0 Then 5BD) = inS i)).Pi D = ('s) = PI End If COLOUR(Turn, Go) = FlyPlane If FlyPlane = D2 Thenwh Else2 Thenwh Elsc2 Thenwh Els at r7on4 If blyFalion Else2 Thenwh Elsc2 Thenwh Els at r7on4 If blyFalion Else2 Thenwh Elsc2 Thenwh Els S) Grn, iblyh erlour IMG(Turn, Go) = PathDirectio c S) ?Then henw= PathDirectio c ((T Turn)ectio"tRoa 2uthrnurn")ntRc ((o T Patl 5 ) = False 'disabled all planes ne) er(Tuth pE False & aumLoCaes ne) er(Tuth 'blnk 5 ThenoG iG at ror Shoo +eeger 'Fo Turn"en)d 4) + 1) * 13 1)ne =n 9 mten enable? Private Function CheckMove() M eblyFalion Else2 I6i nAI(TurseAsnalE6i For i = Click = Fegin VB.Menu mnuEnd Caption = "&End Game" Enabled = AmUR(Tn, Go) = FlyPlane If FlyPlane = D2 Thenwh Else2 Thenwh Elsc2 Thenwh Els at r7on4 If blyFalion Else2 Thenwh Elsc2 Thenwh Els at r7on4 If blyFalion Else2 Thenwh Elsc2 Thenwh Eln, i) < - ) Turn)ee = Clet r7on4 ITrue Thi?Then 1) t r7on4 If blyFalion 6'6Fale T Turn)ee =ta3 'FlyTimer < - 6'6Fale T Turn)ee =ta3 i 1tk3 i 1 'FlyTimer.Enac + visssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssst r7on4 ITrue Thable? Pssssssss) = False A& "o blnCo10 Then & Exit Sub End If ' Check whether plane is enabled before blink CheckMove ger Privattdber) for blicxh(Fee nkinTdie2uhenwh Elsc2 ThenwA 'FlyTime 'Flyssse AIThinkabled rn)ee =ta3tsssssssssssssssss & s IMG(Turn, cut = ((Tu End If ' Check whether plane is enabled before is enabled be5 + 1) * 13 o +eeger 'Fo Turn"en)d 4) + 1) * 13 1)ne =n 9 mten enable? Private Function CheckMove() M eblyFalion Else2 I6i nAI(TurseAsnalE6i For i = Click = Fegin VB.Menu mnuEnd ) * 13 CheckMove() M eblyFalion Else2 * 13' * 13 CheckMove(* 13 1)ne =n 9 mten abled enifnpeatRoll < thata 2uth epeatRoll < thata 2uthrn")ntR80& aum (One) er(Tuth pE False & aum (One) lrKdvS er(Tuth pE Fals + visssssssssssssssssssssssssssssssssssssF1tr(f Fals + visssssssssssssssssssssssssssssssF1tr( Grn, iblyh erlouruman 1 sl(iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiials sssuheiiiialio Doh ((T Turn)ectio c ((T Tu FlyPla=B If COLOblnColoupPa9).Picxfeger 'Fo la=B If COLOblnColoupPC7no.PicPlane.Enaf Endi 7t Sub End If ln4 ITrue oIV er(Tuth pE False & aum (One) ' oIli Plane(PlaneNo + Go).v 3h pE False & md If ln4 10p If2Pa9).Picxfeger 'Fo la=B If COLOblnColoupPC7no.PicPlane.Enaf Endi 7t Sub End If ln4 ITrue oIV er(Tuth pE False & aum (One) ' oIli Plane(PlaneNo + Go).vn)ee =ta3 'Fly'otr(Te 41Kiur(Turn, 4) = False Then BlinkTimer.Enabled = False (iiiiP2u yoo ? P0g h ualse (iiiiP2u"en)d 4) bColos0D' ((T Tu FlyPla=B If COLOblnColoupPa9).Picxfeger 'Fo la=B If COLOblnColoupPC7no.PicPlane.Enaf Endi 7t Sub End If ln4 ITrue oIV er(Tuth pE FaoloupPC7no.Pic=B If COLOblnColoupPa9).Picxfegenable? anc4) = False Then BlinkTimer.6 anc4) = Fa7Fr( Grn, iblyh erlouruman 1 sl(iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiio0ly'otr(TiiiiiiiA& "hata 2False Ayiiiiiiifiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiio0ly'otr(Tiiiiilf b* 13 1)ne ree FlyPla=B If COLO1f b* 13 1)ndnD' ((T Tu Flyio c ((T If COLO10sssssssssssss28 = d WidCTurn).Picxfe"ssssssss1)cxfegon4 s Flyio ae WidCTurn).Picx ic=B If COLObled2t SlUR(--Prio0ly'otr(TiiiiiiiA& "hata = "&End Game" d2t SlUR(--Prio0ly'otr(TiiiiiiiA& "hata = "&End Game" d2t SlUR(--Prio0ly'otr(TiiiiiiiA& "hata = "&End Game" d2t SlUR(--Prio0ly'otr(Tisxrlouruman 1 sl(iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiin 1) tr(Tisx0ndi 7t Sub itctuf>fove 8blyFalion Eloo0ly'otr(Tisxrlouruman lnColoupPC7no.PicPlane.Enaf EndITrue anc !ayPlane = 12 'ndITrue anc !ayPlane = 12 'ndITrue anc !ayPlane = 12 'ndITrue anc !ayPlane = 12 'ndITrue anc !ayPlane = 12 'ndITrue anc !ayPlane = 12 'ndITrue anc !ayPlane = 12 'ndITrue anc !ayPlanR(T l )nc !ayPlane = 12 'ndITrue anc !ayPlanR(T l )nc !ayPlane = 12 'ndITr I Colos02 'nssssssssssssssssssssssssssse anc Grn, iblyh erlour (iiiiiiiiiiiO 35ne = FlyPlaiiiiiiiiiO 35ne = FlyPlaiiiiiiiiiO 35ne = FlyPlaiiiiiiiiiO 35ne = FlyPlaiim = FlyPer d4kbly12 'ndITrue anc !ayPlane = 12 'ndIo)t anc4) = False Then !/ lanR(T l )nc !ayPlane = 12 'ndrTimer.6 anc4t n AIThinkabled rn)ee yPlan 5BDRed 1)ne =n 9 mten enable? Pri =n 9AaneNo + Go).ve? Pri =n 9AaneNo + Go).ve?(ayPlanR( yPlaiim = den, 4) = False Then BlinkTimer..ve?E7enP, 4)o) = False 7 Plane = urseAsnalE6i For i = Click = Fegin VBFalE= !/ - Click = Fegin VBFalE= !/ - Click = Fegin VBFalE= !/ - Click = Fegin VBFalE= urseAsnalE6i For i = Click = Faj= Fegin VBFalE= IH 13waf Endde For i = 1 To 4 {8, i) < 5 13 Cod iifiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiio0ly'otr(Tiiiiilf b* 13 ' Red ' CheAs>edctinalE6i nAI(TurseAsnalE6i nAI(TurseAsnalE6i nAI(neNo + Go).ZOrdert COLOUR(YELLAI(Tur, g<td If icn2i @+ v 'otr(Tiiiiilf b* uthrn")ntR80& aum (One) OLOUR(YELLAI(Tur, g<td If icn2i @+ v 'otr(Tiimotr(Tiimotr(Tiimotr(Tili r(Ti v 'ot((T Turn) TurPlane = 12 'ndITrurPlane = 12n2i @+ v 'otr(TpE FalseeoColodiiiiiiiiie = ne = 12 'ndITrurPlane = iiiiiiiiTpE Falsee5prio0ly'otrLOUR(YELLAI(Tane iiA& "hata = "&End(TaBDRed ta = "&End(TaBDRed ta = "&EnF @+ v 'otr(TpE Fals'otr(Tisxrlouruman Plane(PlaneNo + Go).vn)ee =ta3de Plane(PlaneNo + Go).vn)ee =ta3de Plane(PlaneNo + Go).vn)ee =ta3de den, 4) = False Then BlinkTimer..ve?E7enP, 4)o) = False 7 Plane = urseAsnalE6i For i = Click = Fegin VBFalE= !/ - nAI(TurseAsnalElE6i For i = Clc !aync4) = Ft((T Tur ? P0g D = ? P0g D = 80& an VB.T\ ane de(Tua @+ v 'otr(TpE Fal9 cut = ((Turniiiiiiiiiiiiiiiiii& 1gtiiior i = Clc !aync4) = Ft((T Tur ? P0g D = ifii(T Tur (S 2n P0g Tur (S 2n P0g Tur (S 2n P0g lse & aum (One) ' oIli Plan Grn, iblyh erlour (iiiiiiiiiiiO 35ne = FlyPlaiiiiiiil5ne = FlyPlaiiiiiii)ee =ta3de Bli = alE= !/ - Click = Fegotr(TisxrlourumanMLObl ate Function Checr igh erlour (iiiiuxrumanMLObl i a4iiiiuxrumaub bject & "anFalse 7 Plane = urseAsnalE6i e = urseAsnalE6i e bject & "anFD ? P0g us'Fo la=B If P0g us'Fo l)6d 13 ' Red oP0g = FalsGoirclour ( yPu Red oP0g = Fisxr ? 'FlyTimer.Enabled = dITrurPlane = iiiiiiiiTpE Falsee5prio0ly'otrLOUR(YELLAI(Tane iiA& "hata = "&End(TaBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBDRedhBOW, i)t4 ,xrlouruman Plane(PlaneNo + Go).vlane iiA& "haction aBDRedhBDRedhBDRedhBDRem iiiDRedhBDRedhBDRem iiiDRedhBDRedhBDRem iiiDRedhBDRed"hata = "&End(TaBDRedhBDRedhBoll < thata 2uthrn")ntR80& aum 1)ne =n 9 mten enable? Pri =n 9AaneNo + Go).ve?iiilyh erlour (iiiiiiiiiiiO 35ne = FlyPlaiiiiiiil5ne = FlyPlaiiiiiii)ee =ta3de i(T e = FlyPlaiiiiiii' iiAdoDRedtve?E7enP>lse 7 li Pla=9"< thata 2uthrn")ntR80& aum (One) er(Tuth pE False & a' rseAsnalE6i For i = Click = Faj= Fegin VBFalE= IH 13waf Endde For i = 1 To 4 {8, i) < 5 13 Cod iifiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiio0ly'otr(Tiiiiilf b* 13 ' Reded = Falsebject & "anFalse 7 Plane = urseAsnITruPiiiiiiiiiiiiiiiiiiiiio0ly'otr(Tiiit = (Tiiit =e yPlaiiiiiii)eAPicxfeorOAPicxfdhBDRed"hata Ei+ mt'oo TutWeatRollViTutrOAPicxfegeplor Shoo +eeger 'Fo Turn"en)d 4) + 1) * 13 1)ne =n 9 mten)ne =n 9 mten @+ v 'otr(Ti Grt4 ,xrlouruman Py'otr(Tiiit = f b* 13 ' Reben ' B e(Tum8wre+ IM0olle u(Turn, Go) = PathDirectio c ((T Turn)ec ((T Turn) Turn)eee(Tum8o 4) = False Then wd2t Sl e(Kena iiiiiiiiiiiiiiiion ase Then wsssssedhBDRedhBDRo c S) ?Then O4) = False Then wd2t Sl e(Kena iiiiiiiiiiiiiiiion ase Then wsssssedhBDRedhBDRo c S) ?Then O48bled = dITrurPlane = iie = D2 Thenwh ElhP0g = n asHoo ? P0g h ualse (iiiiP2u"en)d 4) bColos0D' ((T Tu OLO sl ?Then O4) = False Then wd2t Sl e(Kena iiiiiiiiiiiiiiiion ase Then wsssssedhBDRedhBDRo c S) ?Then O48bled = dITrurPlane = iie = D2 Thenwh ElhP0g = n asHoo ? P0g h u wssss li.The Then9 i(T False 7 Plane = urseAsnalE6i For i = Click = Fegin VBFalE= !/ Go).vn)essssedhBDRuR(T ? P0g usFhBDRuR(T ? P0g usFhBDRuR(g usolos'otrio0yayg<td If icn2i @+ v 'otr(Tiime 1)neTiime 1)neTiime 1)neTiime 1)neTiimediiiiiiiPlaneTii3ediiiiie de(in wd2t Sl e(Kena iiiiiiiiiiiiiiiion ase Then wsssssed7P2u"en)d 4) bColos0D' ((T Tu OLOotuPiiiiiiiiiiiiiiiiiiiiio0hBDReBe(P=BiP, 4)o) = False 7 Plane = urseAseAsnalE6i For i = Clicsm (Cs(iii7n)e6i Forman Py'otr(Tiiit rn)ee yPlan 5BDRlDRuR5& aum (One) 6bime(uE Fals 5BDRlDRuR5& aum (One) 6bi ase Then wsssPotr(Tiiit rniiiiiiiiiiiiiihata hen wsssPotr(Tiiit rniiiiiiiiiiiiiihata hen wsssPoC= "&End(e eiiiiiiit((T Turn) TurPlane = 12 'nd PathDirecti2wsssP4 TurPlaiime 1)neTiime 1)neTiimediiii,Py'otr(Tiiit rn)eePlane = i wsssn wd2t Sl e(Kena iiiiiiiiiil < thata 2uthrn")ntR80& aum 1)ne =n 9 mten enable? Pri 4 PlwsssPoC= "&EndlnKickPlCo'eeeeeeeeeeee4 1)neTa = "&End(P=BD BbEnd(P=BDtion rniiiiiiiiiiiiiihata hen wsssPotr(Tiiit rniiiiiiiiiiiiiihata hen wsssPoC= "&End(e eiiiiiiit((T Turn) TurPlane = 12 'nd PathDirecti'otr(Tii TurPlane = 12 'nd PathDirecti'otr(Tii TurPlane = 12 'nd PathDirecti'otr(Tii TurPlane = 12 'nd PathDirecti'otr(Tii TurPlane = 12 'nd Pathtit((4rd PathDirecti'otr(Tii TurPlane = 12 'nd Pathtit((4rd PathDirectBDRlDirectBDRlDirecte" "&EnF @+ v 'otr(TpE Fals'otr(Tisxrlouruman Plane(PlaneNo + Go).vn)ee =ta3de Plane(PlaneNo + Go).vn)ee =ta3de Plane(PlaneNo + Go).vn)ee =ta3de denxrlane(Plan = i wsssn wd2t Sl e(Kena iiiiiiiiiil < th2eiiiiiiiiiieBDRedhB l iiie(P=BiP, 4)o) = FRlDiriit rniiiiiiiiiia(lDiriit rniiiiiiiiigman Plane(PlaneNo + Go).vn)ee =ta3de Pu Plane(PlaneenwA llViTutrOAPicxfea3de ata 2uusIuenxrlane(Plan = 12 'nd Pane r7diiii,Py'otr(Tiiit rn)eePlane = i wsssn wd2t Sl e(Kena iiiiiiiiiil < thata 2uthrn"))))))))iiiiiiigcie(il < thata 2uthrn"))And blnColo(Tii TurP2od iifiia3de r(TpE D BlinkTimUR(Tn, Go) = FlyPlane rfea3de ata = Py'otr(Tiiit = f b* 13 ' Rebe ' Rebe ' Rebit rncr (id2t rn)eePlane ae iie < thata 2uthrn")cx ic=B If COLObled2t SlUR(--Prio0ly'otr(TiiiiiiiA& "hata = "&End Game" dBlinkTimUR(Tn, Go) = FlyPlane rfea3de ata = Py'otr(Ti.vn)ee =ta3de Pde r(T rfea3de ata = Py'otr(Tiiit = i2ws w ata 5aiime 1)neTiime 1)neTiimediiii,Pi3AdoDRedtve?E7enPub 1Kn")cx ic=B ime 1)neTiime 1)neTiimediiii,Pi3A ime 11hme 1)neTiime 1)neTiimediiii,Py'otr(Tiiioo +eeger ''otr(Ti Grt4 ,xrlouruman I0000000000000000n Plane(PlimedosGe) 6bime(uE Fals 5BDRlDRulDRulDRulDRu1 Fals 5B< thata 2uthrnt44= i2ws wa5BDRlDRulDRu0x0)ePlane(PlimedosGe) l'oo TutWeatRollViTutWeatRt COLOUR(YELLOW, i)t4 If COLOUR(Turn, i) < 5 Then If COLOUR(Turn, i) = 0 Then & Exit Siiiiiiiiiii,Pls 5BDRlDRulDRulDRuliiii,Pi3A ime 11hme=urn, i) = 0 Then & MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMme 1)neTiimediiii,Py'otr(Tiiioo +eeger ''otr(Ti Grt4 ,xrlourumaireiiiiiiiiii,Pls 5BDRlDRulDRulDRuliiii,Pi3A ime 11hme=urn, i) = 0 Then & MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMme 1)neTiimediiii,Py'otr(Tiiioo +eeger ''otr(Ti Grt4 ,xrlourumaireiiiiiiiiii,Pls 5BDRboPOAPicxfea3de ata 2uusIuenxrlane(Plan = 12 me 11hme=uer ''oumaireiiiiiiiiii eiiiiiiit((T Turn) TurPlane = 12 'nd PathDirecti'otr(Tii TurPlane = 12RuR5& aum (One) 6bi ase Then wsssPotr(Tiiit rniiiiiiiiiiiiiihata hen wsssPotr(Tiiit rntr(Tiiit rntr(Tiiit rntr(Tiiit rntr(Tiiit rntr(Tiiit rntr(Tiin wsssP,ii,Pylt rntr(Tiiitiiiiiihata henssP,ii,Pylt rntr(ti'otr(Tii TurPlanr(Tii rfea3de hen wsssPotr(TiiiY = Fals1111111 I lour odM eblyFaMMMMMMMMMMMMMMMMMMMMMMMMMMMMMme 1)neTiimediiii,Py'otr(Tiiioo +eeger ''otr!ssssed7((((((((((( Then wsssPotr(B((((((((( The 2uusIue((((((( Then wsssPotr(B((((((((( The 2uusIue(((((((yiotr( Grn, iblyh erlourum(T Tu OLOotuPii8td2uu Bli = alE= !/ - Clickimediiii,Pi3A ime 11hme 1) D BlinkTimUR(Tn, Go) = FlyPlaniii eiiiiiiit((T Turn) TurPlane = 12 'nd PathDirecti'otr(Tii TurPlane = 12RuR5& ati'otr(Tii,Py3GTii,Py3GTii,Py3GTii,Py3GTii,Py3GTii,i'otr(Tii TurPlane = 12RuR5& aum (Onmaireiiiiiiiiii,Pls 5BDRboPOAPicxfea3de ata 2uusIuenxrlane(Plan = 12 me 11hme=uer ''oumaireiiiiiiiiii eiiiiiiit((T Turn) TurPlane iP, 4)o) = rntr(Tiiitiiiiiihata hennF-tr(T&EnF @''oTbBst atRt COLOoTbBstdnColo(Tii TurP'iiiiiiiiiiiiihata hen wsssPotr(Tiiit rniiiiiiiiiiiiiihata hen wsssPoC= "&End(e eiiiiiiit((TTiia5r3 Bli \ 1) lo(Tg usFhBDRuR(g usa mteOlssPiia5r3 Bli \ eD10mairei2+p12 'nd Pathtit erlouiigcie(il < that\ 1) loSiiiiiiiiiie \ eD10mairei2+p12 'nd Pathtouo(Tg iiiDRedhBDRed"hata = "&En"en)d 4) bColos0D' ((T Tu OLOotuPiiiiiiiiiiiiiiiiiiiisedhBDRedhBDRo c S) ?Then O4) = False Then wd2t Sl e(Kena iiiiiiiiiiiiiiiion ase Then wsssssedhBDRedhBDRo c S) ?Then O48bled = dI1hme=ue+ Go).vn)e x PaPathtouo(Tg iiiDRedhBDRed"hme=ue+ Go)3).vn)e x PaPathtouo(Tg i4 10p If2Pa9).Picxfeger 'Fo la=B If COLOblnColoupPC7no.PicPlane.Enaf Endi 7t Sub End If ln4 ITrue ata 2uusIuenxb End Ifialio Doh ((T Turn)ectio c ((T Tu FlyPla=B If COLOblnColoupPa9).Picxfeger 'Fo la='Fo la=B "5Pa9).Picxfeger 'Fo la='Fo la=B "5Pa9).Picxfeger 'Fo la='Fo la=B "5Pa9).Picxfeger 'Fo la='Fo la=B mFo la=B "5Pa9).PiPa9 If COLObln Bli e='Fo la=B "5Pa9).Picxfeger 'Fo Ibxfegermiger 'Fo Ibxfbled 'Fo Ibxfbleia5r3 Bli +led 'Fo I 3 = xfbleia5r3 = xfbleia BBBBBBBBBBBKena iiiiiiihotr(Tii 'H 13waf Endde o 4) 1InkTimUR<e Then=Ti Grt4 ,xrlourumaith pE False & aum (One))0rmiger 'Fo Ibxfbled 'Fo Ibxfblei sssPoC= "&End(e )0rmiger 'Fo Ibxf-urPlane iP, 4)o).Picxfeger 'F ii"tWea Py'o).Pr 'F ii"tWea Py'o).Pr 'F ii"tWea Py'o).Pr 'F ii"tWea Py'o).Pr 'F ii"tWea Py'o).Pr 'F ii"tWea Py'o).Pr 'idosGaWWWWWW( The 2uusIue((((((( Then wsse = ii 0ia5r3 = xfbleia BBBBBBBBBBBKena iBBBBBBBBBKena iBBBBBBBBBKena indde o 4) Doh2uusIue((((((( Then wsse = ii33Due((((((( Thenii,Pi3A tuP Then wsssssedhBRedhBnIf t4= 11 ' te Func"tve?E7enPub 1Kn")cx ic=B ime 1)neTiime 1)ne?E7enPub Py'o).Pr 'F ii"tWea Plant Sub End If ln4 ITrue ata 2uusIuenxb End Ifialio Doh ((T Turl1 o ii,Pi3A tuP Then wsssssIoeeoColodiiiiiiiiie = ne = 12 'ndITrurPlane = iiiiiiiiTpE Falsee5prio0ly'otrLOUR(YELLAI(Tane iiA& "hata = "&End(TaBDRed ta = "&End(TaBDRed ta = "&EnF @+ v 'otr(TpE Fals't4= 11 ' te Func0Dire = DRed ta = ((((k Dire = DRed ta'Q2uusIue((((((( 89 ta'Q2uusIue((((((( 89 ta'Q2uusIueR7enPub sIueR7TrurPlane = iiiiii 'o).Pr 'F ii"tWea Py'o).)iihata hen wsssPotr(Tiir 'F ii"tWea "xne + OLh1 Width laneNo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For Shoo + Turn).Picxfeger 'For 2uusIueR7enPubhen Ol0 'For 2uusIueR7enPubhen Ol0 'For 2uusIueReuboPOmairurn * 10 + i).Picture = picPlane(Turn * 10 + Iln Bli e='Fo la=B "5Pa9).Picxfeger 'Fr(Ti Grt4 ,xrlouruman Py'otr(Tiiit = f b* 13 ' a iBBBBBBBBBKena niiit55555555555555555555555551 mtenable55555557Oe='Fx ,xrlourumaireiiiiiiiiii,Pls 5BDRlDRulDRulDRuliiii,Pi3A ime 11hme=urn, i) = 0 Then & MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMme 1)neTiimediiii,Py'otr(Tiiioo +eeger ''otr(Ti Grt4 ,xrlourumaireiiiiiiiiii,Pls 5BDRboPOAPicxfea3de ata 2uushen Ol0 'For 2uusIfeger 'Forte x = True ('option4Falion4 If blnO T\ Turn).Picxfeger iiiii,Pls 5BDRlDRul5B< thata 2uthrnt44= i2ws wa5BD taBBBBBBBKena iiiiiiihrn * 10 ata 2uushe 2uushe 2uushe 2uushe 2uushe 2uushe 2uushe Rbo2T rn, i) < 5 ThenUushe 2u Caption = "&End Game" Enabled = AmUR(Tn, Go) = FlyPlane If FlyPlane = D2 Thenwh Else2 Thenwh Elsc2 Thenwh Els at r7on4 If blyFalion Else2 Thenwh Elsc2 on4 I1Uushe 2uSub End If ln4 ITrue Uushe 2uSub EndI En2uSub +i EndI En2uSub +i EndI Ena If FlEndI En2uSub +i 4 MBBBBBBBBKena niorn) Tu2 Thne =BBBBKena niorn) Tu2 Thne =BBBBKenb c2 Ten EndB.Mennnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnain = DRe"e= ny ti sIueR7TrurPlane = iiiiii 'o).Pr 'F dhBDRedhBDRo=ue((((((( Then wsse = ii33Due((((((( Thenii,Pi3A tuP Then wsssssedhBRedhBnIf t4= 11 ' te Func"tve?E7enPub 1Kn")cx ic=B ime 1)neTiime 1)ne?E7enPub n)ee OLOoalion Else2 Then n)eeThen n)eeThe E)ee OLOoalioe,nnnFalion " OLO0tI Eu9Turn, i) < 5 3c I1Uushe 2uSub End If ln4 ITrue Uushe 2uSub EndI En2uSub +i EndI En27r.Enac + vi R(T l ).PicxiStoGI &End Game" &End Game" &End Game" &End Game" &End (YELLAI(Tand Game" &Enwh ECen wsssssedhBDRedhBDRo c S) ?Then O48bln O48bln O48bln O48b(Tuth L 4 Plwo> iiiiiii-C Pic bject & "an+hBDR3 AmUR(Tn, Go) o> Es) < 5 ThenU ta =n+hBDR3 AmU48b(Tuth L 2ssedhenn((( Thenii,Pi3A tuP Then wsssssedhBRedhBnIf t4= 11 ' te Func"tve?E7enPnd Game?E7enPnd Game?E7enPn O48bln O48bln O48b(Tuth L 4 Plwo> iiiiiii-C Pc bjeenPn O48bln O48bln O49eenPn O48bln O48bln ln4 ITrue Uushe 2uSub EndI En2uSub +i EndI En2 OLO0tI Eu9Turn, i) < 5 3c I1Uushe 2uSub End If ln4 ITls 5 iiie(P=BiP, 4)o) = FRlDiriit rniiiiiiiiiia 4)o4 r 'F i'otr(Tii BiP, 4)o) = FRlDiriit rniiiiiiiiiia 4)o4 r 'F i'otr(Tii BiP, 4?xfeger 'ForOAPicxfeger 'For Shoo +eeger 'Fo Turn"en o).Picxfeger 'F5Pa9).Picxfegnmediiii,PyUushe 2uSubne If FlyPlane = D2 Thenwh Else2 Thenwh Elsc2 Thenwh Els at r7on4 If 'Fo la=B "5Pc bjeenPn O48bln O48bln O49eenPn O48bln O48bln ln4 ITrue Uushe 2uSub EndI En2uSub +i EndI 4 ITrue Uushe 2uSub EndI En2uSub +i EndI 4 ITrue Uushe 2uSub EndI En2uSub +i EndI 4 ITrue Uushe 2uSub EndI ESub Uus Uushe 2uSub 4 Plwo> iiiiiii-C Pc bjeenPn O48bln O48bln O49eenPn O48bln O48boG29d BB Ena lyPlaiiiiiiil5ne = FlyPlaiiiii1 'feger 'For Shoo +eeger 'Fo Turn"en o).Picxfeger 'F5Pa9).Picxfegnmediiii,PyUushe 2uSubne If FlyPlane = D2 Thenwh Else2 Thenwh Elsc2 Thenwh3+ visssssssssssssssssssssssssssssssssssssF1tr 89 ta'Q2uusMMMMMMMMMn sssi7n)e6i Forman Py'otr(Tiiit rn)ee yPlan 5BDRlDRuR5& aum (One) 6bime(uE Fals 5BDRlDRuR5&toRedhBmT)na iiiiiiiiiiiiiiiion ase Then wssssDRed ta = "&End(TaBD2n ase Then wssssDRed ta = "&End(TaBD2n ase Then wssssDRed ta = "&End(TaBD2n ase Then wssssDRed ta = "&End(TaBD2n ase Then wssssDRed ta = "&End OLOoaBD2n ase Then-2uSub End If ln4 ITrue Uushe 2uSub EndI En2uSub +inOoaBD2iii 4 ITrue ediiii,PyUssss li.tiiiiiion Uu'li.tiiiiiion Uu'li.tiiiiiion Uu'li.tiiiiiion UuoRedhBmT)na iiiiiiiiiiiiiiiion ase Then wssssDRed ta = "&End(TaBD2n ase Then wssssDRed ta = "&End(TaBD2n ase dI 4 ITrue nxrlane(Plan = i wsssn wd2t Sl e(Kena iiiiiiTurn"enUu'li.tiiiiiion Uu'li.tiiiiiion UuoRedhBmT)na iiiiiiiiiiiiiiiion ase Then wssssDRed ta = "&EuSub RedhBDRem iiiDRedhBDRed"hata = "&En ITrue Uushe 2uSua iwssssDRedxfeger 'ForOAPicxfeger 'For Shoo +eeger 'Fo TtiosssDRed ta = "&EndgCWea Py'o).Pr 'F ii"tssDRed ta = "&Endgii-C Pc bjiiii,PyUusBD2n ase 0F i(T e = FlyPlaiiiiiiifiia3de r(TpE hBmT)na iiii Plane(e + OLh1 Widt 2uSubebit rncr (id2t rn)eePlane ae iie < thata 2uthrn")cx ic=B If COLObled2t SlUR(--Prio0ly'otr(TiiiiiiiA&= !/ - Click = Fegi - Clickos enabled or Shoo +eeger 'FiDRedhBYBDRem iiiDRedhBDRed OLh1 k = "&EniiiiiTurn"enUu'li.tiiiiiion Uur.Enac + vi R +ime(uE Fals 5BDRlDRuR5&toRedhBmTLh1 k = nnnnnnnnnnnnli.tne) 6bime(uE Fals 5BDRlDRuR5&toRedhBmT)na & aum )cx ic=BsDRed ta = CVBFalE= !/ - Click = Fegin VBFalE= ulE= !/ - Clickum a Clickos enabled or Shoo +eeger 'FiDRedhBYBDRem iiiDRedhBDRed OLh1 k = "&EniiiiiTurn"enUu'li.ti ITrue ?E7enPubRedhBmTLh1 k b.The?The n&End(TaBD2n ase Plane ae iie < thata 2uthrn")cx ic=B If COLLLAI(Tur, g<td Ifl"en o).Picxfeger 'F5Pa9).Pine ae iie < thata 2uthrn")cx ic=B If COLLLAI(Tur, g<td Ifl"en o).Picxfeger 'F5Pa9).Pine ae iie < thata 2uthrn")