Apollo 18: The Moon Missions/990125_1647.ISO/Docking/DOCKING2.FRM

Text File | 1997-05-16 | 101KB | 3,071 lines

VERSION 4.00
Begin VB.Form docking
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Docking with the Lunar Module"
   ClientHeight    =   7140
   ClientLeft      =   1785
   ClientTop       =   1575
   ClientWidth     =   9600
   Height          =   7545
   Left            =   1725
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "DOCKING2.frx":0000
   ScaleHeight     =   7140
   ScaleWidth      =   9600
   Top             =   1230
   Visible         =   0   'False
   Width           =   9720
   Begin VB.Timer Timer3
      Interval        =   50
      Left            =   150
      Top             =   6300
   End
   Begin VB.VScrollBar VScroll1
      Height          =   870
      LargeChange     =   10
      Left            =   6975
      Max             =   100
      TabIndex        =   31
      Top             =   6195
      Width           =   270
   End
   Begin VB.TextBox Text6
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   5910
      TabIndex        =   27
      Text            =   "Text6"
      Top             =   1080
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.TextBox Text5
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   5835
      TabIndex        =   26
      Text            =   "Text5"
      Top             =   735
      Visible         =   0   'False
      Width           =   1980
   End
   Begin VB.TextBox Text4
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H0000FF00&
      Height          =   315
      Left            =   3270
      TabIndex        =   25
      Text            =   "Text4"
      Top             =   1125
      Visible         =   0   'False
      Width           =   1965
   End
   Begin VB.TextBox Text3
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H0000FF00&
      Height          =   315
      Left            =   3270
      TabIndex        =   24
      Text            =   "Text3"
      Top             =   750
      Visible         =   0   'False
      Width           =   2220
   End
   Begin VB.TextBox Text2
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   1065
      TabIndex        =   23
      Text            =   "Text2"
      Top             =   1110
      Visible         =   0   'False
      Width           =   2010
   End
   Begin VB.TextBox Text1
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   1080
      TabIndex        =   22
      Text            =   "Text1"
      Top             =   690
      Visible         =   0   'False
      Width           =   2070
   End
   Begin VB.Timer Timer2
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   2835
      Top             =   7770
   End
   Begin VB.CommandButton Command2
      BackColor       =   &H00C0C0C0&
      Caption         =   "REV"
      Height          =   375
      Index           =   1
      Left            =   5295
      TabIndex        =   21
      Top             =   6555
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton Command2
      Caption         =   "FWD"
      Height          =   375
      Index           =   0
      Left            =   4110
      TabIndex        =   20
      Top             =   6555
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton starlock
      Caption         =   "LOCK"
      Height          =   585
      Left            =   8880
      TabIndex        =   19
      Top             =   6345
      Visible         =   0   'False
      Width           =   600
   End
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   495
      Left            =   9690
      TabIndex        =   18
      Top             =   6690
      Width           =   1215
   End
   Begin VB.PictureBox PicSave
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   8550
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   16
      Top             =   7305
      Width           =   1755
   End
   Begin VB.PictureBox PicWork
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   6705
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   15
      Top             =   7335
      Width           =   1755
   End
   Begin VB.PictureBox PicMask
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   5085
      Picture         =   "DOCKING2.frx":4B444
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   100
      TabIndex        =   14
      Top             =   7350
      Width           =   1500
   End
   Begin VB.PictureBox PicImage
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1410
      Left            =   3420
      Picture         =   "DOCKING2.frx":4DE08
      ScaleHeight     =   94
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   99
      TabIndex        =   13
      Top             =   7365
      Width           =   1485
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   5
      Left            =   10110
      Picture         =   "DOCKING2.frx":50704
      ScaleHeight     =   95
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   9
      Top             =   2385
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   4
      Left            =   10290
      Picture         =   "DOCKING2.frx":537D0
      ScaleHeight     =   95
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   8
      Top             =   1635
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   3
      Left            =   10335
      Picture         =   "DOCKING2.frx":5689C
      ScaleHeight     =   95
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   7
      Top             =   1215
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   2
      Left            =   9825
      Picture         =   "DOCKING2.frx":59968
      ScaleHeight     =   95
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   6
      Top             =   555
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   1
      Left            =   9975
      Picture         =   "DOCKING2.frx":5CA34
      ScaleHeight     =   95
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   5
      Top             =   135
      Width           =   1755
   End
   Begin VB.PictureBox picWorkBG
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00400000&
      ForeColor       =   &H80000008&
      Height          =   4860
      Left            =   4860
      ScaleHeight     =   322
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   635
      TabIndex        =   4
      Top             =   7305
      Width           =   9555
   End
   Begin VB.PictureBox picBGoriginal
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   9030
      Left            =   -9360
      Picture         =   "DOCKING2.frx":5FB00
      ScaleHeight     =   600
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   800
      TabIndex        =   1
      Top             =   7350
      Width           =   12030
   End
   Begin VB.PictureBox picPitMask
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5205
      Left            =   9780
      Picture         =   "DOCKING2.frx":D5244
      ScaleHeight     =   347
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   640
      TabIndex        =   3
      Top             =   4020
      Width           =   9600
   End
   Begin VB.PictureBox picPitSprite
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5205
      Left            =   10005
      Picture         =   "DOCKING2.frx":10BA08
      ScaleHeight     =   347
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   640
      TabIndex        =   2
      Top             =   510
      Width           =   9600
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   55
      Left            =   9960
      Top             =   5865
   End
   Begin VB.PictureBox Picture4
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   7200
      Left            =   0
      Picture         =   "DOCKING2.frx":1421CC
      ScaleHeight     =   480
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   640
      TabIndex        =   0
      Top             =   -15
      Width           =   9600
      Begin VB.PictureBox auxcon
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         Height          =   1425
         Index           =   0
         Left            =   4110
         Picture         =   "DOCKING2.frx":18D610
         ScaleHeight     =   95
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   117
         TabIndex        =   10
         Top             =   5520
         Width           =   1755
         Begin VB.Image auxjoy
            Height          =   300
            Index           =   0
            Left            =   720
            Top             =   225
            Width           =   300
         End
         Begin VB.Image auxjoy
            Height          =   300
            Index           =   1
            Left            =   1035
            Top             =   555
            Width           =   300
         End
         Begin VB.Image auxjoy
            Height          =   300
            Index           =   2
            Left            =   720
            Top             =   870
            Width           =   300
         End
         Begin VB.Image auxjoy
            Height          =   300
            Index           =   3
            Left            =   390
            Top             =   555
            Width           =   300
         End
      End
      Begin VB.PictureBox picBackground
         Appearance      =   0  'Flat
         BackColor       =   &H00000000&
         BorderStyle     =   0  'None
         DragIcon        =   "DOCKING2.frx":1906DC
         ForeColor       =   &H80000008&
         Height          =   5190
         Left            =   0
         Picture         =   "DOCKING2.frx":1909E6
         ScaleHeight     =   346
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   640
         TabIndex        =   17
         Top             =   150
         Width           =   9600
         Begin VB.TextBox splattextbox
            Alignment       =   2  'Center
            BackColor       =   &H00000000&
            ForeColor       =   &H000000FF&
            Height          =   300
            Left            =   1830
            TabIndex        =   30
            Top             =   165
            Visible         =   0   'False
            Width           =   6000
         End
         Begin VB.Label labeltime
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "labeltime"
            ForeColor       =   &H000000FF&
            Height          =   285
            Left            =   7710
            TabIndex        =   29
            Top             =   600
            Visible         =   0   'False
            Width           =   870
         End
      End
      Begin VB.Image dockThrust
         Height          =   330
         Index           =   2
         Left            =   7515
         Picture         =   "DOCKING2.frx":1C71AA
         Top             =   6540
         Width           =   195
      End
      Begin VB.Image dockThrust
         Height          =   330
         Index           =   1
         Left            =   7710
         Picture         =   "DOCKING2.frx":1C774E
         Top             =   6540
         Width           =   195
      End
      Begin VB.Image dockThrust
         Height          =   330
         Index           =   0
         Left            =   7965
         Picture         =   "DOCKING2.frx":1C7CF2
         Top             =   6540
         Width           =   195
      End
      Begin VB.Label Label1
         Caption         =   "Label1"
         Height          =   465
         Left            =   2925
         TabIndex        =   28
         Top             =   675
         Width           =   4215
      End
      Begin VB.Image Image1
         Height          =   585
         Index           =   2
         Left            =   8175
         Picture         =   "DOCKING2.frx":1C8296
         Top             =   5535
         Visible         =   0   'False
         Width           =   870
      End
      Begin VB.Image Image1
         Height          =   570
         Index           =   1
         Left            =   7305
         Picture         =   "DOCKING2.frx":1C8C72
         Top             =   5535
         Visible         =   0   'False
         Width           =   870
      End
      Begin VB.Image Image1
         Height          =   585
         Index           =   0
         Left            =   6435
         Picture         =   "DOCKING2.frx":1C9616
         Top             =   5550
         Visible         =   0   'False
         Width           =   870
      End
      Begin VB.Label distance
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "1000"
         BeginProperty Font
            name            =   "MS Sans Serif"
            charset         =   1
            weight          =   400
            size            =   13.5
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   360
         Left            =   1140
         TabIndex        =   12
         Top             =   6435
         Width           =   600
      End
      Begin VB.Label closerate
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "1000"
         BeginProperty Font
            name            =   "MS Sans Serif"
            charset         =   1
            weight          =   400
            size            =   13.5
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   360
         Left            =   1140
         TabIndex        =   11
         Top             =   5790
         Width           =   600
      End
   End
End
Attribute VB_Name = "docking"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Option Explicit
Dim WaitingToLeave As Boolean
Dim IAMTurnedAround As Boolean
Dim Backward As Integer

' Constant for joystick
Dim JoyInfo As tJoyInfo
Dim RangeWidth As Integer
Dim RangeHeight As Integer
Dim ScrollSpeed As Integer     ' The ship's current turning speed
Rem
Dim topj, leftj, rightj, bottomj, centx, centy, leftX, rightX, topY, bottomY As Long

' Constants for mouse action.
Const NO_BUTTON = 0
Const LBUTTON = 1
Const RBUTTON = 2

' Constants for WaveMix channels

Const BACKGROUND = 0
Const MISSION_CONTROL = 1
Const BUTTONS = 2
Const EFFECTS = 3
Const WARNINGS = 4
Const MCSECOND = 5

Const Gravity = 13 'lunar gravity

Const LUPE = 1
Const NO_LUPE = 0

Const MOONHEIGHT = 1200
' Boolean that indicates if mouse button has been pressed down.
Dim MouseButtonDown As Integer


'-----------------------------------------------------
' BITDEMO1.FRM
' This program demonstrates some of the methods used
' to display bitmaps and sprites.
'-----------------------------------------------------

' The number of pixels to offset the sprite
' each time it is moved.
Const INCREMENT = 1

' Constants for Raster Operations used by BitBlt function.
Const SRCAND = &H8800C6      ' dest = source AND dest
Const SRCCOPY = &HCC0020     ' dest = source
Const SRCPAINT = &HEE0086    ' dest = source OR dest

'Dim Ship(1 To 4) As tShip

' The x and y coordinates for the Sprite
Dim SpriteX As Integer
Dim SpriteY As Integer

' The x and y coordinates for the upper left corner
' of the large bitmap (picBMP).
Dim BackgroundX As Integer
Dim BackgroundY As Integer

' The width and height of the work area bitmap (picWork).
Dim WorkWidth As Integer
Dim WorkHeight As Integer

Dim ldist As Integer
Dim zcomponent As Integer
Dim S4B(51) As String
Dim s4bmask(51) As String
Dim csmDock(51) As String
Dim csmMask(51) As String

Dim DistDrop As Integer
Dim DropTime As Integer
Dim LmAlt As Integer
Dim dirtLevel As Integer
Dim OlddirtLevel As Integer
Dim AltiMeter As Integer
Dim AltiMeterReading As Integer
Dim FwdVel As Single
Dim LatVel As Single
Dim FwdDist As Single
Dim LatDist As Single
Dim Direction As String
Dim PorSta As String
Dim ForRev As String

Rem --- disScreen declarations ---
Dim Box(4, 2) As Integer
Dim poly_clip_min_x, poly_clip_min_y, poly_clip_max_x, poly_clip_max_y As Integer
Dim X1, Y1, X2, Y2 As Integer
Dim ClipReturn, WithClip As Boolean

Rem --- landstuff declarations
Const GREEN = 2
Const LTGREEN = 10
Const LTRED = 12
Const BLACK = 0
'/*****************************************************************************/
Dim Biggy(300, 400) As Integer 'array to hold altitudes
Dim TargetBiggy(300, 400) As Boolean 'array to hold position of target
'Dim NextBiggy(300, 400) As Integer 'array to hold 2nd set of altitudes for hyperclose landing
'Dim NextTargetBiggy(300, 400) As Boolean 'array to hold position of X and C3PO
'Dim GenBiggy(300, 400) As Integer 'array to hold altitudes for general landing other than land site
Dim Display(32, 32) As Integer 'array hold alts for movement
Dim TargetDisplay(32, 32) As Boolean 'array holds target position for movement
Dim Cdisplay(32, 32) As Integer ' array to hold old values for ClearScreen
Dim BluedLine(32) As Integer 'which lines are created
Dim CollisionFlag As Integer 'special cases, mtn, crater, life, death, etc.

'Dim NewMap As Integer '0 is original, 1 is Landing site, 2 is general landing map

Dim Doublein, DoubleStart, DoubleFlag As Integer

'Scaling Constants
Const XSCALE = 17
Const YSCALE = 3
Const SPACING = 8

Dim starty, startx As Integer 'begining position on any map for starting
Dim OldStarty, OldStartx As Integer
Dim xoffset, yoffset As Integer
Dim GraphOffset As Integer
Dim Mag As Single 'Multiplication factor
Dim biggytemp As Integer 'map array
Dim hShift, vShift As Integer 'amounts to move position of radar

Dim pubXpos As Integer
Dim pubYpos As Integer

Dim diedFlag As Boolean
Sub JoyControl(Index As Integer)
  Dim x As Integer

  auxjoy(0).Visible = False
  auxjoy(1).Visible = False
  auxjoy(2).Visible = False
  auxjoy(3).Visible = False

 Select Case Index
   Case Is = 0
     'Ydock = Ydock - 1
     auxcon(0).Picture = auxcon(1).Picture
   Case Is = 1
     'Xdock = Xdock + 1
     auxcon(0).Picture = auxcon(2).Picture
   Case Is = 2
     'Ydock = Ydock + 1
     auxcon(0).Picture = auxcon(3).Picture
   Case Is = 3
     'Xdock = Xdock - 1
     auxcon(0).Picture = auxcon(4).Picture
 End Select

 'x = frmtime.playsound("rcstrst.wav", 3, 0)
End Sub





Sub auxjoy_Click(Index As Integer)
Dim x As Integer
Dim currpath As String
currpath = CDdrive + "\docking\csm4\"

  auxjoy(0).Visible = False
  auxjoy(1).Visible = False
  auxjoy(2).Visible = False
  auxjoy(3).Visible = False

 Select Case Index
   Case Is = 0
     Ydock = Ydock - 1
     auxcon(0).Picture = auxcon(1).Picture
     RCSBurstCount = RCSBurstCount + 1
   Case Is = 1
     Xdock = Xdock + 1
     auxcon(0).Picture = auxcon(2).Picture
     LatVel = 33 * Xdock
     RCSBurstCount = RCSBurstCount + 1
   Case Is = 2
     Ydock = Ydock + 1
     auxcon(0).Picture = auxcon(3).Picture
     RCSBurstCount = RCSBurstCount + 1
   Case Is = 3
     Xdock = Xdock - 1
     auxcon(0).Picture = auxcon(4).Picture
     LatVel = 33 * Xdock
     RCSBurstCount = RCSBurstCount + 1
End Select
  If MissionState = 6 And (Index = 0 Or Index = 2) Then
    x = frmTime.playSound(CDdrive + "\sfx\updwnrcs.wav", EFFECTS, NO_LUPE)
  Else
    x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
  End If
End Sub











Sub Command2_Click(Index As Integer)
  Dim x As Integer
  Dim currpath As String

  currpath = CDdrive + "\docking\csm4\"

  Select Case Index
    Case Is = 0
      If MissionState = 6 Then
        Zdock = Zdock - 1
        FwdVel = -Zdock * 33
      Else
        Zdock = Zdock - 1
      End If
    Case Is = 1
      If MissionState = 6 Then
        Zdock = Zdock + 1
        FwdVel = -Zdock * 33
      Else
        Zdock = Zdock + 1
      End If
  End Select
  If MissionState = 6 Then
    x = frmTime.playSound(CDdrive + "\sfx\updwnrcs.wav", EFFECTS, NO_LUPE)
  Else
    x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
  End If
End Sub

Sub Form_Load()
Dim x As Integer
Dim rc As Long
Randomize

StopEverything = False

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Rem --- set the pallette pref
picBGOriginal.ZOrder 0
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
picBackground.Visible = False
picBackground.Picture = picPitSprite.Picture
MouseButtonDown = NO_BUTTON
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Image1(0).Visible = True
Image1(1).Visible = True
Image1(2).Visible = True
Command2(0).Visible = True
Command2(1).Visible = True
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If StarCrossed Then ' star finder
  Xdock = 0
  Ydock = 0
  LookedForStars = True
  VScroll1.Visible = False
  picBGOriginal = LoadPicture(CDdrive + "\panels\starfind\strfld4.bmp")
  Timer3.Enabled = True
  picBackground.Picture = LoadPicture(CDdrive + "\panels\starfind\strfndw.bmp")
  picPitSprite.Picture = LoadPicture(CDdrive + "\panels\starfind\strfndw.bmp")
  picPitMask.Picture = LoadPicture(CDdrive + "\panels\starfind\strfndm.bmp")
  starlock.Visible = False
  distance.Visible = False
  closerate.Visible = False
  docking.dockThrust(0).Visible = False
  docking.dockThrust(1).Visible = False
  docking.dockThrust(2).Visible = False
  firstXpos = -(Int(Rnd * 500) + 1)
  firstYpos = -(Int(Rnd * 400) + 1)
ElseIf MissionState = 2 Then ' earth orbit
  VScroll1.Visible = False
  starlock.Visible = False
  Xdock = 0
  Ydock = 0
  Zdock = 0
  ldist = 120
  picBGOriginal = LoadPicture(CDdrive + "\docking\csm4\strfld2.bmp")
  S4B(1) = CDdrive + "\docking\s4b\s4b1.bmp"
  S4B(2) = CDdrive + "\docking\s4b\s4b2.bmp"
  S4B(3) = CDdrive + "\docking\s4b\s4b3.bmp"
  S4B(4) = CDdrive + "\docking\s4b\s4b4.bmp"
  S4B(5) = CDdrive + "\docking\s4b\s4b5.bmp"
  S4B(6) = CDdrive + "\docking\s4b\s4b6.bmp"
  S4B(7) = CDdrive + "\docking\s4b\s4b7.bmp"
  S4B(8) = CDdrive + "\docking\s4b\s4b8.bmp"
  S4B(9) = CDdrive + "\docking\s4b\s4b9.bmp"
  S4B(10) = CDdrive + "\docking\s4b\s4b10.bmp"
  S4B(11) = CDdrive + "\docking\s4b\s4b11.bmp"
  S4B(12) = CDdrive + "\docking\s4b\s4b12.bmp"
  S4B(13) = CDdrive + "\docking\s4b\s4b13.bmp"
  S4B(14) = CDdrive + "\docking\s4b\s4b14.bmp"
  S4B(15) = CDdrive + "\docking\s4b\s4b15.bmp"
  S4B(16) = CDdrive + "\docking\s4b\s4b16.bmp"
  S4B(17) = CDdrive + "\docking\s4b\s4b17.bmp"
  S4B(18) = CDdrive + "\docking\s4b\s4b18.bmp"
  s4bmask(1) = CDdrive + "\docking\mask\s4b1m.bmp"
  s4bmask(2) = CDdrive + "\docking\mask\s4b2m.bmp"
  s4bmask(3) = CDdrive + "\docking\mask\s4b3m.bmp"
  s4bmask(4) = CDdrive + "\docking\mask\s4b4m.bmp"
  s4bmask(5) = CDdrive + "\docking\mask\s4b5m.bmp"
  s4bmask(6) = CDdrive + "\docking\mask\s4b6m.bmp"
  s4bmask(7) = CDdrive + "\docking\mask\s4b7m.bmp"
  s4bmask(8) = CDdrive + "\docking\mask\s4b8m.bmp"
  s4bmask(9) = CDdrive + "\docking\mask\s4b9m.bmp"
  s4bmask(10) = CDdrive + "\docking\mask\s4b10m.bmp"
  s4bmask(11) = CDdrive + "\docking\mask\s4b11m.bmp"
  s4bmask(12) = CDdrive + "\docking\mask\s4b12m.bmp"
  s4bmask(13) = CDdrive + "\docking\mask\s4b13m.bmp"
  s4bmask(14) = CDdrive + "\docking\mask\s4b14m.bmp"
  s4bmask(15) = CDdrive + "\docking\mask\s4b15m.bmp"
  s4bmask(16) = CDdrive + "\docking\mask\s4b16m.bmp"
  s4bmask(17) = CDdrive + "\docking\mask\s4b17m.bmp"
  s4bmask(18) = CDdrive + "\docking\mask\s4b18m.bmp"
  Timer1.Enabled = True
  text1.Visible = False
  Text2.Visible = False
  Text3.Visible = False
  Text4.Visible = False
  Text5.Visible = False
  Text6.Visible = False
  labeltime.Visible = False
  SplatTextBox.Visible = False
  distance.Visible = True
  closerate.Visible = True
  docking.dockThrust(0).Visible = False
  docking.dockThrust(1).Visible = False
  docking.dockThrust(2).Visible = False
ElseIf MissionState = 6 Then 'Landing
  lmEng = True
  VScroll1.Visible = True
  starlock.Visible = False
  Xdock = 0
  Ydock = 0
  Zdock = 0
  picBackground.Picture = LoadPicture(CDdrive + "\landsite\lmScren.bmp")
  picPitSprite.Picture = LoadPicture(CDdrive + "\landsite\lmScren.bmp")
  picPitMask.Picture = LoadPicture(CDdrive + "\landsite\lmScrmsk.bmp")
  picImage = LoadPicture(CDdrive + "\landsite\croshair.bmp")
  picPitMask = LoadPicture(CDdrive + "\landsite\croshair.bmp")
  FwdVel = -200
  LmAlt = 1200 '1200
  VScroll1.Value = 50
  xoffset = 133  '  110 - target
  yoffset = 93  '   75 - target
  startx = Int(Rnd * 100) + 50 '50
  starty = Int(Rnd * 100) + 225 '300
  GraphOffset = 0
  hShift = 47 'amount to shift radar
  vShift = 60 'amount to shift radar
  WithClip = True
  Mag = 1
  text1.Visible = True
  Text2.Visible = True
  Text3.Visible = True
  Text4.Visible = True
  Text5.Visible = True
  Text6.Visible = True
  labeltime.Visible = True
  SplatTextBox.Visible = True
  'limits of box
  poly_clip_min_x = 50
  poly_clip_min_y = 80
  poly_clip_max_x = 575
  poly_clip_max_y = 320
  Box(0, 0) = poly_clip_min_x 'top left X
  Box(0, 1) = poly_clip_min_y 'top left Y
  Box(1, 0) = poly_clip_max_x 'top right X
  Box(1, 1) = poly_clip_min_y 'top right Y
  Box(2, 0) = poly_clip_max_x 'bottom right X
  Box(2, 1) = poly_clip_max_y 'bottom right Y
  Box(3, 0) = poly_clip_min_x 'bottom left X
  Box(3, 1) = poly_clip_max_y 'bottom left Y
  loadYvals
  Timer2.Enabled = True
  DockedWithCSM = True
  LmAlt = 1200
  Xdock = 0
  Ydock = 0
  Zdock = -6
  FwdVel = -Zdock * 33
  distance.Visible = True
  closerate.Visible = True
  docking.dockThrust(0).Picture = frmTime.imgdnum(0).Picture
  docking.dockThrust(1).Picture = frmTime.imgdnum(5).Picture
  docking.dockThrust(2).Picture = frmTime.imgdnum(0).Picture
  docking.dockThrust(0).Visible = True
  docking.dockThrust(1).Visible = True
  docking.dockThrust(2).Visible = True
ElseIf MissionState = 8 Then ' moon orbit
  VScroll1.Visible = False
  starlock.Visible = False
  Xdock = 0
  Ydock = 0
  Zdock = 0
  ldist = 120
  picBGOriginal = LoadPicture(CDdrive + "\docking\csm4\strfld3.bmp")
  csmDock(1) = CDdrive + "\docking\CSM\csm1.bmp"
  csmDock(2) = CDdrive + "\docking\CSM\csm2.bmp"
  csmDock(3) = CDdrive + "\docking\CSM\csm3.bmp"
  csmDock(4) = CDdrive + "\docking\CSM\csm4.bmp"
  csmDock(5) = CDdrive + "\docking\CSM\csm5.bmp"
  csmDock(6) = CDdrive + "\docking\CSM\csm6.bmp"
  csmDock(7) = CDdrive + "\docking\CSM\csm7.bmp"
  csmDock(8) = CDdrive + "\docking\CSM\csm8.bmp"
  csmDock(9) = CDdrive + "\docking\CSM\csm9.bmp"
  csmDock(10) = CDdrive + "\docking\CSM\csm10.bmp"
  csmDock(11) = CDdrive + "\docking\CSM\csm11.bmp"
  csmDock(12) = CDdrive + "\docking\CSM\csm12.bmp"
  csmDock(13) = CDdrive + "\docking\CSM\csm13.bmp"
  csmDock(14) = CDdrive + "\docking\CSM\csm14.bmp"
  csmDock(15) = CDdrive + "\docking\CSM\csm15.bmp"
  csmDock(16) = CDdrive + "\docking\CSM\csm16.bmp"
  csmDock(17) = CDdrive + "\docking\CSM\csm17.bmp"
  csmDock(18) = CDdrive + "\docking\CSM\csm18.bmp"
  csmMask(1) = CDdrive + "\docking\cMask\cMask1.bmp"
  csmMask(2) = CDdrive + "\docking\cMask\cMask2.bmp"
  csmMask(3) = CDdrive + "\docking\cMask\cMask3.bmp"
  csmMask(4) = CDdrive + "\docking\cMask\cMask4.bmp"
  csmMask(5) = CDdrive + "\docking\cMask\cMask5.bmp"
  csmMask(6) = CDdrive + "\docking\cMask\cMask6.bmp"
  csmMask(7) = CDdrive + "\docking\cMask\cMask7.bmp"
  csmMask(8) = CDdrive + "\docking\cMask\cMask8.bmp"
  csmMask(9) = CDdrive + "\docking\cMask\cMask9.bmp"
  csmMask(10) = CDdrive + "\docking\cMask\cMask10.bmp"
  csmMask(11) = CDdrive + "\docking\cMask\cMask11.bmp"
  csmMask(12) = CDdrive + "\docking\cMask\cMask12.bmp"
  csmMask(13) = CDdrive + "\docking\cMask\cMask13.bmp"
  csmMask(14) = CDdrive + "\docking\cMask\cMask14.bmp"
  csmMask(15) = CDdrive + "\docking\cMask\cMask15.bmp"
  csmMask(16) = CDdrive + "\docking\cMask\cMask16.bmp"
  csmMask(17) = CDdrive + "\docking\cMask\cMask17.bmp"
  csmMask(18) = CDdrive + "\docking\cMask\cMask18.bmp"
  Timer1.Enabled = True
  text1.Visible = False
  Text2.Visible = False
  Text3.Visible = False
  Text4.Visible = False
  Text5.Visible = False
  Text6.Visible = False
  labeltime.Visible = False
  SplatTextBox.Visible = False
  distance.Visible = True
  closerate.Visible = True
  docking.dockThrust(0).Visible = False
  docking.dockThrust(1).Visible = False
  docking.dockThrust(2).Visible = False
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Rem *** check to see if joystick will be used ***
If joystick = 1 Then
  'Calibrate.Visible = True
  '/* temp vals for joyst */
  rightX = 40000
  leftX = 6200
  topY = 14250
  bottomY = 45251
  rc = BitBlt(picBackground.hDC, SpriteX, SpriteY, picSave.ScaleWidth, picSave.ScaleHeight, picSave.hDC, 0, 0, SRCCOPY)
  'StartGame
Else
  rc = BitBlt(picBackground.hDC, SpriteX, SpriteY, picSave.ScaleWidth, picSave.ScaleHeight, picSave.hDC, 0, 0, SRCCOPY)
  'StartGame
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'tdigs(0) = 0
'tdigs(1) = 5
'tdigs(2) = 0

picBackground.Visible = True
ScrollSpeed = 5


frmTime.Center Me
Me.Visible = True
Me.Show
frmTime.TopperOn 5 'docking to fore

StopEverything = False

If MissionState = 6 Then disScreen

End Sub
Sub Form_Unload(Cancel As Integer)
 ' WAVMIX_Close
 'goGame = 0
If Not CompUnload Then Cancel = 1
  StarCrossed = False
End Sub





Sub Image1_Click(Index As Integer)
  Dim x As Integer


  Select Case Index
    Case Is = 0 'Csm1
      If goodDock = True Or FoundStars = True Then
        TranzFlag = True
        Male = 3 'coming from docking
        StopEverything = True
        If MissionState = 8 Or MissionState = 7 Then
          Female = 2 'going to LM
        Else
          Female = 1 'going to CSM
        End If
      End If
    Case Is = 1 'Dock Lock
      If MissionState = 2 Or MissionState = 8 Then
        goodDock = True
      End If
    Case Is = 2 'Star Finder
      If (pubXpos >= 500 And pubXpos <= 533) Then
        If (pubYpos >= 456 And pubYpos <= 486) Then
          YourLost = False
          x = frmTime.playSound(CDdrive + "\sfx\119sfx81.wav", EFFECTS, NO_LUPE)
          x = frmTime.playSound(CDdrive + "\warnings\starlock.wav", WARNINGS, NO_LUPE)
          FoundStars = True
        End If
      ElseIf (pubXpos >= -295 And pubXpos <= -267) Then
        If (pubYpos >= 456 And pubYpos <= 486) Then
          YourLost = False
          x = frmTime.playSound(CDdrive + "\sfx\119sfx81.wav", EFFECTS, NO_LUPE)
          x = frmTime.playSound(CDdrive + "\warnings\starlock.wav", WARNINGS, NO_LUPE)
          FoundStars = True
        End If
      End If
  End Select

If FoundStars Then
  FoundStars = False
  StarCrossed = False
  WaitingToLeave = True
End If

End Sub



Sub starlock_KeyPress(KeyAscii As Integer)
  Dim LSx1, LSx2, LSy1, LSy2 As Integer
  Dim rc As Long
  Dim row, col, linekount As Integer
  Dim lineColor As Integer

  lineColor = 2
  'clearscreen


If Chr(KeyAscii) = "q" Or Chr(KeyAscii) = "Q" Then
  starty = starty - 5
End If
If Chr(KeyAscii) = "a" Or Chr(KeyAscii) = "A" Then
  starty = starty + 5
End If
If Chr(KeyAscii) = "z" Or Chr(KeyAscii) = "Z" Then
  startx = startx - 5
End If
If Chr(KeyAscii) = "x" Or Chr(KeyAscii) = "X" Then
  startx = startx + 5
End If

If Chr(KeyAscii) = "1" Then
  LmAlt = 25
End If
If Chr(KeyAscii) = "2" Then
  LmAlt = 75
End If
If Chr(KeyAscii) = "3" Then
  LmAlt = 125
End If
If Chr(KeyAscii) = "4" Then
  LmAlt = 175
End If

 Label1.Caption = Str(LmAlt)

  For row = 0 To 31  'start and end line in array
    linekount = row * SPACING
    For col = 0 To 30 '
      LSx1 = col * XSCALE
      LSy1 = (-Display(col, row) * YSCALE) + (linekount * 5)

      LSx2 = (col + 1) * XSCALE
      LSy2 = (-Display(col + 1, row) * YSCALE) + (linekount * 5)

      If row = 24 And col = 15 Then
        picWork.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(14)
      Else
        picWork.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(lineColor)
      End If
    Next
  Next
End Sub


Sub Timer1_Timer()
  Static Xpos, Ypos As Integer
  Static passed_s4b, reorient As Integer
  Static tempd As Integer
  Static turnAroundx As Boolean
  Static turnAroundy As Boolean

  Dim rc As Long
  'Dim xtoken, ytoken As Integer
  'Joystick docking etc.
  Static xComponent As Integer
  Static yComponent As Integer
  Static zcomponent As Integer
  Rem joyst
  Dim x As Integer
  'Dim i As Integer
  Dim WhereAmI, whereisX, whereisY, wheretoken As Integer
  'lblZ = ldist
  Dim currpath As String
  Static NotFirstTime As Boolean

  If RCSBurstCount >= 150 Then Check_For_Crash 999, 999

  If NotFirstTime = False Then 'Need to turn around to dock
    IAMTurnedAround = True
    '''''''''''''''''''
    '''''''''''''''''''
    '''''''''''''''''''
    Xpos = 499
    Ypos = 50
    '''''''''''''''''''
    '''''''''''''''''''
    '''''''''''''''''''
    Xdock = 2
    Ydock = 1
'    ldist = -200
 '   xpos = xpos + 400
    NotFirstTime = True
  End If

  If IAMTurnedAround Then
    Backward = 0
  Else
    Backward = 0
  End If

  Me.Caption = "(24 < " & Xpos & " < 48   ,   -47 < " & Ypos & " < -89)"

  BackGroundSound = 4

  currpath = CDdrive + "\docking\csm4\"

' Command3.Caption = xpos
'Command4.Caption = ypos
    'closerate.Caption = ypos 'turnAroundx
    closerate.Caption = Zdock
    distance.Caption = ldist

    UpdateBackground


'-----------------------------------------------------
' Move the background horizontally under scroller
' control.
'-----------------------------------------------------
    If ldist <= 0 Then
      passed_s4b = 1
      Zdock = -Zdock
      reorient = 1
      distance.Caption = "missed"
    End If

    If passed_s4b = 1 Then
      If Xpos > 500 Or Xpos < -300 Then
        turnAroundx = True
      End If
      If Ypos > 200 And Ypos < 320 Then
        turnAroundy = True
      End If
      If turnAroundx Or turnAroundy Then
        passed_s4b = 0
        'Zdock = -Zdock
        reorient = 0
        turnAroundx = False
        turnAroundy = False
      End If
    End If
    'calculate distance from s4sb
    'If passed_s4b = 1 Then
      Rem hide s4b
    'End If

    ldist = ldist + Zdock

    If ldist <= 140 And ldist > 131 Then tempd = 18
    If ldist <= 130 And ldist > 121 Then tempd = 17
    If ldist <= 120 And ldist > 111 Then tempd = 16
    If ldist <= 110 And ldist > 101 Then tempd = 15
    If ldist <= 100 And ldist > 91 Then tempd = 14
    If ldist <= 90 And ldist > 81 Then tempd = 13
    If ldist <= 80 And ldist > 71 Then tempd = 12
    If ldist <= 70 And ldist > 61 Then tempd = 11
    If ldist <= 60 And ldist > 51 Then tempd = 10
    If ldist <= 50 And ldist > 41 Then tempd = 9
    If ldist <= 40 And ldist > 31 Then tempd = 8
   ' If ldist <= 30 And ldist > 21 Then tempd = 7
   ' If ldist <= 20 And ldist > 10 Then tempd = 6


   If ldist <= 1 And ldist >= -1 Then
     'xtoken = xpos
     'ytoken = ypos
     Check_For_Crash Xpos, Ypos
     Exit Sub
   End If

   If tempd > 5 And tempd < 19 Then
     If MissionState = 2 Then
       picImage = LoadPicture(S4B(tempd))
       picMask = LoadPicture(s4bmask(tempd))
     Else
       picImage = LoadPicture(csmDock(tempd))
       picMask = LoadPicture(csmMask(tempd))
     End If
   End If

Rem ********************************************************************************
    Xpos = Xpos - Xdock

    Ypos = Ypos - Ydock

    Rem --- if x is off left side ---
    If Xpos < -picPitSprite.ScaleWidth + picImage.ScaleWidth Then
      Xpos = 800 - picPitSprite.ScaleWidth + picImage.ScaleWidth
    Else 'if off right side
        If Xpos > 800 - picImage.ScaleWidth Then Xpos = 0 - picImage.ScaleWidth
    End If

    Rem --- if y is off top side ---
    If Ypos < -picImage.ScaleHeight Then
      Ypos = 600 - picImage.ScaleHeight
    Else 'if off bottom
      If Ypos > 600 - picImage.ScaleHeight Then Ypos = 0 - picImage.ScaleHeight
    End If

    ' Copy a section of the large bitmap into the work area.
  rc = BitBlt(picWorkBG.hDC, 0, 0, WorkWidth, WorkHeight, picBGOriginal.hDC, 0, 0, SRCCOPY)


    ' Copy the sprite work area onto the background.
    'rc = BitBlt(picBackground.hDC, 0, 0, WorkWidth, WorkHeight, picWork.hDC, 0, 0, SRCCOPY)
 rc = BitBlt(picWorkBG.hDC, 0, 0, WorkWidth, WorkHeight, picWork.hDC, 0, 0, SRCCOPY)

 If passed_s4b <> 1 Then
  Rem hide s4b if passed_s4b

    ' Draw the sprite mask bitmap into the work area.
 rc = BitBlt(picWorkBG.hDC, Xpos + 80, Ypos + 80, picMask.ScaleWidth, picMask.ScaleHeight, picMask.hDC, 0, 0, SRCAND)
    'draw sprite into the work area
 rc = BitBlt(picWorkBG.hDC, Xpos + 80, Ypos + 80, picImage.ScaleWidth, picImage.ScaleHeight, picImage.hDC, 0, 0, SRCPAINT)

End If 'passed_s4b


    ' Draw the cockpit mask into the work area.
 rc = BitBlt(picWorkBG.hDC, 0, 0, picPitMask.Width, picPitMask.Height, picPitMask.hDC, 0, 0, SRCAND)
    'draw cockpit
 rc = BitBlt(picWorkBG.hDC, 0, 0, picPitMask.Width, picPitMask.Height, picPitSprite.hDC, 0, 0, SRCPAINT)



    'FlickerlessSpriteMove
    ' Draw the whole thing back onto the screen.
    rc = BitBlt(picBackground.hDC, 0, 0, picBackground.Width, picBackground.Height, picWorkBG.hDC, 0, 0, SRCCOPY)


  auxjoy(0).Visible = True
  auxjoy(1).Visible = True
  auxjoy(2).Visible = True
  auxjoy(3).Visible = True
  auxcon(0).Picture = auxcon(5).Picture
 Rem
 Rem
 Rem Joystick

  rc = GetJoyStickPos(JOYSTICK1, JoyInfo)
  If rc = 0 Then
    'imgJoyCursor.Left = RangeWidth * ((JoyInfo.X - JoyCaps.Xmin) / (JoyCaps.Xmax - JoyCaps.Xmin))
    'imgJoyCursor.Top = RangeHeight * ((JoyInfo.Y - JoyCaps.Ymin) / (JoyCaps.Ymax - JoyCaps.Ymin))

'-----------------------------------------------------
' Move the background horizontally under scroller
' control.
'-----------------------------------------------------
  'BackgroundX = HScroll1
  'BackgroundX = HScroll1
 ' rc = BitBlt(picBackground.hDC, 0, 0, picBackground.ScaleWidth, picBackground.ScaleHeight, landsite.hDC, BackgroundX + xComponent, BackgroundY, SRCCOPY)

    'calculate distance from s4sb
    ldist = ldist + zcomponent

  End If

  Rem --- check for left or right
  whereisX = 0

  If JoyInfo.x < leftX Then
    whereisX = -1
  Else
    If JoyInfo.x > rightX Then
      whereisX = 1
    End If
  End If

  Rem --- check for up or down
  whereisY = 0

  If JoyInfo.y < topY Then
    whereisY = -1
  Else
    If JoyInfo.y > bottomY Then
      whereisY = 1
    End If
  End If

  wheretoken = whereisX + whereisY
  WhereAmI = 4

  If wheretoken = 1 Then
    If whereisX = 1 Then
      WhereAmI = 1
    Else
      WhereAmI = 2
    End If
  End If

  If wheretoken = -1 Then
    If whereisY = -1 Then
      WhereAmI = 0
    Else
      WhereAmI = 3
    End If
  End If

  Command1.Caption = WhereAmI


  If WhereAmI <> 4 Then
    Call JoyControl((WhereAmI))
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 1 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Xdock = Xdock + 1
      'xComponent = xComponent + 1
       Call JoyControl(1)
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 3 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Xdock = Xdock - 1
      'xComponent = xComponent - 1
     Call JoyControl(3)
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 2 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Ydock = Ydock + 1
      'yComponent = yComponent + 1
      Call JoyControl(2)
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 0 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Ydock = Ydock - 1
      'yComponent = yComponent - 1
       Call JoyControl(0)
  End If

  If JoyInfo.ButtonDown(2) And WhereAmI = 2 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Zdock = Zdock + 1

  End If

  If JoyInfo.ButtonDown(2) And WhereAmI = 0 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Zdock = Zdock - 1
  End If
  Rem
  Rem
  Rem end joystick
End Sub




Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'----------------------------------------------------------
' Set the module-level MouseButtonDown variable, so that
' the Mouse Control timer knows a button was pushed.
'----------------------------------------------------------

    MouseButtonDown = Button
End Sub

Sub Pause(Seconds As Single)
'------------------------------------------------------------
' Delay for a specified number of seconds.
'------------------------------------------------------------
Dim Start As Single

    Start = Timer
    Do While (Timer - Start) < Seconds
        DoEvents
    Loop
End Sub

Sub StartGame()
'------------------------------------------------------------
' Initialize everything and start the game.
'------------------------------------------------------------
Dim rc As Integer
Dim i As Integer
Static NotFirstTime As Integer
    Dim x As Integer

    picBackground.Visible = True
    ScrollSpeed = 5

    If MissionState = 6 Then 'Landing

      lmEng = True
      Timer1.Enabled = False
      startx = 50 'initialize x value
      starty = 300 'initialize line
'      disScreen 'display starting position
      Timer2.Enabled = True
      text1.Visible = True
      Text2.Visible = True
      picImage = LoadPicture(CDdrive + "\landsite\croshair.bmp")
      picPitMask = LoadPicture(CDdrive + "\landsite\croshair.bmp")
      LmAlt = 1200
      Xdock = 0
      Ydock = 0
      Zdock = -6
      FwdVel = -Zdock * 33
    ElseIf Not StarCrossed Then
      Timer2.Enabled = False
      Timer1.Enabled = True
      text1.Visible = False
      Text2.Visible = False
    End If
End Sub


Sub UpdateBackground()
'------------------------------------------------------------
' The first step in building a new view is to copy the
' next section of the original background onto the working
' background picture box.
'------------------------------------------------------------
'Static LastXdir As Integer
'Static LastYdir As Integer


   '     BGMove picWorkBG, picBGOriginal, LastXdir * 2, LastYdir * 2

   BGMove picWorkBG, picBGOriginal, Xdock, Ydock

   ' End If

End Sub


Sub FlickerlessSpriteMove()
'-----------------------------------------------------
' Moving a sprite without flicker requires the use
' of an off-screen work area into which we copy a
' section of the background and sprite.
'-----------------------------------------------------
Dim rc As Integer
    WorkWidth = 2090
    WorkHeight = 2020
    BackgroundX = SpriteX
    BackgroundY = SpriteY
    ' Calculate the next position for the sprite, and any
    ' necessary direction changes.
    GetNextPos picImage.ScaleWidth, picImage.ScaleHeight

    ' Copy a section of the large bitmap into the work area.
   'rc = BitBlt(picWork.hDC, 0, 0, WorkWidth, WorkHeight, picBGOriginal.hDC, (BackgroundX + SpriteX) - INCREMENT, (BackgroundY + SpriteY) - INCREMENT, SRCCOPY)
   'rc = BitBlt(picWork.hDC, 0, 0, WorkWidth, WorkHeight, picBackground.hDC, (SpriteX), (SpriteY), SRCCOPY)
    rc = BitBlt(picWork.hDC, 0, 0, WorkWidth, WorkHeight, picBGOriginal.hDC, (SpriteX), (SpriteY), SRCCOPY)

    ' Draw the mask and sprite bitmaps into the work area.
    rc = BitBlt(picWork.hDC, INCREMENT, INCREMENT, picMask.ScaleWidth, picMask.ScaleHeight, picMask.hDC, 0, 0, SRCAND)
    rc = BitBlt(picWork.hDC, INCREMENT, INCREMENT, picImage.ScaleWidth, picImage.ScaleHeight, picImage.hDC, 0, 0, SRCPAINT)
    'rc = BitBlt(picWork.hDC, 0, 0, picmask.ScaleWidth, picmask.ScaleHeight, picmask.hDC, 0, 0, SRCAND)
    'rc = BitBlt(picWork.hDC, 0, 0, picImage.ScaleWidth, picImage.ScaleHeight, picImage.hDC, 0, 0, SRCPAINT)

    ' Copy the work area onto the background.
  ' rc = BitBlt(picBackground.hDC, SpriteX - INCREMENT, SpriteY - INCREMENT, WorkWidth, WorkHeight, picWork.hDC, 0, 0, SRCCOPY)
   ' rc = BitBlt(picBackground.hDC, 10, 10, WorkWidth, WorkHeight, picWork.hDC, 0, 0, SRCCOPY)
    rc = BitBlt(picBackground.hDC, 0, 0, WorkWidth, WorkHeight, picWork.hDC, 0, 0, SRCCOPY)

    DoEvents
End Sub

Sub GetNextPos(ByVal AWidth As Integer, ByVal AHeight As Integer)
  '-----------------------------------------------------
  ' Calculate the next position for the sprite, and
  ' make any necessary direction changes.
  '-----------------------------------------------------


  Xdir = Xdock
  Ydir = Ydock

    ' Calculate the new position for the sprite.
    SpriteX = SpriteX + (Xdir)
    SpriteY = SpriteY + (Ydir)

End Sub



Public Sub Check_For_Crash(xtoken, ytoken)
  Dim lmx As Boolean 'lm
  Dim Tx As Boolean 'target
  Dim lmy As Boolean 'lm
  Dim Ty As Boolean 'target
  Dim csmx As Boolean 'Csm
  Dim csmy As Boolean 'Csm
  Dim z As Integer
  Dim WentToForm As Boolean

  If xtoken = 999 And ytoken = 999 Then GoTo CFCENDING

  BackGroundSound = 999

  If MissionState = 2 Then 'docking with LM from CSM
    If xtoken <= 235 + Backward And xtoken >= -35 + Backward Then lmx = True
    If xtoken <= 89 + Backward And xtoken >= 62 + Backward Then Tx = True
    If ytoken <= 90 And ytoken >= -160 Then lmy = True
    If ytoken <= 52 And ytoken >= 26 Then Ty = True
    If Zdock <= 0 And Zdock > -3 Then z = 0
    If Zdock > 0 Then z = -1
    If Zdock <= -3 Then z = 1
  ElseIf MissionState >= 7 Then 'docking with CSM from LM
    If xtoken <= 183 + Backward And xtoken >= -84 + Backward Then csmx = True
    If xtoken <= 48 + Backward And xtoken >= 24 + Backward Then Tx = True
    If ytoken <= 49 And ytoken >= -226 Then csmy = True
    If ytoken <= -47 And ytoken >= -89 Then Ty = True
    If Zdock <= 0 And Zdock > -3 Then z = 0
    If Zdock > 0 Then z = -1
    If Zdock <= -3 Then z = 1
  Else
    Exit Sub
  End If

  If (lmx And lmy) Or (csmx And csmy) Then
    If z = 0 Then 'not too fast
       frmTime.masterTimer.Enabled = False
       Timer1.Enabled = False
       docking.Hide
       If MissionState = 2 Then
         Dock2LM.Show
         WentToForm = True
       ElseIf MissionState >= 7 Then
         Dock2CSM.Show
         WentToForm = True
       End If

      'If Tx And Ty Then
        'docked
      '  distance.Caption = "docked"
      '  Timer1.Enabled = False
      '  Zdock = 0
      '  If MissionState = 8 Then
      '    MissionState = 9
      '  Else
          'what are you doing here then...
      '  End If
      '  frmTime.PlayAVI "success\shot32.avi", 3
      '  youaredead = False
      '  goodDock = True
      'Else
        'missed target - bounced off
      '  distance.Caption = "bounced"
      '  Xdock = -Xdock
      '  Ydock = -Ydock
      '  Zdock = -Zdock

      '  Exit Sub
      'End If
    ElseIf z = -1 Then 'reverse
      'nothing
    Else 'z = 1 too fast
      If (lmx And lmy) Then
        frmTime.PlayAVI "death\shot33.avi", 3
        distance.Caption = "crashed"
        Timer1.Enabled = False
        Zdock = 0
        YouAreDead = True
      Else
        distance.Caption = "missed"
        IAMTurnedAround = Not IAMTurnedAround
        Exit Sub
      End If
    End If
  Else
    distance.Caption = "missed"
    IAMTurnedAround = Not IAMTurnedAround
    Exit Sub
  End If

CFCENDING:

If WentToForm Then
  If MissionState = 2 Then
    CompUnload = True
    Unload Dock2LM
    CompUnload = False
  ElseIf MissionState >= 7 Then
    CompUnload = True
    Unload Dock2CSM
    CompUnload = False
  End If
End If

frmTime.masterTimer.Enabled = True
Me.Visible = False

If MissionState >= 2 And MissionState <= 6 Then
  If Not YouAreDead Then
    fivek = 5
    Met = 615
    StopEverything = True
    OkToDock = False
    Exit Sub
  Else
    fivek = 5
    Met = 565
    StopEverything = True
    OkToDock = False
  End If
ElseIf MissionState >= 7 And MissionState <= 9 Then
  If Not YouAreDead Then
    fivek = 5
    Met = 2185 ''''
    StopEverything = True
    OkToDock = False
  Else
    fivek = 5
    Met = 2175 ''''
    StopEverything = True
    OkToDock = False
  End If
End If

Me.Visible = False

End Sub

Public Sub loadYvals()
  Dim iAutoNumber As Integer
  Dim row, col As Integer
  Dim TheNameOfTheFile As String
  ' ***
  ' *** OPEN DATA FILE AND FILL ARRAY WITH VALUES
  ' ***


  'main matrix load and setup
  iAutoNumber = FreeFile
  Open (CDdrive + "\landsite\terrain.dat") For Input As iAutoNumber
  For row = 0 To 399
    For col = 0 To 299
      Input #iAutoNumber, Biggy(col, row)  'read 1 number
      TargetBiggy(col, row) = False
    Next 'col
  Next 'row
  Close iAutoNumber
  TargetBiggy(133, 93) = True

'  Open (CDdrive + "\landsite\target.dat") For Input As iAutoNumber
'  For row = 0 To 399
'    For col = 0 To 299
'      Input #iAutoNumber, NextBiggy(col, row)  'read 1 number
'      NextTargetBiggy(col, row) = False
'    Next col
'  Next row
'  Close iAutoNumber
'
'  'secondary matrix load and setup
'  Select Case Int(Rnd * 3) + 1
'    Case Is = 1
'      TheNameOfTheFile = CDdrive + "\landsite\rndgrnd1.dat"
'    Case Is = 2
'      TheNameOfTheFile = CDdrive + "\landsite\rndgrnd2.dat"
'    Case Is = 3
'      TheNameOfTheFile = CDdrive + "\landsite\rndgrnd3.dat"
'  End Select
'
'  Open TheNameOfTheFile For Input As iAutoNumber
'  For row = 0 To 399
'    For col = 0 To 299
'      Input #iAutoNumber, GenBiggy(col, row)  'read 1 number
'    Next col
'  Next row
'  Close iAutoNumber
End Sub

Sub Timer2_Timer()
  Static Xpos, Ypos As Integer
  Static passed_s4b, reorient As Integer
  Static tempd As Integer
  Dim rc As Long
  Dim xtoken, ytoken As Integer
  'Joystick docking etc.
  Static xComponent As Integer
  Static yComponent As Integer
  Static zcomponent As Integer
  Rem joyst
  Dim x As Integer
  'Dim i As Integer
  'lblZ = ldist
  Dim currpath As String
  Dim TrueDist As Single
  Dim TrueVel As Single
  Dim ClosRate As Double
  Dim RobsAlt As Single
  Dim RobsDistDrop As Single
  Static Duration As Integer
  Dim contThrustEffect As Single
  Dim contThrustResult As Integer
  Static WasHolding As Boolean

  'If RCSBurstCount >= 150 Then collision 0

  'Zdock = FwdVel / 28
  'clearScreen
 starty = starty + Zdock
 startx = startx + Xdock

'update distances
FwdDist = 33 * (starty + DoubleStart + (24 / Mag))
LatDist = 33 * (startx + DoubleStart + (16 / Mag))

TrueDist = Sqr((LmAlt) ^ 2 + (FwdDist) ^ 2 + (LatDist) ^ 2)
If TrueDist <> 0 Then
  RobsAlt = LmAlt ' counteract overflow problem
  RobsDistDrop = DistDrop ' counteract overflow problem
  ClosRate = ((LatDist * LatVel) + (FwdDist * FwdVel) + (RobsAlt * RobsDistDrop)) / TrueDist
Else
  ClosRate = 0
End If

Rem ******* DISPLAYS **********
text1.Text = "True Alt = " + Str(AltiMeterReading)
Text2.Text = "Your X " + Str(startx + 16) '"fuel"
Text3.Text = Direction
Text4.Text = "Your Y " + Str(starty + 16) '"RCS"
Text5.Text = "Fwd Vel = " + Str(FwdVel)
Text6.Text = "Lat Vel = " + Str(LatVel)

distance.Caption = Str(Int(TrueDist))
closerate.Caption = Str(Int(ClosRate))

labeltime.Caption = Duration

'If Duration = 20000 Then
'   labeltime.Caption = "too bad!!"
'Else
   Duration = Duration + 1 ' your 40 of life!!!
'End If

landstuff
If StopEverything Then
  Timer2.Enabled = False
  Exit Sub
End If

If diedFlag = True Then Exit Sub 'bail

disScreen
If StopEverything Then
  Timer2.Enabled = False
  Exit Sub
End If

auxjoy(0).Visible = True
auxjoy(1).Visible = True
auxjoy(2).Visible = True
auxjoy(3).Visible = True
auxcon(0).Picture = auxcon(5).Picture

'contThrustEffect = -(2 * contThrust / 100) * GRAVITY + GRAVITY
contThrustEffect = (2 * contThrust / 100) * Gravity + Gravity
DropTime = DropTime + Ydock * 2.75
DistDrop = -Int(((contThrustEffect) * DropTime) + Ydock * 2.75 * 3)

Ydock = 0

LmAlt = LmAlt + DistDrop

If contThrust <= 45 Then
  If DropTime < 0 Then DropTime = 0
  DropTime = DropTime + 1
ElseIf contThrust > 45 And contThrust < 55 Then
  DropTime = 0
Else
  If DropTime > 0 Then DropTime = 0
  DropTime = DropTime - 1
End If



End Sub



Public Sub LeadLine(curline As Integer)
  Dim col As Integer
  Dim LSx1, LSx2, LSy1, LSy2 As Integer
  Dim linekount As Integer

  linekount = curline * SPACING

  For col = 0 To 30 '
    'newvalues for new lines
    LSx1 = col * XSCALE + hShift
    LSy1 = (-Display(col, curline) * YSCALE) + (linekount) + GraphOffset + vShift

    LSx2 = (col + 1) * XSCALE + hShift
    LSy2 = (-Display(col + 1, curline) * YSCALE) + (linekount) + GraphOffset + vShift

    If WithClip = True Then
      ClipLine LSx1, LSy1, LSx2, LSy2 'newline with clip
      If StopEverything Then Exit Sub
      If ClipReturn = True Then
        picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(10)
      End If

    Else 'no cliping
      picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(10)
    End If
  Next 'col
  DoEvents

End Sub

Public Sub disScreen()
  Dim LSx1 As Integer, LSx2 As Integer, LSy1 As Integer, LSy2 As Integer
  Dim rc As Long
  Dim row As Integer, col As Integer, linekount, blinekount, tempkount As Integer
  Dim dirtLevel As Integer
  Dim x As Long
  Static HoldOffset As Integer
  Dim target As Boolean
  Dim Q As Integer

  'DrawBox 'displays limits of clipping

  Select Case Doublein ' offsetting the screen values
     Case Is = 1
        GraphOffset = Mag * SPACING
     Case Is = 2
        GraphOffset = Mag * SPACING ^ 1.5
     Case Is = 4
        GraphOffset = Mag * SPACING ^ 1.75
     Case Is = 8
        GraphOffset = Mag * SPACING ^ 1.85
     Case Is = 16
        GraphOffset = Mag * SPACING ^ 2
  End Select

  ' *** DISPLAY CONTENTS OF ARRAY
  ' *** ON SCREEN
  ' ***
  For row = 0 To 8  'start and end line in array
    blinekount = row * SPACING

    For col = 0 To 30 '
      X1 = col * XSCALE + hShift
      Y1 = (-Cdisplay(col, row) * YSCALE) + (blinekount) + HoldOffset + vShift
      X2 = (col + 1) * XSCALE + hShift
      Y2 = (-Cdisplay(col + 1, row) * YSCALE) + (blinekount) + HoldOffset + vShift
      If WithClip Then
        ClipLine X1, Y1, X2, Y2
        If ClipReturn Then
          picBackground.Line (X1, Y1)-(X2, Y2), QBColor(0)
        End If
      Else
        picBackground.Line (X1, Y1)-(X2, Y2), QBColor(0)
      End If
      Cdisplay(col, row) = Display(col, row) 'load current value into backup array
    Next
    Cdisplay(col, row) = Display(31, row)
    joyPolling 'here is a joystick call
  Next

  tempkount = blinekount

  For row = 0 To 31  'start and end line in array

    linekount = row * SPACING
    blinekount = linekount + tempkount + SPACING

    For col = 0 To 30 '
      If row <= 22 Then
        X1 = col * XSCALE + hShift
        Y1 = (-Cdisplay(col, row + 9) * YSCALE) + (blinekount) + HoldOffset + vShift
        X2 = (col + 1) * XSCALE + hShift
        Y2 = (-Cdisplay(col + 1, row + 9) * YSCALE) + (blinekount) + HoldOffset + vShift
      End If
      'If row <= 22 Then
      '  Cdisplay(col, row + 9) = Display(col, row + 9)
      'End If
      'newvalues for new lines
      LSx1 = col * XSCALE + hShift
      LSy1 = (-Display(col, row) * YSCALE) + (linekount) + GraphOffset + vShift
      LSx2 = (col + 1) * XSCALE + hShift
      LSy2 = (-Display(col + 1, row) * YSCALE) + (linekount) + GraphOffset + vShift

      If WithClip Then 'Clipped

        If row <= 22 Then
          ClipLine X1, Y1, X2, Y2 'blankline
          If StopEverything Then Exit Sub
          If ClipReturn = True Then
            picBackground.Line (X1, Y1)-(X2, Y2), QBColor(0)
          End If
        End If

        ClipLine LSx1, LSy1, LSx2, LSy2 'green line
        If StopEverything Then Exit Sub
        If ClipReturn Then 'draw if clipped properly
          picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(BluedLine(row))

          If TargetDisplay(col, row) Then
             target = True
          End If

          If target Then 'the target
            picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(12)
          End If

        End If 'if Clipreturn

      Else 'not clipped
        If row <= 22 Then
          picBackground.Line (X1, Y1)-(X2, Y2), QBColor(0) 'unclipped blankline
        End If
          picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(BluedLine(row)) 'unclipped green

          If TargetDisplay(col, row) = True Then
             target = True
          End If

          If target Then 'the target
            picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(12)
            'x = ellipse(picBackGround.hDC, LSx1, LSy1, LSx2 + 10, LSy2 + 10)
          End If
      End If
      target = False

      If row = 24 And col = 16 Then '>XZX< check for collision >XZX<
        picBackground.Line (LSx1, LSy1)-(LSx2, LSy2), QBColor(14)
      End If

      If row <= 22 Then 'copy ys over to Cdisplay
        Cdisplay(col, row + 9) = Display(col, row + 9)
      End If

    Next 'col
    Cdisplay(col, row) = Display(31, row)

    If row <= 22 Then 'Copy last Y position
        Cdisplay(col + 1, row + 9) = Display(col + 1, row + 9) 'load current value into backup array
    End If

    If row <= 30 Then 'draw leadline
      LeadLine row + 1
      If StopEverything Then Exit Sub
    End If
    joyPolling
    If StopEverything Then Exit Sub
  Next 'row
'yoffset = yoffset - 1

HoldOffset = GraphOffset

For Q = 0 To 3
  auxjoy(Q).Enabled = True
  Command2(Int(Q / 2)).Enabled = True
Next Q
x = frmTime.playSound(CDdrive + "\sfx\55sfx27.wav", EFFECTS, NO_LUPE)

End Sub

Public Sub ClipLine(X1, Y1, X2, Y2)
  'int Clip_Line(int *x1,int *y1,int *x2, int *y2)
  ' //////////////////////////////////////////////////////////////////////////////
  '// this function clips the sent line using the globally defined clipping
  '// region

  Dim point_1, point_2 As Integer   '// tracks if each end point is visible or invisible

  Dim clip_always    '// used for clipping override

  Dim xi, yi As Integer '// point of intersection

  '// which edges are the endpoints beyond
  Dim right_edge, left_edge, top_edge, bottom_edge As Integer

  Dim success As Integer      '// was there a successfull clipping

  Dim Dx, dY As Single        '// used to holds slope deltas

' //////////////////////////////////////////////////////////////////////////////
  point_1 = 0
  point_2 = 0
  clip_always = 0
  right_edge = 0 '// which edges are the endpoints beyond
  left_edge = 0
  top_edge = 0
  bottom_edge = 0
  success = 0

'// SECTION 1 //////////////////////////////////////////////////////////////////
'// test if line is completely visible

If ((X1 >= poly_clip_min_x) And (X1 <= poly_clip_max_x) And (Y1 >= poly_clip_min_y) And (Y1 <= poly_clip_max_y)) Then point_1 = 1

If ((X2 >= poly_clip_min_x) And (X2 <= poly_clip_max_x) And (Y2 >= poly_clip_min_y) And (Y2 <= poly_clip_max_y)) Then point_2 = 1

'// SECTION 2 /////////////////////////////////////////////////////////////////
'// test endpoints
'both endpoints are good
If (point_1 = 1 And point_2 = 1) Then
  ClipReturn = True 'return(success);
  Exit Sub 'then return(1)
End If

'// SECTION 3 /////////////////////////////////////////////////////////////////
'// test if line is completely invisible
  'entire line is outside box
  If (point_1 = 0 And point_2 = 0) Then
    '// must test to see if each endpoint is on the same side of one of
    '// the bounding planes created by each clipping region boundary
      If (((X1 < poly_clip_min_x) And (X2 < poly_clip_min_x)) Or ((X1 > poly_clip_max_x) And (X2 > poly_clip_max_x)) Or ((Y1 < poly_clip_min_y) And (Y2 < poly_clip_min_y)) Or ((Y1 > poly_clip_max_y) And (Y2 > poly_clip_max_y))) Then
        ClipReturn = False
        Exit Sub 'return(0); no need to draw line
      End If 'invisible
    '// if we got here we have the special case where the line cuts into and
    '// out of the clipping region
    clip_always = 1
  End If 'test for invisibly

'// SECTION 4 /////////////////////////////////////////////////////////////////
'// take care of case where either endpoint is in clipping region

  'If ((point_1 = 1) Or (point_2 = 1) Or (point_1 = 0 And point_2 = 0)) Then
  'left endpoint or both endpoints lie outside of box
  If ((point_1 = 1) Or (point_1 = 0 And point_2 = 0)) Then
    '/ compute deltas
    Dx = X2 - X1
    dY = Y2 - Y1
    '// compute what boundary line need to be clipped against
    If (X2 > poly_clip_max_x) Then 'right edge
      right_edge = 1 '// flag right edge
      '// compute intersection with right edge
      If (Dx <> 0) Then
        yi = Int(0.5 + (dY / Dx) * (poly_clip_max_x - X1) + Y1)
      Else
        yi = -1  '// invalidate intersection
      End If
     'End If 'to right

    ElseIf (X2 < poly_clip_min_x) Then 'left edge
      left_edge = 1  '/ flag left edge
      '// compute intersection with left edge
      If (Dx <> 0) Then
        yi = Int(0.5 + (dY / Dx) * (poly_clip_min_x - X1) + Y1)
      Else
        yi = -1 '// invalidate intersection
      End If
    'End If 'to left

     '// horizontal intersections

     ElseIf (Y2 > poly_clip_max_y) Then 'bottom edge
       bottom_edge = 1 '// flag bottom edge
       '// compute intersection with right edge
       If (dY <> 0) Then
         xi = Int(0.5 + (Dx / dY) * (poly_clip_max_y - Y1) + X1)
       Else
         xi = -1  '// invalidate inntersection
       End If
    ' End If 'bottom

     ElseIf (Y2 < poly_clip_min_y) Then 'top edge
       top_edge = 1 '// flag top edge
       '// compute intersection with top edge
       If (dY <> 0) Then
         xi = Int(0.5 + (Dx / dY) * (poly_clip_min_y - Y1) + X1)
       Else
         xi = -1  '// invalidate inntersection
       End If
     End If 'top
'// SECTION 5 /////////////////////////////////////////////////////////////////
'   // now we know where the line passed thru
'   // compute which edge is the proper intersection
    If (right_edge = 1 And (yi >= poly_clip_min_y And yi <= poly_clip_max_y)) Then
        X2 = poly_clip_max_x
        Y2 = yi
        success = 1
    'End If 'intersected right edge
    ElseIf (left_edge = 1 And (yi >= poly_clip_min_y And yi <= poly_clip_max_y)) Then
       X2 = poly_clip_min_x
       Y2 = yi
       success = 1
    End If 'intersected left edge

   If (bottom_edge = 1 And (xi >= poly_clip_min_x And xi <= poly_clip_max_x)) Then
     X2 = xi
     Y2 = poly_clip_max_y
     success = 1
   'End If 'intersected bottom edge

   ElseIf (top_edge = 1 And (xi >= poly_clip_min_x And xi <= poly_clip_max_x)) Then
      X2 = xi
      Y2 = poly_clip_min_y
      success = 1
   End If 'intersected top edge

 End If 'point_1 is visible

'// SECTION 6 /////////////////////////////////////////////////////////////////
'// reset edge flags
 right_edge = 0
 left_edge = 0
 top_edge = 0
 bottom_edge = 0

'// test second endpoint
If ((point_2 = 1) Or (point_1 = 0 And point_2 = 0)) Then
  '   // compute deltas
  Dx = X1 - X2
  dY = Y1 - Y2
  '  // compute what boundary line need to be clipped against
  If (X1 > poly_clip_max_x) Then
    right_edge = 1 '// flag right edge
    '// compute intersection with right edge
    If (Dx <> 0) Then
      yi = Int(0.5 + (dY / Dx) * (poly_clip_max_x - X2) + Y2)
    Else
      yi = -1  '// invalidate inntersection
    End If '// to right
  ElseIf (X1 < poly_clip_min_x) Then
    left_edge = 1 '// flag left edge @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '// compute intersection with left edge
    If (Dx <> 0) Then
      yi = Int(0.5 + (dY / Dx) * (poly_clip_min_x - X2) + Y2)
    Else
      yi = -1  '// invalidate intersection
    End If 'to left
  '// horizontal intersections

  ElseIf (Y1 > poly_clip_max_y) Then
    '// flag bottom edge
    bottom_edge = 1
    '// compute intersection with right edge
    If (dY <> 0) Then
      xi = Int(0.5 + (Dx / dY) * (poly_clip_max_y - Y2) + X2)
    Else
      xi = -1  '// invalidate inntersection
    End If 'bottom
  ElseIf (Y1 < poly_clip_min_y) Then
    '// flag top edge
    top_edge = 1
    '// compute intersection with top edge
    If (dY <> 0) Then
      xi = Int(0.5 + (Dx / dY) * (poly_clip_min_y - Y2) + X2)
    Else
      xi = -1   '// invalidate inntersection
    End If 'top
  End If
    '// now we know where the line passed thru
    '// compute which edge is the proper intersection
    If (right_edge = 1 And (yi >= poly_clip_min_y And yi <= poly_clip_max_y)) Then
      X1 = poly_clip_max_x
      Y1 = yi
      success = 1
    End If 'intersected right edge
    If (left_edge = 1 And (yi >= poly_clip_min_y And yi <= poly_clip_max_y)) Then
    X1 = poly_clip_min_x
    Y1 = yi
    success = 1
    End If 'intersected left edge

    If (bottom_edge = 1 And (xi >= poly_clip_min_x And xi <= poly_clip_max_x)) Then
      X1 = xi
      Y1 = poly_clip_max_y
      success = 1
    End If 'intersected bottom edge

   If (top_edge = 1 And (xi >= poly_clip_min_x And xi <= poly_clip_max_x)) Then
     X1 = xi
     Y1 = poly_clip_min_y
     success = 1
   End If 'intersected top edge
 End If 'point_2 is visible

'// SECTION 7 /////////////////////////////////////////////////////////////////
If success = 1 Then
  ClipReturn = True 'return(success);
Else
  ClipReturn = False
End If
' // end Clip_Line
End Sub

Public Sub landstuff()
 Dim biggyx, biggyy As Integer
 Dim x As Integer
 Dim y As Integer
 Dim Temporary(32, 32) As Single
 Dim TempTarget(32, 32) As Boolean
 Dim Q As Integer
 Static GotoLanding As Boolean

'""""""""""""""""determine display matrix step and offset"""""""""""""""""""
If LmAlt >= 1000 Then 'you are ok mag factor 0
  DoubleFlag = 0
  Doublein = 1
  DoubleStart = 0
  Mag = 1
ElseIf LmAlt >= 750 Then 'you are ok mag factor 1
  DoubleFlag = 1
  Doublein = 2
  DoubleStart = 8
  Mag = 2
ElseIf LmAlt >= 500 Then 'you are ok mag factor 2
  DoubleFlag = 3
  Doublein = 4
  DoubleStart = 12
  Mag = 4
ElseIf LmAlt >= 400 Then
  DoubleFlag = 3
  Doublein = 4
  DoubleStart = 12
  Mag = 4
  GotoLanding = True
ElseIf LmAlt < 400 Then
  DoubleFlag = 3
  Doublein = 4
  DoubleStart = 12
  Mag = 4
  GotoLanding = True
'ElseIf LmAlt < 400 Then 'you are ok mag factor 3
'  GotoLanding = True
'  DoubleFlag = 3
'  Doublein = 4
'  DoubleStart = 12
'  Mag = 4
End If

blueLine DoubleFlag

'"""""""""""""""""""""""""""""""""""""""y maginification"""""""""""""""""""""""""""""""""""
biggyy = DoubleStart + starty - 1
For y = starty To starty + 31 Step Doublein 'these indices are stepped depending on mag factor
  biggyy = biggyy + 1
  biggyx = DoubleStart + startx - 1
  For x = startx To startx + 31
    biggyx = biggyx + 1
    Select Case DoubleFlag
      Case Is = 0
        Temporary(x - startx, y - starty) = (1 + Biggy(biggyx, biggyy)) * Mag

        TempTarget(x - startx, y - starty) = TargetBiggy(biggyx, biggyy)
      Case Is = 1
        Temporary(x - startx, y - starty) = (2 + Biggy(biggyx, biggyy)) * Mag
        Temporary(x - startx, y - starty + 1) = (2 + 0.5 * Biggy(biggyx, biggyy) + 0.5 * Biggy(biggyx, biggyy + 1)) * Mag

        TempTarget(x - startx, y - starty) = TargetBiggy(biggyx, biggyy)
        TempTarget(x - startx, y - starty + 1) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
      Case Is = 3
        Temporary(x - startx, y - starty) = (4 + Biggy(biggyx, biggyy)) * Mag
        Temporary(x - startx, y - starty + 1) = (4 + 0.75 * Biggy(biggyx, biggyy) + 0.25 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 2) = (4 + 0.5 * Biggy(biggyx, biggyy) + 0.5 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 3) = (4 + 0.25 * Biggy(biggyx, biggyy) + 0.75 * Biggy(biggyx, biggyy + 1)) * Mag

        TempTarget(x - startx, y - starty) = TargetBiggy(biggyx, biggyy)
        TempTarget(x - startx, y - starty + 1) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 2) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 3) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
      Case Is = 7
        Temporary(x - startx, y - starty) = (8 + Biggy(biggyx, biggyy)) * Mag
        Temporary(x - startx, y - starty + 1) = (8 + 0.875 * Biggy(biggyx, biggyy) + 0.125 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 2) = (8 + 0.75 * Biggy(biggyx, biggyy) + 0.25 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 3) = (8 + 0.625 * Biggy(biggyx, biggyy) + 0.375 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 4) = (8 + 0.5 * Biggy(biggyx, biggyy) + 0.5 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 5) = (8 + 0.375 * Biggy(biggyx, biggyy) + 0.625 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 6) = (8 + 0.25 * Biggy(biggyx, biggyy) + 0.75 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 7) = (8 + 0.125 * Biggy(biggyx, biggyy) + 0.875 * Biggy(biggyx, biggyy + 1)) * Mag

        TempTarget(x - startx, y - starty) = TargetBiggy(biggyx, biggyy)
        TempTarget(x - startx, y - starty + 1) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 2) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 3) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 4) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 5) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 6) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 7) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
      Case Is = 15
        Temporary(x - startx, y - starty) = (16 + Biggy(biggyx, biggyy)) * Mag
        Temporary(x - startx, y - starty + 1) = (16 + 0.9375 * Biggy(biggyx, biggyy) + 0.0625 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 2) = (16 + 0.875 * Biggy(biggyx, biggyy) + 0.125 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 3) = (16 + 0.8125 * Biggy(biggyx, biggyy) + 0.1875 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 4) = (16 + 0.75 * Biggy(biggyx, biggyy) + 0.25 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 5) = (16 + 0.6875 * Biggy(biggyx, biggyy) + 0.3125 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 6) = (16 + 0.625 * Biggy(biggyx, biggyy) + 0.375 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 7) = (16 + 0.5625 * Biggy(biggyx, biggyy) + 0.4375 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 8) = (16 + 0.5 * Biggy(biggyx, biggyy) + 0.5 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 9) = (16 + 0.4375 * Biggy(biggyx, biggyy) + 0.5625 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 10) = (16 + 0.375 * Biggy(biggyx, biggyy) + 0.625 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 11) = (16 + 0.3125 * Biggy(biggyx, biggyy) + 0.6875 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 12) = (16 + 0.25 * Biggy(biggyx, biggyy) + 0.75 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 13) = (16 + 0.1875 * Biggy(biggyx, biggyy) + 0.8125 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 14) = (16 + 0.125 * Biggy(biggyx, biggyy) + 0.875 * Biggy(biggyx, biggyy + 1)) * Mag
        Temporary(x - startx, y - starty + 15) = (16 + 0.0625 * Biggy(biggyx, biggyy) + 0.9375 * Biggy(biggyx, biggyy + 1)) * Mag

        TempTarget(x - startx, y - starty) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 1) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 2) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 3) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 4) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 5) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 6) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 7) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 8) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 9) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 10) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 11) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 12) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 13) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 14) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
        TempTarget(x - startx, y - starty + 15) = TargetBiggy(biggyx, biggyy) Or TargetBiggy(biggyx, biggyy + 1)
    End Select
  Next x
Next y

'""""""""""""""""""""""""""""""""""""x magnification"""""""""""""""""""""""""""""""""""""
biggyx = -1
For x = 0 To 31 Step Doublein 'these indices are stepped depending on mag factor
  biggyx = biggyx + 1
  biggyy = -1
  For y = 0 To 31
  biggyy = biggyy + 1
    Select Case DoubleFlag
      Case Is = 0
        Display(x, y) = 1 + Temporary(biggyx, biggyy)

        TargetDisplay(x, y) = TempTarget(biggyx, biggyy)
      Case Is = 1
        Display(x, y) = 2 + Temporary(biggyx, biggyy)
        Display(x + 1, y) = (2 + 0.5 * Temporary(biggyx, biggyy) + 0.5 * Temporary(biggyx + 1, biggyy))

        TargetDisplay(x, y) = TempTarget(biggyx, biggyy)
        TargetDisplay(x + 1, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
      Case Is = 3
        Display(x, y) = 4 + Temporary(biggyx, biggyy)
        Display(x + 1, y) = (4 + 0.75 * Temporary(biggyx, biggyy) + 0.25 * Temporary(biggyx + 1, biggyy))
        Display(x + 2, y) = (4 + 0.5 * Temporary(biggyx, biggyy) + 0.5 * Temporary(biggyx + 1, biggyy))
        Display(x + 3, y) = (4 + 0.25 * Temporary(biggyx, biggyy) + 0.75 * Temporary(biggyx + 1, biggyy))

        TargetDisplay(x, y) = TempTarget(biggyx, biggyy)
        TargetDisplay(x + 1, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 2, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 3, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
      Case Is = 7
        Display(x, y) = 8 + Temporary(biggyx, biggyy)
        Display(x + 1, y) = (8 + 0.875 * Temporary(biggyx, biggyy) + 0.125 * Temporary(biggyx + 1, biggyy))
        Display(x + 2, y) = (8 + 0.75 * Temporary(biggyx, biggyy) + 0.25 * Temporary(biggyx + 1, biggyy))
        Display(x + 3, y) = (8 + 0.625 * Temporary(biggyx, biggyy) + 0.375 * Temporary(biggyx + 1, biggyy))
        Display(x + 4, y) = (8 + 0.5 * Temporary(biggyx, biggyy) + 0.5 * Temporary(biggyx + 1, biggyy))
        Display(x + 5, y) = (8 + 0.375 * Temporary(biggyx, biggyy) + 0.625 * Temporary(biggyx + 1, biggyy))
        Display(x + 6, y) = (8 + 0.25 * Temporary(biggyx, biggyy) + 0.75 * Temporary(biggyx + 1, biggyy))
        Display(x + 7, y) = (8 + 0.125 * Temporary(biggyx, biggyy) + 0.875 * Temporary(biggyx + 1, biggyy))

        TargetDisplay(x, y) = TempTarget(biggyx, biggyy)
        TargetDisplay(x + 1, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 2, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 3, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 4, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 5, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 6, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 7, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
      Case Is = 15
        Display(x, y) = 16 + Temporary(biggyx, biggyy)
        Display(x + 1, y) = (16 + 0.9375 * Temporary(biggyx, biggyy) + 0.0625 * Temporary(biggyx + 1, biggyy))
        Display(x + 2, y) = (16 + 0.875 * Temporary(biggyx, biggyy) + 0.125 * Temporary(biggyx + 1, biggyy))
        Display(x + 3, y) = (16 + 0.8125 * Temporary(biggyx, biggyy) + 0.1875 * Temporary(biggyx + 1, biggyy))
        Display(x + 4, y) = (16 + 0.75 * Temporary(biggyx, biggyy) + 0.25 * Temporary(biggyx + 1, biggyy))
        Display(x + 5, y) = (16 + 0.6875 * Temporary(biggyx, biggyy) + 0.3125 * Temporary(biggyx + 1, biggyy))
        Display(x + 6, y) = (16 + 0.625 * Temporary(biggyx, biggyy) + 0.375 * Temporary(biggyx + 1, biggyy))
        Display(x + 7, y) = (16 + 0.5625 * Temporary(biggyx, biggyy) + 0.4375 * Temporary(biggyx + 1, biggyy))
        Display(x + 8, y) = (16 + 0.5 * Temporary(biggyx, biggyy) + 0.5 * Temporary(biggyx + 1, biggyy))
        Display(x + 9, y) = (16 + 0.4375 * Temporary(biggyx, biggyy) + 0.5625 * Temporary(biggyx + 1, biggyy))
        Display(x + 10, y) = (16 + 0.375 * Temporary(biggyx, biggyy) + 0.625 * Temporary(biggyx + 1, biggyy))
        Display(x + 11, y) = (16 + 0.3125 * Temporary(biggyx, biggyy) + 0.6875 * Temporary(biggyx + 1, biggyy))
        Display(x + 12, y) = (16 + 0.25 * Temporary(biggyx, biggyy) + 0.75 * Temporary(biggyx + 1, biggyy))
        Display(x + 13, y) = (16 + 0.1875 * Temporary(biggyx, biggyy) + 0.8125 * Temporary(biggyx + 1, biggyy))
        Display(x + 14, y) = (16 + 0.125 * Temporary(biggyx, biggyy) + 0.875 * Temporary(biggyx + 1, biggyy))
        Display(x + 15, y) = (16 + 0.0625 * Temporary(biggyx, biggyy) + 0.9375 * Temporary(biggyx + 1, biggyy))

        TargetDisplay(x, y) = TempTarget(biggyx, biggyy)
        TargetDisplay(x + 1, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 2, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 3, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 4, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 5, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 6, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 7, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 8, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 9, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 10, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 11, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 12, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 13, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 14, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
        TargetDisplay(x + 15, y) = TempTarget(biggyx + 1, biggyy) Or TargetBiggy(biggyx, biggyy)
    End Select
  Next y
Next x

dirtLevel = ((Display(16, 24) / Mag) * 15.6)
AltiMeter = LmAlt - dirtLevel
AltiMeterReading = AltiMeter

FwdDist = 33 * (starty + DoubleStart + (24 / Mag))
LatDist = 33 * (startx + DoubleStart + (16 / Mag))
joyPolling ' this is a joystick call
If StopEverything Then Exit Sub
If (LatDist / 33) < 133 Then
  PorSta = "Starboard"
ElseIf (LatDist / 33) = 133 Then
  PorSta = ""
Else
  PorSta = "Port"
End If

If (FwdDist / 33) < 93 Then
  ForRev = "Rev"
ElseIf (FwdDist / 33) = 93 Then
  ForRev = ""
Else
  ForRev = "Fwd"
End If
Direction = ForRev + " " + PorSta

If startx >= 268 Or startx <= 32 Then 'outtabounds
  collision 0 ' 0 - out of bounds
  If StopEverything Then Exit Sub
End If
If starty >= 368 Or starty <= 32 Then
  collision 0
  If StopEverything Then Exit Sub
End If

  If GotoLanding Then
    Ydock = 0
    For x = 15 To 17
      For y = 23 To 25
        If TargetDisplay(x, y) Then
          PaintLandingSite = True
        End If
      Next y
    Next x
    For Q = 0 To 3
      auxjoy(Q).Enabled = False
      Command2(Int(Q / 2)).Enabled = False
    Next Q
    docking.Timer2.Enabled = False
    frmTime.masterTimer.Enabled = False
    Me.Hide
    StopEverything = True
    GotoApland = True
    If GotoApland = True Then
      Apland.Show
      If YouAreDead Then
        docking.collision 0
      Else
        If BullsEye Then
          docking.collision 4
        ElseIf PaintLandingSite Then
          docking.collision 5
        Else
          docking.collision 3
        End If
      End If
    End If
  End If

End Sub




Public Sub DrawBox()

  picBackground.Line (Box(0, 0), Box(0, 1))-(Box(1, 0), Box(1, 1)), QBColor(15)

  picBackground.Line -(Box(2, 0), Box(2, 1)), QBColor(15)
  picBackground.Line -(Box(3, 0), Box(3, 1)), QBColor(15)
  picBackground.Line -(Box(0, 0), Box(0, 1)), QBColor(15)
End Sub

Public Sub collision(Result As Integer)
Dim SplatText As String

diedFlag = True

Select Case Result
  Case Is = 0 ' abort?    <---------------------------------------------rick setup abort
    CompUnload = True
    Unload Apland
    CompUnload = False
    frmTime.masterTimer.Enabled = True
  Case Is = 1 ' general crash scene 1
    If LmAlt <= 6 * 15.6 Then
       frmTime.PlayAVI "death\shot21.avi", 3
       SplatText = "goin' too flippin' fast in a crater"
    Else 'LmAlt >= 8 * 15.6 Then
       frmTime.PlayAVI "death\shot22.avi", 3
       SplatText = "goin' too darn fast near a mountain"
    End If
  Case Is = 2
       frmTime.PlayAVI "death\shot20.avi", 3
  Case Is = 3
    'oh damn, I can't reach it mvi
    frmTime.masterTimer.Enabled = True
    CompUnload = True
    Unload Apland
    CompUnload = False
    SplatText = "so close you can smell it.  Too bad you cant take it."
    OnTheMoon = True
    CanReachIt = False
    diedFlag = False
    frmTime.masterTimer.Enabled = True
    CompUnload = True
    Unload Apland
    CompUnload = False
  Case Is = 4
    'happy happy joy joy mvi
    frmTime.PlayAVI "success\shot19a.avi", 3
    frmTime.PlayAVI "success\shot19c.avi", 3
    OnTheMoon = True
    CanReachIt = True
    SplatText = "hory cow, you did it!"
    diedFlag = False
    MissionState = 7
    frmTime.masterTimer.Enabled = True
    CompUnload = True
    Unload Apland
    CompUnload = False
  Case Is = 5
    'your a loser, you couldn't even get close to the target mvi
    SplatText = "you suck. try asteroids."
    OnTheMoon = True
    CanReachIt = False
    diedFlag = False
    frmTime.masterTimer.Enabled = True
    CompUnload = True
    Unload Apland
    CompUnload = False
End Select
SplatTextBox.Text = SplatText
text1.Text = "True Alt = 0"
Text2.Text = "Your X " + Str(startx + 16) '"fuel"
Text3.Text = " "
Text4.Text = "Your Y " + Str(starty + 16) '"RCS"
Text5.Text = "Fwd Vel = 0"
Text6.Text = "Lat Vel = 0"
distance.Caption = "0"
closerate.Caption = "0"

DoCurve = False
Me.Visible = False
MissionState = 7

If Not diedFlag Then
  Met = 1670
  fivek = 5
  StopEverything = True
  OkToLand = False
Else
  diedFlag = False
  StopEverything = True
  Met = 1660
  fivek = 5
  OkToLand = False
End If

End Sub

Public Sub blueLine(whatLine As Integer)
  Dim k, j As Integer

  For k = 0 To 31 'initialize bluedline to green
    BluedLine(k) = 2
  Next k

  Select Case whatLine
    Case Is = 1 'Alt 599
      For k = 1 To 31 Step 2
        BluedLine(k) = 8 '1 fake line
      Next k
    Case Is = 3 'alt 449
      For k = 1 To 31 Step 4
        For j = 0 To 2 ' three fake lines
          BluedLine(k + j) = 8
        Next j
      Next k
    Case Is = 7 'alt 199
      For k = 1 To 31 Step 8
        For j = 0 To 6 'seven fake lines
          BluedLine(k + j) = 8
        Next j
      Next k
    Case Is = 15
      For k = 1 To 31 Step 16
        For j = 0 To 14 'fifteen fake lines
          BluedLine(k + j) = 8
        Next j
      Next k
    Case Is = 999
  End Select
  BluedLine(24) = 10
  'Label1.Caption = "x = " + Str(startx + 24)
  'Label2.Caption = "y = " + Str(starty + 25)
End Sub

Public Sub joyPolling()
  Dim WhereAmI, whereisX, whereisY, wheretoken As Integer
  Dim rc As Long
  Dim x As Integer
  Rem Joystick

  rc = GetJoyStickPos(JOYSTICK1, JoyInfo)
  DoEvents

  Rem --- check for left or right
  whereisX = 0

  If JoyInfo.x < leftX Then
    whereisX = -1
  Else
    If JoyInfo.x > rightX Then
      whereisX = 1
    End If
  End If

  Rem --- check for up or down
  whereisY = 0

  If JoyInfo.y < topY Then
    whereisY = -1
  ElseIf JoyInfo.y > bottomY Then
      whereisY = 1
  End If

  wheretoken = whereisX + whereisY
  WhereAmI = 4

  If wheretoken = 1 And whereisX = 1 Then
    WhereAmI = 1
  ElseIf wheretoken = 1 And whereisX <> 1 Then
    WhereAmI = 2
  End If

  If wheretoken = -1 And whereisY = -1 Then
    WhereAmI = 0
  ElseIf wheretoken = -1 And whereisY <> -1 Then
    WhereAmI = 3
  End If

  Command1.Caption = WhereAmI


  If WhereAmI <> 4 Then
    Call JoyControl((WhereAmI))
  End If

  If JoyInfo.ButtonDown(1) Then
    Select Case WhereAmI
      Case Is = 0
        x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
        Ydock = Ydock - 1
        Call JoyControl(0)
      Case Is = 1
        x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
        Xdock = Xdock + 1
        LatVel = Xdock * 33
         Call JoyControl(1)
      Case Is = 2
        x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
        Ydock = Ydock + 1
        Call JoyControl(2)
      Case Is = 3
        x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
        Xdock = Xdock - 1
        LatVel = Xdock * 33
        Call JoyControl(3)
    End Select
  End If

  If JoyInfo.ButtonDown(2) Then
    Select Case WhereAmI
      Case Is = 0
        x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
        Zdock = Zdock - 1
        FwdVel = -Zdock * 33
      Case Is = 2
        x = frmTime.playSound(CDdrive + "\sfx\rcstrst.wav", EFFECTS, NO_LUPE)
        Zdock = Zdock + 1
        FwdVel = -Zdock * 33
      End Select
  End If

  Rem
  Rem
  Rem end joystick
End Sub


Sub Timer3_Timer()
  Static Xpos As Integer
  Static Ypos As Integer
  Dim rc As Long
  Static Scountz As Integer
  Static Secondz As Integer
  Static WaitCountz As Integer
  Static NotFirstTime2 As Boolean
  Static NotFirstTime1 As Boolean
  Static xComponent As Integer
  Static yComponent As Integer



  Dim x As Integer
  'Dim i As Integer
  Dim WhereAmI, whereisX, whereisY, wheretoken As Integer
  'lblZ = ldist
  Dim currpath As String

  If Not NotFirstTime2 Then
    If Not NotFirstTime1 Then
      StarSeconds = Int(StarSeconds / 2)
      Xdock = firstXpos
      Ydock = firstYpos
      NotFirstTime1 = True
      Xpos = 0
      Ypos = 0
      BG_NewX = 0
      BG_NewY = 0
    Else
      Xdock = 0
      Ydock = 0
      NotFirstTime2 = True
    End If
  End If

  If Not WaitingToLeave Then
    Scountz = Scountz + 1
    If Scountz >= 20 Then
      Scountz = 0
      Secondz = Secondz + 1
      If Secondz >= StarSeconds Then
        StarCrossed = False
        goGame = 0
        Reason = 26
        YouAreDead = True
        Timer3.Enabled = False
        docking.Visible = False
        Exit Sub
      End If
    End If
  Else
    WaitCountz = WaitCountz + 1
    If WaitCountz >= 100 Then
      DoEvents
      StarCrossed = False
      Scountz = 0
      Secondz = 0
      WaitCountz = 0
      WaitingToLeave = False
      NotFirstTime1 = False
      NotFirstTime2 = False
      Male = 3
      Female = 1
      frmTime.Transfer
    End If
    Exit Sub
  End If

  currpath = CDdrive + "\docking\csm4\"

    closerate.Visible = True
    distance.Visible = True
    closerate.Caption = pubXpos
    distance.Caption = pubYpos
    Secondz = 0
    'closerate.Caption = " N/A"
    'distance.Caption = "N/A"

'-----------------------------------------------------
' Move the background horizontally under scroller
' control.
'-----------------------------------------------------

Rem ********************************************************************************
    Xpos = Xpos - Xdock

    Ypos = Ypos - Ydock

    UpdateBackground

    Rem --- if x is off left side ---
    If Xpos < -picPitSprite.ScaleWidth + picImage.ScaleWidth Then
      Xpos = 800 - picPitSprite.ScaleWidth + picImage.ScaleWidth
    Else 'if off right side
        If Xpos > 800 - picImage.ScaleWidth Then Xpos = 0 - picImage.ScaleWidth
    End If

    Rem --- if y is off top side ---
    If Ypos < -picImage.ScaleHeight Then
      Ypos = 600 - picImage.ScaleHeight
    Else 'if off bottom
      If Ypos > 600 - picImage.ScaleHeight Then Ypos = 0 - picImage.ScaleHeight
    End If

    ' Copy a section of the large bitmap into the work area.
  rc = BitBlt(picWorkBG.hDC, 0, 0, WorkWidth, WorkHeight, picBGOriginal.hDC, 0, 0, SRCCOPY)


 rc = BitBlt(picWorkBG.hDC, 0, 0, picPitMask.Width, picPitMask.Height, picPitMask.hDC, 0, 0, SRCAND)
    'draw cockpit
 rc = BitBlt(picWorkBG.hDC, 0, 0, picPitMask.Width, picPitMask.Height, picPitSprite.hDC, 0, 0, SRCPAINT)

    ' Draw the whole thing back onto the screen.
  rc = BitBlt(picBackground.hDC, 0, 0, picBackground.Width, picBackground.Height, picWorkBG.hDC, 0, 0, SRCCOPY)

  auxjoy(0).Visible = True
  auxjoy(1).Visible = True
  auxjoy(2).Visible = True
  auxjoy(3).Visible = True
  auxcon(0).Picture = auxcon(5).Picture
 Rem
 Rem
 Rem Joystick

  rc = GetJoyStickPos(JOYSTICK1, JoyInfo)


  Rem --- check for left or right
  whereisX = 0

  If JoyInfo.x < leftX Then
    whereisX = -1
  Else
    If JoyInfo.x > rightX Then
      whereisX = 1
    End If
  End If

  Rem --- check for up or down
  whereisY = 0

  If JoyInfo.y < topY Then
    whereisY = -1
  Else
    If JoyInfo.y > bottomY Then
      whereisY = 1
    End If
  End If

  wheretoken = whereisX + whereisY
  WhereAmI = 4

  If wheretoken = 1 Then
    If whereisX = 1 Then
      WhereAmI = 1
    Else
      WhereAmI = 2
    End If
  End If

  If wheretoken = -1 Then
    If whereisY = -1 Then
      WhereAmI = 0
    Else
      WhereAmI = 3
    End If
  End If

  Command1.Caption = WhereAmI

  If WhereAmI <> 4 Then
    Call JoyControl((WhereAmI))
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 1 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Xdock = Xdock + 1
      'xComponent = xComponent + 1
       Call JoyControl(1)
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 3 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Xdock = Xdock - 1
      'xComponent = xComponent - 1
     Call JoyControl(3)
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 2 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Ydock = Ydock + 1
      'yComponent = yComponent + 1
      Call JoyControl(2)
  End If

  If JoyInfo.ButtonDown(1) And WhereAmI = 0 Then
      x = frmTime.playSound(CDdrive + "rcstrst.wav", EFFECTS, NO_LUPE)
      Ydock = Ydock - 1
      'yComponent = yComponent - 1
       Call JoyControl(0)
  End If
  pubXpos = Xpos
  pubYpos = Ypos

End Sub

Sub VScroll1_Change()
  Dim temp As Integer
  Dim tdigs(3) As Integer

  contThrust = VScroll1 'vscroll1 is the value of the slider


  temp = contThrust

  tdigs(0) = contThrust Mod 10
  temp = temp - tdigs(0)

  tdigs(1) = temp / 10

  If tdigs(1) >= 10 Then
    tdigs(1) = tdigs(1) - 10
    tdigs(2) = 1
  Else
    tdigs(2) = 0
  End If

  docking.dockThrust(0).Picture = frmTime.imgdnum(tdigs(0)).Picture
  docking.dockThrust(1).Picture = frmTime.imgdnum(tdigs(1)).Picture
  docking.dockThrust(2).Picture = frmTime.imgdnum(tdigs(2)).Picture

End Sub