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

[timeshifter]

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....

[mar_zim]

yeah it's hard to believe.

[baja_yu]

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

I thought it would be

Pistol.Loaded = True
Call Pistol.Fire

or even

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

Really, it is unbelivable.

[timeshifter]

Unless...

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.

[baja_yu]

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

[timeshifter]

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