home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 9 / CD_1.iso / wingames / glidpath / glide < prev    next >
Text File  |  1994-01-17  |  49KB  |  2,071 lines
  1. Global Speedrpm1 As Single
  2. Global Throttle1 As Single
  3. Global Throttle3 As Integer
  4. Global Thrust1 As Single
  5. Global Sta1 As Single
  6. Global Ena1 As Single
  7. Global Start1 As Single
  8. Global Fuel As Single
  9. Global Speedrpm2 As Single
  10. Global Throttle2 As Single
  11. Global Thrust2 As Single
  12. Global Sta2 As Single
  13. Global Ena2 As Single
  14. Global Speedrpm3 As Single
  15.  
  16. Global Thrust3 As Single
  17. Global Sta3 As Single
  18. Global Ena3 As Single
  19. Global Start3 As Single
  20. Global Speedrpm4 As Single
  21. Global Throttle4 As Single
  22. Global Thrust4 As Single
  23. Global Sta4 As Single
  24. Global Ena4 As Single
  25. Global Start4 As Single
  26. Global Altitude As Currency
  27. Global FileName$
  28. Global ts1$
  29. Global Bat As Single
  30. Global Gen As Single
  31. Global Hyd As Single
  32. Global Oil As Single
  33. Global Vrate As Single
  34. Global lndist As Single
  35. Global dstv As Single
  36. Global cdis As Single
  37. Global glslope As Single
  38. Global glpath As Single
  39. Global Auto As Single
  40. Global Mile As Single
  41. Global grav As Single
  42. Global GLS As Single
  43. Global Fspeed As Single 'GENERAL DECLARATIONS
  44. Dim Dragx As Single
  45. Dim DragY As Single
  46. Dim stri2K  As Single
  47. Dim striK  As Single
  48. Dim striC  As Single
  49. Dim striD As Single
  50. Dim st2K As Single
  51.  
  52. Const LEFT_BUTTON = 1
  53. Const RIGHT_BUTTON = 2
  54.  
  55.  Dim NA As Single
  56.  
  57.  
  58. Sub RandomizeDemo ()
  59. End Sub
  60.  
  61. Sub Command1_Click ()
  62. End Sub
  63.  
  64. Sub Command5_Click ()
  65.  
  66. End Sub
  67.  
  68. Sub Command2_Click ()
  69.  
  70. End Sub
  71.  
  72. Sub Command3_Click ()
  73.  
  74. End Sub
  75.  
  76. Sub Form_Load ()
  77. 'Fuel = 600000
  78.  
  79. End Sub
  80.  
  81. Sub Option1_Click ()
  82.  
  83.  
  84. End Sub
  85.  
  86. Sub Option2_Click ()
  87.  
  88. End Sub
  89.  
  90. Sub Form_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Single)
  91.  
  92. 'picture32.Move (x - picture32.width / 2 - DragX), (y - picture32.height / 2 - DragY)
  93.  
  94. 'Test Edit
  95. 'If Button And 1 Then
  96. 'If x = 2520 Then
  97. 'If x > 2520 Then
  98. 'x = 2520
  99. 'End If
  100. 'If x < 2520 Then
  101. 'x = 2520
  102. 'End If
  103. 'If y < 1650 Then
  104. 'If y > 1200 Then ''picture42.Print (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - Drag
  105. Y)
  106. 'End If
  107. 'End If
  108. 'End If
  109. 'End If
  110.  
  111.  
  112. 'Picture32.Move x, y
  113. 'Picture32.Move (x - Picture32.width / 2), (y - picture32.height / 2)
  114.  
  115.  
  116. 'Cls
  117.  
  118.  
  119. 'jsx = 0
  120. 'jsx = jsx + x
  121. 'jsy = 0
  122. 'jsy = jsy + y
  123. '
  124.  'Line (3615, 870)-(jsx, jsy)
  125.  
  126. 'Line (2205, 1200)-(2205, 1560)
  127. ''Line ((jsx - 50), (jsy + 1))-((jsx + 50), (jsy + 1))
  128. 'Line ((jsx - 50), (jsy + 2))-((jsx + 50), (jsy + 2))
  129. 'Line ((jsx - 50), (jsy + 3))-((jsx + 50), (jsy + 3))
  130. 'Line ((jsx - 50), (jsy + 4))-((jsx + 50), (jsy + 4))
  131.  
  132.  
  133.  
  134. ' Rudder Animate Control
  135.  
  136. If button And 1 Then
  137. Picture39.picture = LoadPicture("c:\icon\rudrd.ico")
  138. Picture40.picture = LoadPicture("c:\icon\rudld.ico")
  139.  
  140. End If
  141.  
  142. 'If x = 2520 Then
  143. 'If Button And 1 Then
  144.  
  145. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  146. '
  147. 'End If
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154. End Sub
  155.  
  156. Sub Form_MouseMove (button As Integer, Shift As Integer, X As Single, Y As Single)
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164. 'If x = 2205 Then
  165. 'picture32.Move (x - picture32.width / 2 - DragX), (Y - picture32.height / 2 - DragY)
  166. 'If Button And 1 Then
  167.  
  168. 'picture32.Move ((X - picture32.width / 2) - Dragx), ((Y - picture32.height / 2) - Dr
  169. agY)
  170.  
  171. 'picture51.Cls
  172. 'Picture51.Print Dragx
  173.  
  174. 'picture52.Cls
  175. 'Picture52.Print DragY
  176.  
  177.  
  178.  
  179.  
  180.  
  181. 'End If
  182. 'End If
  183.  
  184. 'If Button And 1 Then
  185. 'If y < 1560 Then
  186. 'If y > 1200 Then
  187. 'If x > 2200 Then
  188. 'If x < 2210 Then
  189. 'Picture48.Cls
  190. 'Picture48.Print Abs(360 - (1560 - Y))
  191. 'Picture48.Print Int((1560 - y) / 3.6)
  192.  
  193. 'picture32.Move (x - picture32.width / 2 - DragX), (y - picture32.height / 2 - DragY)
  194.  
  195. 'Throttle1 = Int((1560 - y) / 3.6)
  196.  
  197. 'End If
  198. 'End If
  199. 'End If
  200. 'End If
  201. 'End If
  202.  
  203. 'If x = 2520 Then
  204. 'If Button And 1 Then
  205.  
  206. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  207. 'End If
  208. 'End If
  209.  
  210. 'If x = 2520 Then
  211. 'If Button And 1 Then
  212.  
  213. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  214. 'End If
  215. 'End If
  216.  
  217. End Sub
  218.  
  219. Sub Form_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  220.  
  221.  
  222. 'If Button And 1 Then
  223. 'Picture39.pICTURE = LoadPicture("c:\icon\rudr.ico")
  224. 'Picture40.pICTURE = LoadPicture("c:\icon\rudl.ico")
  225.  
  226. 'If y < 1560 Then
  227. 'If y > 1200 Then
  228. 'If x = 2205 Then
  229. 'Picture48.Cls
  230.  
  231. 'Picture48.Print Int((1560 - y) / 3.6) 'End If
  232. 'End If
  233. 'End If
  234. 'End If
  235.  
  236. 'If x = 2520 Then
  237. 'If Button And 1 Then
  238.  
  239. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  240. 'End If
  241. 'End If
  242.  
  243.  
  244. End Sub
  245.  
  246. Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
  247. 'Source.Move (x - DragX), (y - DragY)
  248.  
  249. 'Source.Move ((x - picture32.width / 2) - Dragx), ((y - picture32.height / 2) - DragY
  250. )
  251.  
  252.  
  253. 'If button And 1 Then
  254. 'If x > 2200 Then
  255. 'If x < 2210 Then
  256. 'If Y < 1560 Then
  257. 'If Y > 1200 Then
  258.  
  259.  
  260.  
  261. 'picture32.Move (x - picture32.width / 2 - DragX), (Y - picture32.height / 2 - DragY)
  262. 'End If
  263. 'End If
  264. ''End If
  265. 'End If
  266. 'End If
  267.  
  268. 'If x = 2520 Then
  269. 'If Button And 1 Then
  270.  
  271. 'picture42.Move (x - picture42.width / 2 - Dragx), (y - picture42.height / 2 - Dragy)
  272. 'End If
  273. 'End If
  274.  
  275. End Sub
  276.  
  277. Sub Picture42_DragOver (Source As Control, X As Single, Y As Single, State As Integer
  278. )
  279. 'If X = 2520 Then
  280.  
  281. 'If Button And 1 Then
  282. 'JT = (X - Picture42.width / 2 - Dragx)
  283. 'JZ = (Y - Picture42.height / 2 - DragY)
  284.  
  285.  
  286.  
  287. 'pICTURE49.Print JT
  288. 'PICTURE50.Print JZ
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295. 'End If 'End If
  296.  
  297.  
  298. End Sub
  299.  
  300. Sub Picture32_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  301. e)
  302. 'picture32.Move ((x - picture32.width / 2) - Dragx) - ((y - picture32.height / 2) - d
  303. ragy)
  304.  
  305. 'picture32.Drag 1
  306. 'DragX = x
  307. 'DragY = y
  308.  
  309.  
  310. End Sub
  311.  
  312. Sub Picture32_MouseMove (button As Integer, Shift As Integer, X As Single, Y As Singl
  313. e)
  314.  
  315. 'If Button And 1 Then
  316.  
  317.  
  318. 'picture32.Move ((x - picture32.width / 2)) - ((y - picture32.height / 2))
  319.  
  320. 'End If
  321. End Sub
  322.  
  323. Sub Picture32_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  324. 'Picture32.Drag 2
  325.  
  326.  
  327.  
  328. 'picture32.Move (picture32.width / 2 - x), (picture32.height / 2 - Y)
  329. End Sub
  330.  
  331. Sub Picture40_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  332. e)
  333. Picture40.picture = LoadPicture("c:\icon\rudld.ico")
  334. End Sub
  335.  
  336. Sub Picture40_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  337. Picture40.picture = LoadPicture("c:\icon\rudl.ico")
  338. End Sub
  339.  
  340. Sub Picture39_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  341. e)
  342. Picture39.picture = LoadPicture("c:\icon\rudrd.ico")
  343. End Sub
  344.  
  345. Sub Picture39_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  346. Picture39.picture = LoadPicture("c:\icon\rudr.ico")
  347. End Sub
  348.  
  349. Sub Picture60_Click ()
  350. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  351. Picture49.picture = LoadPicture("c:\icon\jystk\clr.ico")
  352. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  353. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  354. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  355. Picture60.picture = LoadPicture("c:\icon\jystk\botrt.ico")
  356. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  357. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  358. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  359.  
  360.  
  361.  
  362.  
  363. End Sub
  364.  
  365. Sub Picture57_Click ()
  366. Picture57.picture = LoadPicture("c:\icon\jystk\toplft.ico")
  367. Picture49.picture = LoadPicture("c:\icon\jystk\cul.ico")
  368. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  369. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  370. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  371. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  372. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  373. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  374. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  375. End Sub
  376.  
  377. Sub Picture30_Click ()
  378. Auto = 0
  379. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  380. Picture49.picture = LoadPicture("c:\icon\jystk\cuc.ico")
  381. Picture30.picture = LoadPicture("c:\icon\jystk\topctr.ico")
  382. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  383. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  384. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  385. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  386. Picture59.picture = LoadPicture