Dude! You're never going to believe this!!!

VB Code:

Dim viewer As [color=blue]Person[/color]
 
If viewer = True Then
   Pistol.Loaded = True
   Pistol.Fire = True
Else
   Pistol.Loaded = True
   Pistol.Fire = True
End If

he he he....

yeah it's hard to believe.

hmm... you would expect that Pistol.Fire is a procedure, not a property.

I thought it would be

VB Code:

Pistol.Loaded = True
Call Pistol.Fire

or even

VB Code:

If Pistol.Loaded = True Then
   Call Pistol.Fire
Else
   Call Pistol.Load
   Call Pistol.Fire
End If

Really, it is unbelivable.

Unless...

VB Code:

If viewer = True Then
   Call Pistol.Load
   If Pistol.Malfunction = False Then
      Call FirePistol
   Else
      Call Pistol.Reload
   End If
Else
   Call Pistol.Load
   If Pistol.AtSelf = True Then
      Call FirePistol
   End If
End If

I still can't believe it.

Nah... mine's better. You overcomplicated your's :)

Nah.. just added the suicidal part that you forgot.