Duck Shoot Game

				
'**************************************
' 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
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1568&lngWId=1'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