anchor.diff:  open BlazeVector.BlazeConstants
   
   [<AutoOpen>]
  -module EntityExtensionsModule =
  +module BulletModule =
   
       type Entity with
   
           member entity.Age = entity?Age : int64
           static member setAge (value : int64) (entity : Entity) = entity?Age <- value
  -        member entity.Health = entity?Health : int
  -        static member setHealth (value : int) (entity : Entity) = entity?Health <- value
  -        member entity.LastTimeOnGroundNp = entity?LastTimeOnGroundNp : int64
  -        static member setLastTimeOnGroundNp (value : int64) (entity : Entity) = entity?LastTimeOnGroundNp <- value
  -        member entity.LastTimeJumpNp = entity?LastTimeJumpNp : int64
  -        static member setLastTimeJumpNp (value : int64) (entity : Entity) = entity?LastTimeJumpNp <- value
  -
  -        static member hasAppeared camera (entity : Entity) =
  -            entity.Position.X - (camera.EyeCenter.X + camera.EyeSize.X * 0.5f) < 0.0f
  -
  -        static member hasFallen (entity : Entity) =
  -            entity.Position.Y < -600.0f
  -
  -[<AutoOpen>]
  -module BlazeDispatchersModule =
   
       type BulletDispatcher () =
           inherit EntityDispatcher ()
  
positive.code:             let world = World.observe TickEventName address (CustomSub tickHandler) world
              let world = World.observe (CollisionEventName + address) address (CustomSub collisionHandler) world
              (bullet, world)
  
      type EnemyDispatcher () =
          inherit EntityDispatcher ()
  
negative.code:                 World.observe TickEventName address (CustomSub tickHandler) |>
                  World.observe (CollisionEventName + address) address (CustomSub collisionHandler)
              (enemy, world)
  
  [<AutoOpen>]
  module PlayerModule =
  
      type Entity with
  
          member entity.LastTimeOnGroundNp = entity?LastTimeOnGroundNp : int64
          static member setLastTimeOnGroundNp (value : int64) (entity : Entity) = entity?LastTimeOnGroundNp <- value
          member entity.LastTimeJumpNp = entity?LastTimeJumpNp : int64
          static member setLastTimeJumpNp (value : int64) (entity : Entity) = entity?LastTimeJumpNp <- value
  
          static member hasFallen (entity : Entity) =
              entity.Position.Y < -600.0f
  
      type PlayerDispatcher () =
          inherit EntityDispatcher ()
  