anchor.diff:                  let enemy = World.getEntity enemyAddress world
                   let enemy = Entity.setDesiredTurn NoTurn enemy
                   let world = World.setEntity enemyAddress enemy world
  -                runCharacterActivity enemyAddress gameplayAddress newActivity world
  +                runCharacterActivity enemyAddress newActivity gameplayAddress world
               else world
   
  -        static let runEnemyNavigationActivities gameplayAddress enemyAddresses enemyNavigationActivities world =
  +        static let runEnemyNavigationActivities enemyAddresses enemyNavigationActivities gameplayAddress world =
               if List.exists ActivityState.isNavigating enemyNavigationActivities
               then List.fold2 (tryRunEnemyActivity gameplayAddress) world enemyAddresses enemyNavigationActivities
               else world
   
  -        static let runEnemyActivities gameplayAddress enemyAddresses enemyActionActivities enemyNavigationActivities world =
  +        static let runEnemyActivities enemyAddresses enemyActionActivities enemyNavigationActivities gameplayAddress world =
               let anyEnemyActionActivity = List.exists ActivityState.isActing enemyActionActivities
               let newEnemyActivities = if anyEnemyActionActivity then enemyActionActivities else enemyNavigationActivities
               List.fold2 (tryRunEnemyActivity gameplayAddress) world enemyAddresses newEnemyActivities
   
  -        static let runPlayerTurn gameplayAddress playerTurn world =
  +        static let runPlayerTurn playerTurn gameplayAddress world =
   
               // construct occupation map
               let occupationMap =
  
positive.code:         
          // hud entities
          static let getHudHalt gameplayAddress world = World.getEntity (getHudHaltAddress gameplayAddress) world
          static let setHudHalt gameplayAddress field world = World.setEntity (getHudHaltAddress gameplayAddress) field world
  
          // scene addresses
          static let getSceneAddress gameplayAddress = satoga gameplayAddress SceneName
          static let getFieldAddress gameplayAddress = gatoea (getSceneAddress gameplayAddress) FieldName
          static let getPlayerAddress gameplayAddress = gatoea (getSceneAddress gameplayAddress) PlayerName
          static let getCharacterAddress gameplayAddress (character : Entity) = gatoea (getSceneAddress gameplayAddress) character.Name
          static let getCharacterAddresses gameplayAddress characters = List.map (fun character -> getCharacterAddress gameplayAddress character) characters
  
          // scene entities
          static let getField gameplayAddress world = World.getEntity (getFieldAddress gameplayAddress) world
          static let getOptCharacterAtPosition gameplayAddress position world =
              let characters = world |> World.getEntities (getSceneAddress gameplayAddress) |> Seq.filter (Entity.dispatchesAs typeof<CharacterDispatcher>)
              Seq.tryFind (fun (character : Entity) -> character.Position = position) characters
          //static let getCharacterAtPosition gameplayAddress position world = Option.get <| getOptCharacterAtPosition gameplayAddress position world
          static let getOptCharacterInDirection gameplayAddress position direction world = getOptCharacterAtPosition gameplayAddress (position + dtovf direction) world
          static let getCharacterInDirection gameplayAddress position direction world = Option.get <| getOptCharacterInDirection gameplayAddress position direction world
          static let getPlayer gameplayAddress world = World.getEntity (getPlayerAddress gameplayAddress) world
          static let getEnemies gameplayAddress world = World.getEntities (getSceneAddress gameplayAddress) world |> Seq.filter (Entity.dispatchesAs typeof<EnemyDispatcher>) |> List.ofSeq
          static let getParticipants gameplayAddress world = (getField gameplayAddress world, getPlayer gameplayAddress world, getEnemies gameplayAddress world)
  
negative.code:                             | Left _ -> updateEntity playerAddress cancelNavigation
                              | Right _ ->
                                  if i = 0
                                  then updateBy
                                          (determinePlayerTurnFromInput playerInput gameplayAddress)
                                          (fun playerTurn -> runPlayerTurn playerTurn gameplayAddress)
                                  else updateBy
                                          (determinePlayerTurn gameplayAddress)
                                          (fun playerTurn -> runPlayerTurn playerTurn gameplayAddress) }
                      do! updateEntity hudSaveGameAddress <| Entity.setEnabled true }
                  let obs =
                      observe (ClickEventAddress ->>- hudHaltAddress) gameplayAddress |>
  