home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Select: Games 9
/
CD_1.iso
/
wingames
/
glidpath
/
glide
< prev
next >
Wrap
Text File
|
1994-01-17
|
49KB
|
2,071 lines
Global Speedrpm1 As Single
Global Throttle1 As Single
Global Throttle3 As Integer
Global Thrust1 As Single
Global Sta1 As Single
Global Ena1 As Single
Global Start1 As Single
Global Fuel As Single
Global Speedrpm2 As Single
Global Throttle2 As Single
Global Thrust2 As Single
Global Sta2 As Single
Global Ena2 As Single
Global Speedrpm3 As Single
Global Thrust3 As Single
Global Sta3 As Single
Global Ena3 As Single
Global Start3 As Single
Global Speedrpm4 As Single
Global Throttle4 As Single
Global Thrust4 As Single
Global Sta4 As Single
Global Ena4 As Single
Global Start4 As Single
Global Altitude As Currency
Global FileName$
Global ts1$
Global Bat As Single
Global Gen As Single
Global Hyd As Single
Global Oil As Single
Global Vrate As Single
Global lndist As Single
Global dstv As Single
Global cdis As Single
Global glslope As Single
Global glpath As Single
Global Auto As Single
Global Mile As Single
Global grav As Single
Global GLS As Single
Global Fspeed As Single'GENERAL DECLARATIONS
Dim Dragx As Single
Dim DragY As Single
Dim stri2K As Single
Dim striK As Single
Dim striC As Single
Dim striD As Single
Dim st2K As Single
Const LEFT_BUTTON = 1
Const RIGHT_BUTTON = 2
Dim NA As Single
Sub RandomizeDemo ()
End Sub
Sub Command1_Click ()
End Sub
Sub Command5_Click ()
End Sub
Sub Command2_Click ()
End Sub
Sub Command3_Click ()
End Sub
Sub Form_Load ()
'Fuel = 600000
End Sub
Sub Option1_Click ()
End Sub
Sub Option2_Click ()
End Sub
Sub Form_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Single)
'picture32.Move (x - picture32.width / 2 - DragX), (y - picture32.height / 2 - DragY)
'Test Edit
'If Button And 1 Then
'If x = 2520 Then
'If x > 2520 Then
'x = 2520
'End If
'If x < 2520 Then
'x = 2520
'End If
'If y < 1650 Then
'If y > 1200 Then''picture42.Print (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - Drag
Y)
'End If
'End If
'End If
'End If
'Picture32.Move x, y
'Picture32.Move (x - Picture32.width / 2), (y - picture32.height / 2)
'Cls
'jsx = 0
'jsx = jsx + x
'jsy = 0
'jsy = jsy + y
'
'Line (3615, 870)-(jsx, jsy)
'Line (2205, 1200)-(2205, 1560)
''Line ((jsx - 50), (jsy + 1))-((jsx + 50), (jsy + 1))
'Line ((jsx - 50), (jsy + 2))-((jsx + 50), (jsy + 2))
'Line ((jsx - 50), (jsy + 3))-((jsx + 50), (jsy + 3))
'Line ((jsx - 50), (jsy + 4))-((jsx + 50), (jsy + 4))
' Rudder Animate Control
If button And 1 Then
Picture39.picture = LoadPicture("c:\icon\rudrd.ico")
Picture40.picture = LoadPicture("c:\icon\rudld.ico")
End If
'If x = 2520 Then
'If Button And 1 Then
'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
'
'End If
End Sub
Sub Form_MouseMove (button As Integer, Shift As Integer, X As Single, Y As Single)
'If x = 2205 Then
'picture32.Move (x - picture32.width / 2 - DragX), (Y - picture32.height / 2 - DragY)
'If Button And 1 Then
'picture32.Move ((X - picture32.width / 2) - Dragx), ((Y - picture32.height / 2) - Dr
agY)
'picture51.Cls
'Picture51.Print Dragx
'picture52.Cls
'Picture52.Print DragY
'End If
'End If
'If Button And 1 Then
'If y < 1560 Then
'If y > 1200 Then
'If x > 2200 Then
'If x < 2210 Then
'Picture48.Cls
'Picture48.Print Abs(360 - (1560 - Y))
'Picture48.Print Int((1560 - y) / 3.6)
'picture32.Move (x - picture32.width / 2 - DragX), (y - picture32.height / 2 - DragY)
'Throttle1 = Int((1560 - y) / 3.6)
'End If
'End If
'End If
'End If
'End If
'If x = 2520 Then
'If Button And 1 Then
'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
'End If
'End If
'If x = 2520 Then
'If Button And 1 Then
'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
'End If
'End If
End Sub
Sub Form_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
'If Button And 1 Then
'Picture39.pICTURE = LoadPicture("c:\icon\rudr.ico")
'Picture40.pICTURE = LoadPicture("c:\icon\rudl.ico")
'If y < 1560 Then
'If y > 1200 Then
'If x = 2205 Then
'Picture48.Cls
'Picture48.Print Int((1560 - y) / 3.6)'End If
'End If
'End If
'End If
'If x = 2520 Then
'If Button And 1 Then
'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
'End If
'End If
End Sub
Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
'Source.Move (x - DragX), (y - DragY)
'Source.Move ((x - picture32.width / 2) - Dragx), ((y - picture32.height / 2) - DragY
)
'If button And 1 Then
'If x > 2200 Then
'If x < 2210 Then
'If Y < 1560 Then
'If Y > 1200 Then
'picture32.Move (x - picture32.width / 2 - DragX), (Y - picture32.height / 2 - DragY)
'End If
'End If
''End If
'End If
'End If
'If x = 2520 Then
'If Button And 1 Then
'picture42.Move (x - picture42.width / 2 - Dragx), (y - picture42.height / 2 - Dragy)
'End If
'End If
End Sub
Sub Picture42_DragOver (Source As Control, X As Single, Y As Single, State As Integer
)
'If X = 2520 Then
'If Button And 1 Then
'JT = (X - Picture42.width / 2 - Dragx)
'JZ = (Y - Picture42.height / 2 - DragY)
'pICTURE49.Print JT
'PICTURE50.Print JZ
'End If'End If
End Sub
Sub Picture32_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
e)
'picture32.Move ((x - picture32.width / 2) - Dragx) - ((y - picture32.height / 2) - d
ragy)
'picture32.Drag 1
'DragX = x
'DragY = y
End Sub
Sub Picture32_MouseMove (button As Integer, Shift As Integer, X As Single, Y As Singl
e)
'If Button And 1 Then
'picture32.Move ((x - picture32.width / 2)) - ((y - picture32.height / 2))
'End If
End Sub
Sub Picture32_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
'Picture32.Drag 2
'picture32.Move (picture32.width / 2 - x), (picture32.height / 2 - Y)
End Sub
Sub Picture40_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
e)
Picture40.picture = LoadPicture("c:\icon\rudld.ico")
End Sub
Sub Picture40_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
Picture40.picture = LoadPicture("c:\icon\rudl.ico")
End Sub
Sub Picture39_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
e)
Picture39.picture = LoadPicture("c:\icon\rudrd.ico")
End Sub
Sub Picture39_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
Picture39.picture = LoadPicture("c:\icon\rudr.ico")
End Sub
Sub Picture60_Click ()
Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture49.picture = LoadPicture("c:\icon\jystk\clr.ico")
Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture60.picture = LoadPicture("c:\icon\jystk\botrt.ico")
Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
End Sub
Sub Picture57_Click ()
Picture57.picture = LoadPicture("c:\icon\jystk\toplft.ico")
Picture49.picture = LoadPicture("c:\icon\jystk\cul.ico")
Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
End Sub
Sub Picture30_Click ()
Auto = 0
Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture49.picture = LoadPicture("c:\icon\jystk\cuc.ico")
Picture30.picture = LoadPicture("c:\icon\jystk\topctr.ico")
Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
Picture59.picture = LoadPicture