home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / search / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-13  |  12.4 KB  |  398 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "SHOT [VB-BOY] & [Mike C.]"
  4.    ClientHeight    =   6885
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   10695
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6885
  10.    ScaleWidth      =   10695
  11.    Begin VB.CommandButton Command1 
  12.       Caption         =   "Exit"
  13.       Height          =   375
  14.       Left            =   1560
  15.       TabIndex        =   5
  16.       Top             =   6360
  17.       Width           =   1095
  18.    End
  19.    Begin VB.CommandButton button1 
  20.       Caption         =   "&Start!"
  21.       Height          =   375
  22.       Left            =   120
  23.       MousePointer    =   10  'Up Arrow
  24.       TabIndex        =   1
  25.       Top             =   6360
  26.       Width           =   1215
  27.    End
  28.    Begin VB.PictureBox Picture1 
  29.       BackColor       =   &H00C0C000&
  30.       Height          =   6135
  31.       Left            =   0
  32.       MousePointer    =   2  'Cross
  33.       ScaleHeight     =   6075
  34.       ScaleWidth      =   10635
  35.       TabIndex        =   0
  36.       Top             =   0
  37.       Width           =   10695
  38.       Begin VB.Timer Normal2 
  39.          Enabled         =   0   'False
  40.          Interval        =   100
  41.          Left            =   9720
  42.          Top             =   5400
  43.       End
  44.       Begin VB.Timer Normal 
  45.          Enabled         =   0   'False
  46.          Interval        =   100
  47.          Left            =   10200
  48.          Top             =   5400
  49.       End
  50.       Begin VB.Timer crash 
  51.          Enabled         =   0   'False
  52.          Interval        =   1
  53.          Left            =   9240
  54.          Top             =   5400
  55.       End
  56.       Begin VB.Image Explode 
  57.          Height          =   510
  58.          Left            =   2280
  59.          Picture         =   "Form1.frx":0000
  60.          Top             =   51600
  61.          Width           =   2250
  62.       End
  63.       Begin VB.Shape Shape12 
  64.          Height          =   255
  65.          Left            =   9240
  66.          Shape           =   2  'Oval
  67.          Top             =   600
  68.          Width           =   615
  69.       End
  70.       Begin VB.Shape Shape11 
  71.          BackStyle       =   1  'Opaque
  72.          BorderColor     =   &H00000000&
  73.          FillColor       =   &H0000FFFF&
  74.          FillStyle       =   0  'Solid
  75.          Height          =   135
  76.          Left            =   9600
  77.          Shape           =   3  'Circle
  78.          Top             =   360
  79.          Width           =   255
  80.       End
  81.       Begin VB.Shape Shape10 
  82.          BackColor       =   &H00FFFFFF&
  83.          BorderColor     =   &H00000000&
  84.          FillColor       =   &H0000FFFF&
  85.          FillStyle       =   0  'Solid
  86.          Height          =   135
  87.          Left            =   9240
  88.          Shape           =   3  'Circle
  89.          Top             =   360
  90.          Width           =   255
  91.       End
  92.       Begin VB.Shape Shape9 
  93.          Height          =   135
  94.          Left            =   9560
  95.          Top             =   600
  96.          Visible         =   0   'False
  97.          Width           =   135
  98.       End
  99.       Begin VB.Shape Shape8 
  100.          Height          =   135
  101.          Left            =   9720
  102.          Top             =   600
  103.          Visible         =   0   'False
  104.          Width           =   135
  105.       End
  106.       Begin VB.Shape Shape7 
  107.          Height          =   135
  108.          Left            =   9400
  109.          Top             =   600
  110.          Visible         =   0   'False
  111.          Width           =   135
  112.       End
  113.       Begin VB.Shape Shape6 
  114.          Height          =   135
  115.          Left            =   9240
  116.          Top             =   600
  117.          Visible         =   0   'False
  118.          Width           =   135
  119.       End
  120.       Begin VB.Shape Shape5 
  121.          Height          =   230
  122.          Left            =   9240
  123.          Top             =   600
  124.          Visible         =   0   'False
  125.          Width           =   615
  126.       End
  127.       Begin VB.Shape Shape4 
  128.          BackColor       =   &H000000FF&
  129.          BackStyle       =   1  'Opaque
  130.          BorderColor     =   &H000000FF&
  131.          Height          =   135
  132.          Left            =   9600
  133.          Shape           =   3  'Circle
  134.          Top             =   360
  135.          Visible         =   0   'False
  136.          Width           =   255
  137.       End
  138.       Begin VB.Shape Shape3 
  139.          BackStyle       =   1  'Opaque
  140.          BorderColor     =   &H000000FF&
  141.          FillColor       =   &H000000FF&
  142.          FillStyle       =   0  'Solid
  143.          Height          =   135
  144.          Left            =   9240
  145.          Shape           =   3  'Circle
  146.          Top             =   360
  147.          Visible         =   0   'False
  148.          Width           =   255
  149.       End
  150.       Begin VB.Image plane1 
  151.          Height          =   510
  152.          Left            =   1560
  153.          Picture         =   "Form1.frx":096F
  154.          Top             =   51600
  155.          Width           =   2250
  156.       End
  157.       Begin VB.Image burn 
  158.          Height          =   510
  159.          Left            =   1680
  160.          Picture         =   "Form1.frx":128D
  161.          Top             =   51600
  162.          Width           =   2250
  163.       End
  164.       Begin VB.Image plane 
  165.          Height          =   510
  166.          Left            =   1560
  167.          Picture         =   "Form1.frx":1D86
  168.          Top             =   51600
  169.          Width           =   2250
  170.       End
  171.       Begin VB.Shape Shape2 
  172.          FillColor       =   &H0000FFFF&
  173.          FillStyle       =   0  'Solid
  174.          Height          =   855
  175.          Left            =   8880
  176.          Shape           =   3  'Circle
  177.          Top             =   120
  178.          Width           =   1335
  179.       End
  180.       Begin VB.Shape Shape1 
  181.          BorderColor     =   &H0000FF00&
  182.          FillColor       =   &H0000FF00&
  183.          FillStyle       =   0  'Solid
  184.          Height          =   255
  185.          Left            =   0
  186.          Top             =   5880
  187.          Width           =   10695
  188.       End
  189.    End
  190.    Begin VB.Label Label5 
  191.       Caption         =   "www.PlanetSourceCode.com"
  192.       BeginProperty Font 
  193.          Name            =   "MS Sans Serif"
  194.          Size            =   8.25
  195.          Charset         =   0
  196.          Weight          =   700
  197.          Underline       =   -1  'True
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       ForeColor       =   &H00FF0000&
  202.       Height          =   195
  203.       Left            =   7920
  204.       MouseIcon       =   "Form1.frx":26A4
  205.       MousePointer    =   99  'Custom
  206.       TabIndex        =   8
  207.       Top             =   6675
  208.       Width           =   2895
  209.    End
  210.    Begin VB.Label Label4 
  211.       Caption         =   "koffe_s@hotmail.com"
  212.       BeginProperty Font 
  213.          Name            =   "MS Sans Serif"
  214.          Size            =   8.25
  215.          Charset         =   0
  216.          Weight          =   700
  217.          Underline       =   -1  'True
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.       ForeColor       =   &H00FF0000&
  222.       Height          =   255
  223.       Left            =   5880
  224.       MouseIcon       =   "Form1.frx":29AE
  225.       MousePointer    =   99  'Custom
  226.       TabIndex        =   7
  227.       Top             =   6435
  228.       Width           =   1815
  229.    End
  230.    Begin VB.Label Label3 
  231.       Caption         =   "IamMikeC@aol.com"
  232.       BeginProperty Font 
  233.          Name            =   "MS Sans Serif"
  234.          Size            =   8.25
  235.          Charset         =   0
  236.          Weight          =   700
  237.          Underline       =   -1  'True
  238.          Italic          =   0   'False
  239.          Strikethrough   =   0   'False
  240.       EndProperty
  241.       ForeColor       =   &H00FF0000&
  242.       Height          =   195
  243.       Left            =   6000
  244.       MouseIcon       =   "Form1.frx":2CB8
  245.       MousePointer    =   99  'Custom
  246.       TabIndex        =   6
  247.       Top             =   6660
  248.       Width           =   1695
  249.    End
  250.    Begin VB.Label Label2 
  251.       Caption         =   $"Form1.frx":2FC2
  252.       Height          =   735
  253.       Left            =   5280
  254.       TabIndex        =   4
  255.       Top             =   6240
  256.       Width           =   4935
  257.    End
  258.    Begin VB.Label shhot 
  259.       Alignment       =   2  'Center
  260.       Caption         =   "0"
  261.       BeginProperty Font 
  262.          Name            =   "MS Sans Serif"
  263.          Size            =   8.25
  264.          Charset         =   0
  265.          Weight          =   700
  266.          Underline       =   0   'False
  267.          Italic          =   0   'False
  268.          Strikethrough   =   0   'False
  269.       EndProperty
  270.       ForeColor       =   &H000000FF&
  271.       Height          =   255
  272.       Left            =   3360
  273.       TabIndex        =   3
  274.       Top             =   6360
  275.       Width           =   975
  276.    End
  277.    Begin VB.Label Label1 
  278.       Caption         =   "VB-BOYs and Mike C."
  279.       BeginProperty Font 
  280.          Name            =   "MS Sans Serif"
  281.          Size            =   9.75
  282.          Charset         =   0
  283.          Weight          =   700
  284.          Underline       =   0   'False
  285.          Italic          =   0   'False
  286.          Strikethrough   =   0   'False
  287.       EndProperty
  288.       ForeColor       =   &H00000000&
  289.       Height          =   255
  290.       Left            =   2880
  291.       TabIndex        =   2
  292.       Top             =   6120
  293.       Width           =   2295
  294.    End
  295. Attribute VB_Name = "Form1"
  296. Attribute VB_GlobalNameSpace = False
  297. Attribute VB_Creatable = False
  298. Attribute VB_PredeclaredId = True
  299. Attribute VB_Exposed = False
  300. '************************************'
  301. '  PROGRAMMED BY [VB-BOY]  & Revised by: Mike C         iamMikeC@aol.com '
  302. '     E-mail:  koffe_s@hotmail.com   '
  303. ' some prob.    then email me!       '
  304. '************************************'
  305. Function TimeOUT(HesitateTime)
  306. Hesitator = Timer
  307. Do While Timer - Hesitator < Val(HesitateTime)
  308. DoEvents
  309. End Function
  310. Private Sub button1_Click()
  311. Shape3.Visible = False
  312. Shape4.Visible = False
  313. Shape5.Visible = False
  314. Shape6.Visible = False
  315. Shape7.Visible = False
  316. Shape8.Visible = False
  317. Shape9.Visible = False
  318. Shape10.Visible = True
  319. Shape11.Visible = True
  320. Shape12.Visible = True
  321. Normal.Enabled = True
  322. Normal2.Enabled = True
  323. plane.Top = "400"
  324. plane.Left = "-3000"
  325. plane.Picture = plane1.Picture
  326. crash.Enabled = False
  327. End Sub
  328. Private Sub Command1_Click()
  329. X$ = MsgBox("Are you sure you want to exit?", vbQuestion + vbYesNo, "Confirm")
  330. If X$ = vbYes Then
  331. End If
  332. End Sub
  333. Private Sub crash_Timer()
  334. If plane.Top > 5300 Then
  335. Normal.Enabled = False
  336. Normal2.Enabled = False
  337. TimeOUT 0.5
  338. plane.Picture = Explode.Picture
  339. TimeOUT 0.3
  340. button1_Click
  341. plane.Left = Val(plane.Left) + 450
  342. plane.Top = Val(plane.Top) + 450
  343. End If
  344. End Sub
  345. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  346. Cancel = True
  347. End Sub
  348. Private Sub Label3_Click()
  349. Shell "C:\Program Files\Internet Explorer\IExplore.exe mailto:IamMikeC@aol.com?Subject=PlaneShoot-Game...", vbNormalFocus
  350. End Sub
  351. Private Sub Label4_Click()
  352. Shell "C:\Program Files\Internet Explorer\IExplore.exe mailto:koffe_s@hotmail.com?Subject=PlaneShoot-Game...", vbNormalFocus
  353. End Sub
  354. Private Sub Label5_Click()
  355. Shell "C:\Program Files\Internet Explorer\IExplore.exe http://www.planetsourcecode.com/vb", vbNormalFocus
  356. End Sub
  357. Private Sub normal_Timer()
  358. plane.Left = Val(plane.Left) + 400
  359. End Sub
  360. Private Sub Normal2_Timer()
  361. If plane.Top > 5300 Then
  362. plane.Top = 400
  363. plane.Left = 0
  364. End If
  365. plane.Top = Val(plane.Top) + 800
  366. TimeOUT 0.4
  367. plane.Top = Val(plane.Top) - 41
  368. TimeOUT 0.4
  369. plane.Top = Val(plane.Top) + 441
  370. TimeOUT 0.2
  371. plane.Left = Val(plane.Left) / 3
  372. End Sub
  373. Private Sub plane_Click()
  374. Normal.Enabled = False
  375. Normal2.Enabled = False
  376. Shape3.Visible = True
  377. Shape4.Visible = True
  378. Shape5.Visible = True
  379. Shape6.Visible = True
  380. Shape7.Visible = True
  381. Shape8.Visible = True
  382. Shape9.Visible = True
  383. Shape10.Visible = False
  384. Shape11.Visible = False
  385. Shape12.Visible = False
  386. plane.Top = "400"
  387. plane.Picture = burn.Picture
  388. TimeOUT 0.7
  389. plane.Picture = burn.Picture
  390. crash.Enabled = True
  391. shhot.Caption = Val(shhot.Caption) + 1
  392. End Sub
  393. Private Sub shhot_Change()
  394. If shhot.Caption = 1000 Then MsgBox "You are now an Expert Plane Shooter!", vbInformation, "High Score"
  395. If shhot.Caption = 500 Then MsgBox "You are now an Intermediate Plane Shooter!", vbInformation, "High Score"
  396. If shhot.Caption = 100 Then MsgBox "You are now an Beginner Plane Shooter!", vbInformation, "High Score"
  397. End Sub
  398.