Sub ParkSecurity()
On Error GoTo WaitingHelicopter
If Dinosaur.Escape = True then
FrozenEmbryos.InBag = True
FatDude.TravelSpeed = Fast
If ParkJeep.InRain.Reliability < Average then
Rain = xlVeryHeavy
End If
End If
Select Case SmallFrillyDinosaur
Case Squeaks
FatDude.Affection = High
Case Growls
FatDude.Affection = Medium
Case Screams
FatDude.Affection = Low
FatDude.Pants = Brown
FatDude.Intelligence = xlVeryStupid
End Select
If FatDude.Pants <> White then
FatDude.Alive = False
MsgBox “Uh, Uh, Uh, You didn’t say the magic word!!!”
End If
End Sub