HandleSquirrelMove.fs

  let handleSquirrelMove otherActor hasAcorn =
    if not hasAcorn && otherActor.ActorKind = Acorn && otherActor.IsActive then
      // Moving to the acorn for the first time should give the squirrel the acorn
      {state with World =
        { 
          world with 
          Squirrel = {ActorKind = Squirrel true; Pos = pos; IsActive = true} 
          Acorn = {world.Acorn with IsActive = false}
        }
      }
    else if hasAcorn && otherActor.ActorKind = Tree then
      // Moving to the tree with the acorn - this should win the game
      {
        state with SimState = Won; World = { 
          world with Squirrel = {ActorKind = Squirrel true; Pos = pos; IsActive = true} 
        }
      }
    else
      performMove