UNKNOWN '************************************** ' Name: Duck Shoot Game ' Description:Create your own duck shoot ' style game, you can even kill your best ' buddy, just get a picture of him!!! ' By: Ed Hockaday ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.1568/lngWId.1/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** Leave Picture1 blank, make Picture2's picture a "kill picture" (so when the target is hit a bullet hole appears in it) and make Picture3's Picture the blank target (ie an "unwounded target") Copy and paste this into a notepad and save as form1.frm VERSION 5.00 Begin VB.Form Form1 BorderStyle =4 'Fixed ToolWindow ClientHeight=3195 ClientLeft =45 ClientTop=285 ClientWidth =4680 LinkTopic="Form1" MaxButton=0'False MinButton=0'False ScaleHeight =3195 ScaleWidth =4680 ShowInTaskbar=0'False StartUpPosition =3 'Windows Default Begin VB.Timer tmrSeconds Left=600 Top =960 End Begin VB.CommandButton cmdReset Caption ="&Reset;" Height =375 Left=120 TabIndex=5 Top =2760 Visible =0'False Width=855 End Begin VB.PictureBox Picture3 Appearance =0 'Flat BackColor=&H00C0C0C0;& BorderStyle =0 'None ForeColor=&H80000008;& Height =495 Left=960 ScaleHeight =495 ScaleWidth =495 TabIndex=4 Top =2040 Visible =0'False Width=495 End Begin VB.CommandButton cmdStart Caption ="&Start;" Height =375 Left=120 TabIndex=3 Top =2760 Width=855 End Begin VB.CommandButton cmdExit Caption ="&Exit;" Height =375 Left=3720 TabIndex=2 Top =2760 Width=855 End Begin VB.PictureBox Picture2 Appearance =0 'Flat BackColor=&H80000004;& BorderStyle =0 'None ForeColor=&H80000008;& Height =495 Left=480 ScaleHeight =495 ScaleWidth =495 TabIndex=1 Top =2040 Visible =0'False Width=495 End Begin VB.PictureBox Picture1 BackColor=&H008080FF;& BorderStyle =0 'None Height =495 Left=1920 ScaleHeight =495 ScaleWidth =495 TabIndex=0 Top =1320 Width=495 End Begin VB.Timer Timer1 Interval=1 Left=480 Top =240 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim DeltaX Dim DeltaY Dim gTimerSpeed Dim gGameOn As Boolean Dim gHit As Boolean Dim gSeconds Dim gShots Dim gTime Private Sub cmdExit_Click() Unload Form1 End Sub Private Sub cmdReset_Click() Picture1.Picture = Picture3.Picture Screen.MousePointer = vbCrosshair Timer1.Interval = 0 DeltaX = 100' Initialize variables. DeltaY = 100 cmdStart.Visible = True cmdExit.Visible = True cmdReset.Visible = False End Sub Private Sub cmdStart_Click() Picture1.Picture = Picture3.Picture Screen.MousePointer = vbCrosshair Timer1.Interval = 1 gTimerSpeed = 1 DeltaX = 100' Initialize variables. DeltaY = 100 cmdReset.Visible = False cmdStart.Visible = False cmdExit.Visible = False gHit = False gShots = 0 gGameOn = True gTime = 0 tmrSeconds.Interval = 1000 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) gShots = gShots + 1 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If gGameOn = True Then Timer1.Interval = 0 Picture1.Picture = Picture2.Picture Screen.MousePointer = Default cmdReset.Visible = True cmdExit.Visible = True gHit = True If gShots = 0 Then MsgBox "It took you " & gShots + 1 & " shot and " & gTime & " seconds to kill him!" ElseIf gShots > 0 Then MsgBox "It took you " & gShots + 1 & " shots and " & gTime & " seconds to kill him!" End If gGameOn = False tmrSeconds.Interval = 0 Exit Sub ElseIf gGameOn = False Then Exit Sub End If End Sub Private Sub Timer1_Timer() If gHit = True Then Timer1.Interval = 0 Exit Sub End If If gTimerSpeed < 50 Then gTimerSpeed = gTimerSpeed + 1 Timer1.Interval = gTimerSpeed Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY If Picture1.Left < ScaleLeft Then DeltaX = 100 If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then DeltaX = -100 End If If Picture1.Top < ScaleTop Then DeltaY = 100 If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then DeltaY = -100 End If End Sub Private Sub tmrSeconds_Timer() gTime = gTime + 1 End Sub