Types

As you have a few of the same type - best to pass it to the function like so

Function CheckGravity ( p.zombie )
  If Not EntityCollided(p\n,SCENERY) 
    TranslateEntity p\n,0,-0.1,0 
  End If 
End Function 

And then call with ...

For p.zombie = Each zombie 
  checkgravity( p ) 
  checkai( p ) 
Next